M462VLIT - Validação do item de Remito

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

Preview

Veja também

Idioma

Português(Brasil)

Versões

Microsiga_Protheus11

Sistemas Operacionais Suportados

Windows

Compatível com as Bases de Dados

TOTVSDBAccess

Updates

Parâmetros

Retorno

Lógico indicando se deve gerar o remito.
.T. - Gera
.F. - Não gera

Eventos de chamada do Ponto de Entrada

Variáveis

Programa Fonte

MATA462AN.PRW