F050VImp - Cálculo de vencimento de impostos -- 11524

Função: F050VImp - Cálculo de vencimento de impostos

Versões:	Microsiga Protheus 8.11, Protheus 10, Protheus 11 e Protheus 12
Sistemas Operacionais:	Todos
Compatível às Bases de Dados:	Todos
Nível de Acesso:	Nível 1 (Acesso Clientes)
Idiomas:	Espanhol , Inglês

Descrição:

Esta função calcula a data de vencimento de títulos de impostos (IRRF, INSS, PIS, COFINS e CSLL) de acordo com as leis vigentes de cada um deles.

Programa Fonte:

FINA050.PRW

Sintaxe:

F050VImp - Cálculo de vencimento de impostos ( cImpostodEmissaodEmis1dVencRea [ cRetencao ] [ cTipoFor ] ) --> uRet

Retorno:

uRet

Parâmetros:

Nome	Tipo	Descrição	Obrigatório
cImposto	Caracter	Imposto a ser calculado o vencimento (IRRF, INSS, PIS, COFINS e CSLL).	X
dEmissao	Data	Data de emissão do título.	X
dEmis1	Data	Data de contabilização do título.	X
dVencRea	Data	Data do vencimento do título.	X
cRetencao	Caracter	Código de retenção.
cTipoFor	Caracter	Tipo do fornecedor.

Exemplo:

#INCLUDE "Protheus.ch"
#INCLUDE "TbiConn.ch"

User Function MyFunc()

Local x
Local aXEmpFil
Local cChave := "D MG 01 000124 NF 00000205"

DEFAULT aXEmpFil := {"T1","D MG 01"}

PREPARE ENVIRONMENT EMPRESA aXEmpFil[1] FILIAL aXEmpFil[2] TABLES "SE2"

DbSelectArea("SE2")
DbSetOrder(1) // E2_FILIAL, E2_PREFIXO, E2_NUM, E2_PARCELA, E2_TIPO, E2_FORNECE, E2_LOJA, R_E_C_N_O_, D_E_L_E_T_

If DbSeek(cChave)

x := F050VImp("PIS",SE2->(E2_EMISSAO, E2_EMIS1, E2_VENCREA)) // Calcula o vencimento do imposto

EndIf

RESET ENVIRONMENT

Return MsgAlert("A data de vencto do imposto é " + DTOC(x))

Home