VARIAVEL Z_AAMM = right( str(year(date()),4), 2) + strzero( month(date()) ,2)
VARIAVEL Z_MOVE = ""
VARIAVEL Z_FAT  = ""
*
VARIAVEL z_selecto = select()
VARIAVEL z_nil     = ABRA("0",r_siga,"FAT"+z_aamm,"FAT")
VARIAVEL z_nil     = Fat->(DbGoBottom())
VARIAVEL z_NUMPED  = fat->fnumped
VARIAVEL z_nil     = fat->(DbCloseArea())
VARIAVEL z_nil     = dbSelectArea(z_selecto)
VARIAVEL Z_CLI     = 0
VARIAVEL Z_VND     = 0
VARIAVEL Z_CABPRDS = 0
VARIAVEL Z_PRODS   = 0
VARIAVEL Z_UNIDS   = 0
VARIAVEL Z_TVALOR  = 0
VARIAVEL LST_TP    = 999

COMANDO ANTES DbGoBottom()

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

COMANDO DEPOIS Z_MOVE = "MOVE"+Z_AAMM
COMANDO DEPOIS Z_FAT  = "FAT"+Z_AAMM

ARQUIVO (Z_FAT) Z_FAT+".p"  FNUMPED
OUTROARQ (z_MOVE) z_MOVE+".p" fnumped
OUTROARQ SCCRCLI
OUTROARQ SF_VEND
OUTROARQ SE_PROD SEIP_C PCOD

VARIAVEL Z_TIPOVND = ""
VARIAVEL Z_PRAZO = ""
COMANDO ANTES zfound = 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   = "TRANSFERENCIA"

COMANDO ANTES SCCRCLI->(DbGoto( Z_CLI ))
COMANDO ANTES SF_VEND->(DbGoto( Z_VND ))
COMANDO ANTES DbGoBottom()


D[fr_eval(m_enfat)]ROMANEIO DE ABASTECIMENTO                              TOKE DISCOS [fr_eval(m_NAOenfat)]
D[REPL("-",132)]
DTransferencia N§: [z_numped 999999],          emitida em [Z_FDATAEMI] as [FHORA]             Vendedor: [sf_vend->nome]
D[REPL("-",132)]
DLoja............:   [z_cli 9999] [sccrcli->cr_nome @s50]    Fone: [sccrcli->cr_fone]  Fax: [SCCRCLI->CR_FAX]
D

SUBLIST Z_MOVE
COMANDO ANTES zfound = DbSeek(Z_Numped)

REPITA ENQUANTO FNUMPED     = Z_NUMPED
FILTRO MFGES="S".and.fnumped=z_numped.and.mcodforc=z_cli

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 Z_CABPRDS = Z_CABPRDS + 1


FILTROIMP Z_CABPRDS = 1
D[repl("=",132)]
FILTROIMP Z_CABPRDS = 1
D Cod     Cod_Barras  Qtd  Pr_Ven  Tipo  Genero  Div Titulo  Descricao
FILTROIMP Z_CABPRDS = 1
D[Repl("-",132)]

D[PCOD 99999] [se_prod->pdic6]  [MQUANT 999] [se_prod->pvluvenda @E 9999.99]  [SE_PROD->Ptipo] [se_prod->pref] [se_prod->pdivisao] [se_prod->pdesc] [se_prod->pdesc1]
*9999 XXXXXxxxxxXXXXXxxxxxXXXX 999 (9999) 9999.99 9999.99 (9999.99) 99.99.99
FIM SUBLIST

ULTPAG[REPL("-",132)]
ULTPAG
*- ULTPAG ...........Totais: [z_prods 9999] [z_tvalor @e 9999.99]    (Referentes a [z_prods 9999] itens)
*- ULTPAG Transferidos [z_prods 9999] itens somando [z_unids 9999] unidades, com valor de [z_tvalor @e 9,999.99]
*- ULTPAG Valor da Transferencia........: [z_tvalor @E 999,999.99]
ULTPAG Prods Transferidos...: [z_prods 9999]             Recebida em ____/ ____/ ______
ULTPAG Unidades Transferidas: [z_unids 9999]
ULTPAG                                         Ass. _____________________________________________
ULTPAG                                              [SCCRCLI->CR_NOME]
ULTPAG[REPL("-",132)]
ULTPAG.
