Linha Microsiga Protheus

Árvore de páginas

TTGNP6_DT_SPDF500I_Alteracao_de_valores_dos_impostos

Características do Requisito

Linha de Produto:

Microsiga Protheus

Segmento:

Serviços

Módulo:

Financeiro

Rotina:

Rotina

Nome Técnico

SpedPisCof

Sped Pis/Cofins

Rotina(s) envolvida(s)

Nome Técnico

SpedPisCof

Sped Pis/Cofins

Parâmetro(s):

aImpost

Ponto de Entrada:

SPDF500I

Chamados Relacionados

TTGNP6

Versões/Release:

Versão 11.8

Descrição

Incluído ponto de entrada SPDF500I para que seja alterado os valores dos impostos, sendo possível encaminhar o valor retido na baixa.

 

Ponto de Entrada

Descrição:

O ponto de entrada SPDF500I altera os valores dos impostos, sendo possível encaminhar o valor retido na baixa

Localização:

Todos

Eventos:

aImpost := ExecBlock ("SPDF500I",.F.,.F., {aImpost})

Programa Fonte:

MATXATU.PRX

Função:

Todos

Retorno:

Nome

Tipo

Descrição

Obrigatório

 aImpost

Array

Deve retornar os valores dos impostos na seguinte ordem:
 

aImpost[1] = Pis
aImpost[2] = Cofins
aImpost[3] = Csll
aImpost[4] = Irrf
aImpost[5] = Inss
aImpost[6] = Iss

Sim

 

Exemplo:

#Include 'Protheus.ch'

#include 'totvs.ch'

User Function SPDF500I(aImpost)

Default aImpost:= Array(6)
SE5->(DbSetOrder(2))
If SE5->(dbSeek(xFilial("SE5")+"VL"+SE1->E1_PREFIXO+SE1->E1_NUM+SE1->E1_PARCELA+SE1->E1_TIPO))
aImpost[1] := SE5->E5_VRETPIS
aImpost[2] := SE5->E5_VRETCOF
aImpost[3] := SE5->E5_VRETCSL
aImpost[4] := SE5->E5_VRETIRF
aImpost[5] := SE5->E5_VRETINS
aImpost[6] := SE5->E5_VRETISS
EndIf
Return aImpost