Linha Microsiga Protheus

Árvore de páginas

Ponto-de-Entrada: M410IPI - Retorno do valor de IPI

Descrição:

Este ponto de entrada retorna o valor do IPI para ser demonstrado na planilha financeira do pedido de vendas.

Para realizar todo o processo corretamente deve utilizar em conjunto com o ponto de entrada M460IPI com o mesmo tratamento do ponto M410IPI.

Para que as informações do pedido de vendas e da nota fiscal de saída fiquem iguais.

Variaveis disponiveis no ponto de entrada: "VALORIPI", "BASEIPI", "QUANTIDADE", "ALIQIPI" e "BASEIPIFRETE"


Programa Fonte: ".PRW"

Sintaxe

M410IPI - Retorno do valor de IPI ( < UPAR> ) --> VALORIPI

Parâmetros:


NomeTipoDescriçãoDefaultObrigatórioReferência
UPARArray of Recordqualquer
X


Retorno
VALORIPI
    (numerico)
  • Retorna o valor do IPI.
M410IPI
#INCLUDE 'PROTHEUS.CH'
#INCLUDE "FWMVCDEF.CH"

User Function M410IPI()

Local nItem     := PARAMIXB[1] //Item Utilizado
Local aArea     := GetArea()
Local nValIPI   := VALORIPI //Valor do IPI

If SC5->C5_CLIENTE == "L" .And. nItem > 5 //Tipo L - Produto Rural
    nValIPI := 0
EndIf

RestArea(aArea)

Return(nValIPI)