ALIAS SF_FATNF
* ------------------------------------------------------------------------------------------
* Esse relatorio eh chamado da sf_lnfe.scr... Lah sao definidas as variaves zNF, zPed e zCli
* ------------------------------------------------------------------------------------------
INDEX SF_FATNF FNUM
OUTROARQ se_movnf se_movnf mfnum
OUTROARQ se_pnfe se_pnfe pcod
OUTROARQ SCCRCLI
OUTROARQ SE_PROD SEIP_C PCOD
OUTROARQ SCCRDUP SCRID_ND CR_NUM_PED
*
VARIAVEL Z_cr_num_ped = strzero(zPed,6)
VARIAVEL Z_NUMLINHA = 1
VARIAVEL z_Cfop = ''
VARIAVEL Z_PRAZO = ''
VARIAVEL Z_FVAL = 0
*
COMANDO ANTES DbSeek(zNF)
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[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]
C        End.: [sccrcli->cr_rua] Bairro: [sccrcli->cr_bairro]
C        Cidade: [sccrcli->cr_cidade] UF: [sccrcli->cr_uf]  CEP: [SCCRCLI->CR_CEP]
C        Insc. Estadual.: [sccrcli->cr_insc_es]  CNPJ: [SCCRCLI->CR_CGC]
CCFOP da Venda.: [z_Cfop]   Prazo.: [Z_PRAZO]
C[repl(".",80)]
C Cod Descricao                          Quant  Vl. Unit  Vl. Total  NCM-SH
C[Repl("-",80)]
C[se_movnf->pcod] [se_prod->pdesc @S30] [se_movnf->mquant] [se_movnf->mvalor @E 99999.99] [se_movnf->mquant*se_movnf->mvalor @E 99999.99] [se_pnfe->pcodclafis]
C[Repl("-",80)]

SUBLIST SCCRDUP
   VARIAVEL Z_NUMLINHA = 0
   COMANDO ANTES DbSeek(Z_cr_num_ped)
   
   REPITA ENQUANTO left(cr_num_ped,6) = Z_cr_num_ped
   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

VARIAVEL Z_PRODS = 0
VARIAVEL Z_UNIDS = 0
VARIAVEL Z_Ncxas = 0
VARIAVEL z_TProds = 0
VARIAVEL Z_TCUST = 0

SUBLIST SE_MOVNF
   COMANDO ANTES DbSeek(zNF)
   REPITA ENQUANTO MFNUM = zNF
   FILTRO MFGES="S".and.fnumped=zPed.and.mcodforc=zCli.and.mquant>0
   
   COMANDO DURANTE Z_PCOD = PCOD
   COMANDO DURANTE SE_PROD->(DBSEEK(Z_PCOD))
   COMANDO DURANTE SE_Pnfe->(DBSEEK(Z_PCOD))
   COMANDO DURANTE Z_ncm = se_pnfe->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 9999] [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

// COMANDO DEPOIS ZMARGEMBRUTA = Z_FVAL-Z_TCUST
// COMANDO DEPOIS ZMARGEMPERCENT = 100 * IF(Z_FVAL>0, ZMARGEMBRUTA/Z_FVAL, 0)
// ULTPAG ** Numero de Caixas Fechadas: [Z_Ncxas 9999]
// ULTPAG ** TOTAL A PRECO DE CUSTO.....: [Z_TCUST 999,999,999.99]
// ULTPAG ** MARGEM DE LUCRO BRUTA......: [ZMARGEMBRUTA 999,999,999.99]
// ULTPAG ** MARGEM DE LUCRO BRUTA % ...: [ZMARGEMPERCENT 999.99]%
