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