abarino

Régys,, Obrigado pelas respostas e ajudas, gostaria que me ensinasse como posso sanar este problema ! ACBrNFe1.NotasFiscais.Clear ; for i := 0 to GridNotasFIscias do Begin ActGeraNfe.Execute ; // Adicona as Notas End; ACBrNFe1.NotasFiscais.Assinar ; ACBrNFe1.Enviar('1',false) ; // Faço o envio. O que preciso fazer aqui depois do enviar, quando enviar 01 só uma nota já que quando envio mais de uma dá certo ? Desde já te agradeço !

Caro Regys, Obrigado pela ajuda, mas troquei para o código que me mostrou conforme post abaixo, mas volto a dizer que quando envio uma só nota no lote não passa pelo for abaixo ! nRec := '' ; nRec := ACBrNFe1.WebServices.Retorno.Recibo ; For i := 0 to ACBrNFe1.NotasFiscais.Count -1 do Begin nProt := '' ; cStat := '0' ; chNFe := '' ; xMotivo := '' ; cStat := IntToStr(ACBrNFe1.NotasFiscais.Items.NFe.ProcNFe.cStat) ; xMotivo := ACBrNFe1.NotasFiscais.Items.NFe.procNFe.xMotivo ; nProt := ACBrNFe1.NotasFiscais.Items.NFe.procNFe.nProt ; ChNFe := ACBrNFe1.NotasFiscais.Items.NFe.procNFe.chNFe ; end; Segue tela do erro e meu código em anexo ! Desde já lhe agradeço ! Parte_Codigo_Envio.txt

Amigos do ACBr Estou com um problema e gostaria da ajuda de vcs, pois, já tive um caso muito sério com um cliente que teve sua mercadoria parada na barreira fiscal. Envio minhas notas em lote conforme código abaixo : ACBrNFe1.NotasFiscais.Clear ; for i := 0 to GridNotasFIscias do Begin ActGeraNfe.Execute ; // Adicona as Notas End; ACBrNFe1.NotasFiscais.Assinar ; ACBrNFe1.Enviar('1',false) ; // Faço o envio. O problema esta aqui neste código abaixo , pois, se envio 2 ou mais Notas funciona OK, mas se envio somente 01(uma) Nota no Lote, não consigo pegar o cStat para gravar na minha tabela a rejeição. Assim sendo, gera o seguinte problema a nota fica como se estivesse pendente, como se ainda não fosse enviada. Permitindo que o usuário a exclua sem saber o que ocorreu no retorno. Resumindo o problema é se envio somente 01 nota no lote, e a mesma conter erro, não consigo pegar o cStat.! O Acbr me mostra um messagebox dizendo qual o erro mas não consigo pegar o cStat. Uso este código abaixo para pegar o retorno logo após Enviar . For i := 0 to ACBrNFe1.WebServices.Retorno.NFeRetorno.ProtNFe.Count -1 Do Begin nProt := '' ; cStat := '0' ; chNFe := '' ; nRec := '' ; xMotivo := '' ; cStat := IntToStr(ACBrNFe1.WebServices.Retorno.NFeRetorno.ProtNFe.Items.cStat) ; xMotivo := ACBrNFe1.WebServices.Retorno.NFeRetorno.ProtNFe.Items.xMotivo ; nRec := ACBrNFe1.WebServices.Retorno.Recibo ; nProt := ACBrNFe1.WebServices.Retorno.NFeRetorno.ProtNFe.Items.nProt ; ChNFe := ACBrNFe1.WebServices.Retorno.NFeRetorno.ProtNFe.Items.chNFe ; end; Onde estou errando ? Agradeço a todos.

Estou com dúvida em relação a validação do XML !. Envio a NFe em homologação para o Sefaz/SP e da tudo certo, quando envio em produção da rejeição 225 - Falha no Schema XML. Minha dúvida é : A Sefaz/SP só vai aceitar a tag vTotTrib a partir de 01/06/2013 ? Grato a Todos !

Caros Amigos, Atualizei o ACBR e notei que foi adicionado na unit pcnGerador a linha : VlrExt := StrToFloat(valor); Depois da atualização estou tendo problemas na hora de gerar o xml ? Alguém mais está tendo problemas ? Obrigado a todos.

Caros Amigos, Vejo uma grande dificuldade em meus Clientes, de se manterem atualizados com as regras tributárias vigentes, ou seja, uma Empresa que tem muitos produtos e vende para todo País não sabe qual regra usar, ou seja, com st sem st icms enfim, precisa de um contador ou um usuário treinado para preencher as tabelas tributárias no sistema. Entrei em contato com a Cenofisco, na qual esta Empresa já possui as regras tributárias em seu site : O usuário digita : NCM - UF Origem - UF Destino e ele te retorna se tem ou não ST e os tributos Enfim, propus a esta Empresa uma forma de ser feito via WebService para integração direta com o Sistema. ficando assim sempre atualizada as tabelas tributarias da Empresa conveniada. Ex : NCM - UF Origem - UF Destino - Tipo Cliente e ser retornado os tributos. Alguem tem outra solução ou Empresa que possamos fazer esta integração com ERP. Agradeço a todos. Anderson Barino.

Colega Keila, Ve se é isso que precisa, copie parte do código do meu sistema, implementa ai : ACBrNFe1.Configuracoes.WebServices.Visualizar := false ; v_nomenfe := '' ; v_nomepdf := '' ; v_idnota := '' ; // Pasta NFe DecodeDate(dmnfe.QryPadraoNF_DT_EMISSAO.value, Ano, Mes, Dia); v_pastames := formatfloat('00', mes) + inttostr(ano) ; v_pastanfe := frmsistema.qryEMPRESASNFE_PATH.Value + v_pastames ; if not DirectoryExists(v_pastanfe) then ForceDirectories(v_pastanfe); ActGerar_XMLNaoAssina.Execute ; v_nomenfe := 'NFE'+ formatfloat('000000',dmnfe.QryPadraoNF_NUMERO.value) + '-Proc.xml' ; v_nomepdf := 'NFE'+ formatfloat('000000',dmnfe.QryPadraoNF_NUMERO.value) + '.pdf' ; ACBrNFe1.NotasFiscais.Clear; ACBrNFe1.NotasFiscais.LoadFromString(fnfe) ; ACBrNFe1.NotasFiscais.Assinar ; ACBrNFe1.Consultar; MemoResp.Lines.Text := UTF8Encode(ACBrNFe1.WebServices.Consulta.RetWS); memoRespWS.Lines.Text := UTF8Encode(ACBrNFe1.WebServices.Consulta.RetornoWS); LoadXML(MemoResp, WBResposta); ACBrNFe1.NotasFiscais.Items[0].SaveToFile(v_pastanfe + '\' + 'NFE' + formatfloat('000000',dmnfe.QryPadraoNF_NUMERO.Value) + '-Proc.xml') ; v_valnfe := ACBrNFe1.NotasFiscais.Items[0].XML ; v_idnota := ACBrNFe1.NotasFiscais.Items[0].NFe.procNFe.chNFe ; If dmnfe.QryParamsNFeGERAPDF.Value = 'S' Then Begin ACBrNFe1.NotasFiscais.Clear ; ACBrNFeDanfeRaveCB1.PathPDF := v_pastanfe ; ACBrNFe1.NotasFiscais.LoadFromString(v_valnfe) ; ACBrNFe1.NotasFiscais.ImprimirPDF; If FileExists(v_pastanfe + '\' + v_idnota + '.PDF') then RenameFile(v_pastanfe + '\' + v_idnota + '.PDF', v_pastanfe + '\' + v_nomepdf); end; try QryGravaXML.Close ; QryGravaXML.ParamByName('NF_ID').AsInteger := DMNFe.QryPadraoNF_ID.Value ; QryGravaXML.ParamByName('NFEXML').AsString := v_valnfe ; QryGravaXML.ExecSQL ; except; showmessage('Erro ao gravar XML !') ; end;

Caros Colegas, Devido a muitas dúvidas e contradições sobre a mudança que ocorrerá em 19/11/2012, gostaria de saber se para os usuários que não pertençam ao ramo de atividade de combustíveis, qual mudança na regra não funcionará mas como é hoje. Já li as normas técnicas e já executei os ajustes de qVol, vDup, Validação do Campo Total NFe. Minha dúvida é a seguinte : Cancelamento, Consulta Nfe : Será como é hoje ou será só através de evento ? Resumindo , o que tenho que me preocupar com o que não funcionará como é hoje. Grato a Todos, Anderson

Caros Amigos, Voltei a ter problemas com esta mensagem : "The requested operation has been cancelled by the user" Mesmo depois de colocar o try como disse o amigo clever-x, quando coloco o try a tela nem abre. O que pode ser ? Agradeço a todos.

Caros Amigos, Como posso testar meu xml, para que não ocorra nenhum imprevisto para meus clientes em 01/11/2012, com as mudanças efetuadas. Desde já agradeço ! Anderson.

Kiko Fernandes Muito Obrigado, vlw !

Caros amigos, Não entendi a diferença, ou o porque, das duas funções : ACBrNFe1.WebServices.CartaCorrecao.CCeRetorno.retEvento.Items[0].RetInfEvento.nProt e ACBrNFe1.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.nProt As duas funcionam, e qual a diferença ? Outra dúvida, como faço para pegar o retorno tpEvento da função abaixo em string : ACBrNFe1.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.tpEvento mas que me retorne : '110110' ; Desde já agradeço aos amigos, e desculpe pela minha falta de conhecimento no componente Obrigado !

Caros amigos, Tenho visto varias formas de pegar o retorno da CCe, não encontrei a forma correta estou fazendo assim, onde esta o erro ? Como tem que ficar ? ACBrNFe1.EnviarEventoNFe(1); MemoResp.Lines.Text := UTF8Encode(ACBrNFe1.WebServices.EnvEvento.RetWS); memoRespWS.Lines.Text := UTF8Encode(ACBrNFe1.WebServices.EnvEvento.RetornoWS); LoadXML(MemoResp, WBResposta); // Retorno Try v_stat := ACBrNFe1.WebServices.CartaCorrecao.CCeRetorno.retEvento.Items[0].RetInfEvento.cStat ; If v_stat = 135 Then Begin QryUpdEvento.Close ; QryUpdEvento.ParamByName('CODSTATUS').AsInteger := v_stat ; QryUpdEvento.ParamByName('PROT').AsString := ACBrNFe1.WebServices.CartaCorrecao.CCeRetorno.retEvento.Items[0].RetInfEvento.nProt ; QryUpdEvento.ParamByName('XML').AsString := ACBrNFe1.WebServices.CartaCorrecao.CCeRetorno.retEvento.Items[0].RetInfEvento.XML ; QryUpdEvento.ExecSQL ; end; except end ; Desde já agradeço aos amigos !

Acabei encontranto a solução : Notei que na unit ABCrConfiguracoes do ACBrComum, a linha de comando para selecionar o certificado estava setada assim : Certs2 := Certs.Select('Certificado(s) Digital(is) disponível(is)', 'Selecione o Certificado Digital para uso no aplicativo', False); - então mudei false para true ficando assim: Certs2 := Certs.Select('Certificado(s) Digital(is) disponível(is)', 'Selecione o Certificado Digital para uso no aplicativo', True); Desta forma o erro não ocorreu mas, e a tela de seleção do certificado abre de forma diferente, se alguém tiver alguma consideração a fazer fique a vontade. Att ABarino.

Acabei encontranto a solução : Notei que na unit ABCrConfiguracoes do ACBrComum, a linha de comando para selecionar o certificado estava setada assim : Certs2 := Certs.Select('Certificado(s) Digital(is) disponível(is)', 'Selecione o Certificado Digital para uso no aplicativo', False); - então mudei false para true ficando assim: Certs2 := Certs.Select('Certificado(s) Digital(is) disponível(is)', 'Selecione o Certificado Digital para uso no aplicativo', True); Desta forma o erro não ocorreu mas, e a tela de seleção do certificado abre de forma diferente, se alguém tiver alguma consideração a fazer fique a vontade. Att ABarino.

Caros amigos, Fiz uma nova aplicação no Delphi 7, adicionei o componente ACBRNFe1, quando executo o comando : edtNumSerie.Text := ACBrNFe1.Configuracoes.Certificados.SelecionarCertificado; Me retorna este erro : The requested operation has been cancelled by the user . O que tenho que adicionar em minha unit, para não ocorrer tal erro, pois, quero usar capicom. Obrigado a todos, Abs

Caros amigos, Fiz uma nova aplicação no Delphi 7, adicionei o componente ACBRNFe1, quando executo o comando : edtNumSerie.Text := ACBrNFe1.Configuracoes.Certificados.SelecionarCertificado; Me retorna este erro : The requested operation has been cancelled by the user . O que tenho que adicionar em minha unit, para não ocorrer tal erro, pois, quero usar capicom. Obrigado a todos, Abs

Caros Amigos, Na Função AcbrNFSe1.Enviar(), esta função já envia e consulta situação do lote, isso, não nos permite pegar o protocolo do lote com a função ConsultaSitLote. o que seria mas fácil na hora de gravar no banco estes dados de erro, pois, o mesmo mostra em messagebox. O correto seria enviar e não nesta função já consultar a situação do lote, pois, facilitaria na ora de pegar o protocolo e gravar no nosso banco estes registros de erros e logs . Não sei se estou certo, mas vai esta pergunta, ou se algum amigo ajudaria nesta questão. Obrigado a todos

Não foi possível localizar o número ordinal 968 na biblioteca de vínculo dinâmico LIBEAY32.DLL C:\ACBr\trunk\DLLs\OpenSSL libeay32.DLL ssleay32.DLL copiar as dll's acima para a pasta C:\WINDOWS\SYSTEM32 Pronto !