INDEX SCCPPDFF Str(Cp_Cod_For,5)+Cp_Duplic
OUTROARQ SCCPFOR

COMANDO DURANTE Z_OLDFOR  = cp_cod_for
COMANDO DURANTE Z_OLDdup  = cp_duplic
COMANDO DURANTE Z_OLDEMI = CP_DT_EMIS
COMANDO DURANTE Z_OLDVEN = CP_DT_VENC
COMANDO DURANTE Z_OLDVAL = CP_VALOR
COMANDO DURANTE SCCPFOR->(DBGOTO(Z_OLDFOR))
COMANDO DURANTE Z_OLDFANT = IF(!EMPTY(SCCPFOR->cp_fantasi),SCCPFOR->cp_fantasi,SCCPFOR->CP_NOME)
COMANDO DURANTE Z_NIL     = DBSKIP()
*-
COMANDO DURANTE Z_NEWfor  = cp_cod_for
COMANDO DURANTE Z_NEWdup  = cp_duplic
COMANDO DURANTE Z_NEWEMI = CP_DT_EMIS
COMANDO DURANTE Z_NEWVEN = CP_DT_VENC
COMANDO DURANTE Z_NEWVAL = CP_VALOR
COMANDO DURANTE SCCPFOR->(DBGOTO(Z_NEWFOR))
COMANDO DURANTE Z_NEWFANT = IF(!EMPTY(SCCPFOR->cp_fantasi),SCCPFOR->cp_fantasi,SCCPFOR->CP_NOME)
COMANDO DURANTE Z_NIL     = DBSKIP(-1)

VARIAVEL LST_TP = 58
VARIAVEL Z_DE = DATE()
VARIAVEL Z_aTE = DATE()
T10,10,20,60,Parametros
T2,2,Data Inicial:,8,z_de,99.99.99
T3,2,Data Final..:,8,z_ate,99.99.99

C[Empresa]
CDuplicatas Lancadas em Duplicidade de [z_de] a [z_ate]
CCod  Apresentacao
C[Repl("-",80)]

FILTRO CP_DT_EMIS>=Z_DE.AND.CP_DT_eMIS<=Z_ATE

FILTROIMP Z_OLDFOR=Z_NEWFOR.AND.Z_OLDDUP=Z_NEWDUP
D[Z_OLDFOR 9999] [Z_OLDFANT @S15] [Z_OLDDUP] [Z_OLDEMI] [Z_OLDVEN] [Z_OLDVAL 999,999.99]
FILTROIMP Z_OLDFOR=Z_NEWFOR.AND.Z_OLDDUP=Z_NEWDUP
D[Z_NEWFOR 9999] [Z_NEWFANT @S15] [Z_NEWDUP] [Z_NEWEMI] [Z_NEWVEN] [Z_NEWVAL 999,999.99]
FILTROIMP Z_OLDFOR=Z_NEWFOR.AND.Z_OLDDUP=Z_NEWDUP
D
