Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 5

changes.mady.by.user Marcio Rogerio Menon

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Marcio Rogerio Menon

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

Portuguese

Pagetitle
M461VTot - Verifica o total da Nota Fiscal e Condição de Pagamento
M461VTot - Verifica o total da Nota Fiscal e Condição de Pagamento

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

Array of RecordNumérico

RECNO da condição de pagamento escolhida.




X




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

Exemplo:

Bloco de código
languagec#
linenumberstrue
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