Ir para conteúdo
  • Cadastre-se

Fernando Rodrigo

Membros
  • Total de ítens

    487
  • Registro em

  • Última visita

  • Days Won

    3

Posts postados por Fernando Rodrigo

  1. boa noite pessoal, no meu boleto vou precisar colocar uma imagem no boleto, so que essa imagem vai ser aleatório, como poderia passar essa imagem para o relatório, ja que essa imagem não tem no componente para passar direto nele.

    essa imagem vi ser diferente para cada boleto gerado, é um QrCode que gero para cada boleto, então não é fixa

    se alguém puder dar uma luz fico muito grato

     

  2. 33 minutos atrás, mlgoncalves disse:

    Olá gtvosouza, tudo bem?

    Estou iniciando a implementação da API do Banco do Brasil para geração de boletos. Tenho experiência no ACBRBoleto, mas não é por esse caminho que desejo seguir, mas sim pela API do banco. Você poderia compartilhar o que você já tem implementado para eu analisar? Também estou abrindo acesso técnico no SICOOB para implementação da API. Caso tenha interesse posso compartilhar o projeto.

    Obrigado,

    Marcelo.

    eu tenho

  3. 49 minutos atrás, EMBarbosa disse:

    A mensagem de erro é que o nome ou a extensão do arquivo é muito grande. É possível que se você reduzir os caminhos do arquivo você consiga resolver.

    mas como vou reduzir isso, pq acho que ele o path dos componentes para compilar os projetos

  4. preciso checar se o id do conhecimento de frete é valido ou não ja tentei várias formas, modulo 11,modulo 10 e nenhum bateu o digito, alguem teria a função para checar esse codigo ?

    o conhecimento de transporte é valido ja chequei no site, so que em todas as funções que olhei nenhuma bate

    35210344914992000138570010300654691300654698


     

  5. 6 minutos atrás, José M. S. Junior disse:

    Todo campo Data é numérico seguindo a documentação, se não preenchido a data e valor é informado zero nesse campo. Verifique se mudou algo no manual que eles estão utilizando ou tente mostrar a especificação do manual para eles.

    o pessoal do banco são loucos, mandei zerado conforme o acbr gera e passou normal, pode fechar o topico

  6. 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

     

    image.png.87ee3656ec2730371deb8dd3e30926d8.png

    79822406.rm2

  7. 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 ?

     

    image.thumb.png.66a06a0e27e2e301bebac399c4255d43.png

  8. 13 horas atrás, Arnaldo Cruz disse:

    Juliomar que o componente tem as propriedades eu já sei, porem a minha duvida é quanto ao preenchimento da propriedade KeyUser,

    se preenche com o developer_application_key  ou Basic

    Arnaldo tambem estou querendo implementar esse tipo de boleto no meu sistema, podemos fazer juntos isso

  9. 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()

     

    image.thumb.png.c849d37340b02d5259a8b07c3f275485.png

     

  10. 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

  11. 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

     

     

  12. 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        

     

    image.png.343666531d1a7717fc327f59760c4ab0.png

  13.  

    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 ?

     

     

    image.thumb.png.5b01eb74a9d2de0280dc0db233a6608b.png

     

    image.png.e66ceff110cff9c3f605e50a66ad2c72.png

     

     

  14. 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;

     

    image.thumb.png.42c4195620746239fce576d8a39f5e67.png

  15. 4 horas atrás, FGGLUIZ disse:

    Estamos rodando normalmente e homologuei na semana passada mais um cliente com o Santander e sem problemas. Estou com a última atualização (ACBr).

    Dê uma olhada no seu código e vá debugando no ACBrBancoSantander na linha que faz a criação, talvez seja alguma informação que não esteja sendo passada no Componente. Desta forma irá conseguir ver o que está acontecendo.

    Não sei se você faz isso, porém, uma dica, dê um Clear antes de gerar a Remessa. Aqui eu faço isso, quem sabe? Pergunto, pois como sempre é no primeiro, pode ser que...

    Retorne aqui.

    Abração e até mais.

    Fábio Gabriel

    ja faço dessa forma, mas continua o mesmo problema

  16. 16 horas atrás, Juliomar Marchetti disse:

    Certo chegou a conseguir alterar algo no ACBr para resolver o problema?

    mesmo jeito fazendo a alteração 

     

                                                                    ACBrBoleto.Cedente.CaracTitulo  := tcSimplesRapComReg; // Simples com Registro
                                                                    ACBrBoleto.Cedente.TipoCarteira := tctRegistrada;
     

    remessa.png

×
×
  • 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.