ALIAS SNGPC_SA
index temp001 str(pcod,6)+plote+fnumcoo+dtos(mdata)

FILTRO pcod>0.and.val(fnumcoo)>0

comando durante zChaveOld = str(pcod, 6)+plote+fnumcoo+dtos(mdata)
COMANDO DURANTE ZRecnoOld = Recno()
COMANDO DURANTE Z_NIL     = DBSKIP()
comando durante zChaveNEw = str(pcod, 6)+plote+fnumcoo+dtos(mdata)

COMANDO DURANTE zFgUpdate = (zChaveOld=zChaveNew)

COMANDO DURANTE z_nil = if(zFgUpdate, RegLock() , '')
COMANDO DURANTE z_nil = if(zFgUpdate, DbDelete(), '')
COMANDO DURANTE z_nil = if(zFgUpdate, DbCommit(), '')
COMANDO DURANTE z_nil = if(zFgUpdate, DbUnlock(), '')

COMANDO DURANTE DbGoto(ZRecnoOld)

VARIAVEL LST_TP = 58                           

C[Empresa]
CRegistro Alterados
CData Produto      				Lote  		Comprador

C[Repl("-",80)]

FILTROIMP zfgupdate=.t.
D[mdata] [pcod 999999] [pdesc] [PLOte] [comprador]
