IMPORT util
IMPORT security

FUNCTION produccion(pdata)
  DEFINE i SMALLINT,
  pdata STRING
  
  DEFINE data RECORD
    generales RECORD
       usuario     VARCHAR(50),
       clave       VARCHAR(50)
     END RECORD,
     detalle DYNAMIC ARRAY OF RECORD
       inventario STRING,
       codigo     INT,
       producto  STRING,
       cantidad  FLOAT,
       lado_1    FLOAT,
       lado_2    FLOAT,
       lado_3    FLOAT,
       medida    FLOAT,
       cod_n     SMALLINT,
       cod_grupo SMALLINT,
       cod_tipo  SMALLINT,
       cod_sec   SMALLINT,
       departamento VARCHAR(70),
       num_oc     INT,
       cliente    VARCHAR(100),
       num_doc    INT,
       fecha      DATE,
       fecha_crea DATETIME YEAR TO MINUTE,
       fecha_mod  DATETIME YEAR TO MINUTE,
       estado VARCHAR(20)
     END RECORD
    END RECORD
 DEFINE r_out RECORD
         orden INT,
         mensaje_out STRING,
         cod_msg INT
  END RECORD    
  
 # LOCATE data.archivos.imagen IN MEMORY
    CALL util.JSON.parse(pdata,data)
#    WHENEVER ERROR CONTINUE
  
    CONNECT TO "smarmotech" USER data.generales.usuario USING data.generales.clave
    IF STATUS < 0 THEN
       LET r_out.cod_msg = STATUS
       LET r_out.orden=0
       LET r_out.mensaje_out = 'ERROR EN USUARIO CONECTANDOSE A LA BASE DE DATOS'
       DISCONNECT CURRENT    
       RETURN util.JSON.stringify(r_out)
    END IF
      IF data.detalle.getLength() > 0 THEN

              
         FOR i = 1 TO data.detalle.getLength()
             IF data.detalle[i].num_doc IS NOT NULL THEN
                IF data.detalle[i].num_oc IS NULL THEN
                   LET data.detalle[i].num_oc = 0
                END IF
                INSERT INTO etiquetas
                  (idnumero,
                   fecha,
                   departamento ,
                   num_oc ,
                   codid  ,
                   cod_n ,
                   cod_grupo ,
                   cod_tipo ,
                   cod_sec ,
                   descripcion ,
                   lado_1 ,
                   lado_2 ,
                   lado_3 ,
                   cantidad ,
                   medida ,
                   estado ,
                   us_mod ,
                   fech_mod,
                   tipoInventario  )
     VALUES
           (data.detalle[i].num_doc,data.detalle[i].fecha,data.detalle[i].departamento,
           data.detalle[i].num_oc,
            data.detalle[i].codigo,data.detalle[i].cod_n,data.detalle[i].cod_grupo,
            data.detalle[i].cod_tipo,
            data.detalle[i].cod_sec,data.detalle[i].producto,data.detalle[i].lado_1,
            data.detalle[i].lado_2,
            data.detalle[i].lado_3,data.detalle[i].cantidad,data.detalle[i].medida,
            data.detalle[i].estado,
            data.generales.usuario,data.detalle[i].fecha_mod,
            data.detalle[i].inventario)

      END IF   
   END FOR
  END IF 

    LET r_out.cod_msg=13
    LET r_out.mensaje_out='ADICION EXITOSA'
    DISCONNECT CURRENT
    RETURN util.JSON.stringify(r_out)
END FUNCTION