Histórico da Página

...

Portuguese

Pagetitle

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

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

Versões:	Microsiga Protheus 8.11 , Protheus 10
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, INNS, 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

Data de vencimento do imposto.

Parâmetros:

Nome

Tipo

Descrição

Default

Obrigatório

Referência

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

Linha Microsiga Protheus

Páginas filhas

Versões comparadas

Versão antiga 6

Nova versão 7

Chave