Diferencia entre revisiones de «Listado de Cargos con STOP de Liquidación»
De Wiki
(Página nueva: ==FORMULARIO== ==INFORME== ==CÓDIGO== ===Programa "prg_fec_permanencia.prg"=== ===Botón "Procesar" (btnProcesar)=== ===Botón "Cancelar" (btnCancelar)=== THISFORM.Rel...) |
(→CÓDIGO) |
||
| Línea 9: | Línea 9: | ||
==CÓDIGO== | ==CÓDIGO== | ||
| − | + | ===Programa "stop.prg"=== | |
| − | ===Programa " | + | |
| − | + | *--cartel de espera | |
| − | + | formulario = vm_formularios + "frmprocesando.scx" | |
| − | == | + | do form &formulario |
| − | + | *-- | |
| − | + | ||
| − | + | SET DATE TO french | |
| − | + | ||
| − | + | ||
| − | = | + | cadenasql= "select *"; |
| − | + | + " from dh03" | |
| − | + | nom5=sys(3) | |
| − | = | + | create sql view &nom5; |
| − | + | connection con_pampasql; | |
| − | + | as &cadenasql | |
| − | + | ||
| − | + | *connection con_pampasql; | |
| + | |||
| + | if !used('v_03') | ||
| + | sele sele(1) | ||
| + | use &nom5 alias v_03 | ||
| + | endif | ||
| + | |||
| + | tabla= vm_bases_informes + "dh03" | ||
| + | select *; | ||
| + | from v_03; | ||
| + | into table &tabla | ||
| + | *----- | ||
| + | if used ('dh03') | ||
| + | sele dh03 | ||
| + | use | ||
| + | endif | ||
| + | sele sele(1) | ||
| + | use &tabla excl | ||
| + | index on nro_legaj TAG legajo | ||
| + | |||
| + | ****levanto las novedades | ||
| + | tabla= vm_bases_informes + "stop" | ||
| + | SELECT nro_legaj,nro_cargo,codc_uacad,fec_alta,fec_baja,codc_categ,codc_carac,chkstopliq ; | ||
| + | FROM dh03 ; | ||
| + | WHERE chkstopliq = 1; | ||
| + | into TABLE &tabla | ||
| + | INDEX on codc_uacad+STR(nro_legaj) TAG idx_dep | ||
| + | |||
| + | *--fin crtel de espera | ||
| + | frmprocesando.release | ||
| + | |||
| + | |||
| + | MESSAGEBOX("Proceso terminado") | ||
| + | |||
| + | informes = vm_informes + "stop.frx" | ||
| + | report format &informes preview | ||
| + | |||
| + | *--fin cartel de espera | ||
==MANUAL DEL USUARIO== | ==MANUAL DEL USUARIO== | ||
Revisión del 11:53 31 ene 2012
Contenido
FORMULARIO
INFORME
CÓDIGO
Programa "stop.prg"
*--cartel de espera
formulario = vm_formularios + "frmprocesando.scx"
do form &formulario
*--
SET DATE TO french
cadenasql= "select *";
+ " from dh03"
nom5=sys(3)
create sql view &nom5;
connection con_pampasql;
as &cadenasql
*connection con_pampasql;
if !used('v_03')
sele sele(1)
use &nom5 alias v_03
endif
tabla= vm_bases_informes + "dh03"
select *;
from v_03;
into table &tabla
*-----
if used ('dh03')
sele dh03
use
endif
sele sele(1)
use &tabla excl
index on nro_legaj TAG legajo
****levanto las novedades
tabla= vm_bases_informes + "stop"
SELECT nro_legaj,nro_cargo,codc_uacad,fec_alta,fec_baja,codc_categ,codc_carac,chkstopliq ;
FROM dh03 ;
WHERE chkstopliq = 1;
into TABLE &tabla
INDEX on codc_uacad+STR(nro_legaj) TAG idx_dep
*--fin crtel de espera
frmprocesando.release
MESSAGEBOX("Proceso terminado")
informes = vm_informes + "stop.frx"
report format &informes preview
*--fin cartel de espera
