jpegueroandClaude Sonnet 5
b6085d4140
Instruccion de Johnny: todos los directorios de fuentes de inventario deben migrarse de la carpeta temporal PROYECTOS a la carpeta real PROYECTO, ya que PROYECTOS sera eliminada. Se elimino tambien un archivo suelto sin relacion llamado "ipdir" que existia en PROYECTO (del commit inicial) y bloqueaba el nombre de la carpeta. Co-Authored-By: Claude Sonnet 5 <noreply@anthropic.com>
37 lines
835 B
Plaintext
37 lines
835 B
Plaintext
SCHEMA SMARMOTECH
|
|
FUNCTION loadDespieceMemory(pcodn,pcodgrupo,pcodtipo,pcodsec)
|
|
DEFINE pcodn,pcodgrupo,pcodtipo,pcodsec INT
|
|
DEFINE i,idx INT
|
|
DEFINE container DYNAMIC ARRAY OF RECORD
|
|
id_etiqueta SMALLINT,
|
|
cod_n INT,
|
|
cod_grupo INT,
|
|
cod_tipo INT,
|
|
cod_sec INT,
|
|
lado_1 DEC(12, 5),
|
|
lado_2 DEC(12, 5),
|
|
lado_3 DEC(12, 5),
|
|
cantidad DEC(12, 5),
|
|
medida DEC(12, 5),
|
|
secuencia, id_despiece INT,
|
|
bodega SMALLINT
|
|
END RECORD
|
|
LET idx = 1
|
|
|
|
FOR i = 1 TO container.getLength()
|
|
|
|
IF container[i].cod_n = pcodn AND
|
|
container[i].cod_grupo = pcodgrupo AND
|
|
container[i].cod_tipo = pcodtipo AND
|
|
container[i].cod_sec = pcodsec THEN
|
|
|
|
LET container[idx].* = container[i].*
|
|
LET idx = idx + 1
|
|
|
|
END IF
|
|
|
|
END FOR
|
|
|
|
RETURN container
|
|
|
|
END FUNCTION |