Linha Microsiga Protheus.

Home

Linha Microsiga Protheus

Páginas filhas
  • EICDI155 - Custo Realizado

Ponto-de-Entrada: EICDI155 - Custo Realizado

 

Abrangências:Microsiga Protheus 11
Versões:Microsiga Protheus 11
Compatível Países:Todos
Sistemas Operacionais:Todos
Compatível às Bases de Dados:Todos
Idiomas:Português (Brasil)

 

Descrição:
Ponto de Entrada para que seja possível customizar qualquer informação na impressão da Nota Fiscal e do Custo Realizado.
Eventos
Programa Fonte
EICDI155.PRW
Sintaxe

EICDI155 - Custo Realizado ( [ COMPLEMENTO_NOTA ], [ CAB_RELATORIO ] )

Parâmetros:

 

 Nome  Tipo  Descrição  Default  Obrigatório  Referência 
 COMPLEMENTO_NOTA  Caracter  Parâmetro para adicionar informações referentes a nota fiscal.          
 CAB_RELATORIO  caracter  Parâmetro para customizar o cabeçalho da impressão da nota fiscal.          
 IMPRIME_CABECALHO   Caracter  Parâmetro para customização do cabeçalho da despesa.          
 

IMPRIME_DETALHE

   Caracter  Parâmetro para customização de impressão dos itens da despesa.          
 

IMPRIME_RESUMO

   Caracter  Parâmetro para customização do cabeçalho do Resumo CC e Resumo Divisão.          
 IMPRIME_DET_RESUMO   Caracter  Parâmetro para customização de impressão dos itens do Resumo CC e Resumo Divisão          
 

IMPRIME_CUSTO_PO 

   Caracter  Parâmetro para customização do cabeçalho do Custo por PO.          
 

IMPRIME_DET_CUSTO_PO

   Caracter   Parâmetro para customização de impressão dos itens do Custo por PO          
 

IMPRIME_DETALHE_PO 

   Caracter  Parâmetro para customização do cabeçalho do Detalhe por PO.          
 

IMPRIME_DET_DETALHE_PO

  Caracter  Parâmetro para customização de impressão dos itens do Detalhe por PO          
 

IMPRIME_CUSTO_ITEM

  Caracter  Parâmetro para customização do cabeçalho do Custo por Item.          
 

IMPRIME_DET_CUSTO_ITEM

  Caracter  Parâmetro para customização de impressão dos itens do Custo por Item          

 

Retorno
    ()
Observações
Exemplos

User Function EICDI155()

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

    If cParam  ==  "IMPRIME_CABECALHO"

       oPrn:Say(nxLinha,1290,  "GUILHERME_IMPRIME_CABECALHO",  ,,,,1)  //"Valor em Euro"

    ElseIf cParam  ==  "IMPRIME_DETALHE"

       oPrn:Say(nxLinha,1150,Transf(ROUND(0,2),"@E 999,999,999,999.99"))

    ELSEIf cParam  ==  "IMPRIME_RESUMO"

       oPrn:Say(nxLinha,1290,  "GUILHERME_IMPRIME_RESUMO",  ,,,,1)  //"Valor em Euro"

    ElseIf cParam  ==  "IMPRIME_DET_RESUMO"

       oPrn:Say(nxLinha,1150,Transf(ROUND(1,2),"@E 999,999,999,999.99"))

    ELSEIf cParam  ==  "IMPRIME_CUSTO_PO"

       oPrn:Say(nxLinha,1290,  "GUILHERME_IMPRIME_CUSTO_PO",  ,,,,1)  //"Valor em Euro"

    ElseIf cParam  ==  "IMPRIME_DET_CUSTO_PO"

       oPrn:Say(nxLinha,1150,Transf(ROUND(2,2),"@E 999,999,999,999.99"))

    ELSEIf cParam  ==  "IMPRIME_DETALHE_PO"

       oPrn:Say(nxLinha,1290,  "GUILHERME_IMPRIME_DETALHE_PO",  ,,,,1)  //"Valor em Euro"

    ElseIf cParam  ==  "IMPRIME_DET_DETALHE_PO"

       oPrn:Say(nxLinha,1150,Transf(ROUND(4,2),"@E 999,999,999,999.99"))

    ELSEIf cParam  ==  "IMPRIME_CUSTO_ITEM"

       oPrn:Say(nxLinha,1290,  "GUILHERME_IMPRIME_CUSTO_ITEM",  ,,,,1)  //"Valor em Euro"

    ElseIf cParam  ==  "IMPRIME_DET_CUSTO_ITEM"

       oPrn:Say(nxLinha,1150,Transf(ROUND(3,2),"@E 999,999,999,999.99"))

   ENDIF

Return Nil

 
  
 Variáveis

 

 Nome  Tipo  Escopo  Pode Alterar  descrição 
    Array of Record  Global  Não