sergiom
Membros-
Total de ítens
285 -
Registro em
-
Última visita
Tipo de Conteúdo
Blocks
Notes ACBrLibNFe
Fóruns
Downloads
Calendário
Tudo que sergiom postou
-
Ítalo, eu que agradeço sua atenção e suporte. Um bom 2015 para você, familia e todos do fórum.
-
Boa tarde A unit pcteCTeR.pas está alterada e agora le os dados da NF, NF-e e outros documentos de XML 1.04.
-
Ítalo, segue arquivo arquivo alterado. Incluído dados da NF comum, declaração e também a data prevista, que no XML está na tag RODO. Teste importando arquivos XML´s de versões misturadas e consegui ler a nota fiscal sem problemas. Veja se está OK e libere no repositório. pcteCTeR.pas
-
Fiz esta inclusão // Incluído por Thiago Pedro em 02/06/2014 -- Compatibilidade com CTe 1 i01 := 0; if (Copy(CTe.infCTe.versao, 1, 1) = '1') then begin while Leitor.rExtrai(2, 'infNFe', '', i01 + 1) <> '' do begin CTe.infCTeNorm.infDoc.InfNFE.Add; CTe.infCTeNorm.infDoc.InfNFE[i01].chave := Leitor.rCampo(tcStr, 'chave'); CTe.infCTeNorm.infDoc.InfNFE[i01].PIN := Leitor.rCampo(tcStr, 'PIN'); // CTe.infCTeNorm.infDoc.InfNFE[i01].dPrev := Leitor.rCampo(tcDat, 'dPrev'); inc(i01); end; while Leitor.rExtrai(2, 'infNF', '', i01 + 1) <> '' do begin CTe.infCTeNorm.infDoc.infNF.Add; CTe.infCTeNorm.infDoc.InfNF[i01].nRoma := Leitor.rCampo(tcStr, 'nRoma'); CTe.infCTeNorm.infDoc.InfNF[i01].nPed := Leitor.rCampo(tcStr, 'nPed'); CTe.infCTeNorm.infDoc.InfNF[i01].Modelo := StrToModeloNF(Ok, Leitor.rCampo(tcStr, 'mod')); CTe.infCTeNorm.infDoc.InfNF[i01].serie := Leitor.rCampo(tcStr, 'serie'); CTe.infCTeNorm.infDoc.InfNF[i01].nDoc := Leitor.rCampo(tcEsp, 'nDoc'); CTe.infCTeNorm.infDoc.InfNF[i01].dEmi := Leitor.rCampo(tcDat, 'dEmi'); CTe.infCTeNorm.infDoc.InfNF[i01].vBC := Leitor.rCampo(tcDe2, 'vBC'); CTe.infCTeNorm.infDoc.InfNF[i01].vICMS := Leitor.rCampo(tcDe2, 'vICMS'); CTe.infCTeNorm.infDoc.InfNF[i01].vBCST := Leitor.rCampo(tcDe2, 'vBCST'); CTe.infCTeNorm.infDoc.InfNF[i01].vST := Leitor.rCampo(tcDe2, 'vST'); CTe.infCTeNorm.infDoc.InfNF[i01].vProd := Leitor.rCampo(tcDe2, 'vProd'); CTe.infCTeNorm.infDoc.InfNF[i01].vNF := Leitor.rCampo(tcDe2, 'vNF'); CTe.infCTeNorm.infDoc.InfNF[i01].nCFOP := Leitor.rCampo(tcInt, 'nCFOP'); CTe.infCTeNorm.infDoc.InfNF[i01].nPeso := Leitor.rCampo(tcDe3, 'nPeso'); CTe.infCTeNorm.infDoc.InfNF[i01].PIN := Leitor.rCampo(tcStr, 'PIN'); // CTe.infCTeNorm.infDoc.InfNF[i01].dPrev := Leitor.rCampo(tcDat, 'dPrev'); inc(i01); end; while Leitor.rExtrai(2, 'infOutros', '', i01 + 1) <> '' do begin CTe.infCTeNorm.infDoc.InfOutros.Add; CTe.infCTeNorm.infDoc.InfOutros[i01].tpDoc := StrToTpDocumento(ok, Leitor.rCampo(tcStr, 'tpDoc')); CTe.infCTeNorm.infDoc.InfOutros[i01].descOutros := Leitor.rCampo(tcStr, 'descOutros'); CTe.infCTeNorm.infDoc.InfOutros[i01].nDoc := Leitor.rCampo(tcStr, 'nDoc'); CTe.infCTeNorm.infDoc.InfOutros[i01].dEmi := Leitor.rCampo(tcDat, 'dEmi'); CTe.infCTeNorm.infDoc.InfOutros[i01].vDocFisc := Leitor.rCampo(tcDe2, 'vDocFisc'); // CTe.infCTeNorm.infDoc.InfOutros[i01].dPrev := Leitor.rCampo(tcDat, 'dPrev'); inc(i01); end; end; //-- Fim da inclusão por Thiago Pedro em 02/06/2014 Como a data prevista só tem no rodo if Leitor.rExtrai(2, 'rodo') <> '' then begin CTe.infCTeNorm.rodo.RNTRC := Leitor.rCampo(tcStr,'RNTRC'); CTe.infCTeNorm.rodo.dPrev := Leitor.rCampo(tcDat,'dPrev'); CTe.infCTeNorm.rodo.lota := StrToTpLotacao(ok, Leitor.rCampo(tcStr,'lota')); CTe.infCTeNorm.rodo.CIOT := Leitor.rCampo(tcStr, 'CIOT'); if (Copy(CTe.infCTe.versao, 1, 1) = '1') then begin For i01:= 0 to CTe.infCTeNorm.infDoc.InfNFE.count-1 do begin CTe.infCTeNorm.infDoc.InfNFE[i01].dPrev := CTe.infCTeNorm.rodo.dPrev; end; For i01:= 0 to CTe.infCTeNorm.infDoc.InfNF.count-1 do begin CTe.infCTeNorm.infDoc.InfNF[i01].dPrev := CTe.infCTeNorm.rodo.dPrev; end; For i01:= 0 to CTe.infCTeNorm.infDoc.InfOutros.count-1 do begin CTe.infCTeNorm.infDoc.InfOutros[i01].dPrev := CTe.infCTeNorm.rodo.dPrev; end; end; ........... Estou testando e está funcionando. Mais tarde subo a UNIT aqui e você poderá atualizar o repositório.
-
Bom dia, você pode me apontar a UNIT. Vou verificar e ver se consigo implementar. Qual a unit que carrega o XML e cria todos os nós? Abraços
-
Ítalo, baseado na sua resposta veio mais uma dúvida. Se eu carregar e mandar imprimir um XML 1.04, vai funcionar ou não com esta última versão do componente? Caso não, qual seria a sua sugestão?
-
Ítalo obrigado. Vou fazer um desvio, quando for o layout 1.04, eu vou procurar os dados da nota via carregamento normal de XML e pesquisar o node.
-
Eu publiquei uma dúvida anterior a este POST, tópico diferente. Me deparei com o problema da diferença dos lay-outs. Depois vi esta publicação feita pelo betomunhoz após a minha e o assunto é similar. Quis posicionar a minha dúvida que será útil também para este tópico. Assim, entendo que estou fazendo flooding.
-
Importar XML 1.04 e 2.00 o componente funciona para os dados principais. O problema são os dados NF-e. No 2.0 estão numa tag diferente do 1.04. Se a rotina estiver carregando os XML´s misturados, isto será um problema. É o que eu estou tentando resolver.
-
Bom dia, só vou conseguir testar a semana que vem. Agradeço a colaboração e um bom natal, para você, familia e todos do forum.
-
Ítalo, bom dia, deu certo. Só estou com um problema com os XML da versão 1.04, onde os dados da nota estão em outra TAG. Existe algum modo de diferenciar e acessar as informações? Um bom natal para você, familia e todos do fórum.
-
Bom dia, transportadora gera fatura com vários DACTE. Ao enviar a fatura, agora alguns clientes das transportadoras estão querendo receber - Fatura - XML - 1 Único PDF contendo todos os DACTE. é possível com a atual rotina carregar vários CT-e e gerar 1 único PDF? Obrigado pela ajuda.
-
Bom dia estou importando os XML´s de uma transportadora e após carregar o XML, não estou conseguindo acessar os dados dos documentos, demais campos sem problema.s infNF, infNFe, infOutros Pode me ajudar? with ACBrCTe1.Conhecimentos.Items[0].CTe do begin end; Muito obrigado
-
Boa noite, a consulta SUFRAMA não está funcionando. Este exemplo funciona. Precisa ser revisado o exemplo de consulta SUFRAMA. ftp://ftp.suframa.gov.br/publico/CadastroWS/CadastroWSClient.zip - Aqui tem um exemplo em DELPHI.
-
Instalação Da Acbr No Xe6
sergiom replied to Delphi in Delphi's tópico in Dúvidas Gerais sobre o ACBr
Pelo que eu vi ele reclama que o ACBrNFeDanfeRVCodeBase contém Datasnap.Midas que também contém dsnap200 ACBrNFeDanfeRV também contém Vcl.Imaging.jpeg que também contém vclimg200 é um erro de duplicidade e não falta. -
Boa noite, os pacotes que tem o QUICKREPORT, conforme dito acima é só trocar QR5RunDXE6 para QR506RunDXE6 Isto poderia ser feito no repositório para não ficar dando erro.
-
Bom dia Ítalo 1.00 e 1.00a contém veictracao e veicreboque. Veictracao contém tpRod e tpCar, veicreboque contém tpCar na versão 1.00a. Versão 1.00 não tinha. Por enquanto não altere o fonte. Deixa eu verificar até segunda. Baixei ambo os SCHEMAS hoje e conferi. https://mdfe-portal.sefaz.rs.gov.br/Site/Documentos# Schemas (contém a 1.00a) 23/06/2014 - Schemas NT 03.2014Pacote de schemas da Nota Técnica 03.2014 10/10/2013 - Pacote de Liberação 1.00a (preliminar)Conjunto de especificações de leiaute XML do projeto MDF-e correspondente à versão 1.00a (preliminar) - ver NT 2013.004. - Corrigido em 10/10/2013 com alteração da tag infMDFe dos documentos transportados para infMDFeTransp e inclusão da tag qMDFe no grupo tot. Este contém a 1.00 22/05/2013 - Schemas XML MDF-e - Pacote de Liberação 1.00 (ZIP) - NT 2013.002 Conjunto das especificações de leiaute XML do projeto MDF-e contendo as alterações definidas na Nota Técnica 2013.002: (1.Correções nas tags TU e Serie do modal ferroviário; 2.Correção nas tags xMunCarrega e xMunDescarga do schema geral; 3.Criação dos grupos de informações de unidade de transporte e unidade de carga ligados aos documentos transportados no schema geral) A nota técnica, no PDF está bem claro. RENAVAM é que aparece, mas como falei no EMISSOR atual da RECEITA ainda não contempla. 23/06/2014 - Nota Técnica 03.2014Nota técnica contendo alterações em layout, regras de validação e DAMDFE em contingência. O que você precisar de ajuda ou informação, pode me contatar.
-
Eu apaguei todo a pasta ACBR e fiz download novamente. A UNIT está errada. Não existe "veicprincipal" na versão 100 e sim veicTracao <xs:element name="veicTracao"> <xs:annotation> <xs:documentation>Dados do Veículo com a Tração</xs:documentation> Tem que sair o proprietario if VersaoDF = ve100 then begin Gerador.wCampo(tcStr, '#35', 'RNTRC ', 08, 08, 1, SomenteNumeros(MDFe.Rodo.veicTracao.Prop.RNTRC), DSC_RNTRC); Gerador.wCampoCNPJCPF('#11', '#12', MDFe.Rodo.veicTracao.Prop.CNPJCPF, CODIGO_BRASIL); Gerador.wCampo(tcStr, '#13', 'RNTRC ', 08, 08, 1, SomenteNumeros(MDFe.Rodo.veicTracao.Prop.RNTRC), DSC_RNTRC); Gerador.wCampo(tcStr, '#14', 'xNome ', 01, 60, 1, MDFe.Rodo.veicTracao.Prop.xNome, DSC_XNOME); // if VersaoDF = ve100a // then begin Gerador.wCampo(tcStr, '#21', 'tpRod', 02, 02, 1, TpRodadoToStr(MDFe.Rodo.veicTracao.tpRod), ''); Gerador.wCampo(tcStr, '#22', 'tpCar', 02, 02, 1, TpCarroceriaToStr(MDFe.Rodo.veicTracao.tpCar), ''); Gerador.wCampo(tcStr, '#23', 'UF ', 02, 02, 1, MDFe.Rodo.veicTracao.UF, DSC_CUF); // end; // if VersaoDF = ve100a then // begin Gerador.wCampo(tcStr, '#38', 'tpCar ', 02, 02, 1, TpCarroceriaToStr(MDFe.Rodo.veicReboque.tpCar), ''); Gerador.wCampo(tcStr, '#39', 'UF ', 02, 02, 1, MDFe.Rodo.veicReboque.UF, DSC_CUF); // end; Favor revisar isto e subir no SVN. Ou então apontar onde estou errando, pois até agora não vi como fazer a versão ve100 funcionar corretamente e gerar o XML que valide.
-
Isto mesmo, mensagem 661. O próprio emissor gratuito faz isso. Não tem como passar com os números. Tem que colocar em OUTROS documentos. CT-e é normal, a empresa não está em contigência, somente a NF-e recebida é que foi emitida em contigência.
-
Foi feito com isto, mas eu acho que não pode ter nenhum aplicativo aberto. Outlook por exemplo.
-
Boa tarde alguém já passou pelo problema de rejeição de CT-e quando as NF-e acobertadas por ele foram emitidas em contigência? Para resolver o problema, estamos usando outros documentos, mas não acho isto correto.
-
Ok, entendi. Vou verificar. Aproveitando, quando o componente não le o certificado e dá erro de classe, é por falta de registrar as DLL´s? Fiz um bat, funcionou no WINDOWS 2008 server, mas no WINDOWS 8 e 8.1 não. Tem alguma dica para resolver isto? Deixar as DLL´s junto com a pasta do programa resolve ou tem que colocar na pasta WINDOWS\SYSTEM32 ou 64 dependendo da versão do Windows?
-
Bom dia Ítalo, ele estava na versão 1.00. Se você baixar o emissor gratuito da receita e fizer um teste, estas TAG´s existem e são obrigatórias. E a tag é veictracao e veicreboque. A versão que aparece no XML gerado pelo emissor gratuito é 1.00. A versão 1.00a é mais antiga, certo?
-
Boa noite coloquei comentário, gravou e validou no emissor gratuito da receita - última versão. // if VersaoDF = ve100a // then begin Gerador.wCampo(tcStr, '#21', 'tpRod', 02, 02, 1, TpRodadoToStr(MDFe.Rodo.veicTracao.tpRod), ''); Gerador.wCampo(tcStr, '#22', 'tpCar', 02, 02, 1, TpCarroceriaToStr(MDFe.Rodo.veicTracao.tpCar), ''); Gerador.wCampo(tcStr, '#23', 'UF ', 02, 02, 1, MDFe.Rodo.veicTracao.UF, DSC_CUF); // end; Este desvio versão 1.00a não está errado? Estas tags não existem em ambas as versões?
-
Não é porque estou usando a versão 1.00? Mas a última versão do emissor gratuito da receita que estou para validar e conferir utiliza o 1.00 e não aceita sem estes campos. if VersaoDF = ve100a then begin Gerador.wCampo(tcStr, '#21', 'tpRod', 02, 02, 1, TpRodadoToStr(MDFe.Rodo.veicTracao.tpRod), ''); Gerador.wCampo(tcStr, '#22', 'tpCar', 02, 02, 1, TpCarroceriaToStr(MDFe.Rodo.veicTracao.tpCar), ''); Gerador.wCampo(tcStr, '#23', 'UF ', 02, 02, 1, MDFe.Rodo.veicTracao.UF, DSC_CUF); end;