382 lines
15 KiB
Plaintext
382 lines
15 KiB
Plaintext
{
|
|
PROGRAMA : prprmt020
|
|
OBJETIVO : Administrar los documentos de las ordenes
|
|
PROGRAMADOR : ING. JUAN SOTO
|
|
FECHA : 10/1/2013
|
|
ACTUALIZACION: SE CAMBIO DE SOLO ADMINISTRAR LOS DIBUJOS A MANEJAR TODOS LOS DOCUMENTOS RELACIONADOS A LA ORDEN
|
|
FECHA ACTUALIZACION: 1/12/2015
|
|
}
|
|
IMPORT os
|
|
GLOBALS "prprgb000.4gl"
|
|
DEFINE d_tipos,mensaje,f_tipos,filepath,l_file,tmpdir_file STRING,
|
|
xusername,xsmtphost,xsmtpport,xpassword VARCHAR(100),
|
|
nombre_file_orig DYNAMIC ARRAY OF VARCHAR(100),
|
|
psec_vend INT, container, enviarEncuesta STRING
|
|
|
|
|
|
MAIN
|
|
DEFER INTERRUPT
|
|
CALL STARTLOG("prmt020.log")
|
|
CALL ARG_VAL(1) RETURNING usuarios
|
|
CALL ARG_VAL(2) RETURNING clave
|
|
# CALL showDir("F:\\MASTER\\DOCUMENTOS_ORDENES")
|
|
CONNECT to "marmotech" AS "IFMX" USER usuarios USING clave
|
|
|
|
CONNECT to "smarmotech" AS "MSSQL" USER usuarios USING clave
|
|
CALL prprmt020()
|
|
END MAIN
|
|
|
|
FUNCTION prprmt020()
|
|
DEFINE nombre_cliente,email,emailsubject,procedimiento,vendedor,dir_file CHAR(60),
|
|
url,filedestino VARCHAR(200),
|
|
emailbody STRING,
|
|
documentos DYNAMIC ARRAY OF RECORD
|
|
idx INT,
|
|
tipo_file CHAR(20),
|
|
bodega,cod_mov SMALLINT,
|
|
|
|
num_doc INT,
|
|
nombre_file VARCHAR(100),
|
|
filedestino BYTE,
|
|
envio_correo,file_extension CHAR(10)
|
|
|
|
|
|
END RECORD,
|
|
p_res,i SMALLINT,
|
|
chpath VARCHAR(1),
|
|
cmd VARCHAR(200),
|
|
exito BOOLEAN,
|
|
tipo_file,enviar_email CHAR(20),
|
|
bodega SMALLINT,
|
|
num_doc INT
|
|
|
|
LET i = 1
|
|
|
|
OPEN WINDOW w1 WITH FORM "prfmmt012"
|
|
DIALOG ATTRIBUTES(UNBUFFERED,FIELD ORDER FORM)
|
|
INPUT BY NAME prtb09.num_oc
|
|
|
|
BEFORE INPUT
|
|
LET d_tipos="PDF"
|
|
LET f_tipos="*.pdf *.jpg *.png *.dwg *.dkf"
|
|
LET mensaje=%"Elige Documento"
|
|
|
|
|
|
# Busca correo usuario
|
|
LET copiaemail = NULL
|
|
LET email = null
|
|
SELECT ISNULL(a.email,b.email) INTO email FROM seg0000 a,seg0001 b
|
|
WHERE a.usuario = usuarios AND a.usuario = b.usuario
|
|
|
|
LET copiaemail = email CLIPPED
|
|
DECLARE buscacorreo CURSOR FOR
|
|
SELECT a.correo FROM seg0003 a
|
|
WHERE a.controldibujo = 'SI'
|
|
|
|
LET idx = 1
|
|
|
|
FOREACH buscacorreo INTO copiacorreo[idx]
|
|
|
|
LET copiaemail = copiaemail CLIPPED,",",copiacorreo[idx]
|
|
|
|
LET idx = idx + 1
|
|
END FOREACH
|
|
|
|
|
|
AFTER FIELD num_oc
|
|
SELECT a.cotizacion_no,b.nombre,a.sec_vend,ISNULL(c.nom1_emp,' ')+ISNULL(c.apell1_emp,' '),
|
|
a.tipo_cliente,a.sec_cliente
|
|
INTO prtb09.cotizacion_no,nombre_cliente,psec_vend,vendedor,
|
|
prtb08.tipo_cliente,prtb08.sec_cliente
|
|
FROM prtb00012 a,vetb00004 b,adtb00003 c
|
|
WHERE a.num_oc = prtb08.num_oc AND
|
|
a.tipo_cliente = b.tipo_cliente AND
|
|
a.sec_cliente = b.sec_cliente AND
|
|
a.sec_vend = c.num_emp
|
|
|
|
IF STATUS = NOTFOUND THEN
|
|
CALL msg(3)
|
|
NEXT FIELD num_oc
|
|
ELSE
|
|
CALL documentos.clear()
|
|
|
|
|
|
DECLARE busca_dibujo CURSOR FOR
|
|
SELECT a.id,a.tipo_file,a.bodega,a.cod_mov, a.num_doc,a.nombre_file,
|
|
a.documento,a.envio_notificacion
|
|
FROM prtb00029 a
|
|
WHERE a.num_oc = prtb08.num_oc
|
|
ORDER BY a.id
|
|
LET idx = 1
|
|
LOCATE documentos[idx].filedestino IN MEMORY
|
|
FOREACH busca_dibujo INTO documentos[idx].*
|
|
LET idx = idx + 1
|
|
LOCATE documentos[idx].filedestino IN MEMORY
|
|
|
|
END FOREACH
|
|
|
|
END IF
|
|
SELECT MAX(a.id) INTO i FROM prtb00029 a
|
|
WHERE a.num_oc = prtb08.num_oc
|
|
|
|
SELECT a.path_documentos_ordenes,a.url_file_destino INTO filedestino,url
|
|
FROM companias a
|
|
|
|
|
|
DISPLAY BY NAME prtb08.cotizacion_no,nombre_cliente,vendedor
|
|
NEXT FIELD tipo_file
|
|
AFTER INPUT
|
|
END INPUT
|
|
|
|
INPUT ARRAY documentos FROM sdibujo.* ATTRIBUTE(WITHOUT DEFAULTS)
|
|
|
|
ON ACTION dibujo
|
|
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)) = "pdf" OR
|
|
downshift(os.Path.extension(filepath)) = "jpg" OR
|
|
downshift(os.Path.extension(filepath)) = "dwg" OR
|
|
downshift(os.Path.extension(filepath)) = "dxf" OR
|
|
downshift(os.Path.extension(filepath)) = "png" THEN
|
|
LET dir_file = os.Path.basename(filepath)
|
|
DISPLAY filepath TO ruta_file
|
|
CALL documentos.appendElement()
|
|
IF idx IS NULL THEN
|
|
LET idx = 1
|
|
END IF
|
|
LOCATE documentos[idx].filedestino IN MEMORY
|
|
|
|
LET dir_file = "tmp\\",dir_file CLIPPED
|
|
CALL fgl_getfile(filepath,dir_file)
|
|
|
|
CALL documentos[idx].filedestino.readFile(dir_file)
|
|
LET documentos[idx].nombre_file=os.Path.basename(filepath)
|
|
LET nombre_file_orig[idx] = filepath
|
|
LET idx = idx + 1
|
|
ELSE
|
|
CALL fgl_winmessage("ERROR","EL FILE DEBE SER PDF, JPG, PNG, DWG","INFO")
|
|
END IF
|
|
|
|
END IF
|
|
AFTER FIELD num_doc
|
|
IF num_doc IS NOT NULL AND tipo_file = "CO" THEN
|
|
CASE
|
|
WHEN tipo_file = "CO"
|
|
IF documentos[arr_curr()].bodega IS NULL THEN
|
|
NEXT FIELD bodega
|
|
END IF
|
|
IF documentos[arr_curr()].cod_mov IS NULL THEN
|
|
NEXT FIELD cod_mov
|
|
END IF
|
|
DISPLAY "datos: r ",arr_curr()," b ",documentos[arr_curr()].bodega," n ",documentos[arr_curr()].num_doc," c ",documentos[arr_curr()].cod_mov
|
|
SELECT DISTINCT a.num_doc FROM iptb00006 a
|
|
WHERE a.bodega = documentos[arr_curr()].bodega AND
|
|
a.num_doc = documentos[arr_curr()].num_doc AND
|
|
a.cod_mov =documentos[arr_curr()].cod_mov AND
|
|
a.num_oc = prtb08.num_oc AND
|
|
a.status_t IS NULL
|
|
|
|
IF STATUS = NOTFOUND THEN
|
|
CALL fgl_Winmessage("ERROR","DOCUMENTO NO EXISTE o NO PERTENECE A ESTA ORDEN","INFO")
|
|
NEXT FIELD num_doc
|
|
END IF
|
|
|
|
WHEN tipo_file="DE"
|
|
SET CONNECTION "IFMX"
|
|
|
|
SELECT DISTINCT a.num_doc FROM cctb00001 a
|
|
WHERE a.num_doc = documentos[arr_curr()].num_doc AND
|
|
a.tipo_doc = "NC" AND
|
|
a.tipo_cliente = prtb08.tipo_cliente AND
|
|
a.sec_cliente = prtb08.sec_cliente AND
|
|
a.status_t IS NULL
|
|
|
|
IF STATUS = NOTFOUND THEN
|
|
CALL fgl_Winmessage("ERROR","DOCUMENTO NO EXISTE","INFO")
|
|
NEXT FIELD num_doc
|
|
END IF
|
|
|
|
|
|
END CASE
|
|
|
|
END IF
|
|
|
|
AFTER FIELD tipo_file
|
|
IF tipo_file = "CO" THEN
|
|
CALL dialog.setFieldActive('cod_mov', TRUE)
|
|
CALL codmov()
|
|
END IF
|
|
|
|
BEFORE INPUT
|
|
CALL bodegas("1")
|
|
# CALL codmov()
|
|
CALL dialog.setFieldActive('cod_mov', FALSE )
|
|
|
|
|
|
ON ACTION abrir
|
|
TRY
|
|
LET tmpdir_file = "tmp\\",usuarios CLIPPED,documentos[arr_curr()].nombre_file
|
|
|
|
CALL documentos[arr_curr()].filedestino.writeFile(tmpdir_file)
|
|
|
|
CALL ui.Interface.frontCall("standard","getenv", ["TEMP"], [l_file] )
|
|
|
|
LET l_file = l_file CLIPPED,"\\",documentos[arr_curr()].nombre_file
|
|
CALL fgl_putfile(tmpdir_file,l_file)
|
|
|
|
CALL ui.Interface.frontCall("standard","shellexec", [l_file],[p_res])
|
|
|
|
CATCH
|
|
CALL fgl_winmessage("ERROR",err_get(STATUS),"INFO")
|
|
END TRY
|
|
ON ACTION actualiza
|
|
# WHENEVER ERROR CONTINUE
|
|
LET enviar_email = 'SI'
|
|
BEGIN WORK
|
|
|
|
SELECT enviaEncuesta INTO container FROM prtb00029
|
|
WHERE num_oc = prtb08.num_oc AND tipo_file = 'CO'
|
|
|
|
DELETE FROM prtb00029 WHERE num_oc = prtb08.num_oc
|
|
FOR idx = 1 TO documentos.getLength()
|
|
|
|
IF documentos[idx].filedestino IS NOT NULL THEN
|
|
IF documentos[idx].tipo_file IS NULL THEN
|
|
ROLLBACK WORK
|
|
CALL fgl_winmessage("INFO","FAVOR DE COLOCAR EL TIPO DE FILE A ESTE DOCUMENTO","INFO")
|
|
NEXT FIELD tipo_file
|
|
END IF
|
|
IF documentos[idx].nombre_file IS NOT NULL THEN
|
|
LET documentos[idx].nombre_file= idx USING "&&&","-",prtb08.num_oc USING "&&&&&&&&",'.',os.Path.extension(documentos[idx].nombre_file)
|
|
LET documentos[idx].file_extension = os.Path.extension(documentos[idx].nombre_file)
|
|
ELSE
|
|
LET documentos[idx].nombre_file= idx USING "&&&","-",prtb08.num_oc USING "&&&&&&&&",'.',os.Path.extension(filepath)
|
|
LET documentos[idx].file_extension = os.Path.extension(documentos[idx].nombre_file)
|
|
END IF
|
|
|
|
LET tipo_file = documentos[idx].tipo_file
|
|
|
|
IF documentos[idx].tipo_file = 'CO' THEN
|
|
LET enviarEncuesta = container
|
|
ELSE
|
|
LET enviarEncuesta = NULL
|
|
END IF
|
|
|
|
|
|
INSERT INTO prtb00029 (num_oc,documento,
|
|
tipo_file,
|
|
nombre_file,num_doc,bodega,id,us_crea,fech_crea,
|
|
ruta_file_original,file_extension,cod_mov, enviaEncuesta)
|
|
VALUES (prtb08.num_oc,documentos[idx].filedestino,
|
|
documentos[idx].tipo_file,
|
|
documentos[idx].nombre_file,
|
|
documentos[idx].num_doc,documentos[idx].bodega, idx,usuarios,getdate(),nombre_file_orig[idx],
|
|
documentos[idx].file_extension,documentos[idx].cod_mov, enviarEncuesta
|
|
)
|
|
IF STATUS < 0 THEN
|
|
ROLLBACK WORK
|
|
CALL fgl_winmessage("ERROR","NO INSERTE DOCUMENTO EN LA ORDEN","INFO")
|
|
EXIT PROGRAM
|
|
|
|
END IF
|
|
IF tipo_file= 'DI' THEN
|
|
IF enviar_email = "SI" THEN
|
|
LET emailsubject = "ACTUALIZACION DIBUJO ORDEN ",prtb08.num_oc USING "&&&&&&"
|
|
LET emailbody = "El usuario ",usuarios," Adiciono un dibujo a la orden ",prtb08.num_oc USING "&&&&&&"
|
|
LET procedimiento = "{ call cc_avisadespacho(?,?,?,?) }" CLIPPED
|
|
|
|
|
|
LET xusername ='notificacion@marmotech.com.do'
|
|
LET xsmtphost ='smtp.office365.com'
|
|
LET xsmtpport = '587'
|
|
LET xpassword = 'Lmmjvsd2020'
|
|
# LET copiaemail = 'jsoto@marmotech.com.do,jsoto@marmotech.com.do,jsoto@marmotech.com.do,mpinales@marmotech.com.do,eamador@marmotech.com.do'
|
|
TRY
|
|
CALL enviaemail(copiaemail,emailsubject,emailbody,NULL,xusername,xsmtphost,xsmtpport,xpassword) #RETURNING retorne
|
|
|
|
UPDATE prtb00029 SET envio_notificacion = 'SI' WHERE num_oc =prtb08.num_oc AND
|
|
tipo_file = 'DI' AND
|
|
id = IDX
|
|
INSERT INTO envia_email_log (email,estado,fecha,programa_envio,us_crea,display_name)
|
|
VALUES (copiaemail,'ENVIO',getdate(),'prprmt020',usuarios,prtb08.num_oc)
|
|
LET enviar_email = "NO"
|
|
CATCH
|
|
INSERT INTO envia_email_log (email,estado,fecha,programa_envio,us_crea,display_name)
|
|
VALUES (copiaemail,'NO ENVIO',getdate(),'prprmt020',usuarios,prtb08.num_oc)
|
|
END TRY
|
|
END IF
|
|
END IF
|
|
END IF
|
|
END FOR
|
|
#Notifica que no tiene un DWG o DXF file
|
|
COMMIT WORK
|
|
{ IF email IS NOT NULL THEN
|
|
SELECT ISNULL(COUNT(*),0) INTO cuenta_tipo FROM prtb00029 a
|
|
WHERE a.num_oc = prtb08.num_oc AND a.tipo_file = 'DI' AND file_extension IN('DWG','DXF')
|
|
|
|
IF cuenta_tipo=0 THEN
|
|
LET emailsubject = "FALTA DOCUMENTO AUTOCAD DE LA ORDEN ",prtb08.num_oc USING "&&&&&&"
|
|
LET emailbody = "POR FAVOR ADICIONAR EL FILE DE AUTOCAD(DWG o DFX) CON LA FINALIDAD QUE LA ORDEN NO SE DETENGA EN EL PROCESO"
|
|
# LET email = 'jsoto@marmotech.com.do'
|
|
|
|
CALL enviaemail(email,emailsubject,emailbody,NULL,xusername,xsmtphost,xsmtpport,xpassword) #RETURNING retorne
|
|
|
|
END IF
|
|
END IF
|
|
} CALL fgl_winmessage("ACTUALIZACION","ACTUALIZACION EXITOSA","INFO")
|
|
|
|
NEXT FIELD num_oc
|
|
END INPUT
|
|
ON ACTION CANCEL
|
|
LET INT_FLAG = FALSE
|
|
CALL msg(2)
|
|
EXIT DIALOG
|
|
|
|
CLOSE WINDOW w1
|
|
END DIALOG
|
|
END FUNCTION
|
|
|
|
FUNCTION showDir(path)
|
|
DEFINE path STRING
|
|
DEFINE child STRING
|
|
DEFINE h INTEGER,
|
|
contenido DYNAMIC ARRAY OF STRING,
|
|
exito BOOLEAN
|
|
|
|
OPEN WINDOW w2 WITH FORM "prtest"
|
|
IF NOT os.Path.exists(path) THEN
|
|
CALL fgl_winmessage("NO",path,"info")
|
|
RETURN
|
|
END IF
|
|
IF NOT os.Path.isdirectory(path) THEN
|
|
DISPLAY " ", os.Path.basename(path)
|
|
RETURN
|
|
END IF
|
|
LET contenido[1]="[",path,"]"
|
|
LET idx = 1
|
|
CALL os.Path.dirsort("name", 1)
|
|
LET h = os.Path.diropen(path)
|
|
WHILE h > 0
|
|
LET child = os.Path.dirnext(h)
|
|
IF child IS NULL THEN EXIT WHILE END IF
|
|
IF child == "." OR child == ".." THEN CONTINUE WHILE END IF
|
|
LET contenido[idx] = os.Path.join( path, child )
|
|
LET idx = idx + 1
|
|
END WHILE
|
|
CALL os.Path.dirclose(h)
|
|
DISPLAY ARRAY contenido TO scontenido.*
|
|
ON ACTION borrar
|
|
CALL os.Path.delete(contenido[arr_curr()]) RETURNING exito
|
|
IF NOT exito THEN
|
|
CALL fgl_winmessage("E","NO BORRE EL FILE","INFO")
|
|
CONTINUE DISPLAY
|
|
END IF
|
|
AFTER DISPLAY
|
|
IF INT_FLAG THEN
|
|
EXIT PROGRAM
|
|
END IF
|
|
EXIT DISPLAY
|
|
END DISPLAY
|
|
CLOSE WINDOW w2
|
|
END FUNCTION |