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

Advpl Cabec

    Tipo: Impressão

    Esta função imprime, na impressora selecionada, o cabeçalho padrão dos relató-rios do SIGA Advanced. Devolve o número da última linha impressa para que seja dada continuidade ao relatório.

    Sintaxe

    Cabec(cTítulo, cTexto1, cTexto2, cProg, cLargura, cControle)

    Parâmetros

    cTítulo – Título do Relatório

    cTexto1 – Extenso da primeira linha do cabeçalho

    cTexto2 – Extenso da segunda linha do cabeçalho

    cProg – Nome do Programa

    cLargura – Largura do relatório (P/ M/ G)

    cControle – Caractere de controle da impressora (numérico)

    Retorna

    nLinha – Número da última linha impressa no cabeçalho

    Exemplo

    cTitulo := “Relação dos Adiantamentos”

    cCabec1 := “Código Item Conta Contábil CCusto Projeto Data Valor”

    cCabec2 := “———– ——- ———————– ———— ———— ——– ——–”

    cPrograma := “ATRF090”

    cTamanho := “P”

    nCaracter := 15

    :

    cRel:=SetPrint(cAlias, cPrograma , , @cTitulo, cDesc1, cDesc2, cDesc3 , .T., aOrd )

    SetDefault(aReturn, cString)

    :

    nLinha:=Cabec(cTitulo, cCabec1, cCabec2, cPrograma, cTamanho, nCaracter)

    While !EOF()

    nLinha:=nLinha+1

    @nLinha,1 Say SB1->B1_CODIGO