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

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

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

Veja também: