Histórico da Página

Descrição

M462VLIT - Validação do item de Remito

Observações

Ponto de entrada para fazer a validação do item de Remito.
Obs: A tabela SC5 e SC9 estarão posicionadas.

Exemplos

User Function M462VLIT()
Local lTabVen := .F.
Local cTab := SC5->C5_TABELA

dbSelectArea("DA0")
dbSetOrder(1)
If MsSeek( xFilial("DA0")+ cTab )
If DA0->DA0_DATATE < dDatabase
lTabVen := .T.
Alert('Pedido 'SC5->C5_NUM' esta com tabela de preço 'cTab' vencida.')
EndIf
EndIf

Return lTabVen