Alex Calado

Olá!! Alguma novidade? Também estou com problemas aqui nas posições 384 e 385

Obrigado BigWings, já corrigi..., mas ainda não tive sucesso..., ao enviar a consulta, primeiro carrego as configurações no componente e somente depois envio a consulta (seguindo o mesmo exemplo ACBr)..., no entanto verifiquei que o XML gerado pela consulta por meu Software está diferente do XML gerado pelo Exemplo ACBr e não consegui identificar o motivo..., pois alimento o componente na minha configuração. Segue trecho do meu código onde envio a consulta e em anexo os XMLs. with FComponentesMDFe.ACBrMDFe1.WebServices do begin pCNPJ := Trim(SomenteNumero(ObjEmpresaEmitente.Get_CNPJ)); ConsultaMDFeNaoEnc(pCNPJ); MensagemAviso(ConsMDFeNaoEnc.RetWS); end; Consulta_Proprio.xml Consulta_ACBr.xml

Olá!! Estou com o mesmo problema aqui..., vou enviar o XML da consulta.20171108154046-cons.xml20171108153926-ped-cons.xml Obrigado!

Não consegui ainda, eles retornaram outros erros, no entanto tive urgências aqui e pausei a homologação..., devo retomá-la entre esta semana e a próxima

Olá! diegoqs, notei que todos os seus boletos estão com o campo NossoNumero repetidos. Neste momento estou trabalhando na homologação também para o BRB e no meu caso também deu este mesmo problema. Acabo de fazer um tratamento na ACBRBancoBRB.pas, mais especificamente na function TACBrBancoBRB.MontarChaveASBACE, onde estava ocorrendo o seguinte: Estou enviando o número de meu documento para formar o campo NossoNumero, onde no meu caso ainda estão com valores baixos, na casa dos 320 em diante..., ao setar o campo NossoNumero, é completado com Zeros à esquerda este campo até completar 12 dígitos (Tamanho do campo NossoNumero). Na função "MontarChaveASBACE" em que citei acima, na linha: ChaveASBACESemDigito := ChaveASBACESemDigito + PadLeft(ACBrTitulo.NossoNumero, 6, '0'); onde meu campo está com o valor "000000000320", esta função está pegando apenas o 6 primeiros dígitos "000000". Devido a esta situação, o campo "NossoNumero" está repetindo para todos os Boletos. Alterei esta linha para: ChaveASBACESemDigito := ChaveASBACESemDigito + PadLeft(RightStr(ACBrTitulo.NossoNumero, 6), 6, '0'); Faça esta alteração e veja se resolve para vc. Estou enviando os arquivos para o Banco homologar. Depois posto aqui se deu certo. Gostaria que algum moderador pudesse ponderar se esta alteração procede.

Olá! Ao importar um retorno do Sicredi, me deparei com este erro: "C4 is not a valid integer value"..., ao debugar, vefiquei que faltou tratar o CodMotivo quando seu valor for "C4". toRetornoInstrucaoRejeitada: //32 case AnsiIndexStr(CodMotivo, ['A1', 'A2', 'A4', 'A5', 'A6', 'B4', 'B5', 'B6', 'B7', 'B8', 'B9', 'C5', 'C6', 'C7', 'D2', 'F7', 'F8', 'F9', 'G1', 'G5', 'G8', 'G9', 'H1', 'L3', 'L4', 'J8']) of Realizei o ajuste, inserindo C4 dentro deste Case. Como funciona, posso postar a alteração? Ficou desta forma: toRetornoInstrucaoRejeitada: //32 case AnsiIndexStr(CodMotivo, ['A1', 'A2', 'A4', 'A5', 'A6', 'B4', 'B5', 'B6', 'B7', 'B8', 'B9', 'C4', 'C5', 'C6', 'C7', 'D2', 'F7', 'F8', 'F9', 'G1', 'G5', 'G8', 'G9', 'H1', 'L3', 'L4', 'J8']) of Obrigado! ...

Já está OK, o Bug estava na máquina do cliente mesmo. O contador do cliente pegou o Certificado do cliente e levou para sua máquina, realizamos acesso remoto na máquina do Contador e tudo funcionou normalmente.

Bom dia!! Senhores, estou com problemas para efetuar um cancelamento extemporâneo de NF-e. Meu cliente é do Estado de MT, a NF-e em questão foi feita a quase 1 mês atrás e seu contador pediu uma autorizaçao na SEFAZ de lá para efetuar este cancelamento fora de época. Isto já aconteceu em outro cliente anteriormente e o cancelamento foi efetuado normalmente. No entanto, neste cliente está gerando os seguintes erros: "O conjunto de chaves não está definido" e "Erro: Requisição não enviada / 12157 - An error ocurred in the secured channel support". Cabe ressaltar que o cliente está emitindo e cancelando outras notas sem problema algum nesta máquina, inclusive, passamos para homologação, emitimos e cancelamos para ter certeza que não tinha problemas com Certificado. Certificado do Tipo A3. Segue anexo com as Mensagens de erro e o XML. 51150601028911000190550010000012831000012833-nfe.xml

Era isto mesmo! Muito Obrigado

Senhores, preciso de um apoio: ao rodar o exemplo do Acbr Sintegra e gerar o arquivo, está retornando o seguinte erro: "Invalid pointer operation". Apenas copiei o bloco do registro 50 e o copiei algumas vezes, é como se ele não aceitasse adicionar mais de um registro para o mesmo: procedure TForm1.GerarRegistro50; var wregistro50: TRegistro50; begin wregistro50:=TRegistro50.Create; with ACBrSintegra do begin wregistro50.CPFCNPJ:='43.214.055/0042-85'; wregistro50.Inscricao:='349016872110'; wregistro50.DataDocumento:=Registro10.DataFinal; wregistro50.UF:='SP'; wregistro50.Modelo:='1'; wregistro50.Serie:='1'; wregistro50.Numero:='123'; wregistro50.Cfop:='2.102'; wregistro50.EmissorDocumento:='T'; wregistro50.ValorContabil:=1500; wregistro50.BasedeCalculo:=1500; wregistro50.Icms:=270; wregistro50.Isentas:=0; wregistro50.Outras:=0; wregistro50.Aliquota:=18; wregistro50.Situacao:='N'; ACBrSintegra.Registros50.Add(wregistro50); wregistro50.CPFCNPJ:='43.214.055/0042-85'; wregistro50.Inscricao:='349016872110'; wregistro50.DataDocumento:=Registro10.DataFinal; wregistro50.UF:='SP'; wregistro50.Modelo:='1'; wregistro50.Serie:='1'; wregistro50.Numero:='123'; wregistro50.Cfop:='2.102'; wregistro50.EmissorDocumento:='T'; wregistro50.ValorContabil:=1500; wregistro50.BasedeCalculo:=1500; wregistro50.Icms:=270; wregistro50.Isentas:=0; wregistro50.Outras:=0; wregistro50.Aliquota:=18; wregistro50.Situacao:='N'; ACBrSintegra.Registros50.Add(wregistro50); wregistro50.CPFCNPJ:='43.214.055/0042-85'; wregistro50.Inscricao:='349016872110'; wregistro50.DataDocumento:=Registro10.DataFinal; wregistro50.UF:='SP'; wregistro50.Modelo:='1'; wregistro50.Serie:='1'; wregistro50.Numero:='123'; wregistro50.Cfop:='2.102'; wregistro50.EmissorDocumento:='T'; wregistro50.ValorContabil:=1500; wregistro50.BasedeCalculo:=1500; wregistro50.Icms:=270; wregistro50.Isentas:=0; wregistro50.Outras:=0; wregistro50.Aliquota:=18; wregistro50.Situacao:='N'; ACBrSintegra.Registros50.Add(wregistro50); Pelo que me parece o erro está na função LimparRegistros. Como faço para adicionar vários Registros para este bloco 50? Desde já agradeço!

Sim, Juliomar, tentei de tudo, excluí os dcu, dcp e bpl do Acbr de todo o micro, abri o Delphi, dei Não às mensagens, reiniciei máquina, procurei por arquivos novamente (só pra garantir) e o erro persiste..., chamei até um colega aqui pra ver se eu não estava fazendo algo errado (pode ser que de fato esteja rsrsrs)..., tentei mas não deu certo. Eu havia feito backup da pasta completa do ACBR antes de fazer o Update pelo SVN e reinstalei por ela, (por hora..., pq estou com algumas urgências aqui). Vou entregar algumas urgências que tenho, mas não há escapatória, vou ter que realizar o Update pelo SVN e tentar instalar novamente. Se tiver alguma outra dica, fico grato! Vlw!!

Valdemir, funcionou aí?? Estou com a mesma dificuldade aqui com o Delphi XE3