Pesquisar na Comunidade
Showing results for tags 'LER'.
Encontrado 5 registros
-
CT-e: Ler XML de evento e acessar conteúdo completo do arquivo
um tópico no fórum postou informacaoweed ACBrCTe
Olá! Implementei no meu sistema o recurso de importação de XML. Quando leio uma XML de emissão através do recurso "ACBrCTe.Conhecimentos.LoadFromFile(CaminhoArq)", é possível recuperar o conteúdo da XML lida através da propriedade "ACBrCTe.Conhecimentos.Items.CTe.XML". Esta propriedade contém o conteúdo completo da XML, inclusive a tag <cteProc> e os dados de assinatura. Quando leio uma XML de evento através do recurso "ACBrCTe.EventoCTe.LerXML(CaminhoArq)", é possível recuperar o conteúdo da XML lida através da propriedade "ACBrCTe.EventoCTe.Evento.Items.RetInfEvento.XML". Esta propriedade não contém o conteúdo completo da XML, sem a tag <procEventoCTe> e dados de assinatura. Nós guardamos o conteúdo da XML assinada em banco de dados, para oferecer o recurso de exportação de XML aos usuários. Por isso eu gostaria de salvar a XML lida no banco de forma completa, tal como ela é quando é gerada durante uma emissão de CT-e ou evento de CT-e. Sei que se trata de uma simples tarefa com TStringList, mas a rotina está projetada para efetuar a leitura de todas as XML selecionadas primeiro e, posteriormente, outra rotina se encarrega do salvamento dos dados no banco, e neste ponto eu não sei mais os nomes dos arquivos. Gostaria de saber se existe uma maneira de acessar o conteúdo completo da XML de evento via ACBr, que eu não esteja enxergando? Obrigado -
ola podem me dar uma dica, estou precisando fazer um arquivo txt DESSE FORMATO tem algum componente da acbr que faz isso exemplo A;12024;389141;FULANO ;RUA TESTE;S/N;CIDADE TESTE;(77)9999-9999; B;12024;389141;2113060;MSL;3;20160610;20160910;2500; B;12024;389141;2029462;MSL;9;20151214;20160915;2500; B;12024;389141;2029463;MSL;9;20151214;20160915;2500; B;12024;389141;2029464;OBT;9;20151214;20160915;2500; B;12024;389141;2029465;ALG;9;20151214;20160915;2500;
-
Olá. Estou começando agora a desenvolver aplicações para a WEB. Estou em um projeto onde surgiu a necessidade da leitura dos dados de certificados digitais do cliente. Com o certificado A1 tudo está funcionando perfeitamente. Meu problema está sendo com o A3. Estou usando no servidor DataSnap com o AcBr. Por ser uma aplicação WEB, os clientes acessam diretamente pelo navegador e precisam configurar o certificado no sistema. Preciso de alguma maneira de abrir a janela como o site da própria SEFAZ abre ao fazer o download de um arquivo XML (como o exemplo abaixo no Chrome): Já tentei utilizando o CAPICOM, porém acaba abrindo a Janela para selecionar os certificados instalados no meu servidor, ficando assim travado até selecionar um certificado. Pelo que estou pesquisando encontrei este link de uma dúvida semelhante que, aparentemente, não obteve uma resposta que me ajudasse. Tem algum jeito de fazer isso? Alguém já fez algo parecido?
- 1 reply
-
- certificado
- a3
- (e 5 mais)
-
Boa tarde a todos. Estou passando por uma situação desconcertante. Tenho um cliente novo e simplesmente não consigo selecionar o certificado. O certificado está instalado, aparece no browser, aparece no programa que lê o cartão identifica a chave privada, e quando vou selecioná-lo o meu programa ele aparece normalmente. Porém, mesmo selecionado o certificado, ele simplesmente não aparece. no edit onde deveria aparecer. O que estou fazendo de errado? O que está me escapando? Gostaria da sua ajuda! Obrigado!
-
Olá! Estou usando o componente a unit pcnNFeR.pas para ler um XML e importar as informações para o meu sistema. Verifiquei que o XML possui informações de IPI nos itens, mas o componente não me retorna essas informações, como base de cálculo, alíquota e valor do IPI. o trecho é esse: if Leitor.rExtrai(3, 'IPI') <> '' then begin (*O02*)NFe.Det[i].Imposto.IPI.clEnq := Leitor.rCampo(tcStr, 'clEnq'); (*O03*)NFe.Det[i].Imposto.IPI.CNPJProd := Leitor.rCampo(tcStr, 'CNPJProd'); (*O04*)NFe.Det[i].Imposto.IPI.cSelo := Leitor.rCampo(tcStr, 'cSelo'); (*O05*)NFe.Det[i].Imposto.IPI.qSelo := Leitor.rCampo(tcInt, 'qSelo'); (*O06*)NFe.Det[i].Imposto.IPI.cEnq := Leitor.rCampo(tcStr, 'cEnq'); // Inicializa CST com sendo Não tributada e conforme o TIPO entrada ou saida // Caso a Tag não seja informada sera gravada com sendo não tributada if NFe.ide.tpNF = tnEntrada then NFe.Det[i].Imposto.IPI.CST := ipi53; if NFe.ide.tpNF = tnSaida then NFe.Det[i].Imposto.IPI.CST := ipi03; if Leitor.rExtrai(3, 'IPITrib') <> '' then begin (*O09*)NFe.Det[i].Imposto.IPI.CST := StrToCSTIPI(ok, Leitor.rCampo(tcStr, 'CST')); (*O10*)NFe.Det[i].Imposto.IPI.vBC := Leitor.rCampo(tcDe2, 'vBC'); (*O11*)NFe.Det[i].Imposto.IPI.qUnid := Leitor.rCampo(tcDe4, 'qUnid'); (*O12*)NFe.Det[i].Imposto.IPI.vUnid := Leitor.rCampo(tcDe4, 'vUnid'); (*O13*)NFe.Det[i].Imposto.IPI.pIPI := Leitor.rCampo(tcDe2, 'pIPI'); (*O14*)NFe.Det[i].Imposto.IPI.vIPI := Leitor.rCampo(tcDe2, 'vIPI'); end; if Leitor.rExtrai(3, 'IPINT') <> '' then begin (*O09*)NFe.Det[i].Imposto.IPI.CST := StrToCSTIPI(ok, Leitor.rCampo(tcStr, 'CST')); end; Como possui valor de IPI, ele deveria entrar na condição " (...) if Leitor.rExtrai(3, 'IPITrib') <> '' then (...)" certo? Porém ele só faz esse: "(...) if NFe.ide.tpNF = tnEntrada then NFe.Det.Imposto.IPI.CST := ipi53; if NFe.ide.tpNF = tnSaida then NFe.Det.Imposto.IPI.CST := ipi03; " (..) Alguém sabe o motivo disso ou já teve esse problema?