Comparar Recibo

Generar Planion

Copiar los recibos parte 1

Mes actual

tomar recibo 1 2 y 3 del servidor de procesos (192.168.19.31)
de la carpeta d:\pampa_cvs\pampa\rrhh 
y ponerlos en 
  N:\anexo\comparador\aaaamm
como 
 recibo1_mmaa  recibo2_mmaa  recibo3_mmaa

Mes anterior

 tomarlos de  T:\reportes\recibos\datos\aaaaww   ww=mm-1
y ponerlos en 
  N:\anexo\comparador\aaaamm
como 
 recibo1_wwaa  recibo2_wwaa  recibo3_wwaa

Eliminarles todas las liquidaciones q no son liq gral
Reemplazar ano_retro 9999 por 0  y  mes_retro 99 por 0

replace ano_retro with 0 for ano_retro=9999
replace mes_retro with 0 for mes_retro=99

Copiar los recibos parte 2

tomar los archivos de  N:\anexo\comparador\aaaamm
y ponerlos en  N:\anexo\comparador\

modificar programa

modi comm n:\anexo\comparador\correr_prog

hay q setar q tome las bases recien copiadas.

modificar números de liquidación

abrir el archivo 
 n:\anexo\comparador\liquis.dbf
poenr los nros de liquidacion nueva y vieja

use n:\anexo\comparador\liquis.dbf
browse

Nota:tuve q tocar en n:\anexo\comparador\compreci.prg , n:\anexo\comparador\comprec3.prg 
agregando un scatter memvar para la tabla liquis ya q en los pgrs usa m.LiquiNew

Ejecutar el Programa

set defa to n:\anexo\comparador
DO n:\anexo\comparador\correr_prog

Archivo de salida

El resultado de este proceso es 
 n:\anexo\comparador\planion.dbf