Linha Microsiga Protheus

Árvore de páginas

Ponto-de-Entrada: M461VTot - Verifica o total da Nota Fiscal e Condição de Pagamento


Abrangências:Microsiga Protheus 10 , Microsiga Protheus 11
Versões:Microsiga Protheus 10 , Microsiga Protheus 11
Compatível Países:Todos
Sistemas Operacionais:Todos
Compatível às Bases de Dados:Todos
Idiomas:Português (Brasil) , Português (Portugal) , Espanhol , Inglês


Descrição:
Este ponto de entrada verifica o total da Nota Fiscal e a condição de pagamento escolhida, antes de sua geração.

Eventos
Programa Fonte
MATA461.PRX

Sintaxe

M461VTot - Verifica o total da Nota Fiscal e Condição de Pagamento ( < nTotal> , < nRecnoE4> ) --> lGeraVTot


Parâmetros:

Nome

Tipo

Descrição

Default

Obrigatório

Referência

nTotal

Numérico

Valor total da nota




X




nRecnoE4

Numérico

RECNO da condição de pagamento escolhida.




X




Retorno
lGeraVTot
    (logico)
  • .T. Continua no processo de geração da Nota Fiscal /. .F. Não gera a Nota Fiscal

Exemplo:

User Function M461VTot()

Local aArea		:= GetArea()
Local nValTot	:= PARAMIXB[1] // Valor total da nota
Local nRecnoE4	:= PARAMIXB[2] // RECNO da condição de pagamento
Local lRet 		:= .T.

If nValTot < 20 .And. nRecnoE4 > 0
	dbSelectArea("SE4")	
	SE4->(dbGoTo(nRecnoE4))	
	If AllTrim(SE4->E4_FORMA) $ "BOL" 		
		Alert("Opção indisponível para este valor, Corrija o Pedido") 		
		lRet := .F.		
	EndIf
EndIf	

RestArea(aArea)

Return lRet