Histórico da Página

Ponto de Entrada para que seja possível customizar qualquer informação na impressão da Nota Fiscal e do Custo Realizado.

EICDI155.PRW

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

()

#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.