Diferencia entre revisiones de «Listado de Cargos con STOP de Liquidación»
De Wiki
(→CÓDIGO) |
(→FORMULARIO) |
||
Línea 1: | Línea 1: | ||
==FORMULARIO== | ==FORMULARIO== | ||
− | + | '''NO POSEE''' | |
==INFORME== | ==INFORME== |
Revisión del 11:54 31 ene 2012
Contenido
FORMULARIO
NO POSEE
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