Este Ponto de Entrada pertence à rotina de Receb. Importação (EICDI154) para que seja possível a customização das funcionalidades de impressão do relatório de Solicitação de Nota Fiscal ou Custo Realizado do processo de importação.
Programa Fonte: EICDI155.PRW
#include 'protheus.ch'
user function EICDI155()
local cParam := If (Type("ParamIxb") == "A",ParamIxb[1],If (Type("ParamIxb") == "C",ParamIxb,""))
if Type("ParamIxb") == "C" .and. cParam == "IMPRIMINDO_BOX_NOTA_FISCAL"
nLin += 35
oPrn:Say(nLin,10,"Condição de Pagamento: " + Posicione( "SW2", 1, xFilial("SW2") + cPedido , "W2_COND_PA"))
elseIf cParam == "IMPRIMINDO_NOTA_FISCAL"
//Alteração para exibir o valor cif unitário
cPreco:= TRAN(Work1->WKCIF / Work1->WKQTDE,'@E 999,999,999.9999')
endif
Return Nil
|
| Nome | Tipo | Descrição |
|---|---|---|
IMPRIMINDO_BOX_NOTA_FISCAL | Caractere | Permite a impressão de informações adicionais no box da nota fiscal |
IMPRIMINDO_NOTA_FISCAL | Caractere | Permite a alteração das variáveis da solicitação da nota fiscal que serão impressas no documento. |
| Variável | Tipo | Descrição |
|---|---|---|
cPedido | Caractere | Variável com o código do Purchase Order (W2_PO_NUM) |
| nLin | Numérico | Linha do posicionamento da impressão |
| cPreco | Caractere | Variável que exibirá o valor do preço unitário do item na impressão da solicitação da nota fiscal. |