Pular para o conteúdo
Início » Advpl Avalimp

Advpl Avalimp

Advpl Avalimp

Tipo: Relatórios

Configura a impressora através dos parâmetros. Esta função é usada em relatórios específicos que não se utilizam da função “Cabec”. Imprimindo o retorno desta função na impressora, ela se encarregará de configurar a impressora de acordo com o arquivo de driver escolhido, e com as configurações escolhidas pelo usuário definidas no array aReturn.

Sintaxe

AvalImp(nLimit)

Parâmetros

nLimit – Tamanho do relatório em colunas. Pode ser 80, 132 ou 220 (respec-tivamente para relatórios de tamanho “P”,”M” e “G”).

Retorna

cControl – String com caracteres de controle, dependente das configurações escolhidas pelo usuário e do arquivo de driver especificado.

Exemplo

// Exemplo de uso da função AvalImp:

#IFNDEF WINDOWS

     #DEFINE PSAY SAY

#ENDIF

cCbTxt:= “”

cCbCont:= “”

nOrdem:= 0

nAlfa:= 0

nZ:= 0

nM:= 0

cTamanho:= “G”

cLimite:= 220

cTitulo:= PADC(“Nota Fiscal”,74)

cDesc1:= PADC(“Este programa irá emitir a Nota Fiscal de Entrada/Saída”,74)

cDesc2:= “”

cDesc3:= PADC(“da Feeder Industrial Ltda.”,74)

cNatureza:= “”

aReturn:= {“Especial”, 1,”Administração”, 1, 2, 2,””,1}

cNomeProg:= “NFEEDER”

cPerg:= “ENTSAI”

nLastKey:= 0

lContinua:= .T.

nLi:= 0

wnrel:= “NFEEDER”

nTamNf:=72 // Apenas Informativo

Pergunte(cPerg,.F.) // Pergunta no SX1

cString:=”SF2″

wnrel:= SetPrint(cString,wnrel,cPerg,cTitulo,cDesc1,cDesc2,cDesc3,.T.)

SetDefault(aReturn,cString)

If nLastKey == 27

   Return

Endif

#IFDEF WINDOWS

     RptStatus({|| Execute(Relato)})

     Return

#ENDIF

Function Relato

SetPrc(0,0)

// Aqui está a chamada da função AvalImp. Configura a

// impressora de acordo com as definições em aReturn

// escolhidas pelo usuário na função SetPrint

@ 00,00 PSAY AvalImp(220)

dbSelectArea(“SF2”)

dbSeek(xFilial()+mv_par01+mv_par03,.T.)

// O programa segue normalmente…

Return

Estude para provas de certificações em TI com os simulados Bynem

Veja também: