Histórico da Página
Ponto de Entrada
Descrição: | Ponto de entrada VM200VLD na rotina "Trans. Recep Nfs" (VEIVM200), no botão “Transmitir Nfs”, para que seja possível realizar validações para permitir ou não a transmissão da nota selecionada. Se o PE retornar positivo, realiza a transmissão; se retornar negativo, não. | |||||||||
Localização: | Atualizações / Mov Saida / Trans/recep de NFs | |||||||||
Eventos: | If ExistBlock("VM200VLD") lPEValid := ExecBlock("VM200VLD",.f.,.f.,{nTp,aSF2}) If !lPEValid Return() EndIf EndIf If ExistBlock("VM200VLD") lPEValid := ExecBlock("VM200VLD",.f.,.f.,{nTp,aVQ1}) If !lPEValid Return() EndIf EndIf | |||||||||
Programa Fonte: | VEIVM200.PRW | |||||||||
Função: | FS_XML () | |||||||||
| Parâmetros: |
| |||||||||
| Retorno: |
|
Exemplo:
Include totvs.ch
/*
VM200VLD - Ponto de Entrada na Tela de Transmissao/Recepcao de Vendas e Bonus de Veiculos
Executado ao clicar no botão "Transmitir NF"
Permite ao usuário criar validações antes de executar a transmissão
Retorno do Ponto de Entrada:
Verdadeiro ou Falso
*/
User Function VM200VLD()
If ParamIXB[01] == 1 //Envia NF de Vendas
MsgInfo("Envio de NF de Vendas não permitido.","PE_VM200VLD")
Return .F.
EndIf
If ParamIXB[01] == 2 //Envia NF de Bonus
MsgInfo("Envio de NF de Bonus não permitido.","PE_VM200VLD")
Return .F.
EndIf
Return .T.
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas