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