Ir para conteúdo
  • Cadastre-se

Fernando Rodrigo

Membros
  • Total de ítens

    482
  • Registro em

  • Última visita

  • Days Won

    3

Tudo que Fernando Rodrigo postou

  1. o problema do nosso numero foi resolvido, estava gerando com 4 digitos e tem que ser 5 mesmo que seja com zero no inicio so que o gerente disse que deu outro problema depois disso, tem o campo data do desconto tem que ir em branco, so que ja fiz de tudo e não vai em branco de forma alguma então coloquei a data do desconto como data de vencimento, mas tambem foi zerado do mesmo jeito passei o campo dessa forma DataDesconto := Cds_PesquisaDATA_VENCIMENTO.AsDateTime; ValorDesconto := 0; mesmo assim na remessa foi zerado 79822406.rm2
  2. Fernando Rodrigo

    Banco Sicred

    estou fazendo a implementação do Banco Sicred em meus clientes e o pessoal do suporte do banco esta me retornando que existe erro no calculo do digito verificador O Nosso numero que foi passado para o acbr foi 36048 e conforme layout abaixo ele preenche o restante com o o ano, ficando o nosso numero 21236048, no acbr esta gerando o digito 0, so que o banco esta dizendo que o digito deveria ser 6, segue abaixo o arquivo de remessa 7480001300001P 0100914 0000000798223 21236048000000000000111220000123456-01 21 - ano atual 2 a 9 - byte de geração "somente será "1" se forem boletos pré-impressos". xxxxx - número sequencial D - dígito verificador calculado ou seja, a nomenclatura correta é: 182xxxxxD Alguem ja passou por esse problema ? ou ja fez a correção ?
  3. Arnaldo tambem estou querendo implementar esse tipo de boleto no meu sistema, podemos fazer juntos isso
  4. preciso compilar todos os projeots, pq fazer um por um esta levando muito tempo, como vc fez @Juliomar Marchetti, poderia informar o script ?
  5. boa tarde pessoal, no meu sistema dividi ele em vários projetos (dpr), tenho uns 10 projetos, so que quando preciso gerar um instalador pra enviar para meu cliente tenho que compilar projeto por projeto e isso esta levando bastante tempo, pq tenho que abrir projeto por projeto. para resolver isso criei um group de projeto e coloquei todos os meus dpr ele, so que quando vc pede para dar um build o delphi nao consegue processar todos os dpr, e vai te travar o delphi não conseguindo compilar todos eles. depois disso pesquisando na internet achei uma maneira via msbuild de compilar o group inteiro, so que estava funcionando e agora não roda mais, da um erro de tamanho de arquivo. veja o arquivo bat para compilar meu group de projetos e o print do erro. Guara.groupproj é o nome do meu grupo de projetos Se alguem tiver uma ideia de como resolver isso vai me ajudar bastante ou outra maneira de compilar todos os projetos ao mesmo tempo set path=%path%;C:\Windows\Microsoft.NET\Framework\v3.5 set path=%path%;c:\Program Files (x86)\Embarcadero\RAD Studio\7.0 set path=%path%;c:\Documents and Settings\All Users\Documents\RAD Studio\7.0 set BDS=c:\Program Files (x86)\Embarcadero\RAD Studio\7.0 set FrameworkDir=c:\Windows\Microsoft.NET\Framework\v3.5 set FrameworkVersion=v3.5 set LANGDIR=EN msbuild /version CD D:\Desenvolvimento\ProjetosDelphi\Guara\ msbuild Guara.groupproj /consoleloggerparameters:ErrorsOnly /target:build /p:DCC_BuildAllUnits=True /p:config=Release pause()
  6. recebi um xml do agente aduaneiro para fazer a importação do xml para dar entrada no meu sistema. tentei fazer a importação pelo acbr so que não deu, apesar dos campos serem iguais as da nota fiscal. então estou fazendo na mão a importação do xml so que os primeiros dados estou conseguindo ler normal so que a parte da DI eu não consegui fazer a leitura. Favor anexar arquivoe não colar trecho de códigos NE000001.xml
  7. Fernando Rodrigo

    importar CT-e

    estou precisando importar alguns CT-e par meu sistema e ja faço isso com nota fiscal usando a função ACBrNFe1.NotasFiscais.LoadFromFile(OpenDialog1.FileName); No CT-e existe essa mesma função igual da nota fiscal ? Fico grato
  8. bom dia a todos, tambem estou precisando pegar o nosso numero no arquivo de retorno, so que não esta funcionando, vem com zero var_nossoNumero := ACBrBoleto1.Banco.MontarCampoNossoNumero(ACBrBoleto1.ListadeBoletos[i]);
  9. fiz isso mas não deu certo, vou anexar o arquivo de retorna para ver estou usando dessa forma var_nossoNumero := ACBrBoleto1.Banco.MontarCampoNossoNumero(ACBrBoleto1.ListadeBoletos[i]); IEDCBR4516503202113708.ret
  10. pessoal, estou fazendo o retorno para o banco do brasil no cnab 240 preciso pegar o nosso numero por completo, so que esta vindo somente uma parte dele e sem o digito conforme abaixo 0010001300001T 020184060000001074482 142481121570 70000056539-03 quando é retornado so vem o valor 12157 e sem o digito existe alguma forma de pegar o nosso numero por completo ? que seria o codigo do convenio + o nosso numero + digito que ficaria 142481121570
  11. eu tambem ate hoje não consegui colocar para rodar, ja criei as chaves e nada de rodar
  12. bom dia pessoal, deu certo com a dica la no grupo do telegran, era a dll que estava errada,
  13. fiz todas as configurações e a mensagem é a mesma
  14. Estou usando o DEMO em um cliente so que na minha maquina envia o e-mail normal, mas na maquina do cliente não envia de forma alguma. Ja foi no gmain e coloquei as opções de software menos seguros, ja copiei as dll para a mesma pasta e não consigo enviar de forma alguma, sempre aparece a mensagem abaixo O estranho que na minha maquina roda normal, so no cliente que não. Ja foi no firewall para ver se tem algo bloqueando e nada Alguem ja recebeu essa mensagem ?
  15. problema resolvido com a ajuda do @FGGLUIZ, estranho pq se eu informar os dados do cedente no final da geração do arquivo ele da esse erro, se informar no inicio gera certo os arquivos muito obrigado pelo ajuda @FGGLUIZ
  16. estranho no demo tambem ocorre o mesmo problema procedure TfrmDemo.Button5Click(Sender: TObject); var I: Integer; NrTitulos: Integer; NrTitulosStr: String; Convertido: Boolean; begin NrTitulos := 10; NrTitulosStr := '10'; Convertido := true; ACBrBoleto1.Cedente.FantasiaCedente := 'Nome Fantasia do Cliente'; repeat InputQuery('ACBrBoleto','Número de Boletos a incluir',NrTitulosStr); try NrTitulos := StrToInt(NrTitulosStr); except Convertido:= false; end; until Convertido; for I := 1 to NrTitulos do begin With ACBrBoleto1.CriarTituloNaLista do begin With ACBrBoleto1.Cedente do begin {Dados do cedente - Loja} CodigoTransmissao := '11'; TipoInscricao := pJuridica; {CNPJ} CNPJCPF := '34954837000191'; Nome :='RMP AUTO PECAS LTDA'; CodigoCedente := '55395'; Convenio := '3210690'; Modalidade := '19'; // Variação Carteira := '17'; Logradouro :='AV. CONSOLACAO N 835'; NumeroRes := ''; Complemento := ''; Bairro := 'CIDADE JARDIM'; Cidade := 'GOIANIA'; UF := 'GO'; CEP := '74425535'; Agencia :='1840'; AgenciaDigito := '6'; Conta :='64516'; ContaDigito := '8'; ResponEmissao := tbCliEmite; TipoCarteira := tctRegistrada; TipoCarteira := tctRegistrada; CaracTitulo := tcSimplesRapComReg; end; LocalPagamento := 'Pagar em qualquer banco'; //MEnsagem exigida pelo bradesco Vencimento := IncMonth(EncodeDate(2020,12,10),I); DataDocumento := EncodeDate(2020,10,15); NumeroDocumento := PadRight(IntToStr(I),8,'0'); EspecieDoc := '2'; Aceite := atSim; DataProcessamento := Now; NossoNumero := IntToStrZero(I,8); SeuNumero := IntToStrZero(I,8); ACBrBoleto1.Banco.TamanhoMaximoNossoNum := Length(NossoNumero); ValorDocumento := 100.35 * (I+0.5); Sacado.NomeSacado := 'FERNANDO RODRIGO DE JESUS'; Sacado.CNPJCPF := '47854871191'; Sacado.Logradouro := 'AV. PIO XII'; Sacado.Numero := '618'; Sacado.Bairro := 'CIDADE JARDIM'; Sacado.Cidade := 'GOIANIA'; Sacado.UF := 'GO'; Sacado.CEP := '74425010'; ValorAbatimento := 10; ValorMoraJuros := 0.05; DataAbatimento := Vencimento-5; Instrucao1 := '00'; Instrucao2 := '00'; with ACBrBoleto1.Banco do begin TipoCobranca := cobSantander; Carteira := '17'; end; end; end; end;
  17. ele ja chega errado, ja deu um clear, ja baixei os componentes novamente, ja desinstalei e instalei novamente mas sempre vem errado
  18. ja faço dessa forma, mas continua o mesmo problema
  19. mesmo jeito fazendo a alteração ACBrBoleto.Cedente.CaracTitulo := tcSimplesRapComReg; // Simples com Registro ACBrBoleto.Cedente.TipoCarteira := tctRegistrada;
  20. ainda não, talvez alguem ja passou por isso e ja tenha alterado a unit
  21. veja esse outro print, esta setado certo tcSimplesRapComReg mas ele so passa no tcSimples no primeiro registro, a partir do segundo ele passa normal
  22. vejam como fica, o primeiro registro sempre passa na linha tcSimples Dai os proximos registros gera normal
  23. estou homologando cnab 240 do santander com carteira simples tenho 5 títulos para enviar, com cobrança simples (Rápida com registro), conforme layout abaixo Nota 5: TIPO DE COBRANÇA REMESSA: '1' = Cobrança Simples (Sem Registro e Eletrônica com Registro) '3' = Cobrança Caucionada (Eletrônica com Registro e Convencional com Registro) ‘4’ = Cobrança Descontada (Eletrônica com Registro) '5' = Cobrança Simples (Rápida com Registro) ‘6’ = Cobrança Caucionada (Rápida com Registro) Estou configurando da seguinte forma os títulos ACBrBoleto.Cedente.CaracTitulo := tcSimplesRapComReg; Todos os 5 títulos estão passando na rotina normal, so que na unit (ACBrBancoSantander.pas) para validar o tipo de cobrança, o primeiro título sempre entra como tcSimples, sendo que passei padrão como tcSimplesRapComReg, o restante dos títulos vai como tcSimplesRapComReg function TACBrBancoSantander.DefineCaracTitulo(const ACBrTitulo: TACBrTitulo): String; begin with ACBrTitulo do begin case CaracTitulo of tcSimples : Result := '1'; {Cobrança Simples (Sem Registro e Eletrônica com Registro)} tcCaucionada : Result := '3'; {Cobrança Caucionada (Eletrônica com Registro e Convencional com Registro)} tcDescontada : Result := '4'; {Cobrança Descontada (Eletrônica com Registro)} tcVinculada, tcDireta, tcSimplesRapComReg : Result := '5'; {Cobrança Simples (Rápida com Registro)} tcCaucionadaRapComReg: Result := '6'; {Cobrança Caucionada (Rápida com Registro)} { TODO : 8 = Cobranca Cessao (Eletronica com Registro) } else Result := '1'; end; end; end;
  24. bom dia, como irei informar o codigo 5 A opção ACBrBoleto.Cedente.TipoCarteira := tcSimplesRapComReg; não tem no componente, ja atualizei e compilei tudo novamente e da erro [Error] Gera_Arquivo_Banco.pas(1742): E2010 Incompatible types: 'TACBrTipoCarteira' and 'TACBrCaracTitulo' Nota 5: TIPO DE COBRANÇA REMESSA: '1' = Cobrança Simples (Sem Registro e Eletrônica com Registro) '3' = Cobrança Caucionada (Eletrônica com Registro e Convencional com Registro) „4‟ = Cobrança Descontada (Eletrônica com Registro) '5' = Cobrança Simples (Rápida com Registro) „6‟ = Cobrança Caucionada (Rápida com Registro)
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.