[Boleto WebService Banco do Brasil]

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

[compilar vários projetos ao mesmo tempo]

53 minutos atrás, Juliomar Marchetti disse:

No caso tu não quer compilar ao mesmo tempo mas em sequência com um único comando?

eu uso o que tu fez acima mas dproj a dproj pois se tu quiser alterar a ordem já faz diretamente

 

preciso compilar todos os projeots, pq fazer um por um esta levando muito tempo, 

como vc fez @Juliomar Marchetti, poderia informar o script ?

[compilar vários projetos ao mesmo tempo]

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

 

 

[ler arquivo xml de importação]

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

[importar CT-e]

ótimo, valeu @BigWings

[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

 

 

[Campo Nosso Número Banco do Brasil]

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]);

 

[retorno nosso numero banco do brasil cnab 240]

4 horas atrás, BigWings disse:

Tente o método ACBrBoleto.Banco.MontarCampoNossoNumero.

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

[retorno nosso numero banco do brasil cnab 240]

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        

 

[homololgação de boleto on-Line BB]

eu tambem ate hoje não consegui colocar para rodar, ja criei as chaves e nada de rodar

[erro ao envio e-mail pelo gMain]

bom dia pessoal, deu certo com a dica la no grupo do telegran, era a dll que estava errada, 

[erro ao envio e-mail pelo gMain]

fiz todas as configurações e a mensagem é a mesma

[erro ao envio e-mail pelo gMain]

 

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 ?

 

 

 

 

 

[gerar arquivo santander cnab240]

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

[gerar arquivo santander cnab240]

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;

 

[gerar arquivo santander cnab240]

 

ele ja chega errado, ja deu um clear, ja baixei os componentes novamente, ja desinstalei e instalei novamente mas sempre vem errado

[gerar arquivo santander cnab240]

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

[gerar arquivo santander cnab240]

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;
 

[gerar arquivo santander cnab240]

7 minutos atrás, Juliomar Marchetti disse:

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

ainda não, talvez alguem ja passou por isso e ja tenha alterado a unit 

[gerar arquivo santander cnab240]

 

veja esse outro print, esta setado certo tcSimplesRapComReg mas ele so passa no tcSimples no primeiro registro, a partir do segundo ele passa normal

 

[gerar arquivo santander cnab240]

vejam como fica, o primeiro registro sempre passa na linha tcSimples

 

Dai os proximos registros gera normal

[gerar arquivo santander cnab240]

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;

[Santander segmento P posição 58 função DefineCaracTitulo]

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)

[homololgação de boleto on-Line BB]

Quais desses campos tenho que informar la no componente

      ACBrBoleto1.Cedente.CedenteWS.ClientID      := 'eyJpZCI6IjdhYjA3YmMtMmVjNS00MGMxIiwiY29kaWdvUHVibGljYWRvciI6MCwiY29kaWdvU29mdHdhcmUiOjExNTA1LCJzZXF1ZW5jaWFsSSW5zd0';

      ACBrBoleto1.Cedente.CedenteWS.ClientSecret  := 'eyJpZCI6ImJjMzY5ZjEtYTBlZS00MjZmLWFkODUtMzc2MjMzOCIsImNvZGlnb1B1YmxpY2Fkb3IiOjAsImNvZGlnb1NvZnR3YXJlIjoxMTUwNSwic2VxdWVuY2lhbEluc3RhbGFjYW8iOjEsInNlcXVlbmNpYWxDcmVkZW5jaWFsIjoxLCJhbWJpZW50ZSI6ImhvbW9sb2dhY2FvIiwiaWF0IjoxNjAyODgwMzI2Nzg4fQ';

      ACBrBoleto1.Cedente.CedenteWS.Scope         := 'cobranca.registro-boletos';
      ACBrBoleto1.Cedente.CedenteWS.KeyUser       := 'jd402299';
 

 

 

 

[homololgação de boleto on-Line BB]

2 horas atrás, José M. S. Junior disse:

Não, isso parece ser problema na autenticação desse cliente junto ao serviço web do banco. Para autenticar só precisa do: ClientID e ClientSecret disponibilizado e liberado pelo banco. 

vc gerou essas chaves de homologação ou produção, pq o pessoal do banco me passou o link abaixo para fazer o cadastro

https://developers-piloto.bb.com.br/#/menu/credenciais