Ir para o conteúdo principal
assistive.skiplink.to.breadcrumbs
assistive.skiplink.to.header.menu
assistive.skiplink.to.action.menu
assistive.skiplink.to.quick.search

Árvore de páginas

Histórico da Página

Versões comparadas

Chave

Esta linha foi adicionada.
Esta linha foi removida.
A formatação mudou.

...

Bloco de código

language	cpp
title	Exemplo

#include "Totvs.ch"

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

Return lRetorno