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) (que dbf??los recibos con CBU o
con BAnco es lo mismo cualq. de los 2)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

 set defa to n:\anexo\comparador\
 use recibo3_mmaa.dbf

 Ahora eliminamos todas las liquidaciones q no son liq gral en recibo3_wwaa
 
 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