VARIAVEL Z_AAMM = right( str(year(date()),4), 2) + strzero( month(date()) ,2)
VARIAVEL Z_MOVE = ""
VARIAVEL ZFcliTrans = 0
VARIAVEL zAlterados = 0
*
T10,5,18,70,Parametros
T2,2,Ano e Mes p/ Marcar Transferencias..........:,4,z_aamm,9999
T3,2,Marcar como Transferencias Vendas ao Cliente:,6,ZFcliTrans,999999

COMANDO ANTES DbGoBottom()
COMANDO DEPOIS Z_MOVE = "MOVE"+Z_AAMM

ARQUIVO (z_MOVE)
OUTROARQ SCCRCLI
COMANDO ANTES sccrcli->(DbGoto(ZFcliTrans))
FILTRO ZFcliTrans>0.and.mcodforc=ZFcliTrans .and. mtipoven$"12345Z" .and. mfges$"DS"
COMANDO DURANTE znil = put_var("mtipoven","6")
COMANDO DURANTE zAlterados = zAlterados + 1


C[SISTEMA]                              pag [pag 999]
CMarcacao de Transferencias do Ano e mes [z_aamm] , Emitida em [s_datual] as [time()]
C[repl("-",80)]
CEmissao   Cupom      Valor TipoLan Cliente
C[Repl("=",80)]

D[mdata] [fnumped 999999] [mvalor @e 999,999.99] [mtipoven] [mcodforc 9999]-[sccrcli->cr_nome]

ULTPAG
ULTPAG ** Lancamentos Alterados: [zAlterados 999999]