ALIAS SF_FATF
LISTAGEM_PDF
VARIAVEL Znil = DbGoto( z_Recno )
VARIAVEL Z_NF     = PFNUM
VARIAVEL Z_NUMPED = PFNUMPED
VARIAVEL Z_FORN   = PFFOR
VARIAVEL LST_TP   = 58
VARIAVEL z_nil = SetAliasAaMm( SubStr( Dtos(pfdatache),3,4) )
VARIAVEL ZFgAbriuForn = (Select('sccpfor')=0)
VARIAVEL zFgAbriuProd = (select('se_prod')=0)
VARIAVEL ZSele = Select()
VARIAVEL Z_NIL = Abra('0NOIDX',r_siga,wSe_Mov,'se_mov',wSe_Mov_F,'mfnum')
VARIAVEL Z_NIL = if(ZFgAbriuForn,Abra('0NOIDX',r_siga,'SCCPFOR','SCCPFOR'),'')
VARIAVEL Z_NIL = if(zFgAbriuProd,Abra('0NOIDX',r_siga,se_prod,'se_prod',seip_c,'pcod'),'')
VARIAVEL Z_NIL = DbSelectArea(ZSele)
VARIAVEL Z_NUMNOTAS = 0
VARIAVEL Z_PRODS = 0
VARIAVEL Z_UNIDS = 0
VARIAVEL Z_TPVENDA = 0
VARIAVEL Z_MARGEM    = 0
VARIAVEL Z_MARKUP    = 0

//*REPITA ENQUANTO Z_NF = PFNUM
COMANDO DURANTE Z_NUMNOTAS  = Z_NUMNOTAS + 1
COMANDO DURANTE Z_PFFOR     = PFFOR
COMANDO DURANTE SCCPFOR->(DBGOTO(Z_PFFOR))
COMANDO DURANTE Z_PFNUMPED  = PFNUMPED
COMANDO DURANTE Z_PFDATACHE = PFDATACHE
COMANDO DURANTE Z_PFVAL     = PFVAL
COMANDO DURANTE Z_PFTOTICMS = PFTOTICMS
COMANDO DURANTE Z_PFVALRET  = PFVALRET
COMANDO DURANTE Z_PRCUSTO   = PFVAL - PFVALRET
COMANDO DURANTE Z_NIL       = if(Z_NUMNOTAS>1,__Eject(),"")
COMANDO DURANTE Z_PRODS     = 0
COMANDO DURANTE Z_UNIDS     = 0
COMANDO DURANTE Z_TPVENDA    = 0
//*COMANDO DURANTE DbGoBottom()
COMANDO DEPOIS z_nil = if(zFgAbriuProd,SE_PROD->(DbCloseArea()),'')
COMANDO DEPOIS z_nil = if(ZFgAbriuForn,sccpfor->(DbCloseArea()),'')
//*COMANDO DEPOIS se_mov->(DbCloseArea())

C[SISTEMA]                          pag [Z_NUMNOTAS 999]
CProdutos de Nota de Entrada                     em [s_datual] as [time()]
C[repl("-",80)]
CNFisc  Pedido Cod  Nome                 DataEmiss. DataEnt.   Valor      base    taxa   totalicms
C[Repl("=",80)]
*C999999 999999 9999 XXXXXYYYYYXXXXXYYYYY 99/99/9999 99/99/9999 999,999.99
D[strzero(PFNUM,6)] [strzero(PFNUMPED,6)] [PFFOR 9999] [sccpfor->cp_fantasi @S20] [FDATAEMI] [PFDATACHE] [FVAL 999,999.99] [FBASEICMS] [FTAXAICMS] [FTOTICMS]


COMANDO DEPOIS Z_MARGEM = IF(Z_TPVENDA>0, (Z_TPVENDA-Z_PFVAL)/Z_TPVENDA*100, 0)
COMANDO DEPOIS Z_MARKUP = IF(Z_PRCUSTO>0, Z_TPVENDA/Z_PRCUSTO*100-100, 0)
ULTPAG[Repl("-",80)]

