*
*OK! Quitacoes Efetuadas no Dia
*OK! Alteracoes de Cupons Efetuados no Dia
*OK! Cupons Cancelados no Dia
*    Vendas a Fiado efetuadas no Dia (discriminar todas)
*    Avarias no estoque efetuadas no dia
*    Produtos Zerados Vendidos no Dia
*    Acertos de Estoque Efetuados no Dia
*    Novas emissoes no Contas a Pagar Efetuados no Dia
*    Recebimentos de Mercadorias (Notas de Entrada) Registrada no Dia
*    Numero de Entregas Efetuadas no Dia/Tempo medio das Entregas do Dia
*    Produtos com precos alterados no dia
*    Produtos Vendidos no dia abaixo do preco normal.
*    Pagamentos a forn efetuados no dia
*
VARIAVEL z_Dia_ini = DATE()
VARIAVEL z_Dia_fin = DATE()
VARIAVEL Z_TOTLQD = 0
T10,10,20,70,Parametros
T2,2,Dia Inicial...:,8,z_Dia_ini,99.99.99
T4,2,Dia Final.....:,8,z_Dia_fin,99.99.99

COMANDO ANTES DBGOBOTTOM()
COMANDO ANTES Z_AAMM =  DTOS(z_Dia_ini)
COMANDO DEPOIS SetAliasAaMm( Z_aamm )

ARQUIVO SCCRDUP
OUTROARQ SCCRCLI
FILTRO CR_DATA>=z_Dia_ini.AND.CR_DATA<=z_Dia_fin.AND.CR_VAL_LQD>0.AND.(left(cr_num_ped,2)="CX".or.right(cr_num_ped,2)="CX")
COMANDO ANTES DBGOTOP()
COMANDO DURANTE Z_CLI = CR_cOD_cLI
COMANDO DURANTE Z_NIL = SCCRCLI->( DBGOTO(Z_cLI) )
COMANDO DURANTE Z_VALORIG = (CR_VAL_LQD-CR_DESCONT)
COMANDO DURANTE Z_PERCDESC = 100-100*(CR_VAL_LQD/Z_VALORIG)
COMANDO DURANTE Z_TOTLQD = Z_TOTLQD + CR_VAL_LQD 
C
C
CRelacao de Quitacoes Efetuadas entre o Dia [z_Dia_ini] e [z_Dia_fin], emitida em [s_Datual], as [time()]
C
CCodigo    Cliente                     Val_Orig    Val_Lqd %Desc Usuario  Hora
C----------------------------------------------------------------------------------

D[CR_NUM_PED] [STRZERO(CR_COD_CLI,4)] [SCCRCLI->CR_NOME @S20] [Z_vALORIG 999,999.99] [CR_VAL_LQD 999,999.99] [Z_PercDEsc 99.9]% [CR_USUARIO @s5] [CR_HORA] [CR_DATA]
ULTPAG
ULTPAG
ULTPAG ***  Valor Total das Liquidacoes:                  R$[Z_TOTLQD 999,999.99]

ARQUIVO (wsf_fat) wsf_fat_p fnumped
OUTROARQ SCCRCLI
FILTRO Dele().And.(fg_lib="A".Or.Fg_Lib="C").and.(FdataAlter=z_Dia_ini.Or.(Day(FdataAlter)=0.And.Fdataemi=z_Dia_ini))
COMANDO ANTES Z_NIL = DBGOTOP()
COMANDO DURANTE Z_CLI = FCLI
COMANDO DURANTE Z_NIL = SCCRCLI->( DBGOTO(Z_cLI) )
COMANDO DURANTE Z_OPER = IF(FG_LIB="A","Alteracao   ","Cancelamento")
COMANDO ANTES Z_SPCS = "            "
VARIAVEL Z_NIL = SET(11,"OFF")
COMANDO DEPOIS Z_NIL = SET(11,"ON")

COMANDO DURANTE Z_NOMECLI = SCCRCLI->CR_NOME
COMANDO DURANTE Z_TROCO = IF(FVALPAGO>FVAL,FVALPAGO-FVAL,0)
COMANDO DURANTE Z_PED   = ABS(fnumped)
COMANDO DURANTE Z_RECNO = RECNO()
COMANDO DURANTE Z_NIL   = DBSEEK(Z_PED)
COMANDO DURANTE Z1 = FNUMPED
COMANDO DURANTE Z2 = FCLI
COMANDO DURANTE Z_NIL = SCCRCLI->( DbGoto(Z2) )
COMANDO DURANTE Z3 = SCCRCLI->CR_NOME
COMANDO DURANTE Z4 = FVENDEDOR
COMANDO DURANTE Z5 = FVAL
COMANDO DURANTE Z6 = FTIPOVEN
COMANDO DURANTE Z7 = FDATAALTER
COMANDO DURANTE Z8 = FHORAALTER
COMANDO DURANTE Z9 = FDESCONTO
COMANDO DURANTE Z10 = IF(FVALPAGO>FVAL,FVALPAGO-FVAL,0)
COMANDO DURANTE Z_NIL = DBGOTO( Z_RECNO )
c
C
CCupons Alterados/Cancelados no Dia [z_Dia_ini], emitida em [s_Datual], as [time()]
COperacao       Cupom      Cliente             Vend      Valor Op     Data    Hora TV    Desconto    Troco
C---------------------------------------------------------------------------------------------------------

D[Z_OPER] [FNUMPED 9999999] [STRZERO(FCLI,6)] [Z_NOMECLI @S20] [FVENDEDOR 999] [FVAL 999,999.99] [FTIPOVEN] [fdataemi] [FHORA] [FTV] [fdesconto 99999.99] [z_troco 99999.99]
D[Z_SPCS] [Z1 9999999] [STRZERO(Z2,6)] [Z3 @S20] [Z4 999] [Z5 999,999.99] [Z6] [Z7] [Z8]    [Z9 99999.99] [Z10 99999.99]
D
