xyberx

Desenvolvimento Delphi Todas as versões, inclusive o XE8 para Android e IOS Email : [email protected] skype : [email protected]

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.

Gostaria de saber a que pé está esse boleto... Meu patrão quer que coloque uma segunda opção de Boleto

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.

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

Vou pegar com um dos técnicos da empresa que atenderam esse cliente e faço isso assim que tiver o mesmo....

Itau, código do cedente...foi o que me passaram...

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.

Problema igual e o código de barras dizem que está errado no Banco...

Mande um email para [email protected] que posso ajudar, pois além do desenvolvimento para PC também faço mobile com WebServices, pode ser o que precisam....

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

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

[email protected] ou [email protected]

Estou com o problema acima na NFe 3.10. Meu cliente emite a NFe, ela é transmitida, no site do SEFAZ consta a NFe mais no XML de retorno ela vem o CStar 217. Aí na hora de imprimir o DANFe aparece como se fosse de homologação... Como acertar ???

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

//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;

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';

Testado e continua o mesmo, alguém pode me dar uma força???

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.

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.

Para ajudar os que tiverem problemas na codificação de países : http://www.bcb.gov.br/Rex/TabPaises/Ftp/paises.txt

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

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

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

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.