Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 1

changes.mady.by.user Nuria Fauró Campos

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
BASEIPIFRETE

", "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)