{

==============================================================
MODULO     : fotos.4gl
FECHA      : 09/02/2017
DESARROLLADO POR : ING. JUAN SOTO

}
IMPORT os
 DEFINE xusername,xsmtphost,xsmtpport, xpassword STRING
 
FUNCTION fotos(xcodn,xcodgrupo,xcodtipo,xcodsec,producto,xusuario,habilitar,xcantidadorden,
              xtmpnumero,xcodmov,xbodega,xestado)
  DEFINE xcodn,xcodgrupo,xcodtipo,xcodsec,xbodega SMALLINT,
         producto VARCHAR(100),
         xestado VARCHAR(1),
         xcantidadorden,unidadorden DEC(12,5),
         
         habilitar,noexistencia BOOLEAN

         DEFINE areageneral RECORD 
           xtipo_material,xcantidad_minima VARCHAR(30),
           bookmatch VARCHAR(50),
           tipos     VARCHAR(50),
           bodega    SMALLINT,
           descrip_bodega VARCHAR(100)
         END RECORD
         DEFINE kdatos DYNAMIC ARRAY OF RECORD
               kimagen VARCHAR(200),
               
               
               lado_2   DEC(8,5),
               lado_1   DEC(8,5),
               lado_3   DEC(8,5), 
               solicitado SMALLINT,
        #       cantidadIni      SMALLINT,
               cantidad      FLOAT,
               cantidad2     FLOAT,
               tono          VARCHAR(100),
               calidad       VARCHAR(100),
               
               disponible    SMALLINT,
               xobservacion  VARCHAR(200),
               id_producto   CHAR(25),
               
               seccion   INT,
               tramo     INT,
               --codid INT,
               borrar CHAR(2) ,
               nombre_file VARCHAR(100)
         END RECORD,
         kimagen_dest,kimagen_dest2 STRING,
         
         xusuario VARCHAR(50),
         i,xcodmov SMALLINT,
         xtmpnumero INT,
         TOemail,cuerpo_correo,
         subject, procedimiento VARCHAR(200),
         totalMedida DEC(12,5)  
         
         
  DEFINE s_tipo,d_tipos,mensaje,f_tipos,filepath,dir_file,opcion STRING
  
  LET producto = xcodn USING "&&&&","-",xcodgrupo USING "&&&&","-",
                 xcodtipo USING "&&&&","-",xcodsec USING "&&&&&&"," ",producto CLIPPED
  OPEN WINDOW w1 WITH FORM "ipfmwd015"  
  
  DISPLAY BY NAME producto
   DECLARE busca_imagen CURSOR FOR
    SELECT a.imagen, SUM(a.lado_1),SUM(a.lado_2),SUM(isnull(a.lado_3,0)),SUM(a.cantidad),
    SUM(a.cantidad2),a.observacion,a.id_producto, a.cod_seccion,a.cod_tramo,
        a.nombre_file,a.solicitados,a.tono,a.calidad
    FROM iptb00050 a
    WHERE a.cod_n = xcodn AND
          a.cod_grupo = xcodgrupo AND
          a.cod_tipo =xcodtipo AND
          a.cod_sec = xcodsec  AND
          a.num_doc = xtmpnumero AND
          a.cod_mov = xcodmov

     GROUP BY a.imagen, a.observacion,a.id_producto, a.cod_bodega,a.cod_seccion,a.cod_tramo,
             a.nombre_file,a.solicitados,a.tono,a.calidad
      
    UNION
    SELECT a.imagen, SUM(a.lado_1),SUM(a.lado_2),SUM(isnull(a.lado_3,0)),SUM(a.cantidad),
    SUM(a.cantidad2),a.observacion,a.id_producto, a.cod_seccion,a.cod_tramo,
        a.nombre_file,a.solicitados,a.tono,a.calidad  
    FROM tmpdesglose a
    WHERE a.cod_n = xcodn AND
          a.cod_grupo = xcodgrupo AND
          a.cod_tipo =xcodtipo AND
          a.cod_sec = xcodsec  AND
          a.num_doc = xtmpnumero AND
          a.cod_mov = xcodmov 
    
    GROUP BY a.imagen, a.observacion,a.id_producto, a.cod_seccion,a.cod_tramo,
             a.nombre_file,a.solicitados,a.tono,a.calidad

   LET kimagen_dest = "tmpfile.jpg"
   LET kimagen_dest2="tmpfile2.jpg"
   LET i=1 
   LET d_tipos="jpeg"
   LET f_tipos="*.jpg *.png *.jpeg"
   LET mensaje=%"Elige Documento"
   
   
   LET totalMedida = 0 
   
   FOREACH busca_imagen INTO kdatos[i].kimagen,kdatos[i].lado_1,
                             kdatos[i].lado_2,kdatos[i].lado_3,kdatos[i].cantidad,kdatos[i].cantidad2,
                             kdatos[i].xobservacion,kdatos[i].id_producto, 
                             kdatos[i].seccion,kdatos[i].tramo,kdatos[i].nombre_file,
                             kdatos[i].tono,kdatos[i].calidad,
                             #,kdatos[i].solicitado,
                             kdatos[i].tono,kdatos[i].calidad
     LET kdatos[i].borrar='NO'
         
   #  LET kdatos[i].cantidadIni = kdatos[i].cantidad
     LET totalMedida = totalMedida + kdatos[i].cantidad2 
     LET i = i+1
   
   END FOREACH
   
   DISPLAY BY NAME totalMedida
   
   CALL  kdatos.deleteElement(i)
   SELECT a.usuario FROM seg0003 a
   WHERE a.usuario = xusuario AND
         a.fotos_adicionales_inventario = "SI"

   IF STATUS <> NOTFOUND THEN
     LET habilitar = TRUE
    
     DIALOG   
         INPUT BY NAME areageneral.*
           BEFORE INPUT
              DISPLAY BY NAME xcantidadOrden
              IF habilitar = TRUE THEN 
                 --CALL DIALOG.setActionHidden("xtipo_material",FALSE)
                 --CALL DIALOG.setActionHidden("xcantidad_minima",FALSE)
                 --CALL DIALOG.setActionHidden("foto",FALSE)
             END IF 
             SELECT DISTINCT a.tipo_material,a.cantidad_minima,a.bookmatch,a.tipos 
             INTO areageneral.xtipo_material,areageneral.xcantidad_minima,areageneral.bookmatch,areageneral.tipos
             FROM iptb00052 a
             WHERE a.cod_n =xcodn AND a.cod_grupo = xcodgrupo AND
                   a.cod_tipo = xcodtipo AND a.cod_sec = xcodsec AND
                   a.num_doc = xtmpnumero AND a.cod_mov = xcodmov
             UNION
             SELECT DISTINCT a.tipo_material,a.cantidad_minima,a.bookmatch,a.tipos 
             INTO areageneral.xtipo_material,areageneral.xcantidad_minima,areageneral.bookmatch,areageneral.tipos
             FROM tmpdesglose_master a
             WHERE a.cod_n =xcodn AND a.cod_grupo = xcodgrupo AND
                   a.cod_tipo = xcodtipo AND a.cod_sec = xcodsec AND
                   a.num_doc = xtmpnumero AND a.cod_mov = xcodmov

             SELECT a.tipo_material,a.bookmatch,a.tipos 
             INTO areageneral.xtipo_material,areageneral.bookmatch,areageneral.tipos
             FROM iptb00002 a 
             WHERE  a.cod_n =xcodn AND a.cod_grupo = xcodgrupo AND
                   a.cod_tipo = xcodtipo AND a.cod_sec = xcodsec
             LET areageneral.bodega = xbodega
             SELECT a.descripcion INTO areageneral.descrip_bodega FROM
             intb00009 a WHERE a.cod_bodega = xbodega
             
             DISPLAY BY NAME areageneral.xtipo_material,areageneral.xcantidad_minima,
                             areageneral.bookmatch,areageneral.tipos,
                             areageneral.descrip_bodega,
                             areageneral.bodega
                        
       
         END INPUT
         INPUT ARRAY kdatos FROM sdatos.* ATTRIBUTE(WITHOUT DEFAULTS)
             BEFORE INPUT 
                 IF habilitar = TRUE THEN    
                                    
                   CALL DIALOG.setFieldActive("lado_1",TRUE)
                   CALL DIALOG.setFieldActive("lado_2",TRUE)
                   CALL DIALOG.setFieldActive("lado_3",TRUE)
                   CALL DIALOG.setFieldActive("cantidad",TRUE)
                   CALL DIALOG.setFieldActive("cantidad2",TRUE)
                   
                   CALL DIALOG.setFieldActive("disponible",TRUE)
                   CALL DIALOG.setFieldActive("xobservacion",TRUE)
                   CALL DIALOG.setFieldActive("id_producto",TRUE)
                   
                   CALL DIALOG.setFieldActive("seccion",TRUE)
                   CALL DIALOG.setFieldActive("tramo",TRUE)
                   CALL DIALOG.setFieldActive("borrar",TRUE)
                 
                    CALL DIALOG.setFieldActive("solicitado",FALSE)
                 END IF
                  IF xestado = '2' THEN 
                                                          
                   CALL DIALOG.setFieldActive("lado_1",FALSE)
                   CALL DIALOG.setFieldActive("lado_2",FALSE)
                   CALL DIALOG.setFieldActive("lado_3",FALSE)
                   CALL DIALOG.setFieldActive("cantidad",FALSE)
                   CALL DIALOG.setFieldActive("cantidad2",FALSE)
                   
                   CALL DIALOG.setFieldActive("disponible",FALSE)
                   NEXT FIELD id_producto
                  END IF
                   
             BEFORE ROW
              LET i=arr_curr()
     #         LET kdatos[i].bodega = xbodega
              CALL cseccion(xbodega)
              
              IF kdatos[i].kimagen IS NOT NULL THEN
                 LET kimagen_dest = kdatos[i].kimagen 
                 DISPLAY  kimagen_dest TO presenta
              END IF 
              IF kdatos[i].cantidad2 < 0 THEN
                 LET kdatos[i].cantidad2 = kdatos[i].cantidad2 * -1
              END IF      
              DISPLAY kdatos[i].cantidad TO sdatos[scr_line()].cantidad
              
              
              
          
             AFTER FIELD seccion
                 CALL ctramo(xbodega, kdatos[i].seccion)
                 
                         
             ON ACTION foto_down
                  IF kdatos[i].kimagen IS NOT NULL THEN
              
                     LET dir_file = "tmp\\",xusuario CLIPPED,
                                    kimagen_dest CLIPPED
                     LET s_tipo = '*jpg *.png' 
                  
                     LET opcion = 'Archivo Imagen'
                     LET kimagen_dest = dir_file
                     DISPLAY kimagen_dest TO presenta
                 
                     LET mensaje = 'Guardar archivo' 
                     CALL ui.Interface.frontCall("standard","getenv", ["TEMP"], [filepath] )
              
                     LET filepath = filepath CLIPPED,"\\",kdatos[i].nombre_file CLIPPED

                     CALL ui.Interface.frontCall("standard","savefile", [dir_file,opcion,
                                                 s_tipo,mensaje], [filepath] )     
                     CALL fgl_putfile(dir_file,filepath)  
                  
                     CALL ui.Interface.frontCall("standard","shellexec",  [filepath],[opcion]) 
         
                    END IF 
            
              ON ACTION foto
                  LET i = arr_curr()
                  CALL ui.Interface.frontCall("standard","openfile", [dir_file,d_tipos,f_tipos,mensaje], [filepath] )     
                
                  IF filepath IS NOT NULL THEN
                     IF downshift(os.Path.extension(filepath)) = "jpg" OR 
                        downshift(os.Path.extension(filepath)) = "jpeg" OR
                        downshift(os.Path.extension(filepath)) = "png" THEN

                        LET dir_file = os.Path.basename(filepath)
                   
                        LET dir_file = "tmp\\",dir_file CLIPPED
                       # CALL fgl_getfile(filepath,kimagen_dest2)
                        CALL fgl_getfile(filepath,dir_file)

                        CALL comprimeImagen(dir_file,' -resize 500x500 ') 

                        
                        LET kdatos[i].nombre_file = os.Path.basename(dir_file)
                        DISPLAY dir_file TO presenta
                        LET kdatos[i].kimagen = dir_file
                     ELSE
                      CALL fgl_winmessage("ERROR","EL FILE DEBE SER JPG, JPEG, PNG","INFO")
                     END IF 
                  END IF
{
             AFTER FIELD solicitado
                LET i = arr_curr() 

                IF  kdatos[i].solicitado IS NULL THEN 
                    CALL fgl_winmessage("ERROR","DEBE ESPECIFICAR lA CANTIDAD SOLICITADA","INFO")
                    NEXT FIELD solicitado
                END IF 
                
                IF kdatos[i].solicitado > kdatos[i].cantidad THEN 
                    CALL fgl_winmessage("ERROR","lA CANTIDAD SOLICITADA SUPERA LA DISPONIBLE","INFO")
                    NEXT FIELD solicitado
                ELSE                        
                    DISPLAY "kdatos[i].cantidadIni: ",kdatos[i].cantidadIni
                    DISPLAY "kdatos[i].solicitado: ",kdatos[i].solicitado
                    
                    LET  kdatos[i].cantidad = kdatos[i].cantidadIni - kdatos[i].solicitado      
                    LET  kdatos[i].cantidad2= kdatos[i].lado_1 * kdatos[i].lado_2 * kdatos[i].cantidad

                    DISPLAY kdatos[i].cantidad TO sdatos[scr_line()].cantidad
                    DISPLAY kdatos[i].cantidad2 TO sdatos[scr_line()].cantidad2
                END IF 
 }               
             AFTER FIELD cantidad
                  LET i = arr_curr()           
                  LET  kdatos[i].cantidad2= kdatos[i].lado_1 * kdatos[i].lado_2 * kdatos[i].cantidad
                  DISPLAY kdatos[i].cantidad2 TO sdatos[scr_line()].cantidad2

             AFTER FIELD id_producto
                 IF xestado = '2' THEN
                 
                     SELECT DISTINCT a.lado_1,a.lado_2,a.lado_3,a.tono,a.calidad
                     INTO kdatos[i].lado_1,kdatos[i].lado_2,kdatos[i].lado_3,
                          kdatos[i].tono,kdatos[i].calidad
                     FROM iptb00050 a WHERE a.id_producto = kdatos[i].id_producto

                     IF STATUS = NOTFOUND THEN
                        CALL msg(3)
                        NEXT FIELD id_producto
                     END IF 
                     DISPLAY kdatos[i].lado_1 TO sdatos[scr_line()].lado_1
                     DISPLAY kdatos[i].lado_2 TO sdatos[scr_line()].lado_2
                     DISPLAY kdatos[i].lado_3 TO sdatos[scr_line()].lado_3
                     
                     DISPLAY kdatos[i].tono TO sdatos[scr_line()].tono
                     DISPLAY kdatos[i].calidad TO sdatos[scr_line()].calidad
                END IF
         ON ACTION guardar ATTRIBUTE(TEXT="Salvar",IMAGE="save")
             
             BEGIN WORK
                  SELECT a.num_doc FROM tmpdesglose_master a
                  WHERE a.num_doc = xtmpnumero AND a.cod_mov = xcodmov AND a.us_crea = xusuario
                  IF STATUS = NOTFOUND THEN
                     INSERT INTO tmpdesglose_master (cod_n,cod_grupo,cod_tipo,cod_Sec,tipo_material,cantidad_minima,us_crea,fech_crea,cantidadorden,num_doc,cod_mov,fecha,bookmatch,tipos,bodega)
                     VALUES (xcodn,xcodgrupo,xcodtipo,xcodsec,areageneral.xtipo_material,areageneral.xcantidad_minima,xusuario,getdate(),xcantidadorden,xtmpnumero,xcodmov,getdate(),areageneral.bookmatch,areageneral.tipos,
                             xbodega)
                  END IF
                  DELETE FROM tmpdesglose WHERE num_doc = xtmpnumero AND cod_mov = xcodmov AND
                                                cod_n = xcodn AND cod_grupo = xcodgrupo AND 
                                                cod_tipo = xcodtipo AND cod_sec = xcodsec AND
                                                us_crea = xusuario
                   LET xcantidadorden = 0
                   LET unidadorden =0
                   FOR i =1 TO kdatos.getLength()
                    IF kdatos[i].calidad IS NOT NULL THEN
                          IF kdatos[i].id_producto IS NULL THEN
                             ROLLBACK WORK
                             CALL msg(16)
                             NEXT FIELD id_producto
                          END IF
                          IF xestado = '2' THEN
                             SELECT DISTINCT id_producto FROM iptb00050 WHERE id_producto = kdatos[i].id_producto

                              IF STATUS = NOTFOUND THEN
                                 CALL msg(3)
                                 NEXT FIELD id_producto
                              END IF 
                                    IF kdatos[i].cantidad2 < 0 THEN
                             LET kdatos[i].cantidad2 = kdatos[i].cantidad2 * -1
                          END IF
                          CALL idexistencia(kdatos[i].id_producto,kdatos[i].cantidad2,xbodega,
                                            kdatos[i].seccion,kdatos[i].tramo) RETURNING noexistencia
                          IF noexistencia THEN
                             ROLLBACK WORK
                             CALL msg(30)
                             NEXT FIELD cantidad2
                          END IF
                          END IF
                          LET kdatos[i].id_producto=kdatos[i].id_producto CLIPPED
                    
                          LET xcantidadorden = xcantidadorden + kdatos[i].cantidad2
                          LET unidadorden = unidadorden + kdatos[i].cantidad
                          IF xestado = '2' THEN
                             
                             LET kdatos[i].cantidad2 = kdatos[i].cantidad2  * -1
                          END IF
                             INSERT INTO tmpdesglose (cod_n,cod_grupo,cod_tipo,cod_Sec,imagen,observacion,
                                                    lado_1,lado_2,lado_3,cantidad,
                                                    nombre_file,us_crea,fech_crea,id_producto,
                                                    cantidad2,cod_bodega,cod_seccion,cod_tramo,tono,calidad,num_doc,cod_mov
                                                    )
                             VALUES (xcodn,xcodgrupo,xcodtipo,xcodsec,kdatos[I].kimagen,kdatos[i].xobservacion,
                                     kdatos[i].lado_1,kdatos[i].lado_2,kdatos[i].lado_3,
                                     kdatos[i].cantidad, kdatos[i].nombre_file,xusuario,getdate(),kdatos[i].id_producto,
                                     kdatos[i].cantidad2,xbodega,kdatos[i].seccion,kdatos[i].tramo,kdatos[i].tono,
                                     kdatos[i].calidad,xtmpnumero,xcodmov)
                    END IF    
                END FOR

                COMMIT WORK
                
                CALL msg(1)
                
               LET subject="ACTUALIZACION IMAGEN PRODUCTO"
               LET cuerpo_correo = "EL ARTICULO ",producto CLIPPED, " FUE ACTUALIZADO CON UNA IMAGEN"
            #   LET toemail ='vendedores@marmotech.com.do;jsoto@marmotech.com.do'
               LET toemail ='jsoto@marmotech.com.do'    
             #  LET procedimiento = "{ call cc_avisadespacho(?,?,?,?) }" CLIPPED
               
            #   CALL envia_correo(TOemail,CCEmail,cuerpo_correo,
            #                             subject, procedimiento )

            
            LET xusername   ='notificacion@marmotech.com.do'
            LET xsmtphost   ='smtp.office365.com' 
            LET xsmtpport   = '587'
            LET xpassword   = 'Lmmjvsd2020'
          #        CALL enviaemail(Toemail,subject,cuerpo_correo,NULL,xusername,xsmtphost,xsmtpport,xpassword) 
                #  RETURNING retorne        
                       LET procedimiento = "{ call cc_avisadespacho(?,?,?,?) }" CLIPPED
  
      END INPUT
                    
      ON ACTION retornar ATTRIBUTE(TEXT="Retornar",IMAGE="fa-long-arrow-left")
         IF xcantidadorden IS NULL THEN
            LET xcantidadorden=0
         END IF
         IF unidadorden IS NULL THEN
            LET unidadorden = 0
         END IF       
         EXIT DIALOG
   
     END DIALOG 
   ELSE
      DISPLAY ARRAY kdatos TO sdatos.*
       BEFORE ROW
          LET i=arr_curr()
          IF kdatos[i].kimagen IS NOT NULL THEN
             LET kimagen_dest =kdatos[i].kimagen 
             DISPLAY  kimagen_dest TO presenta
          END IF 
 
        ON ACTION foto_down
           IF kdatos[i].kimagen IS NOT NULL THEN
      
              LET dir_file = "tmp\\",xusuario CLIPPED,
                            kimagen_dest CLIPPED
              LET s_tipo = '*jpg *.png' 
          
             LET opcion = 'Archivo Imagen'
             
         
             LET mensaje = 'Guardar archivo' 
             CALL ui.Interface.frontCall("standard","getenv", ["TEMP"], [filepath] )
      
             LET filepath = filepath CLIPPED,"\\",kdatos[i].nombre_file CLIPPED

             CALL ui.Interface.frontCall("standard","savefile", [dir_file,opcion,
                                         s_tipo,mensaje], [filepath] )     
             CALL fgl_putfile(dir_file,filepath)  
             CALL comprimeImagen(filepath,' -resize 500x500 ') 

             CALL ui.Interface.frontCall("standard","shellexec",  [filepath],[opcion]) 
 
          END IF       
       AFTER DISPLAY
         EXIT DISPLAY
       END DISPLAY  
   END IF
   CLOSE WINDOW w1
   
   RETURN xcantidadorden,unidadorden
  
END FUNCTION
FUNCTION idexistencia(id,cantidad,pbodega, secc,fila)
  DEFINE id VARCHAR(25),
         existencia,cantidad DEC(12,5),
         secc,fila,pbodega INT

  SELECT ISNULL(SUM(a.cantidad2),0) INTO existencia FROM iptb00050 a 
  WHERE a.id_producto = id AND
        a.cod_bodega = pbodega AND
        a.cod_seccion = secc AND
        a.cod_tramo = fila AND  
        a.status_t IS NULL

  IF cantidad > existencia THEN
     RETURN TRUE
  ELSE
     RETURN FALSE   
  END IF

    
END FUNCTION