ALIAS SF_FATNF
* ------------------------------------------------------------------------------------------------------------------------------------------
* Esse relatorio eh chamado da sf_nfe.scr... a variavel z_recno eh definida na si_fun4.prg como sendo o registro onde se acionou o relatorio
* ------------------------------------------------------------------------------------------------------------------------------------------
OUTROARQ se_movnf se_movnf mfnum
OUTROARQ SCCRCLI
OUTROARQ SE_PROD SEIP_C PCOD
OUTROARQ SCCRDUP SCRID_ND CR_NUM_PED
*
VARIAVEL zNIL = sf_fatnf->(DbGoTo(z_Recno))
VARIAVEL zNf  = sf_fatnf->fnum
VARIAVEL zPed = sf_fatnf->fnumped
VARIAVEL zCli = sf_fatnf->fcli
VARIAVEL zCrNumPed = strzero(zNf,6)
VARIAVEL Z_NUMLINHA = 1
VARIAVEL z_Cfop = ''
VARIAVEL Z_PRAZO = ''
VARIAVEL Z_FVAL = 0
VARIAVEL Z_PRODS = 0
VARIAVEL Z_UNIDS = 0
VARIAVEL Z_Ncxas = 0
VARIAVEL z_TProds = 0
VARIAVEL Z_TCUST = 0
// VARIAVEL sCharStretch='$'
VARIAVEL sPrtLineLen=80
*
COMANDO ANTES z_Cfop = fcodop
COMANDO ANTES Z_FDATAEMI = FDATAEMI
COMANDO ANTES Z_FVAL = FVAL
COMANDO ANTES Z_PRAZO = IF(DAY(FBOMPARA)>0,DTOC(FBOMPARA)+" ("+str(FBOMPARA-FDATAEMI,3)+"dd) ","")
COMANDO ANTES SCCRCLI->(DbGoto( zCli ))
COMANDO ANTES DbGoBottom()
C
C[SISTEMA] $ pag [pag 999]  (Em [s_datual] as [time()])
CPedido.: [zPed 999999] Pedido NFe [zNF 999999] $ (Emissao:[Z_fdataemi]  Valor:[Z_fval 999,999.99])
CCliente: ([zCli 99999]) [sccrcli->cr_nome] 
CEnd....: [sccrcli->cr_rua]
CBairro.: [sccrcli->cr_bairro] $ [sccrcli->cr_cidade] $ UF: [sccrcli->cr_uf] $ CEP: [SCCRCLI->CR_CEP]
CCNPJ...: [SCCRCLI->CR_CGC] $ Insc.Est.: [sccrcli->cr_insc_es]
CCFOP...: [z_Cfop] $ Prazo.: [Z_PRAZO]
C[repl("=",80)]
C[*dc 6L,30R,4L,10L,10L,8L]Cod$Descricao                         $Qtd $Vl. Unit $Vl. Total $NCM-SH
C[Repl("-",80)]

SUBLIST SCCRDUP
   VARIAVEL Z_NUMLINHA = 0
   COMANDO ANTES DbSeek(zCrNumPed)
   
   REPITA ENQUANTO left(cr_num_ped,6) = zCrNumPed
   FILTRO cr_cod_Cli = zCli
   COMANDO DURANTE Z_NUMLINHA = Z_NUMLINHA + 1
   
   FILTROIMP Z_NUMLINHA=1
   D Parcela       Vencto               Valor  Td  BomPara
   * xxxxxxxxxx  dd.mm.aa       999,999,999.99
   
   D [cr_num_ped] [cr_dt_venc] [cr_valor @E 999,999,999.99] [CR_TIP_DUP] [cr_dt_doc]
FIM SUBLIST

SUBLIST SE_MOVNF
   COMANDO ANTES DbSeek(zNF)
   REPITA ENQUANTO MFNUM = zNF
   FILTRO MFGES$"MS".and.fnumped=zPed.and.mcodforc=zCli.and.mquant>0
   
   COMANDO DURANTE Z_PCOD = PCOD
   COMANDO DURANTE SE_PROD->(DBSEEK(Z_PCOD))
   COMANDO DURANTE Z_ncm = se_prod->pcodclafis
   COMANDO DURANTE Z_PRODS = Z_PRODS + 1
   COMANDO DURANTE Z_UNIDS = Z_UNIDS + MQUANT
   COMANDO DURANTE z_TProds = z_TProds + MVALOR
   COMANDO DURANTE Z_PRUNIT = MVALOR/MQUANT
   COMANDO DURANTE Z_MVALCUST = se_prod->pvluven3 * mquant
   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_Ncxas = Z_Ncxas + Z_CAIXAS
   D[PCOD 999999]$[SE_PROD->PDESC @s30]$[MQUANT 9999]$[z_prunit @E 999,999.99]$[mvalor @E 999,999.99]$[Z_ncm 99999999]
   *9999 XXXXXxxxxxXXXXXxxxxxXXXX 999 (9999) 9999.99 9999.99 (9999.99) 99.99.99
FIM SUBLIST

ULTPAG
ULTPAG ** Numero de Produtos.........: [z_prods 9999]
ULTPAG ** Valor Total dos Produtos...: [z_TProds 999,999,999.99]
ULTPAG ** Numero de Unidades de Venda: [z_unids 9999]
ULTPAG ** Valor Total da Venda.......: [z_fval 999,999,999.99]
ULTPAG
