Linha Microsiga Protheus.

Home

Linha Microsiga Protheus

Páginas filhas
  • EICDI155 - Custo Realizado

Versões comparadas

Versão antiga 3

changes.mady.by.user Lucas Raminelli

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Guilherme Fernandes Pilan

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Comentário: Inclusão dos parametros IMPRIME_RESUMO, IMPRIME_DET_RESUMO, IMPRIME_CUSTO_PO, IMPRIME_DET_CUSTO_PO, IMPRIME_DETALHE_PO, IMPRIME_DET_DETALHE_PO, IMPRIME_CUSTO_ITEM, IMPRIME_DET_CUSTO_ITEM

...

Portuguese

Pagetitle
EICDI155 - Custo Realizado
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
detalhes da despesa.
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
#INCLUDE "Eicdi155.ch"//#INCLUDE "FONT.CH"#INCLUDE "AVPRINT.CH"//#INCLUDE "PRINT.CH"#include "rwmake.ch"#include "average.ch"/*Autor:		Alexandre da CostaFunção:		EICPCS01Descrição:	Emissão do Relatório do Custo Realizado do Processo / Solicitação da N.F.E.Sintaxe:    #EICDI155Condições:	D.I. informada na tela de embarque/desembaracoTaxas FOB e US$ D.I. informadas na tela de emb./desembaraçoData:			02/Jun/2000*///----------------------------------------------------------------------------//// Printer#xcommand TRACO_NORMAL  => oPrn:Line(nxLinha,  0050,nxLinha,  2300);						;  oPrn:Line(nxLinha+1,0050,nxLinha+1,2300)#xcommand TRACO_REDU_01 => oPrn:Box(nxLinha+nxIncrem,0050,nxLinha+nxIncrem+1,0950)#xcommand TRACO_REDU_02 => oPrn:Box(nxLinha,1270,nxLinha+1,2300)#xcommand TRACO_REDU_03 => oPrn:Box(nxLinha,0750,nxLinha+1,2300)#xcommand TRACO_VERT_01 => 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)#xcommand TRACO_VERT_02 => oPrn:Box(nxLinha,0950,nxLinha+nxIncrem,0951)#xcommand TRACO_VERT_03 => oPrn:Box(nxLinha,0050,nxLinha+nxIncrem,1400)#xcommand COMECA_PAGINA => AVNEWPAGE; nxLinha:=0; ++nxPagina; ICus_INICPG()#xcommand ENCERRA_PAGINA => TRACO_NORMAL//----------------------------------------------------------------------------//// Definicao de Fontes#xtranslate :ARIAL_08       => \[1\]#xtranslate :ARIAL_08_BOLD  => \[2\]#xtranslate :ARIAL_09_BOLD  => \[3\]#xtranslate :ARIAL_10       => \[4\]#xtranslate :ARIAL_10_BOLD  => \[5\]#xtranslate :ARIAL_13_BOLD  => \[6\]#xtranslate :ARIAL_18_BOLD  => \[7\]User Function EICDI155()If Type("ParamIXB") == "C"   	cExecute := ParamIXBELSE            RETURN .F.EndIf  DO CASECASE cExecute == "COMPLEMENTO_NOTA"   oPrn:Say(nxLinha, 230, "Teste",aFontes:ARIAL_08_BOLD)    END CASEReturn .T.

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