Histórico da Página
Ponto de Entrada
Descrição: | Ponto de entrada executado através da tela de Faturamento Direto, opção de geração de NF/Tiitulos. Após clicar no botão <Gerar NF/Titulos> abre uma tela para informar os dados para geração da Nota. Nessa tela o Ponto de Entrada é acionado em alguns pontos e conforme o seu retorno (True ou False ) permite avançar ou não o processo. Ele recebe um parâmetro de entrada que determina onde está sendo chamado, conforme descrito abaixo: 0- Ao passar pelo campo Gerar: ( ) NF e Titulos ( ) Somente Titulos 1- Ao passar pelo campo Cliente 2- Ao passar pelo campo Vendedor 3- Ao passar pelo campo Natureza 4- Ao passar pelo campo Serviço/ Produto 6- Ao passar pelo campo Mens Padrao 5- Ao passar pelo Botão Confirmar Para validar o processo no final, ao clicar no botão <Confirmar> deverá condicionar ao parâmetro de entrada com valor igual a 5. No exemplo do PE a rotina está validando ao clicar no botão <Confirmar>, condicionado ao parâmetro de entrada igual a 5. | ||||||
Localização: | Veículos \ Atualizações \ Mov Atendimento \ Faturamento Direto | ||||||
Eventos: | EndIf oNFTit16:Refresh() EndCase // Ponto de Entrada antes da Geração de Nota e Titulo // Dependendo do retorno impedirá a sequência do processo if ExistBlock("VM180ANT") if ! ExecBlock("VM180ANT",.f.,.f.,{nTp}) lRet := .f. Endif Endif Return lRet | ||||||
Programa Fonte: | VEIVM180.PRW | ||||||
Função: | VM180VTELA() | ||||||
Parâmetros: |
| ||||||
Retorno: |
|
Exemplo:
Include totvs.ch
User Function VM180ANT()
local nTpAux := ParamIxb[01] // nTp
local lRetorno := .t.
If nTpAux == 5
MsgInfo('Ponto de Entrada VM180ANT' + ' ' + cvaltochar(nTpAux),'Atencao')
lRetorno := .t.
EndIf
Return lRetorno