Ir para conteúdo
  • Cadastre-se

emarcolongo

Membros
  • Total de ítens

    72
  • Registro em

  • Última visita

  • Days Won

    1

Tudo que emarcolongo postou

  1. Senhores, boa tarde. Fizemos alguns testes na versão simplificada do evento 2298 e precisamos modificar algumas linhas para validar corretamente. Segue o arquivo anexo, coloquei comentários nas linhas alteradas com a data de 20/05/2021, abaixo tb estará disponível procedure TEvtReintegr.GerarInfoReintegr; begin Gerador.wGrupo('infoReintegr'); Gerador.wCampo(tcStr, '', 'tpReint', 1, 1, 1, eSTpReintToStr(self.InfoReintegr.tpReint)); if eSTpReintToStr(self.InfoReintegr.tpReint) = '1' then Gerador.wCampo(tcStr, '', 'nrProcJud', 1, 20, 0, self.InfoReintegr.nrProcJud); if eSTpReintToStr(self.InfoReintegr.tpReint) = '2' then Gerador.wCampo(tcStr, '', 'nrLeiAnistia', 5, 13, 0, self.InfoReintegr.nrLeiAnistia); Gerador.wCampo(tcDat, '', 'dtEfetRetorno', 10, 10, 1, self.InfoReintegr.dtEfetRetorno); Gerador.wCampo(tcDat, '', 'dtEfeito', 10, 10, 1, self.InfoReintegr.dtEfeito); if VersaoDF <= ve02_05_00 then //20/05/2021 Gerador.wCampo(tcStr, '', 'indPagtoJuizo', 1, 1, 1, eSSimNaoToStr(self.InfoReintegr.indPagtoJuizo)); Gerador.wGrupo('/infoReintegr'); end; Neste caso especifico tenho duvidas com relação ao uso deste VersaoDF verifiquei que nas fichas isto não é usado, porém neste caso não achei aonde ele gera isto no xml no pcesGerador para fazer o desvio, uma vez que para o layout completo deve existir a tag. A disposição Eduardo / KelipcesS2298.pas
  2. Funcionou, muito obrigado. Se quiser pode encerrar o topico
  3. Boa tarde. Fiz a atualização dos fontes e depois fiz a desinstalação usando o apagarACBr Qdo fui fazer a instalação novamente pelo assistente apareceu este erro ao compilar o pacte da nfe. Compiling package C:\Eduardo\Embarcadero\Componentes\ACBr\Pacotes\Delphi\ACBrDFe\ACBrNFe\ACBr_NFe.dpk "C:\Program Files (x86)\Embarcadero\RAD Studio\7.0\bin\dcc32.exe" "C:\Eduardo\Embarcadero\Componentes\ACBr\Pacotes\Delphi\ACBrDFe\ACBrNFe\ACBr_NFe.dpk" Embarcadero Delphi for Win32 compiler version 21.0 Copyright (c) 1983,2009 Embarcadero Technologies, Inc. C:\Eduardo\Embarcadero\Componentes\ACBr\Fontes\ACBrDFe\ACBrNFe\DANFE\ACBrNFeDANFEClass.pas(680) Error: E2034 Too many actual parameters C:\Eduardo\Embarcadero\Componentes\ACBr\Fontes\ACBrDFe\ACBrNFe\DANFE\ACBrNFeDANFEClass.pas(793) Error: E2034 Too many actual parameters ACBr_NFe.dpk(105) Fatal: F2063 Could not compile used unit '..\..\..\..\Fontes\ACBrDFe\ACBrNFe\DANFE\ACBrNFeDANFEClass.pas' Compilation failure Erro ao compilar o pacote "ACBr_NFe.dpk". Abortando... Ocorreram erros na compilação dos pacotes. estou utilizando o fortes report. Estas são minhas opções Antes desta revisão estava com o a 21868 e deu certo. O que pode ter acontecido ? Alguma sugestão ? Grato
  4. Senhores, boa tarde. Fizemos alguns testes na versão simplificada do evento 2230 e precisamos modificar algumas linhas para validar corretamente. Segue o arquivo anexo, coloquei comentários nas linhas alteradas com a data de 17/05/2021, abaixo tb estará disponível //17/05/2021 sSecao := 'perAquis'; infoAfastamento.iniAfastamento.perAquis.dtInicio := StringToDateTime(INIRec.ReadString(sSecao, 'dtInicio', '0')); infoAfastamento.iniAfastamento.perAquis.dtFim := StringToDateTime(INIRec.ReadString(sSecao, 'dtFim', '0')); A disposição Eduardo / Keli pcesS2230.pas
  5. Boa tarde Ao validar o evento, surgiu seguinte erro de esquema De acordo com o layout, os dois campos que aparecerem no erro tiveram o registro pai alterado, para o InfoPgto. No momento não fizemos alterações, somente estamos comunicando a modificação. Grato Eduardo / Keli
  6. Senhores, boa tarde. Fizemos alguns testes na versão simplificada do evento 1200 e precisamos modificar algumas linhas para validar corretamente. Segue o arquivo anexo, coloquei comentários nas linhas alteradas com a data de 10/05/2021, abaixo tb estará disponível L := 1; while true do begin // de 001 até 200 sSecao := 'itensRemun' + IntToStrZero(I, 3) + IntToStrZero(J, 3) + IntToStrZero(K, 1) + IntToStrZero(L, 3); sFim := INIRec.ReadString(sSecao, 'codRubr', 'FIM'); if (sFim = 'FIM') or (Length(sFim) <= 0) then break; with itensRemun.New do begin codRubr := sFim; ideTabRubr := INIRec.ReadString(sSecao, 'ideTabRubr', ''); qtdRubr := StringToFloatDef(INIRec.ReadString(sSecao, 'qtdRubr', ''), 0); fatorRubr := StringToFloatDef(INIRec.ReadString(sSecao, 'fatorRubr', ''), 0); vrUnit := StringToFloatDef(INIRec.ReadString(sSecao, 'vrUnit', ''), 0); vrRubr := StringToFloatDef(INIRec.ReadString(sSecao, 'vrRubr', ''), 0); indApurIR := eSStrToTpindApurIR(ok, INIRec.ReadString(sSecao, 'indApurIR', '0')); //13/05/2021 end; Inc(L); end; A disposição Eduardo / Keli pcesS1200.pas
  7. Senhores, boa tarde. Fizemos alguns testes na versão simplificada do evento 2190 e precisamos modificar algumas linhas para validar corretamente. Segue o arquivo anexo, coloquei comentários nas linhas alteradas com a data de 10/05/2021, abaixo tb estará disponível sSecao := 'ideEvento'; ideEvento.ProcEmi := eSStrToProcEmi(Ok, INIRec.ReadString(sSecao, 'procEmi', '1')); ideEvento.VerProc := INIRec.ReadString(sSecao, 'verProc', EmptyStr); ideEvento.indRetif := eSStrToIndRetificacao(ok, INIRec.ReadString(sSecao, 'indRetif', '1')); //10/05/2021 ideEvento.NrRecibo := INIRec.ReadString(sSecao, 'nrRecibo', EmptyStr); //10/05/2021 pcesS2190.pas
  8. Senhores, boa tarde. Fizemos alguns testes na versão simplificada do evento 2206 e precisamos modificar algumas linhas para validar corretamente. Segue o arquivo anexo, coloquei comentários nas linhas alteradas com a data de 06/05/2021, abaixo tb estará disponível sSecao := 'infoContrato'; altContratual.infoContrato.CodCargo := INIRec.ReadString(sSecao, 'codCargo', ''); altContratual.infoContrato.CodFuncao := INIRec.ReadString(sSecao, 'codFuncao', ''); altContratual.infoContrato.CodCateg := INIRec.ReadInteger(sSecao, 'codCateg', 0); altContratual.infoContrato.codCarreira := INIRec.ReadString(sSecao, 'codCarreira', ''); altContratual.infoContrato.dtIngrCarr := StringToDateTime(INIRec.ReadString(sSecao, 'dtIngrCarr', '0')); altContratual.infoContrato.nmCargo := INIRec.ReadString(sSecao, 'nmCargo', ''); //06/05/2021 altContratual.infoContrato.CBOCargo := INIRec.ReadString(sSecao, 'CBOCargo', ''); //06/05/2021 altContratual.infoContrato.dtIngrCargo := StringToDateTime(INIRec.ReadString(sSecao, 'dtIngrCargo', '0')); //06/05/2021 altContratual.infoContrato.nmFuncao := INIRec.ReadString(sSecao, 'nmFuncao', ''); //06/05/2021 altContratual.infoContrato.CBOFuncao := INIRec.ReadString(sSecao, 'CBOFuncao', ''); //06/05/2021 altContratual.infoContrato.acumCargo := eSStrToSimNaoFacultativo(Ok, INIRec.ReadString(sSecao, 'acumCargo', '')); //06/05/2021 ---------------------------------------------------------------------------------------------------- sSecao := 'horContratual'; if INIRec.ReadString(sSecao, 'qtdHrsSem', '') <> '' then begin altContratual.infoContrato.horContratual.QtdHrsSem := StrtoFloatDef(IniRec.ReadString(sSecao,'qtdHrsSem','0'),0); altContratual.infoContrato.horContratual.TpJornada := eSStrToTpJornada(Ok, INIRec.ReadString(sSecao, 'tpJornada', '1')); altContratual.infoContrato.horContratual.DscTpJorn := INIRec.ReadString(sSecao, 'dscTpJorn', ''); altContratual.infoContrato.horContratual.dscJorn := INIRec.ReadString(sSecao, 'dscJorn', ''); //06/05/2021 altContratual.infoContrato.horContratual.tmpParc := StrTotpTmpParc(Ok, INIRec.ReadString(sSecao, 'tmpParc', '0')); end; Eduardo / Keli pcesS2206.pas
  9. Senhores, boa tarde. Fizemos alguns testes na versão simplificada do evento 2200 e precisamos modificar algumas linhas para validar corretamente. O erro esta no anexo Segue o arquivo anexo, coloquei comentários nas linhas alteradas com a data de 06/05/2021, abaixo tb estará disponível sSecao := 'dadostrabalhador'; trabalhador.NisTrab := INIRec.ReadString(sSecao, 'nisTrab', EmptyStr); trabalhador.NmTrab := INIRec.ReadString(sSecao, 'nmTrab', EmptyStr); trabalhador.Sexo := INIRec.ReadString(sSecao, 'sexo', EmptyStr); trabalhador.RacaCor := INIRec.ReadInteger(sSecao, 'racaCor', 1); trabalhador.EstCiv := INIRec.ReadInteger(sSecao, 'estCiv', 1); trabalhador.GrauInstr := INIRec.ReadString(sSecao, 'grauInstr', '01'); // Trabalhador.IndPriEmpr := eSStrToSimNao(Ok, INIRec.ReadString(sSecao, 'indPriEmpr', 'S')); trabalhador.nmSoc := INIRec.ReadString(sSecao, 'nmSoc', EmptyStr); trabalhador.PaisNac := INIRec.ReadString(sSecao, 'paisNac', ''); //06/05/2021 pcesS2205.pas
  10. Senhores, boa tarde. Fizemos alguns testes na versão simplificada do evento 2200 e precisamos modificar algumas linhas para validar corretamente. Segue o arquivo anexo, coloquei comentários nas linhas alteradas com a data de 06/05/2021, abaixo tb estará disponível sSecao := 'infoContrato'; vinculo.infoContrato.CodCargo := INIRec.ReadString(sSecao, 'codCargo', ''); vinculo.infoContrato.CodFuncao := INIRec.ReadString(sSecao, 'codFuncao', ''); vinculo.infoContrato.CodCateg := INIRec.ReadInteger(sSecao, 'codCateg', 0); vinculo.infoContrato.codCarreira := INIRec.ReadString(sSecao, 'codCarreira', ''); vinculo.infoContrato.dtIngrCarr := StringToDateTime(INIRec.ReadString(sSecao, 'dtIngrCarr', '0')); vinculo.infoContrato.nmCargo := INIRec.ReadString(sSecao, 'nmCargo', ''); //06/05/2021 vinculo.infoContrato.CBOCargo := INIRec.ReadString(sSecao, 'CBOCargo', ''); //06/05/2021 vinculo.infoContrato.dtIngrCargo := StringToDateTime(INIRec.ReadString(sSecao, 'dtIngrCargo', '0')); //06/05/2021 vinculo.infoContrato.nmFuncao := INIRec.ReadString(sSecao, 'nmFuncao', ''); //06/05/2021 vinculo.infoContrato.CBOFuncao := INIRec.ReadString(sSecao, 'CBOFuncao', ''); //06/05/2021 vinculo.infoContrato.acumCargo := eSStrToSimNaoFacultativo(Ok, INIRec.ReadString(sSecao, 'acumCargo', '')); //06/05/2021 ------------------------------------------------------------------------------------------------------ sSecao := 'horContratual'; if INIRec.ReadString(sSecao, 'tpJornada', '') <> '' then begin vinculo.infoContrato.horContratual.QtdHrsSem := INIRec.ReadInteger(sSecao, 'qtdHrsSem', 0); vinculo.infoContrato.horContratual.TpJornada := eSStrToTpJornada(Ok, INIRec.ReadString(sSecao, 'tpJornada', '1')); vinculo.infoContrato.horContratual.DscTpJorn := INIRec.ReadString(sSecao, 'dscTpJorn', ''); vinculo.infoContrato.horContratual.dscJorn := INIRec.ReadString(sSecao, 'dscJorn', ''); //06/05/2021 vinculo.infoContrato.horContratual.tmpParc := StrTotpTmpParc(Ok, INIRec.ReadString(sSecao, 'tmpParc', '0')); end; Grato Eduardo / Keli pcesS2200.pas
  11. emarcolongo

    Tag IEST

    Bom dia, O erro foi em uma situação especifica aonde havia um erro de logica em nossa programação, o componente esta funcionando corretamente. Grato a todos e desculpe o transtorno.
  12. emarcolongo

    Tag IEST

    Olá, boa tarde. Fiz uma emissão e a tag foi retirada, porém em outro manteve normalmente. Ainda estou procurando o que pode ter acontecido, irei acompanhar por mais alguns dias. Posto novamente qdo houver novidades, obrigados a todos por enquanto.
  13. emarcolongo

    Tag IEST

    BigWings bom dia. Obrigado pelo retorno. Eu fiz o teste da assinatura e o arquivo foi assinado e gerado com a tag. Vou pegar um caso pratico e testar novamente, agora enviando. Assim que tiver concluido, retorno aqui. Grato
  14. emarcolongo

    Tag IEST

    Juliomar, boa tarde Obrigado pelo retorno, mas já estamos rodando desta forma deste da versão 3 da nfe. Levarei sua consideração e vou passar para o superior, mas neste instante só estou achando estranho estar acontecendo a retirada da tag em algum instante. Alguma sugestão do que acontece ? Grato
  15. emarcolongo

    Tag IEST

    No momento existe um ERP já desenvolvido em uma linguagem que não possui toda a facilidade que o Acbr tem então optamos por gerar o xml já que os dados estão neste outro sistema e utilizar um auxiliar desenvolvido em Delphi com o Acbr somente para fazer a assinatura, validar e comunicar com a receita.
  16. emarcolongo

    Tag IEST

    Juliomar boa tarde. Desculpe a demora, estava fora. Segue o arquivo anexo. Este arquivo eu gero que uso para o carregamento no componente e depois dos processos que lhe informei a tag some. Grato Eduardo 064255.xml
  17. emarcolongo

    Tag IEST

    Boa tarde. Eu faço o carregamento da nota fiscal no componente via xml pelo ACBrNFe1.NotasFiscais.LoadFromFile(OpenDialog1.FileName, False); Neste xml eu tenho preenchida a tag IEST porém apos assinar/enviar o xml a mesma tag some do arquivo Esta venda não é para consumidor final e nem tem ST, mas devemos marcar por conta da Difal. Existe alguma regra que poderia retirar esta tag ? Grato
  18. Obrigado, por favor, podem fechar o topico
  19. emarcolongo

    Erro não identificado

    Boa tarde, Pesquisei no forum e verifiquei algumas coisas que poderiam estar errado, mas não consegui localizar o erro. Eu utilizei o proprio exemplo para gerar o XML (Venda -> Gerar Venda) e após isto fui em Enviar Venda. Neste instante ocorre o erro. Por favor, alguem pode ajudar ? ACBrSAT.log
  20. Fiz o teste mudando o tipo de emissão para 9 e funcionou, não tive problemas em gerar em contingência e nem com o qrcode. Obrigado Fiz o teste mudando o tipo de emissão para 9 e funcionou, não tive problemas em gerar em contingência e nem com o qrcode. Obrigado
  21. Boa tarde, Minha aplicação esta funcionando corretamente para NFC-e do estado da BA com a tag tpEmis = 1 Porém necessitei de fazer um nfce com contingencia então isto muda para tpEmis = 2 Só que agora preciso transmitir esta nota de contigencia para receita e ao validar aparece a seguinte mensagem: 1824 - Element '{http://www.portalfiscal.inf.br/nfe}qrCode': 'http://nfe.sefaz.ba.gov.br/servicos/nfce/qrcode.aspx?p=29190821347089000218650650000003002000003013|2|1|1|6C9FCB4789A755DB04E31ABE1FA1565A90577A49' is not a valid value of the local atomic type. Fiz a comparação com um NFCe de tpEmis = 1 que a receita autorizou <![CDATA[ http://nfe.sefaz.ba.gov.br/servicos/nfce/qrcode.aspx?p=29190821347089000218650650000003002000003013|2|1|1|6C9FCB4789A755DB04E31ABE1FA1565A90577A49 ]]> //tpEmis = 2 <![CDATA[ http://nfe.sefaz.ba.gov.br/servicos/nfce/qrcode.aspx?p=29190821347089000218650650000003011000003020|2|1|1|0F9AD8048874A320017C19BD5FD3621F2AE04863 ]]> //tpEmis = 1 Exceto pelo tipo de emissão não vi diferença. Alguem já passou por isto ? Grato
  22. Italo, boa tarde. Obrigado, deu tudo certo.
  23. emarcolongo

    S-2300 CodMunic

    Boa tarde. Ao fazer a leitura de um arquivo INI, o componente esta colocando as tags CodMunic = 0 e UF = AC do nivel instEnsino, mesmo qdo não há esta informação no arquivo ini Mesmo comentando a leitura no pcesS2300.pas isto ocorre. Verificando o layout estas informações não são obrigatórias, como posso fazer para não gerar no XML ? Segue anexo o arquivo ini e o xml gerado Grato 1_S-2300_INC_001454_28092018_123625_env.xml S2300_28092018_1454.ini
×
×
  • 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.