Pular para o conteúdo
Início » 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