Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 7

changes.mady.by.user Bruno Consoline Osmak Ribeiro

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Bruno Consoline Osmak Ribeiro

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

Portuguese

Pagetitle
M410IPI - Retorno do valor de IPI
M410IPI - Retorno do valor de IPI

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.
Bloco de código
languagevb
themeMidnight
firstline1
titleM410IPI
linenumberstrue
#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)