Histórico da Página
F070IMP2 - Recalculo de Impostos
Linha de Produto: | Microsiga Protheus | ||||
Segmento: | Serviços | ||||
Módulo: | Financeiro | ||||
Rotina: |
| ||||
Ponto de Entrada: | F070IMP2 | ||||
Requisito (ISSUE): | Revisão e atualização do documento 6862371 DSERFINR-22897 DT Baixa a receber com cheque sem remetente preenchido. | ||||
País(es): | Todos | ||||
Banco(s) de Dados: | Todos | ||||
Sistema(s) operacional(is): | Todos | ||||
Versões/Release: | 12 |
Ponto de Entrada
Descrição: | Ponto de entrada com objetivo de | criar uma regra de validação, para permitir ou bloquear a seleção do título na geração do borderôrecalcular os impostos de retenção no momento da baixa do título. | |||||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
Programa Fonte:FINA060 e FINA061 | FINA070 | ||||||||||||||
Função:Fa060Inverte() e Fa061bAval() | FaCalcImp | ||||||||||||||
Retorno:Lógico | Null ou Array. | ||||||||||||||
Parâmetros: |
| Default | Obrigatório | Referência | cMarca | Caracter | Código de identificação de título marcado. Deve ser usada a função IsMark para checagem do conteúdo. | X | cAlias | Array of Record | Alias da tabela temporária que exibe os títulos para seleção e inclusão no Borderô. Esta tabela possui a estrutura dos campos da tabela de títulos a receber (SE1) e está posicionada no título a ser marcado/desmarcado. | X |
Exemplo:
|
---|
O ponto de entrada F70IMP2 passa a ter 2 formatos de atuação, que são independentes.
O primeiro formato trata apenas da validação da existencia do ponto de entrada, vide exemplo abaixo:
#Include "Protheus.ch"
User Function F070IMP2()
Return
O segundo formato trata o retorno de variável array com os valores dos impostos de retenção definidos pelo cliente. É necessario manter as posições dos elementos conforme o exemplo abaixo:
{IRRF, ISS, PIS, COFINS, CSLL, INSS, VALOR RECEBIMENTO}
Na posição 7 do array será passado o valor que está sendo recebido no momento da baixa.
#Include "Protheus.ch"
User Function F070IMP2()
Local aImp := ParamIxb
aImp[1] := Valor do IRRF
aImp[2] := Valor do ISS
aImp[3] := Valor do PIS
aImp[4] := Valor do COFINS
aImp[5] := Valor do CSLL
aImp[6] := Valor do INSS
aImp[7] := Valor RECEBIDO.
Return aImp#INCLUDE "PROTHEUS.CH"
#INCLUDE "RWMAKE.CH"
User Function FA060VLD()
Local cMarca := ParamIxb[1]
Local cAlias := ParamIxb[2]
Local lRet := Aviso( "FA060VLD", "Titulo " + Iif( ((cAlias)->E1_Ok != cMarca ), "Desmarcado.", "Marcado." ) + CRLF + ;
"Prefixo: " + RTrim( (cAlias)->E1_PREFIXO ) + " / Número: " + RTrim( (cAlias)->E1_NUM ) + " / " + ;
"Parcela: " + RTrim( (cAlias)->E1_PARCELA ) + " / Tipo: " + RTrim( (cAlias)->E1_TIPO ) , ;
{"Confirmar", "Cancelar"}, 3 ) == 1
Return lRet