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 |
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.
FINA050.PRW
F050VImp - Cálculo de vencimento de impostos ( cImpostodEmissaodEmis1dVencRea [ cRetencao ] [ cTipoFor ] ) --> uRet
- (vetor)
- Data de vencimento do imposto.
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))