This commit is contained in:
2026-09-30 17:03:17 -04:00
2 changed files with 7 additions and 5 deletions
+6
View File
@@ -494,6 +494,7 @@
<File filePath="nodir/nofmrp039.4fd"/> <File filePath="nodir/nofmrp039.4fd"/>
<File filePath="nodir/nofmrp044.4fd"/> <File filePath="nodir/nofmrp044.4fd"/>
<File filePath="nodir/nofmrp008.4fd"/> <File filePath="nodir/nofmrp008.4fd"/>
<File filePath="nodir/nofmrp043.4fd"/>
</Library> </Library>
<Library binaryName="FUNCIONES_NO" id="-306412216" label="FUNCIONES_NO"> <Library binaryName="FUNCIONES_NO" id="-306412216" label="FUNCIONES_NO">
<File filePath="nodir/noprgb000.4gl"/> <File filePath="nodir/noprgb000.4gl"/>
@@ -586,6 +587,11 @@
<Configuration commandLineArguments="alopez Lopez2023" id="-700000086" label="Configuration"/> <Configuration commandLineArguments="alopez Lopez2023" id="-700000086" label="Configuration"/>
<File filePath="nodir/noprrp038.4gl"/> <File filePath="nodir/noprrp038.4gl"/>
</Application> </Application>
<Application binaryName="noprrp043" dependencies="-1026233879,-764824792,-306412216,-335228674,-1423229125" externalDependencies="libgre.42x" id="-700000087" label="noprrp043">
<Configuration commandLineArguments="alopez Lopez2023" id="-700000088" label="Configuration"/>
<File filePath="nodir/noprrp043.4gl"/>
<File filePath="bin/noprrp043.4rp"/>
</Application>
</Group> </Group>
<Group id="1667448785" label="PRODUCTOS TERMINADOS"> <Group id="1667448785" label="PRODUCTOS TERMINADOS">
<Library binaryName="FORMULARIOS_IP" dependencies="-1026233879" id="-1826025351" label="FORMULARIOS_IP"> <Library binaryName="FORMULARIOS_IP" dependencies="-1026233879" id="-1826025351" label="FORMULARIOS_IP">
+1 -5
View File
@@ -39,10 +39,6 @@ OPEN WINDOW w1 WITH FORM "nofmrp043"
ON ACTION CANCEL ATTRIBUTE(TEXT="Cancelar", IMAGE="cancel") ON ACTION CANCEL ATTRIBUTE(TEXT="Cancelar", IMAGE="cancel")
EXIT PROGRAM EXIT PROGRAM
ON ACTION imprimir ATTRIBUTE(TEXT="Imprime", IMAGE="printer") ON ACTION imprimir ATTRIBUTE(TEXT="Imprime", IMAGE="printer")
IF fecha_inicial IS NULL THEN
CALL msg(16)
NEXT FIELD fecha_inicial
END IF
IF xfecha1 IS NULL THEN IF xfecha1 IS NULL THEN
CALL msg(16) CALL msg(16)
NEXT FIELD xfecha1 NEXT FIELD xfecha1
@@ -77,7 +73,7 @@ FUNCTION reporte()
CAST(a.checktime as date) CAST(a.checktime as date)
FROM CHECKINOUT a,adtb00001 b ,adtb00003 c FROM CHECKINOUT a,adtb00001 b ,adtb00003 c
WHERE c.departamento = b.departamento AND a.num_emp = c.num_emp AND WHERE c.departamento = b.departamento AND a.num_emp = c.num_emp AND
c.status_t is null and a.CHECKTIME between '",xfecha1 USING 'yyyy-mm-dd',"' and '",xfecha2 USING 'yyyy-mm-dd',"' and ", c.status_t is null and a.CHECKTIME >= '",xfecha1 USING 'yyyy-mm-dd',"' and a.CHECKTIME < '",(xfecha2+1) USING 'yyyy-mm-dd',"' and ",
criterio CLIPPED, criterio CLIPPED,
" order by '('+CAST(c.departamento AS CHAR(20))+') '+b.nom_dpto,a.num_emp,cast(a.checktime as date) " " order by '('+CAST(c.departamento AS CHAR(20))+') '+b.nom_dpto,a.num_emp,cast(a.checktime as date) "
{ {