Ir para conteúdo
  • Cadastre-se

sergiom

Membros
  • Total de ítens

    285
  • Registro em

  • Última visita

Tudo que sergiom postou

  1. Ítalo, eu que agradeço sua atenção e suporte. Um bom 2015 para você, familia e todos do fórum.
  2. Boa tarde A unit pcteCTeR.pas está alterada e agora le os dados da NF, NF-e e outros documentos de XML 1.04.
  3. Í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
  4. 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.
  5. 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
  6. Í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?
  7. Í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.
  8. 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.
  9. 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.
  10. 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.
  11. Í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.
  12. sergiom

    Vários Dacte - Único Pdf

    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.
  13. 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
  14. 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.
  15. 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.
  16. 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.
  17. 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.
  18. 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.
  19. 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.
  20. Foi feito com isto, mas eu acho que não pode ter nenhum aplicativo aberto. Outlook por exemplo.
  21. 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.
  22. 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?
  23. 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?
  24. 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?
  25. 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;
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.