Árvore de páginas

Versões comparadas

Chave

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

...

Não
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 Record

RECNO da condição de pagamento escolhida.




X




Retorno
lGeraVTot
    (logico)
  • .T. Continua no processo de geração de nota. .F. Não gera a Nota Fiscal
Observações

Exemplo:

Bloco de código
languagec#
linenumberstrue
Exemplos
User Function M461VTot()

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

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

Exemplo:

Bloco de código
languagec#
linenumberstrue
#Include 'Protheus.ch'

User Function PMA220BSA()

Local aButtons := {}

aAdd(aButtons,{"Teste","MsgSolAlm",0,2,,.T.})

Return aButtons


Function MsgSolAlm()

Alert("PE: PMA220BSA")

Return
Variáveis
NomeTipoEscopoPode AlterardescriçãoArray of RecordGlobal

	EndIf
EndIf	

RestArea(aArea)

Return lRet