walter faria

Marcelo, bom dia Como posso pegar esta representacao numerica quando envio GNRE. Obrigado

Boa noite, desculpa a demora na resposta Obrigado pela ajuda , após envia sem o comando de imprimir , como posso carregar XML ? Obrigado

Bom dia , O SAT funciona com certificado A3 ? ele vai ficar pedindo a senha direto em tempo com aplicação aberta ? Obrigado

Italo, bom dia Fiz os testes , te enviei por e-mail para voce analisar os XML. Obrigado

Boa noite, Italo Sim ainda acontece... Obrigado

Boa noite, Italo Veja se pode ajudar , não sei o porque ele não encontra as informações no arquivo INI (ACBrANeServicos.ini) erro que da na função : ***imagem do erro em anexo; Obrigado procedure TACBrDFe.LerServicoDeParams(const ModeloDFe, UF: String; const TipoAmbiente: TpcnTipoAmbiente; const NomeServico: String; // Se não achou, verifique se está fazendo redirecionamento "Usar=" if EstaVazio(URL) then begin if FPIniParams.SectionExists(Sessao) then begin Sessao := FPIniParams.ReadString(Sessao, 'Usar', ''); if NaoEstaVazio(Sessao) then begin VersaoAchada := Versao; LerServicoChaveDeParams( Sessao, NomeServico, VersaoAchada, URL); end; end else raise EACBrDFeException.Create('Sessão "'+Sessao+'", não encontrada no arquivo "'+ Configuracoes.WebServices.ResourceName+'"'); end; ACBrANeServicos.ini

Boa tarde, Juliana Acontece sim , coloquei as informações do cliente, valores mandei gerar o boleto. Dai fui no site do banco e da invalida a linha digitavel. Obrigado

Boa noite, Juliomar e Isaque Muito obrigado ... pelas dicas Para resolver o problema eu exclui a pasta do Acbr que estava em amarelo e vermelho , atualizei e executei o instalador . Funcionou tudo corretamente. Esta resolvido este tópico, não sei como deixo marcado como resolvido; Obrigado

Sim, obrigado pela informação... mas oque posso fazer pra resolver isso ? Obrigado

Bom dia, estou tentando instalar os componentes no Delphi Xe7 porem da erro no momento que esta compilando , alguém pode me ajudar . em anexo a imagem do erro e o log de instalação. Obrigado log_Delphi_XE7.txt

Boa noite, Pode colocar parte do código como alimenta o componente , assim fica mais fácil de visualizar uma possível falha Obrigado

Boa tarde, alguém sabe o motivo do digito verificado ficar errado na linha digitavel 23796002049000000000111500060261 4 67990000041957 esta com erro no lugar do 4 o correto seria 8 23796002049000000000110100060267 4 67200000001000 esta com erro no lugar do 4 o correto seria 5 Obrigado

Boa tarde , Eu também estou com este problema, para enviar quando ocorre o erro , tenho que fechar sistema e abrir de novo dai envia normal Se alguém souber como pode consertar isso me avise . Obrigado

Bom dia, Estou gerando Boleto - Bradesco pelo componente : Carteira:09 Banco: Bradesco 1 vez ficou esta linha : 23796.00204 90000.000001 10800.060260 1 67990000041957 DEU ERRO DE VALIDAÇÃO 2 vez ficou esta linha : 23796.00204 90000.000019 08000.602600 2 67990000041957 FICOU OK 3 vez ficou esta linha : 23796.00204 90000.000019 09000.602608 1 67990000041957 FICOU OK Alguem já passou por isso, não posso liberar o boleto para cliente se linha digitavel ficar errado. Abaixo como eu gero a impressão do boleto: Obrigado Codigo //Informações do Banco ACBrBoleto1.Cedente.Convenio:= sqlBancosCarteira.AsString; ACBrBoleto1.Banco.Numero := sqlBancosNUMBANCO.AsInteger; ACBrBoleto1.Banco.TamanhoMaximoNossoNum:= sqlBancosTamanho.AsInteger; ACBrBoleto1.ACBrBoletoFC.Filtro := fiNenhum; ACBrBoleto1.ACBrBoletoFC.LayOut := lPadrao; Case sqlBancosNUMBANCO.AsInteger of 1: ACBrBoleto1.Banco.TipoCobranca:= cobBancoDoBrasil; 33: ACBrBoleto1.Banco.TipoCobranca:= cobSantander; 104: ACBrBoleto1.Banco.TipoCobranca:= cobCaixaEconomica; 237: ACBrBoleto1.Banco.TipoCobranca:= cobBradesco;// cobBradescoSICOOB;// cobBradesco; 341: ACBrBoleto1.Banco.TipoCobranca:= cobItau; end; //Dados do Cedente ACBrBoleto1.Cedente.Nome := RazaoEmitente; ACBrBoleto1.Cedente.CNPJCPF := RemoverCaracter(CNPJCPF_Emitente); ACBrBoleto1.Cedente.Logradouro := EnderecoEmitente; ACBrBoleto1.Cedente.NumeroRes := NumeroEmitente; ACBrBoleto1.Cedente.Bairro := BairroEmitente; ACBrBoleto1.Cedente.Cidade := CidadeEmitente; ACBrBoleto1.Cedente.UF := UFEmitente; ACBrBoleto1.Cedente.CEP := RemoverCaracter(CepEmitente); ACBrBoleto1.Cedente.CodigoCedente := sqlBancosCodigoCedente.AsString; ACBrBoleto1.Cedente.CodigoTransmissao := sqlBancosCodTransmissao.AsString; //'396200007597045'; ACBrBoleto1.DirArqRemessa:= sqlBancosDIRREMESSA.AsString; ACBrBoleto1.NomeArqRemessa:= FormatDateTime('DDMMYYYYHHMMSS',Now) + '.TXT'; ACBrBoleto1.DirArqRetorno:= sqlBancosDIRRETORNO.AsString; ACBrBoleto1.NomeArqRemessa:= 'RETORNO.TXT'; ACBrBoleto1.LayoutRemessa:= c400; ACBrBoleto1.ACBrBoletoFC.LayOut:= lPadrao; ACBrBoleto1.ACBrBoletoFC.DirLogo:= ExtractFilePath(ParamStr(0)) + 'Imagens\Logos\Colorido'; ACBrBoleto1.ACBrBoletoFC.MostrarSetup:= false; //Dados da Agencia ACBrBoleto1.Cedente.Agencia:= sqlBancosNUMAGENCIA.AsString; ACBrBoleto1.Cedente.AgenciaDigito:= sqlBancosDIGITOAGENCIA.AsString; //Dados da Conta ACBrBoleto1.Cedente.Conta:= sqlBancosNUMCONTACORRENTE.AsString; ACBrBoleto1.Cedente.ContaDigito:= sqlBancosDIGITO.AsString; ACBrBoleto1.Cedente.CodigoCedente:= sqlBancosCodigoCedente.AsString; ACBrBoleto1.Cedente.CodigoTransmissao:= sqlBancosCodTransmissao.AsString; Obrigado

Boa noite, Juliomar aonde fica este arquivo INI , em qual pasta ? Obrigado

Bom dia, Italo Configurei sim e quando tento enviar me da este retorno : Envio ANe tpAmb: 1 verAplic: cStat: 0 cUF: 0 xMotivo: xMsg: ***eu comentei do componente HTTPReqResp, porque se tento enviar o XML que componente AcbAne cria da certo. Obrigado Bom dia, ítalo Quando tento enviar : da este erro : Resource AcbrANeServicos no found Debugando o erro acontece neste método abaixo procedure TDFeWebService.DefinirURL; begin { sobrescrever OBRIGATORIAMENTE. Você também pode mudar apenas o valor de "FLayoutServico" na classe filha e chamar: Inherited; } GerarException(ACBrStr('DefinirURL não implementado para: ') + ClassName); end;

Bom dia , Juliomar estou usando : ACBrGNREGuiaRL1. , antes de postar sempre pesquiso Eu tinha anexado a imagem do erro mas não apareceu vou tentar aqui novamente. Observação do teste que fiz no Demo: 1-Gero gnre e envia (da erro ao imprimir ) 2-Consulto lote recibo (da guia de resposta vem XML da guia ) 3-Eu salvo como TXT a resposta que seria o XML da guia (salvo manualmente , copio para TXT e salvo no disco) 4-Clico no imprimir Guia, imprime normalmente. ***diretamente quando clico gerar e enviar da erro segue imagem . Obrigado

Boa noite. Ao enviar o GNRE gera e envia e quando vai imprimir da este erro , alguém poderia me dizer oque posso fazer para resolver ? ***no Demo acontece a mesma coisa !!! Obrigado

Juliomar, como posso arrumar este tipo de problema pode me auxiliar . Sempre so usei como relatório QuickReport. Obrigado

Boa tarde, Italo Componente... -O método enviar não esta funcionando. -Eu coloquei um componente: HTTPReqResp1 no demo para enviar da forma que tinha feito. XML gerado pelo componente esta OK Coloquei procedure para tratar o retorno e quando enviei : funcionou Erro ao Protocolar a Averbação: código: 001 - Erro : Documento já Cadastrado Protocolo: 94987EAC868GCA8FDS1122 Data: 13-04-2016 Hora: 16:12:12 mandei um documento averbado porque não tenho outra forma

Boa tarde, ao imprimir o XML do CT-e esta cortando as informações da seguradora da carga e do veiculo imagem abaixo e anexo: Utilizo o componente : ACBrCTeDACTeRL1 Obrigado

Boa noite, Graça Criei uma pasta separada da normal , e instale o componente manualmente. svn - https://svn.code.sf.net/p/acbr/code/branches Obrigado

Boa tarde, Italo Já estou olhando o componente que você disponibilizou. eu criei 3 Variaveis (Constantes ) que recebe o cabecalho para formar o XML completo para o envio ws xmlHeader = '<soapenv:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/" xmlns:urn="urn:ATMWebSvr">'; xmlBody = '<soapenv:Header/> <soapenv:Body><urn:averbaCTe20 soapenv:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/">' + '<usuario xsi:type="xsd:string">USUARIO</usuario><senha xsi:type="xsd:string">SENHA</senha><codatm xsi:type="xsd:string">99999999</codatm><xmlCTe xsi:type="xsd:string"><![CDATA['; xmlFooter = ']]></xmlCTe></urn:averbaCTe20></soapenv:Body></soapenv:Envelope>'; Forma que alimentei : ACBrANe1.Documentos.Clear; ACBrANe1.Documentos.Add.ANe.usuario:= 'USUARIO'; ACBrANe1.Documentos.Add.ANe.senha:= SENHA'; ACBrANe1.Documentos.Add.ANe.codatm:= '999999'; ACBrANe1.Documentos.Add.ANe.xmlCTe:= 'conteudo do XML do CT-e'; ACBrANe1.Documentos.Items[0].GravarXML; Tenho que montar o XML na seguinte forma : Junção SArquivoXML.Text *** e o conteúdo do arquivo de XML ( do CT-e autorizado ) sXMLString.Add(xmlHeader + xmlBody + SArquivoXML.Text + xmlFooter); Alimentei o componente da seguinte forma: XML GERADO PELO COMPONENTE: (CONTEUDO ABAIXO ) <?xml version="1.0" encoding="UTF-8"?><usuario>xxxx</usuario><senha>xxxx</senha><codatm>xxxx</codatm><xmlNFe></xmlNFe> Usuario, senha e codatm alterados para xxxx. Obrigado

Bom dia. Eu fiz a integração pelo WebService, não tenho tanta experiência em criar o componente . Mas no que for preciso posso ajudar. Posso enviar o código aqui também. Obrigado

Bom dia, estou com mesmo problema Ao emitir CT-e normal , esta dizendo que NF-e não existe. ***peguei as chaves : no portal Nacional e de MG as chaves não existe mesmo Como posso resolver isto? Obrigado