Home

Linha Microsiga Protheus

Páginas filhas
  • EICDI155 - Impressão de Coluna extra no Custo/Realizado

Descrição

EICDI155 - Impressão de Coluna extra no Custo/Realizado

Observações

 

Exemplos

User Function EICDI155()

Local cParam := If(Type("ParamIxb") = "A",ParamIxb[1],If(Type("ParamIxb") = "C",ParamIxb,""))

If cParam == "IMPRIME_COLUNA"

oPrn:Line(nxLinha, 0050,nxLinha, 2300)
oPrn:Line(nxLinha+1,0050,nxLinha+1,2300)

oPrn:Line(nxLinha,0049,nxLinha+nxIncrem,0049)
oPrn:Line(nxLinha,0050,nxLinha+nxIncrem,0050)
oPrn:Line(nxLinha,2299,nxLinha+nxIncrem,2299)
oPrn:Line(nxLinha,2300,nxLinha+nxIncrem,2300)

oPrn:Say(nxLinha,2485, "TESTE COLUNA",,,,,1)

nxLinha+=nxIncrem

oPrn:Line(nxLinha,0049,nxLinha+nxIncrem,0049)
oPrn:Line(nxLinha,0050,nxLinha+nxIncrem,0050)
oPrn:Line(nxLinha,2299,nxLinha+nxIncrem,2299)
oPrn:Line(nxLinha,2300,nxLinha+nxIncrem,2300)

oPrn:Say(nxLinha,2487, "TESTE COLUNA 2",,,,,1)
nxLinha-=nxIncrem

Endif
Return Nil

Preview

Veja também

 

Idioma

Português(Brasil)

Versões

Microsiga_Protheus11

Sistemas Operacionais Suportados

Windows

Compatível com as Bases de Dados

Topconnect

Updates

 

Parâmetros

IMPRIME_COLUNA

Retorno

 

Eventos de chamada do Ponto de Entrada

 

Variáveis

 

Programa Fonte

EICDI155

  • Sem rótulos