Dercide Alvarez

Boa tarde, Como já existe um tópico estou reabrindo, pois estou passando por esse problema. Por via das duvidas apaguei o ACBBancoSantander.pas e atualizei, e a leitura esta desta maneira : case StrToIntDef(Copy(ARetorno[0],17,1),0) of 1: rCNPJCPF := Copy(ARetorno[0],22,11); 2: rCNPJCPF := Copy(ARetorno[0],18,15); else rCNPJCPF := Copy(ARetorno[0],18,15); end; Restaurei os fontes de 14/08/2017 e a linha esta dessa maneira : rCNPJCPF := RightStr(OnlyNumber(Copy(ARetorno[0], 18, 15)), 14); Acredito que nas ultimas atualizações ouve alguma mudança. Dercide. Já existe um tópico novo relatando esse problema. Dercide.

Boa noite, @Andre Luiz Ucella , você deverá fazer o tratamento do retorno dentro da tua aplicação através do código da ocorrência gerada para cada boleto. No mesmo retorno você poderá ter Liquidação, Entrada de titulo, Envio para protesto, etc : Esse tratamento você deverá fazer de acordo com os bancos que você trabalhar, exemplo Itau : if (Copy(AcbrBoleto.ListadeBoletos.Objects.OcorrenciaOriginal.Descricao,1,2) = '02') ==> entrada confirmada if (Copy(AcbrBoleto.ListadeBoletos.Objects.OcorrenciaOriginal.Descricao,1,2) = '03') ==> entrada rejeitada if (Copy(AcbrBoleto.ListadeBoletos.Objects.OcorrenciaOriginal.Descricao,1,2) = '06') ==> liquidação normal if (Copy(AcbrBoleto.ListadeBoletos.Objects.OcorrenciaOriginal.Descricao,1,2) = '08') ==> liquidação em cartório if (Copy(AcbrBoleto.ListadeBoletos.Objects.OcorrenciaOriginal.Descricao,1,2) = '12') ==> abatimento concedido Da mesma forma poderá tratar o Código de Liquidação que indica o canal usado pelo pagador para liquidar o boleto, exemplo do Itau: AA CAIXA ELETRÔNICO ITAÚ AC PAGAMENTO EM CARTÓRIO AUTOMATIZADO B1 OUTROS BANCOS – PELO CÓDIGO DE BARRAS etc... Dercide.

Boa tarde, Eu armazeno um campo varchar com o nosso numero completo incluindo o digito e tenho uma campo numerico so para o nosso numero, pois a forma como os bancos retornam o nosso numero varia de banco para banco. Dercide.

Desculpem, já existe um poste antigo sobre o assunto. Dercide.

Bom dia, No meu sistema tenho a opção para consultar cadastro, para verificar a Inscrição Estadual e outros dados dos clientes. Porém já me aconteceu algumas vezes nos clientes, de trazer uma inscrição que não esta vinculada ao CNPJ. Isso causa erro no envio da NF-e, "Inscrição não vinculada ao Cnpj". Nesse caso fazemos a consulta no Cadastro Centralizador o qual trás a inscrição correta. https://www.sefaz.rs.gov.br/NFE/NFE-CCC.aspx Inclusive este link esta na pagina do Sintegra. Pergunto : Tem alguma forma de consultamos diretamente deste cadastro centralizador ? Dercide.

Boa tarde, Senão me engano usando o OpenSSL você pode informar o caminho e senha do certificado e carregar durante a execução. Dercide.

Boa tarde @Juliana Tamizou No próprio retorno tem o código 23, mas de qualquer forma segue o manual. OBS: Como o manual tem mais de 2mb, imprimi apenas a capa e as paginas 65 e 77. Segmento U posição 16 a 17 Código de movimento retorno C044. Tabela C044 na pagina 77 Dercide. Manual_Leiaute_CNAB240_SIGCB.pdf

Boa tarde, Identifiquei um problema na leitura do retorno CNAB240, quando o titulo é enviado para Cartório, o conteúdo de ListadeBoletos.Objects.OcorrenciaOriginal.Descricao retorna vazio, causando confusão. function TACBrCaixaEconomica.TipoOcorrenciaToDescricao 1) Antes 19: Result := '19-Confirmação Recebimento Instrução de Protesto'; 20: Result := '20-Confirmação Recebimento Instrução de Sustação/Cancelamento de Protesto'; 25: Result := '25-Potestado e Baixado (Baixa por ter sido protestado)'; 26: Result := '26-Instrução Rejeitada'; 2) Depois da alteração. 19: Result := '19-Confirmação Recebimento Instrução de Protesto'; 20: Result := '20-Confirmação Recebimento Instrução de Sustação/Cancelamento de Protesto'; 23: Result := '23-Remessa a Cartório'; 24: Result := '23-Retirada de Cartório'; 25: Result := '25-Protestado e Baixado (Baixa por ter sido protestado)'; 26: Result := '26-Instrução Rejeitada'; Segue o fonte para analise. Dercide. ACBrBancoCaixa.pas

Boa tarde, Mais uma correção no Cecred CNB-240. Esta gerando o segmento R quando não tem multa, e esse segmento é especifico para multa. Dercide. ACBrBancoCecred.pas

Boa tarde, Apenas uma correção no header do cnb 240, posição 103, Estava saindo CEDRED O Correto é CECRED Segue o arquivo com a correção. Dercide. ACBrBancoCecred.pas

Já corrigi esse problema, e disponibilizei os fontes, porém não subiram ainda ao SVN. Pegue os fontes neste post, teste e de um retorno. Dercide.

Boa tarde, Conforme relatado pelo @Bruno H. Cavalcanti Prado Prado no tópico abaixo, esta faltando uma linha que gera a posição 222 e 223. Segue a correção, favor analisarem. Dercide. ACBrBancoItau.pas

Ia responder,,,, mas ja responderam....desconsiderem o meu post.

@Bruno H. Cavalcanti Prado Prado Realmente esta com esse problema, pode ser que eu tenha cortado a linha, mas no meu aqui esta ok. Pessoal estou postando o fonte correto e testado. Se puderem atualizar o SVN. Dercide. ACBrBancoItau.pas

Boa tarde, Estava esperando uma atualização do Windows 10, que estava prevista para o dia 10, que iria corrigir esse problema. Atualizei, e a data agora aparece normalmente. Mas a assinatura do executável é importante. Dercide.

@Italo Jurisato Junior Vou atualizar e farei um teste com a NotaBlu. Dercide.

@carlosmarian Você conseguiu enviar alguma nota de teste ? Dercide.

Boa tarde @hmzbr Temos enviado sem problemas, usando a Capicom. Dercide.

Bom dia, Porto Alegre disponibilizou em homologação a substituição da NFSe. http://portalnotalegal.portoalegre.rs.gov.br/default.php?reg=146&p_secao=113 Dercide.

@Caejr Já tinha visto esse post, mas até agora nada funcionou. Com XPManifest fica beleza, mas ai os link dos Frames desaparecem. Dercide.

Bom dia, Tinha um erro na cobrança Santander : else if Trim(EspecieDoc) = 'CH' then {CH - CHEQUE} sEspecie := '97' else if Trim(EspecieDoc) = 'CH' then {ND - NOTA PROMISSORIA DIRETA} sEspecie := '98' Mudei para : else if Trim(EspecieDoc) = 'CH' then {CH - CHEQUE} sEspecie := '97' else if Trim(EspecieDoc) = 'ND' then {ND - NOTA PROMISSORIA DIRETA} sEspecie := '98' Segue o fonte alterado. Dercide. ACBrBancoSantander.pas

@Juliomar Marchetti Pelos testes que fiz aparentemente esta tudo ok. Caso constatemos alguma divergência avisaremos. Peço ao @Andre Cristiano Ittner que também de uma analisada, visto que foi ele quem implementou o Cecred 240. Obrigado pela atenção. Dercide.

@Juliomar Marchetti Atualizei hoje os fontes e inclui as alterações feitas pelo @Andre Cristiano Ittner para geração do CNB240 do CECRED, fiz alguns ajustes por causa da negativação do Serasa tanto para o Cecred como para o Itau CNB240. Segue a relação das alterações para facilitar a tua analise. Foi criado uma propriedade CodigoMoraJuros mas vi que o componente tem uma CodigosMoraAceitos, talvez nesse caso possa ser feito um ajuste, não tive tempo de avaliar isso, as acredito que possa ser feito. Foram alterados os seguintes fontes : ACBRBoleto.Pas Foram criadas as seguintes propriedades : property CodigoDesconto : TACBrCodigoDesconto read fCodigoDesconto write fCodigoDesconto; property CodigoMoraJuros : TACBrCodigoJuros read fCodigoMoraJuros write fCodigoMoraJuros; property CodigoMulta : TACBrCodigoMulta read fCodigoMulta write fCodigoMulta; property CodigoNegativacao : TACBrCodigoNegativacao read fCodigoNegativacao write fCodigoNegativacao default cnNaoProtestar; Foi incluso em TACBrTitulo = class fCodigoNegativacao : TACBrCodigoNegativacao; fCodigoDesconto : TACBrCodigoDesconto; fCodigoMoraJuros : TACBrCodigoJuros; fCodigoMulta : TACBrCodigoMulta; Foi incluso em TACBrTipoOcorrencia = toRemessaNegativacaoSerasa, toRemessaExcluirNegativacaoSerasa, Foram criados : {Definir codigo Desconto } TACBrCodigoDesconto = (cdSemDesconto, cdValorFixo); {Definir codigo Juros } TACBrCodigoJuros = (cjValorDia, cjTaxaMensal, cjIsento); {Definir codigo Multa } TACBrCodigoMulta = (cmValorFixo, cmPercentual); {Definir se o titulo será protestado, não protestado ou negativado } TACBrCodigoNegativacao = (cnNenhum, cnProtestarCorrido, cnProtestarUteis, cnNaoProtestar, cnNegativar, cnNaoNegativar); ACBrBancoCecred.Pas Foram criadas as rotinas para geração CNB 240: GerarRegistroHeader240 GerarRegistroTransacao240 GerarRegistroTrailler240 ACBrBancoItau.Pas Na rotina GerarRegistroTransacao240, foram feitas alterações para o envio do cliente para Negativação no Serasa. Criada a variavel ACodigoNegativacao para comportar o código da negativação, Serasa ou cartório, na posição 221 do registro P: { Pegando Tipo de Protesto/Negativação } case CodigoNegativacao of cnNenhum : ACodigoNegativacao := '0'; cnProtestarCorrido : ACodigoNegativacao := '1'; cnProtestarUteis : ACodigoNegativacao := '2'; cnNaoProtestar : ACodigoNegativacao := '3'; cnNegativar : ACodigoNegativacao := '7'; cnNaoNegativar : ACodigoNegativacao := '8'; else ACodigoNegativacao := '0'; end; Isso foi o que me lembro e que ajustei hoje. Dercide. ACBrBancoCecred.pas ACBrBoleto.pas ACBrBancoItau.pas

Mês passado atualizei o meu Windows 10 para a versão mais atual, e com isso todas os TDateTimePicker ficaram totalmente desconfigurados. Pesquisei e verifiquei que aconteceu isso com outras pessoas, não só em aplicações Delphi 7, mas VB, Visual Studio,,,etc Até o momento não consegui uma solução. Se o usar o XPManifest, o problema não acontece,, mas ele some com varias coisas da tela, os links dos frames desaparecem. Se alguém passou por isso e conseguiu resolver compartilhe. Se achar alguma solução postarei. Dercide.

@hmzbr A minha maquina de trabalho é Windows 10 a ultima versão, que só me incomoda...heheh,,,mas os testes foram feito em uma com Windows 7, 32 bits. Dercide.