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
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas