cloudcon

Boa tarde, Eu realmente fiz a implementação mas ela não foi aceita pela equipe do ACBR. Agora estou fazendo novamente para a versão TRUNK2, assim que finalizar vou tentar novamente enviar para ver se a galera aceita. O servidor que estou refazendo é o da serra que é igual ao de cariacica.

Bom dia Para ajudar eu fiz o merge aqui com os arquivos já atualizados. Segue anexo para quem quiser, a nota fiscal já está sendo assinada, enviada, recebida só falta implementar o cancelamento. já está funcionando corretamente. Se alguém tiver interesse segue os fontes Servidor Serra.rar Servidor Serra.rar

Bom dia, Fiz algumas alterações na Unit do boleto banestes para validar o envio de Remessa via @EDI o arquivo foi validado pela gerencia do banestes. Segue o arquivo em anexo. Faltou anexar o arquivo ... ACBrBanestes.pas

Para ajudar a galera que está implementando. Eu fiz algumas boas alterações no componente, Agora está enviado para a prefeitura da serra e consultando a nota o recibo. No exemplo tive que completar as informações da nota fiscal pois o servidor no recibo não retorna a nota fiscal completa, somente algumas informações referente a mesma. Mas agora já dá pra utilizar e fiz também o fast report para a prefeitura da serra e ficou idêntico. Espero ajudar alguém, mas uma vez o acbr está de parabéns. SmarAPD Atualizado.rar

Desculpe a ignorancia, mas já olhei a barra de ferramentas 10 vezes e não achei uma forma de anexar um arquivo .rar.... achei, tinha que clicar em editor completo ... SMARAPD.rar

Boa tarde, estou trabalhando na implementação da prefeitura da serra, que usa o mesmo Web Service. Posso postar os códigos modificados para ajudar a comunidade ? A nota fiscal já está sendo enviada com sucesso, mas ainda falta implementar os outros métodos, se ajudar posso passar os fontes do acbr modificado

Bom dia, estou trabalhando com a importação do retorno do sicoob e pude notar que ao importar o retorno ele não está preenchendo as informações do cedente. Adicionei ao arquivo as seguintes linhas linha 414 ACBrBanco.ACBrBoleto.Cedente.CodigoCedente := trim(Copy(ARetorno[0],35,6)); linha 415 ACBrBanco.ACBrBoleto.Cedente.Agencia := trim(Copy(ARetorno[0],27,4)); linha 416 ACBrBanco.ACBrBoleto.Cedente.Conta := trim(Copy(ARetorno[1],25,6)); Fiz essa modificação e estou disponibilizando. Abraços

Está no horário de verão corretamente. Percebí que 1 não existe na minha resposta. estou excluindo e desinstalando todo o acbr e fazendo novamente.

- 1 SVAN_2.1.0 215 Rejeicao: Falha no Esquema XML 32 2012-11-01T10:55:00 isso que está dando no meu. Tem como você postar os seus schemas zipados para poder baixar aqui. Por que aqui está tudo atualizado.

Estou tentando aqui, até mesmo com o exemplo do acbr. Quando eu tento verificar status do serviço, já está dando erro de falha no schema XML.

Bom dia galera. Estou com um problema que está me tirando o sono. Estou tentando enviar o xml mais está dando Falha no Schema XML. Alguém pode me ajudar ? 32121104010280000170550000001285311000552390-nfe.xml

Bom dia, Segue algumas alterações que eu tive que realizar para que a cobrança não registrada funcionasse corretamente. Agradeço por ter comittado as outras alterações que eu havia feito, fico honrado em ajudar o projeto. Segue mais algumas alterações que eu havia esquecido de colocar no post anterior Código do motivo as vezes vem como vazio, dependendo da Ocorrencia. O ifthen estava assim CodMotivo := StrToInt(IfThen(copy(Linha, MotivoLinha, 2) = '00', '00', copy(Linha, MotivoLinha, 2))); ou seja se '00' então '00' ?? Alterei e funcionou, os outro iftthen após esses também foram alterados linha 492 //Andre Faria CodMotivo := StrToInt(IfThen(copy(Linha, MotivoLinha, 2) = ' ', '00', copy(Linha, MotivoLinha, 2))); linha 498 MotivoRejeicaoComando.Add(IfThen(copy(Linha, MotivoLinha, 2) = ' ', '00', copy(Linha, MotivoLinha, 2))); Linha 510 MotivoRejeicaoComando.Add(IfThen(copy(Linha, MotivoLinha, 2) = ' ', '00', copy(Linha, MotivoLinha, 2))); Linha 519 MotivoRejeicaoComando.Add(IfThen(copy(Linha, MotivoLinha, 2) = ' ', '00', copy(Linha, MotivoLinha, 2))); Essas foram as alterações que eu fiz, mas analisando a UNIT, eu notei que a parte seguinte MotivoLinha := 319; For i := 0 To 4 Do Begin //MotivoRejeicaoComando.Add(IfThen(copy(Linha,MotivoLinha,2) = '00','00',copy(Linha,MotivoLinha,2))); CodMotivo := StrToInt(IfThen(copy(Linha, MotivoLinha, 2) = ' ', '00', copy(Linha, MotivoLinha, 2))); .... ... .. Essa coluna 319 não existe em nenhum dos manuais pois no manual cobrança registrada é somente um registro de rejeição que fica na linha 302 até linha 303 Link dos arquivos Cobrança Registrada http://www.hsbc.com.br/1/2/portal/pt/pa ... registrada Cobrança não registrada http://www.hsbc.com.br/1/2/portal/pt/pa ... registrada ACBrBancoHSBC.pas

No manual da cobrança CNR (Cobrança sem Registro, você está correta), Não existem essas informações no retorno. Por isso que tive que fazer o teste, revirei o manual inteiro atras dessas informações e não as encontrei. O que existe é somente o código do cedente e as informações da conta. Espero te ajudado

Boa tarde Galera, Estou compatilhando a minha UNIT do HSBC com a importação do arquivo de retorno CNAB 400, importando corretamente cobrança registrada e não registrada. Alguns if's foram adicionados //No arquivo de CNR não retorna essas informações If Trim(Copy(ARetorno[0], 12, 15)) <> 'COBRANCA CNR' Then ACBrBanco.ACBrBoleto.DataCreditoLanc := StringToDateTimeDef(Copy(ARetorno[0], 120, 2) + '/' + Copy(ARetorno[0], 122, 2) + '/' + Copy(ARetorno[0], 124, 2), 0, 'DD/MM/YY'); If Trim(Copy(ARetorno[0], 12, 15)) <> 'COBRANCA CNR' Then Cedente.CNPJCPF := rCNPJCPF; If Trim(Copy(ARetorno[0], 12, 15)) <> 'COBRANCA CNR' Then Begin Case StrToIntDef(Copy(ARetorno[1], 2, 2), 0) Of 11: Cedente.TipoInscricao := pFisica; Else Cedente.TipoInscricao := pJuridica; End; End; If Trim(Copy(ARetorno[0], 12, 15)) <> 'COBRANCA CNR' Then SeuNumero := copy(Linha, 38, 25) else begin //Verificar se é melhor copiar com os 3 ultimos digitos que são digitos verificadores ou não Titulo.SeuNumero := copy(Linha, 38, 13) If Trim(Copy(ARetorno[0], 12, 15)) <> 'COBRANCA CNR' Then NossoNumero := Copy(Linha, 127, 11) Else Begin //Verificar se é melhor copiar com os 3 ultimos digitos que são digitos verificadores ou não NossoNumero := Copy(Linha, 63, 13); End; If Trim(Copy(ARetorno[0], 12, 15)) <> 'COBRANCA CNR' Then Begin {if StrToIntDef(Copy(Linha,111,6),0) <> 0 then DataCredito:= StringToDateTimeDef( Copy(Linha,296,2)+'/'+ Copy(Linha,298,2)+'/'+ Copy(Linha,300,2),0, 'DD/MM/YY' ); } End else Begin if StrToIntDef(Copy(Linha,83,6),0) <> 0 then DataCredito:= StringToDateTimeDef( Copy(Linha,83,2)+'/'+ Copy(Linha,85,2)+'/'+ Copy(Linha,87,2),0, 'DD/MM/YY' ); End; End; Todas essas modificações foram necessárias para a importação do CNR pelo componente. Espero ter ajudado ACBrBancoHSBC.pas

Ví a correção. ótimo. Pode fechar o tópico.

Boa tarde galera. tentei a tarde inteira enviar uma carta de correção, depois de algum tempo ví que o retorno do Webservice era primeiro que o orgão 91 não existe. na linha 281 do arquivo pcnEnvEventoNfe {Estados que utilizam a SVAN: ES, MA, PA, PI, RN} {Devem utilizar 91} if Result in [32,21,15,22,24] then Result := 91; Só que 91 não existe o correto é 90. Após esse erro me deparei com outro. G02 Código do órgão de recepção do Evento da UF diverge da solicitada Obrig. 250 Rej. Mais olhando o manual lá diz que os estados que utilizam o ambiente nacional o que é o caso do espirito santo onde eu estou diz que deve usar o 90. Usando ele não passou de jeito nenhum. Por isso resolví retirar da função o 32 que é o Meu estado. Aí sim a carta de correção passou perfeitamente e está anexada a nota fiscal. {Devem utilizar 90} if Result in [21,15,22,24] then Result := 90; SITUAÇÃO ATUAL: Autorizada Ocorrência Protocolo Data/Hora Recebimento no Amb. Nacional Autorização 432120020093440 09/07/2012 08:15:37 09/07/2012 08:15:37 Carta de Correção Eletrônica 432120023352381 06/08/2012 16:06:32 06/08/2012 16:06:33 Anexei a UNIT caso alguém tenha interesse. pcnEnvEventoNFe.pas

Obrigado amigo. Estou fazendo o download dela agora. Abraço

Valeu. Pode fechar o tópico

Boa noite galera, Eu estou implementando em meu sistema uma classe onde crio todos os titulos no acbr, gostaria de saber se ao mandar enviarEmail, se o componente irá disparar um e-mail para cada boleto na lista ou ele vai imprimir tudo em um pdf e irá anexar todos os titulos para o mesmo e-mail ? Ex. Tenho uma tela só de impressão de boletos, lá vão ficar todos os clientes que ainda não tiveram seus boletos impressos. Se eu mandar enviarEmail, tendo preenchido toda a lista com vários clientes diferentes. ele vai mandar um e-mail correspondente a um titulo para cada cliente da lista, ou ele vai gerar todos em um pdf e enviar para um e-mail só ?

Os erros são de campos não preenchidos como. ACBrBanco.ACBrBoleto.DataCreditoLanc := StringToDateTimeDef(Copy(ARetorno[1],200,2)+'/'+ Copy(ARetorno[1],202,2)+'/'+ Copy(ARetorno[1],204,2),0, 'DD/MM/YY' ); 00/00/00 Não é um valor de data válida. mais o arquivo não está retornando essa data, peguei mais 3 arquivos de retorno e nenhum tem essa data. Os outros campos como if StrToIntDef(Copy(Linha,146,6),0) <> 0 then DataCredito:= StringToDateTimeDef( Copy(Linha,146,2)+'/'+ Copy(Linha,148,2)+'/'+ Copy(Linha,150,4),0, 'DD/MM/YYYY' ); Todos são de datas que não foram preenchidas no arquivo.

Eu adicionei o rigthstr por ser um comando que roda desde o delphi 6, por questão de compatibilidade com os outros programadores que utilizam o componente e optei também por que caso venha a acontecer algum equivoco no tamanho do nosso numero ele copiará de traz para frente, pegando os numeros válidos que estão no final. ACBrBancoHSBC.pas

Boa noite, Estou usando o acbr boleto para importar um retorno 240 da caixa economica, e está dando várias erros. Agora eu não sei se é problema dos arquivos ou do componente. Estou postando alguns arquivos para que se possivel, você possam me ajudar. Desde já agradeço ret000232.txt

Boa tarde, Estou aqui para reportar que o arquivo de remessa CNAB 400 do hsbc está com problema de digitos a mais. ví que já existe um tópico falando sobre isso, mais ainda não foi corrigido. Vou postar a minha solução. acbrBancoHSBC linha 333 Antiga NossoNumero+DigitoNossoNumero + // Nosso Numero Alterado RightStr(NossoNumero+DigitoNossoNumero,11) + // Nosso Numero