Linha Microsiga Protheus

Árvore de páginas

Ponto de Entrada para validar a impressão do documento durante a distribuição

Descrição:

QDO110IM - Ponto de Entrada para permitir ou não a impressão do documento pelo usuário corrente na distribuição.

Versões:

Microsiga Protheus 12

Idioma:

Português (Brasil)

Sistemas Operacionais Suportados:

Todos

Compatível com as Bases de Dados:

Todos

Retorno:

Deve ser lógico.

Eventos de chamada de Ponto de Entrada:Após clicar no botão "Distribui" na distribuição do documento.
Programa Fonte:

QDOA110.PRW

Importante

Este ponto de entrada é o antigo QDO110IMP, foi renomeado para QDO110IM por conta de padronização e característica da linguagem que não considera os caracteres após a decima posição.

Exemplo
#include "Totvs.ch"

User Function QDO110IM()
    Local lImprime as logical
    Local lRetorno as logical
 
    lImprime := PARAMIXB[1]
    lRetorno := .F.
 
    Begin Sequence
 
        If !MsgYesNo("Imprime cópia do documento?")
            Break
 
        EndIf
 
        lRetorno := .T.
 
    EndSequence

Return lRetorno