Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Comentário: Migration of unmigrated content due to installation of a new plugin

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:
NomeTipoDescrição

nTp

Numérico

indica o que está sendo validado.

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

Retorno:
NomeTipoDescrição

lRetorno

Lógico

.T. (Permite continuar o processo) ou .F. (Para a execução do processo)

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