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.
#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