VARIAVEL Z_AAMM = right( str(year(date()),4), 2) + strzero( month(date()) ,2)
*
VARIAVEL Z_NUMPED = 0

T10,10,18,60,Parametros
T2,2,Ano e Mes (AaMm) do Pedido ...:,4,z_aamm,9999
T4,2,Numero do Pedido a Reimprimir.:,6,z_numped,999999

VARIAVEL Z_CLI = 0
VARIAVEL Z_VND = 0
VARIAVEL Z_DUPL    = 0
VARIAVEL Z_CABDUPS = 0
VARIAVEL Z_CABPRDS = 0
VARIAVEL Z_dPRODS    = 0
VARIAVEL z_parcela = 0
VARIAVEL Z_dUNIDS    = 0
VARIAVEL Z_dTVALOR   = 0
VARIAVEL Z_dTCUST    = 0
VARIAVEL LST_TP = 999

COMANDO ANTES DbGoBottom()
COMANDO DEPOIS SetAliasAaMm( Z_aamm )

ARQUIVO (wsf_fat) wsf_fat_p fnumped
OUTROARQ (wse_mov) wse_mov_p fnumped
OUTROARQ SCCRCLI
OUTROARQ SF_VEND
OUTROARQ VB_FPAG
OUTROARQ SE_PROD SEIP_C PCOD
OUTROARQ SE_GPRE SE_GPRE GRUPO
OUTROARQ SCCRDUP SCRID_ND CR_NUM_PED
OUTROARQ VB_ASS VB_ASSM STR(CR_COD_CLI,6)+STR(MATRICULA,7)
OUTROARQ PRINTERS

VARIAVEL Z_TIPOVND = ""
VARIAVEL Z_PRAZO = ""
COMANDO ANTES DbSeek(z_numped)
COMANDO ANTES z_CLI = FCLI
COMANDO ANTES z_VND = FVENDEDOR
COMANDO ANTES Z_FDATAEMI = FDATAEMI
COMANDO ANTES Z_FVAL = FVAL
COMANDO ANTES Z_MATRICULA = FCODFUNC
COMANDO ANTES Z_TIPOVND = "VdaMista"
COMANDO ANTES Z_TIPOVND = IF(FTIPOVEN="1","DINHEIRO",z_tipovnd)
COMANDO ANTES Z_TIPOVND = IF(FTIPOVEN="2","CHEQUE",Z_TIPOVND)
COMANDO ANTES Z_TIPOVND = IF(FTIPOVEN="3","CARTAO",Z_tIPOVND)
COMANDO ANTES Z_TIPOVND = IF(FTIPOVEN="4","DUPLICATA",Z_TIPOVND)
COMANDO ANTES Z_PRAZO = IF(DAY(FBOMPARA)>0,DTOC(FBOMPARA)+" ("+str(FBOMPARA-FDATAEMI,3)+"dd) ","")
COMANDO ANTES PRINTERS->(INIT_VARS(2,"M_"))

COMANDO ANTES SCCRCLI->(DbGoto( Z_CLI ))
COMANDO ANTES SF_VEND->(DbGoto( Z_VND ))
COMANDO ANTES VB_ASS->(DBSEEK( STR(z_cli,6)+STR(z_MATRICULA,7) ))
COMANDO ANTES DbGoBottom()


SUBLIST SCCRDUP
COMANDO ANTES DbSeek(STRZERO(Z_numped,6))
COMANDO DURANTE Z_CABDUPS = Z_CABDUPS+1
REPITA ENQUANTO left(cr_num_ped,6) = strzero(z_numped,6)
COMANDO DURANTE z_parcela = z_parcela + 1

FILTRO cr_cod_Cli = Z_cli.AND.CR_TIP_DUP="CA"

FILTROIMP CR_TIP_DUP="CA"
D[FR_EVAL(M_EXPANDIDO)]INFORCOPY        [FR_EVAL(M_NAOEXPANDI)]       [FR_EVAL(M_ENFAT)]NOTA PROMISSORIA N§: [cr_num_ped][FR_EVAL(M_NAOENFAT)]
FILTROIMP CR_TIP_DUP="CA"
DCNPJ/MF 07.052.784/0001-40
FILTROIMP CR_TIP_DUP="CA"
D
FILTROIMP CR_TIP_DUP="CA"
D                                        Data da Compra..: [FR_EVAL(M_ENFAT)][CR_DT_emis][FR_EVAL(M_naoENFAT)]
FILTROIMP CR_TIP_DUP="CA"
D                                        Vencimento......: [FR_EVAL(M_ENFAT)][CR_DT_VENC][FR_EVAL(M_naoENFAT)]
FILTROIMP CR_TIP_DUP="CA"
D                                  
FILTROIMP CR_TIP_DUP="CA"
D [FR_EVAL(M_EXPANDIDO)]R$ [CR_VALOR @e 999,999.99][FR_EVAL(M_naoEXPANDI)] ([numext(CR_VALOR)])
FILTROIMP CR_TIP_DUP="CA"
D
FILTROIMP CR_TIP_DUP="CA"
DCliente: [FR_EVAL(M_ENFAT)][Sccrcli->CR_COD_CLI]-[sccrcli->cr_nome][FR_EVAL(M_naoENFAT)]
FILTROIMP CR_TIP_DUP="CA"
D         [FR_EVAL(M_ENFAT)]CPF [SCCRCLI->CR_CGC]  RG [SCCRCLI->CR_INSC_ES][FR_EVAL(M_naoENFAT)]
FILTROIMP CR_TIP_DUP="CA"
D    End: [sccrcli->cr_rua]
FILTROIMP CR_TIP_DUP="CA"
D         [sccrcli->cr_cidade], [sccrcli->cr_bairro]
FILTROIMP CR_TIP_DUP="CA"
D         Cep [sccrcli->cr_cep], UF [sccrcli->cr_uf]
FILTROIMP CR_TIP_DUP="CA"
D
FILTROIMP CR_TIP_DUP="CA"
D     Ass. do Cliente _______________________________________________
FILTROIMP CR_TIP_DUP="CA"
D[REPL("*",80)]
FIM SUBLIST

VARIAVEL Z_PRODS = 0
VARIAVEL Z_UNIDS = 0
VARIAVEL Z_TVALOR = 0
VARIAVEL Z_TCUST = 0

SUBLIST wse_mov
COMANDO ANTES DbSeek(Z_Numped)
REPITA ENQUANTO FNUMPED = Z_NUMPED
COMANDO DURANTE Z_PCOD = PCOD
COMANDO DURANTE SE_PROD->(DBSEEK(Z_PCOD))

COMANDO DURANTE SE_GPRE->(DbSeek(SE_PROD->PGPRECO))

COMANDO DURANTE Z_PRODS    = Z_PRODS  + if(mfges="S",1,0)
COMANDO DURANTE Z_UNIDS    = Z_UNIDS  + if(mfges="S",MQUANT,0)
COMANDO DURANTE Z_TVALOR   = Z_TVALOR + if(mfges="S",MVALOR,0)
COMANDO DURANTE Z_PRUNIT   = MVALOR/MQUANT
COMANDO DURANTE Z_MARKUP   = if(se_gpre->markup>0, se_gpre->markup, 42.85)
COMANDO DURANTE Z_MVALCUST = MVALOR / (1+Z_MARKUP/100)
COMANDO DURANTE Z_TCUST    = Z_TCUST  + if(mfges="S",Z_MVALCUST,0)
COMANDO DURANTE Z_CAIXAS   = MQUANT / IF(SE_PROD->PITENS>0,SE_PROD->PITENS,1)

COMANDO DURANTE Z_dPRODS    = Z_dPRODS  + if(mfges="D",1,0)
COMANDO DURANTE Z_dUNIDS    = Z_dUNIDS  + if(mfges="D",MQUANT,0)
COMANDO DURANTE Z_dTVALOR   = Z_dTVALOR + if(mfges="D",MVALOR,0)
COMANDO DURANTE Z_dTCUST    = Z_dTCUST  + if(mfges="D",Z_MVALCUST,0)

COMANDO DURANTE Z_CABPRDS = Z_CABPRDS + 1

FILTRO (MFGES="S".or.mfges="D").and.fnumped=z_numped.and.mcodforc=z_cli
FIM SUBLIST
ULTPAG
ULTPAG
ULTPAG
ULTPAG
ULTPAG
ULTPAG
ULTPAG
ULTPAG