VARIAVEL Z_AAMM = right( str(year(date()),4), 2) + strzero( month(date()) ,2)
VARIAVEL Z_MOVE = ""
VARIAVEL Z_FAT  = ""
*
VARIAVEL Z_NF = 0
VARIAVEL Z_NUMPED = 0
VARIAVEL Z_CLI = 0
VARIAVEL Z_CABDUPS = 0
VARIAVEL Z_CABPRDS = 0

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

*COMANDO ANTES DbGoBottom()
*COMANDO DEPOIS Z_MOVE = "SE_MOV"
*COMANDO DEPOIS Z_FAT  = "SF_FAT"
*ARQUIVO (Z_FAT) Z_FAT+".p"  FNUMPED
INDEX SF_fAT.NF FNUM
OUTROARQ SE_MOV SE_MOV.NF MFNUM
OUTROARQ SCCRCLI
OUTROARQ SE_PROD SEIP_C PCOD
OUTROARQ SE_GPRE SE_GPRE GRUPO
OUTROARQ SCCRDUP SCRID_ND CR_NUM_PED

VARIAVEL Z_TIPOVND = ""
VARIAVEL Z_PRAZO = ""
COMANDO ANTES DbSeek(z_NF)
COMANDO ANTES Z_NUMPED = FNUMPED
COMANDO ANTES z_CLI = FCLI
COMANDO ANTES Z_FDATAEMI = FDATAEMI
COMANDO ANTES Z_FVAL = FVAL
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 SCCRCLI->(DbGoto( Z_CLI ))
COMANDO ANTES DbGoBottom()

C[EMPRESA]
CRua Farmaceutico Antonio Leopodo Batista, 53, Bancarios, Joao Pessoa-PB
C[REPL("-",80)]
C                               P  E  D  I  D  O
C[REPL("-",80)]
C                                            pag [pag 999]  (Em [Z_FDATAEMI] as [FHORA])
CProdutos da NF [z_nf 999999], do Pedido [z_numped 999999],     (Emissao:[Z_fdataemi]  Valor:[Z_fval 999,999.99])
CTipo de Venda.: [Z_tIPOVND]   Prazo.: [Z_PRAZO]
C[REPL("-",80)]
CCliente: [z_cli 9999] [sccrcli->cr_nome]
C        End.: [sccrcli->cr_rua] Bairro: [sccrcli->cr_bairro] 
C        Cidade: [sccrcli->cr_cidade] UF: [sccrcli->cr_uf]          CEP: [SCCRCLI->CR_CEP]
C        Ponto de Ref.: [sccrcli->cr_pontore]
C        Insc. Estadual.: [sccrcli->cr_insc_es]  CNPJ: [SCCRCLI->CR_CGC]

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)
FILTRO cr_cod_Cli = Z_cli

FILTROIMP Z_CABDUPS=1
D[REPL("-",80)]
FILTROIMP Z_CABDUPS=1
D Parcela       Vencto               Valor  Td  BomPara
FILTROIMP Z_CABDUPS=1
D[REPL("-",80)]

D [cr_num_ped] [cr_dt_venc] [cr_valor @E 999,999,999.99] [CR_TIP_DUP] [cr_dt_doc]
FIM SUBLIST

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

SUBLIST SE_MOV
COMANDO ANTES DbSeek(Z_Numped)
REPITA ENQUANTO FNUMPED = Z_NF
COMANDO DURANTE Z_PCOD = PCOD
COMANDO DURANTE SE_PROD->(DBSEEK(Z_PCOD))
COMANDO DURANTE Z_PRODS = Z_PRODS + 1
COMANDO DURANTE Z_UNIDS = Z_UNIDS + MQUANT
COMANDO DURANTE Z_TVALOR = Z_TVALOR + MVALOR
COMANDO DURANTE Z_PRUNIT = MVALOR/MQUANT
COMANDO DURANTE SE_GPRE->(DbSeek(SE_PROD->PGPRECO))
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 + Z_MVALCUST
COMANDO DURANTE Z_CAIXAS = MQUANT / IF(SE_PROD->PITENS>0,SE_PROD->PITENS,1)
COMANDO DURANTE Z_CABPRDS = Z_CABPRDS + 1

FILTRO MFGES="S".and.fnumped=z_numped.and.mcodforc=z_cli

FILTROIMP Z_CABPRDS = 1
D[repl(".",80)]
FILTROIMP Z_CABPRDS = 1
D Cod Descricao                         Quant       Vl. Unit       Vl. Total
FILTROIMP Z_CABPRDS = 1
D[Repl("-",80)]
FILTROIMP Z_CABPRDS = 1

D[PCOD 9999] [SE_PROD->PDESC @s30] [MQUANT @E 9999.999]     [z_prunit @E 999,999.99]      [mvalor @E 999,999.99]
*9999 XXXXXxxxxxXXXXXxxxxxXXXX 999 (9999) 9999.99 9999.99 (9999.99) 99.99.99
FIM SUBLIST

ULTPAG
ULTPAG ** Numero de Produtos.........: [z_prods 9999]
ULTPAG ** Numero de Unidades de Venda: [z_unids @E 9999.999]
ULTPAG
ULTPAG ** TOTAL DA VENDA ............: [z_tvalor 999,999,999.99]
*ULTPAG ** Valor a Preco de Custo.....: [z_tcust 999,999.99]
ULTPAG
ULTPAG[REPL("-",80)]
ULTPAG 
ULTPAG##########         F O N E  = >  ( 0 8 3 )  2 3 5  -  1 6 0 1         ##########
ULTPAG
