quarta-feira, 24 de junho de 2009

Pedido - Consulta Ultimo Material Digitado - 24 06 09 10:31

==
if Loc:Codigo_Material_ultimo=0
else
mat:codigo=Loc:Codigo_Material_ultimo
iF Access:Mater.TryFetch(MAT:POR_CODIGO)
end
end

===

IF LOC:CODIGO_MATERIAL<>0
Loc:Codigo_Material_ultimo=loc:codigo_material
DISPLAY(Loc:Codigo_Material_ultimo)
END

Nenhum comentário:

Postar um comentário