Ir para conteúdo
  • Cadastre-se
Seja bem-vindo
Regras e orientações da nossa comunidade Participe do Discord do ACBr

xyberx

Membros
 Perfil  Explorar Conteúdo

  • Total de ítens

    341

  • Registro em

  • Última visita

  • Days Won

    3

 Tipo de Conteúdo 

Posts postados por xyberx

    Boleto Itau Layout Desatualizado

    em ACBrBoleto

    Postado · Editado por xyberx

    Boa tarde.

     

     

     

    Conforme citado por você em tópico anterior não foram solicitados mais retornos para dar andamento a análise do problema, pois você parou de utilizar o componente.

     

    Att.

     

     Bom como eu realmente não estou usando não ligo muito para isso até porque o problema nesse caso não é meu e sim de todos os que usam o ACBrBoleto, mais como você disse, se somente eu perguntei, esquece pois não ligo a mínima para o tal componente...De certa forma é até melhor pois gosto de utilizar coisas com qualidade como os outros componentes que uso, são poucos mais com qualidade, esse eu mesmo preferi mudar por esse motivo e se o patrão não tivesse perguntado pela possibilidade de usar um gratuito e requerido tal, eu também não questionaria o mesmo...

     Fazer de certa forma é melhor, pois o controle do mesmo é seu com seus códigos e a manutenção se torna mais eficiente.

    Boleto Itau Layout Desatualizado

    em ACBrBoleto

    Postado

     Segue a correspondência do Banco. Detalhe que qndo usamos isso, o Layout do relatório mesmo que atualizado pelo SVN ainda estava com as nomenclaturas velhas.

     Concelho...

     Não utilizar vários geradores de relatório, ainda mais qndo não se é dado manutenção em todos, pois gera esses probs. o Meu mesmo eu tive que alterar todas as nomenclaturas pois o banco questionou na hora, hj como disse uso o CobreBemX que não preciso mais esquentar com isso mais segue conforme o combinado.

    Boleto Itau Layout Desatualizado

    em ACBrBoleto

    Postado

           CORRESPONDÊNCIA INTERNA           Ref.:  BLQ03535/2015        Data:  31/03/2015

    Remetente:

    Equipe de Implantação Cash – SP Telefones: 

    (11)  2797-1920

    Destinatário:  Agência 9363

    A/C:              Gerência

    Cópias:

     

     

        Assunto:    ANÁLISE EM BLOQUETO DE COBRANÇA            Nosso número:  XXXXXXXXXX

        Empresa:  XXXXXXXXXXXXXXXXXXXXX            Conta:  XXXXXXXXXXXXXX

     

       

    Cálculo de DAC e fator de vencimento

    Valor do bloqueto

    Valor calculado

    DAC do campo “Nosso número”

    1

    5

    DAC do campo “Agência/Código Beneficiário” 

    4

    4

    Fator de vencimento informado na linha digitável

    6421

    6421

     

     

    ü      As demais características do bloqueto não apresentaram qualquer irregularidade;

     

     

     

     

     

     

    ü            A leitura do código de barras não apresentou problema, porém, a composição numérica está irregular:

    ý            Valor lido no bloqueto: 34199642100018102031090000000919363130684400

    ý            Valor calculado:          34195642100018102031090000000959363130684000

     

    ü            A composição da representação numérica, linha digitável da ficha de compensação está irregular:

    ý            Valor do bloqueto: 34191.09008 00000.919365 31306.844007 9 64210001810203

    ý            Valor calculado:    34191.09008 00000.959361 31306.840005 5 64210001810203

     

    Notas:

    1.            A Lei Federal nº 12.039, que já está em vigor, exige a inclusão do endereço, da razão social e do CNPJ/CPF do beneficiário ou sacador Avalista* em todos os boletos de cobrança, no recibo do pagador, com o intuito de identificar o prestador do serviço/produto (emitente da nota) e facilitar o contato do pagador com o emissor, quando necessário;

     

    2.            Beneficiário com Emissão Própria**: O cliente deve adequar seu boleto para incluir as informações de endereço, razão social e CNPJ/CPF do beneficiário ou  Sacador/Avalista  dentro do Recibo do Pagador;

     

    3.           Para cálculo do DAC dos campos “Agência/Conta” e “Nosso número” foi utilizado o módulo 10;

     

    4.           A análise do bloqueto foi feita conforme normas da Carta circular do Banco Central do Brasil.

     

    5.           Conforme determinado pelo Banco Central do Brasil, por meio das circulares 3.598 e 3.656,  em vigor a partir de 28/06/2013, Deve ser utilizadas às Novas Nomenclaturas nos boletos: Beneficiário: antigo Cedente, Pagador: antigo Sacado  Agencia\Codigo do Cedente:  Agencia\Codigo do Beneficiário:,  fica proibido boletos sem valor  e  sem vencimento,  ou com  as informações “Vencimento à vista” e “Contra apresentação”.

     

     

    Boleto Itau Layout Desatualizado

    em ACBrBoleto

    Postado

    Boa tarde.

     

    Favor reportar exatamente qual o problema está ocorrendo, este tópico discutiu vários assuntos diferentes, inclusive a última pergunta foi se o componente está funcionando, a resposta é sim para os layouts existentes atualmente.

     

    Att.

     

     O Banco disse que o código de barras gerado está errado aí não está validando, como tive vários probs com o ACBr boleto estou parando de usar o mesmo e pagando o CobreBemX, não que tenha problemas com outros componentes mais o Boleto não sofre muitas atualizações e no caso de Boletos o cliente quem paga a licença do CobreBemX mesmo, sempre atualizado e não dá tantos probs, teve um outro post que fiz do Boleto que demorou pra caramba também, resolvi mudar, como disse, nada contra os outros componentes mais o Boleto e o 3º ou 4º problema chato que tive aí desisti, só postei sobre o assunto pq tem gente que ainda usa, para ajudar estou dando um feed back sobre o mesmo.

    NF-e não consta na base de dados da SEFAZ

    em ACBrNFe

    Postado

    Estou com um problema similar também.

     

    Meu cliente de BA faz o envio, a nota fica como autorizada no sefaz, consigo consultar ela no site usando a chave gerada.

     

    Mas no retorno e na consulta pelo sistema não me volta ela.

     

    Será problema do sefaz?

     

     Bom, no meu caso eu resolvi assim....

     

        ResultTranmiteLote := ACBrNFe1.Enviar(IDLote, False);

        If ResultTranmiteLote Then
         Begin
          ResultTranmiteLote := ACBrNFe1.WebServices.Retorno.cStat in [100..104];
          If ResultTranmiteLote Then
           ResultTranmiteLote := ACBrNFe1.Consultar;
         End;
        If ResultTranmiteLote Then
         Begin
          //Aqui eu coloco o resto do código se foi realmente...
         End;
     
    Com isso já testei em uns clientes aqui que estavam com o problema e até o momento, parece que funcionou...

    Baixar Xml

    em ACBrNFe

    Postado

    Pessoal desculpa em me meter no assunto mas acho que a solução de baixar xmls e uma necessidade porque estava a muto tempo utilizando e agora não  aparece mais o capcha, tenho certificado em minha maquina intalado e não baixa mesmo, alguem sabe porque?  

     

     Se ainda precisar disso, entra em contato comigo, a minha solução funfa 100% com ajustes contábeis e tudo, atendo a escritórios de contabilidade, vários...

     Baixo tudo na boa e importo para o sistema tranquilo também, gero o XML de forma que o ACBr entenda como uma NFe, aí vc trabalha com a minha solução e o ACBr...

    Problema No Arquivo De Remessa Do Bradesco

    em ACBrBoleto

    Postado

    Bom Dia,

    Verifica se você não está passando o código do cedente no convenio por que esse código da empresa que bradesco passa deve ser informado no campo codigo cedente no componente.

     

    Att

     São campos separados e estão ok, os boletos estão OK, só a geração de remessa que tá dando isso....

    Problema No Arquivo De Remessa Do Bradesco

    em ACBrBoleto

    Postado

    Boa Tarde,

     

    Cade a rotina de configurar o componente como dados do banco e cedente.

     

    Att.

     //Carrega dados para o componente ACBRBoleto
     ACBrBoleto.Banco.TipoCobranca    := TipoCobranca(qryBancoTIPO_COBRANCA.AsString);
     ACBrBoleto.Banco.OrientacoesBanco.Text := qryBancoORIENTACOES_BANCO.AsString;
    // ACBrBoleto.Banco.TamanhoMaximoNossoNum := ACBrBoleto.Banco.BancoClass.TamanhoMaximoNossoNum;
     ACBrBoleto.Cedente.Nome:= qryCedenteNOME.AsString;
     ACBrBoleto.Cedente.CodigoCedente := qryBancoCOD_CEDENTE.AsString;
     //ACBrBoleto.Cedente.CodigoTransmissao:=
     ACBrBoleto.Cedente.Agencia       := qryBancoCOD_AGENCIA.AsString;
     ACBrBoleto.Cedente.AgenciaDigito := qryBancoAG_DIGITO.AsString;
     ACBrBoleto.Cedente.Conta         := qryBancoNUMERO_CONTA.AsString;
     ACBrBoleto.Cedente.ContaDigito   := qryBancoCONTA_DIGITO.AsString;
     //ACBrBoleto.Cedente.Modalidade   :=
     ACBrBoleto.Cedente.Convenio      := qryBancoCONVENIO.AsString;
     ACBrBoleto.Cedente.ResponEmissao := ResponEmissao(qryBancoRESPON_EMISSAO.AsString);
     ACBrBoleto.Cedente.CaracTitulo   := CaracteristicaTitulo(qryBancoCARACT_TITULO.AsString);
     ACBrBoleto.Cedente.CNPJCPF       := DM.MascaraCNPJCPF(DM.DesmascaraCNPJCPF(qryCedenteCPFCGC.AsString), True);
     ACBrBoleto.Cedente.TipoInscricao := pJuridica;
     ACBrBoleto.Cedente.Logradouro    := qryCedenteNOMERUA.AsString;
     ACBrBoleto.Cedente.NumeroRes     := qryCedenteNUMRUA.AsString;
     ACBrBoleto.Cedente.Complemento   := qryCedenteCOMPLEMENTO.AsString;
     ACBrBoleto.Cedente.Bairro        := qryCedenteBAIRRO.AsString;
     ACBrBoleto.Cedente.Cidade        := qryCedenteCIDADE.AsString;
     ACBrBoleto.Cedente.UF            := qryCedenteID_UF.AsString;
     ACBrBoleto.Cedente.CEP           := qryCedenteCEP.AsString;
     //XyberX, alterado para início de Sistema
    //  ACBrBoleto.DirArqRemessa         := qryBancoDIRETORIO.AsString; //ExtractFilePath(dsave.FileName);
     ACBrBoleto.DirArqRemessa         := qryBancoPATH_REMESSA.AsString; //ExtractFilePath(dsave.FileName);
     ACBrBoleto.DirArqRetorno         := qryBancoPATH_RETORNO.AsString; //ExtractFilePath(dsave.FileName);
     ACBrBoleto.NomeArqRetorno        := Format('rem_%s.rem', [stringReplace(StringReplace(StringReplace(FormatDateTime('dd/mm/yyyy hh:mm:ss', DataRemessa), ':', '', [rfReplaceAll, rfIgnoreCase]),
                                                                                                                                             '/', '', [rfReplaceAll, rfIgnoreCase]),
                                                                                                                                             ' ', '_', [rfReplaceAll, rfIgnoreCase])]);
     ACBrBoleto.NomeArqRemessa        := ACBrBoleto.NomeArqRetorno;
     ACBrBoleto.DataArquivo           := DataRemessa;
     ACBrBoleto.LayoutRemessa         := LayOutRemessa(qryBancoLAYOUT_BOLETOS.AsString);
     ACBrBoletoFCFortes.DirLogo       := qryBancoPATH_LOGOTIPO.AsString;

    Problema No Arquivo De Remessa Do Bradesco

    em ACBrBoleto

    Postado

    Boa Noite,

     

    Posta a Rotina sua ...

     

    Att..

     

     Segue

     

     

           If cbCobNativa.Checked Then
            Titulo:= ACBrBoleto.CriarTituloNaLista;
           With Titulo do
            Begin
             //----------------------------------
             qrySacado.Close;
             qrySacado.ParamByName('id').AsInteger := cdsDuplID_CLIENTE.AsInteger;
             qrySacado.Open;
             //----------------------------------
             If cbCobNativa.Checked Then
              Begin
               Vencimento        := cdsDuplVENCIMENTO.AsDateTime;
               DataDocumento     := cdsDuplEMISSAO.AsDateTime;
               NumeroDocumento   := cdsDuplDUPLICATA.AsString;
               //EspecieDoc        := 'DM';
               Aceite            := atNao;
               DataProcessamento := DataRemessa;
               If cdsDuplGENERATOR.AsInteger > 0 Then
                Generator       := cdsDuplGENERATOR.AsInteger
               Else
                Begin
                 Generator     := GeneratorNossoNumero;
                 AtualizaGeneratorDupl(cdsDuplID.AsInteger, Generator);
                End;
               //Codigo da Duplicata
               cdsDupl.Edit;
               cdsDuplGENERATOR.AsInteger := Generator;
               cdsDupl.Post;
               //Carteira do Cliente
               Carteira          := qryBancoCOD_CARTEIRA.AsString;
               //Nosso Numero deve ser gerado após a Carteira do Cliente
               NossoNumero      := IntToStr(Generator);//IntToStrZero(Generator, ACBrBoleto.Banco.TamanhoMaximoNossoNum);
               ValorDocumento    := cdsDuplVALOR.AsFloat;
               Sacado.NomeSacado := qrySacadoNOME.AsString;
               Sacado.CNPJCPF    := OnlyNumber(qrySacadoCPFCGC.AsString);
               Sacado.Logradouro := qrySacadoNOMERUA.AsString;
               Sacado.Numero     := qrySacadoNUMRUA.AsString;
               Sacado.Bairro     := qrySacadoBAIRRO.AsString;
               Sacado.Cidade     := qrySacadoNOME_MUNI_SEM_ACENTO.AsString;
               Sacado.UF         := qrySacadoID_UF.AsString;
               Sacado.CEP        := qrySacadoCEP.AsString;
               EspecieDoc        := qryBancoESPECIE_TITULO.AsString;
               EspecieMod        := qryBancoESPECIE.AsString;
               //Local de Pagamento
               LocalPagamento    := qryBancoLOCALPAGAMENTO.AsString;
               If qrySacadoPFPJ.AsString = 'J' Then
                Sacado.Pessoa := pJuridica
               Else If qrySacadoPFPJ.AsString = 'F' Then
                Sacado.Pessoa := pFisica
               Else
                Sacado.Pessoa := pOutras;
               If qryBancoNAO_COBRAR_MULTA.AsString = 'S' Then
                Begin
                 //Valores Diversos
                 ValorMoraJuros    := StrToCurrDef('0.00', 0);
                 ValorDesconto     := StrToCurrDef('0.00', 0);
                 ValorAbatimento   := StrToCurrDef('0.00', 0);
                 PercentualMulta   := StrToCurrDef('0.00', 0);
                 //Datas diversas
                 DataMoraJuros     := StrToDateDef('0.00', 0);
                 DataDesconto      := StrToDateDef('0.00', 0);
                 DataAbatimento    := StrToDateDef('0.00', 0);
                End
               Else
                Begin
                 If qryBancoJUROS_DIA.AsFloat > 0 Then
                  Begin
                   ValorMoraJuros    := StrToCurrDef('0.00', ValorPerc(ValorDocumento, qryBancoJUROS_DIA.AsFloat));
                   DataMoraJuros     := Vencimento;
                  End
                 Else
                  Begin
                   ValorMoraJuros    := StrToCurrDef('0.00', 0);
                   DataMoraJuros     := StrToDateDef('0.00', 0);
                  End;
                 If qryBancoPERC_DESC.AsFloat > 0 Then
                  Begin
                   ValorDesconto     := StrToCurrDef('0.00', ValorPerc(ValorDocumento, qryBancoPERC_DESC.AsFloat));
                   DataDesconto      := Vencimento;
                  End
                 Else
                  Begin
                   ValorDesconto     := StrToCurrDef('0.00', 0);
                   DataDesconto      := StrToDateDef('0.00', 0);
                  End;
                 If qryBancoPERC_ABATIMENTO.AsFloat > 0 Then
                  Begin
                   ValorAbatimento   := StrToCurrDef('0.00', ValorPerc(ValorDocumento, qryBancoPERC_ABATIMENTO.AsFloat));
                   DataAbatimento    := Vencimento;
                  End
                 Else
                  Begin
                   ValorAbatimento   := StrToCurrDef('0.00', 0);
                   DataAbatimento    := StrToDateDef('0.00', 0);
                  End;
                 If qryBancoVALOR_MULTA_ATRASO.AsFloat > 0 Then
                  PercentualMulta   := qryBancoVALOR_MULTA_ATRASO.AsFloat
                 else
                  PercentualMulta   := StrToCurrDef('0.00', 0);
                 //Datas diversas
                End;
               DataProtesto      := StrToDateDef('0.00', 0);
               //Menssagem pré cadastrada para o sistema
               Mensagem.Text     := qryBancoOBSERVACAO.AsString;
               OcorrenciaOriginal.Tipo := toRemessaRegistrar;
               Instrucao1        := '00';
               Instrucao2        := '00';

    Problema No Arquivo De Remessa Do Bradesco

    em ACBrBoleto

    Postado · Editado por xyberx

    Bom dia,

     

    Entre em contato com Bradesco, no suporte 3003 - 1000 para capital,  ai você  pega o código da empresa, esse código da empresa no componente você informa no acbrboleto.cedente.codigocedente  ai vai da certo.

    Sobre o CPF você faz essa verificação na geração do boleto, ai vai dar certo.

     

    if FBDDadosSacadoTIPO.AsString = 'J' then
        Sacado.Pessoa := pJuridica
     else if FBDDadosSacadoTIPO.AsString = 'F' then
        Sacado.Pessoa := pFisica
     else

        Sacado.Pessoa := pOutras;

     

    Qualquer duvida estamos ai pois eu uso bradesco aqui  com registro está homologado ... e funcionando 100%

     

    Att. 

    esse eu estou passando

     ACBrBoleto.Cedente.CodigoCedente := qryBancoCOD_CEDENTE.AsString;
    porém na posição citada ele está aparecendo no lugar do que era para aparecer 027 a 046 = gravar "Número do Convênio" está aparecendo o código do cedente.
     O código acima que eu não tinha colocado, agora coloquei, vou testar...mais o erro que citei 027 a 046 não sei se isso irá influenciar em algo.

    Problema No Arquivo De Remessa Do Bradesco

    em ACBrBoleto

    Postado

     Estamos com o ACBrBoleto atualizado, mandamos um arquivo de remessa para o Bradesco e eles nos responderam que :

     

     

    Srs.

    Abaixo análise do arquivo rem_21012015_165132.rem

     

    Header

    posição 027 a 046 = gravar "Número do Convênio" completando o campo com zeros a esquerda

     

    DETALHE TIPO1

    posição 066 a 066 = gravar 2 caso a empresa deseje registrar a cobrança de multa, do contrário gravar Zero

    posição 067 a 070 = gravar o percentual de multa, do contrário gravar Zeros. Ex.: 2% grava-se 0200

     

    posição 219 a 220 = gravar 01 quando a inscrição do sacado for CPF, gravar 02 quando a inscrição do sacado for CNPJ

     

    Trailler

    Ok

     

    Porém os campos estão preenchidos corretamente EX :  

    ACBrBoleto.Cedente.Conta         := qryBancoNUMERO_CONTA.AsString;

     ACBrBoleto.Cedente.ContaDigito   := qryBancoCONTA_DIGITO.AsString;
     ACBrBoleto.Cedente.Convenio      := qryBancoCONVENIO.AsString;
     
    Reparei que o número que está saindo na posição 027 a 046 é o Código do Cedente. Alguém poderia dar uma olhada nisso pra agente por favor ???
     
     VLW.

    Problemas No Cte.

    em ACBrCTe

    Postado

     Somente para agradecer ao ACBr e aos Admins que dão atenção a todos, VLW, emiti as 2as primeiras CT-e's, por enquanto, totalmente funcional...

     VLW ACBr, VLW a todos que estão nos dando aquele suporte legal...SHOW...

    Problemas No Cte.

    em ACBrCTe

    Postado

     Informo sim, só olhar no XML que informo sim em vários lugares até....

     Achei o prob, é que o código de países segue outra codificação, tem uma tabela de países com 4 digitos, eu usei o código de discagem do Brasil que era 55, porém é 1058 o código aceito, por isso que vinha EX e CNPJ 00000000000000.

     Vlw pela ajuda, consegui passar disso, agora estou vendo um certificado pois tentei com o certificado de testes que uso mais ele não é cadastrado, dá esse erro...

     VLW Italo....

    Problemas No Cte.

    em ACBrCTe

    Postado

     

     Comecei o desenvolvimento do CTe para a empresa onde trabalho e recebi uma mensagem de erro ao tentar enviar o mesmo, o erro era que os campos do XML cMunEnv tinha um número inválido e os xMunEnv e UFEnv estavam em branco, porém os mesmos estão sendo alimentados corretamente, depurei e verifiquei que continham dados mais no XML eles ficam errados.

     No emitente estou colocando os mesmos dados que acima estão errados e na TAG emitente eles aparecem normalmente.

     Em anexo estão as informações que utilizei para teste, o XML anexo contém os dados que falei sobre o defeito o mesmo está apresentando problemas para sua transmissão...

     

     https://www.dropbox.com/s/mweea1ilfnb8h1o/32150113617404000170570010000050011000544157-cte.rar?dl=0

     

     Se alguém puder dar uma olhada urgente, estamos aí para testar novamente se for o caso. Se eu estiver errado em algo, somente me corrigirem.

     

     Os códigos abaixo é como estão sendo gerados os valores.

     

        // Origem da Prestação
        Ide.cMunIni    := StrToIntDef(Format('%2.2d', [DM.LeituraUFIBGE(qryLojaCTeID_UF.AsString)]) +
                                      Format('%5.5d', [qryLojaCTeID_MUNICIPIO.AsInteger]), 0); // CodCidadeColeta;
        Ide.xMunIni    := qryLojaCTeCIDADE.AsString;// NomeCidadeColeta;
        Ide.UFIni      := qryLojaCTeID_UF.AsString; // EstadoColeta;
     
        // Destino da Prestação
        CliFornResult(vIBQuery.FindField('ID_CLIENTE_DEST').AsInteger);
        Ide.cMunFim    := StrToIntDef(Format('%2.2d', [DM.LeituraUFIBGE(qryCliForResultID_UF.AsString)]) +
                                      Format('%5.5d', [qryCliForResultID_MUNICIPIO.AsInteger]),0); // CodCidadeEntrega;
        Ide.xMunFim    := LeituraMunicipio(qryCliForResultID_MUNICIPIO.AsInteger, Trim(qryCliForResultID_UF.AsString)); //CidadeEntrega;
        Ide.UFFim      := qryCliForResultID_UF.AsString; //EstadoEntrega;

     

     

     Conferindo o XML achei várias outras TAGs que passo valores mais no XML estão totalmente erradas, tipo :

     Olhem no XML e observem as TAGs <rem>, <exped>, <receb> e <dest> o CNPJ eu passei e vem um monte de zeros, UF eu passei e vem EX, Município eu passei e vem no XML EXTERIOR dentre outras coisas, preciso de uma ajuda neste caso, os schemas que usei são os V200 que estão na pasta do exemplo do CTe.

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