emarcolongo

Bom dia. Qdo faço a leitura do arquivo INI eu consigo pegar o nome do arquivo com o codigo abaixo: ACBreSocial1.Eventos.LoadFromINI('c:\teste.ini'); sAssinado := ACBreSocial1.Eventos.Gerados.Items[0].PathNome; Porém qdo eu faço a leitura pelo XML não tenho o evento gerado mesmo utilizando o Eventos.Gerar, então não existe o 'gerados.items[0]' ACBreSocial1.Eventos.LoadFromFile('c:\as\esocial.xml',true); Como eu poderia pegar o nome do xml que será gerado ? Grato

Bom dia Renato Eu coloquei as DLLs mas assim mesmo não tive retorno. Para um melhor entendimento segue meu fonte: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Mask, ACBrBase, ACBrSocket, ACBrConsultaCNPJ; type TForm1 = class(TForm) EditCNPJ: TMaskEdit; EditCaptcha: TEdit; Button1: TButton; ACBrConsultaCNPJ1: TACBrConsultaCNPJ; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation uses U_Principal; {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin if ACBrConsultaCNPJ1.Consulta(EditCNPJ.Text,EditCaptcha.Text,true) then showmessage(ACBrConsultaCNPJ1.RazaoSocial); end; end. Neste form (que estou usando somente para teste) eu não tenho o valor do captcha mas o usuario consegue pega-lo de outra forma. Se eu abrir o form do exemplo (que copiei neste projeto) e executar funciona, então acredito que seja alguma coisa que esta me passando. Alguma outra sugestão ? Grato

Bom dia. Estou tendo sempre o retorno abaixo, porém executando pelo exemplo isto não acontece, comparei o componente nos dois projetos e estão iguais, verifiquei se teria alguma dll na pasta do exemplo mas não tem. Alguem tem alguma sugestão ? Grato

Olá Daniel, Obrigado, era isto mesmo.

Bom dia, Compilei e utilizei o exemplo do ACbrCep em minha maquina que contem o ambiente de desenvolvimento e o retorno com o wsCorreios foi correto, porém ao colocar o executavel de exemplo em outra maquina que não tem o Delphi instalado aparece o seguinte retorno: O cep consultado é o mesmo. O mesmo ocorre com a consulta do IBGE. Há algo que preciso configurar ? Grato

Bom dia Atualmente na leitura do arquivo ini existe o codigo abaixo: sSecao := 'sucessaoVinc'; if INIRec.ReadString(sSecao, 'cnpjEmpregAnt', '') <> '' then begin vinculo.sucessaoVinc.tpInscAnt := eSStrToTpInscricao(Ok, INIRec.ReadString(sSecao, 'tpInscAnt', '1')); vinculo.sucessaoVinc.cnpjEmpregAnt := INIRec.ReadString(sSecao, 'cnpjEmpregAnt', ''); vinculo.sucessaoVinc.MatricAnt := INIRec.ReadString(sSecao, 'matricAnt', ''); vinculo.sucessaoVinc.dtTransf := StringToDateTime(INIRec.ReadString(sSecao, 'dtTransf', '0')); vinculo.sucessaoVinc.Observacao := INIRec.ReadString(sSecao, 'observacao', ''); end; mas na versão simplificada não há mais a tag 'cnpjEmpregAnt' Fiz a alteração para avaliarem: sSecao := 'sucessaoVinc'; //if INIRec.ReadString(sSecao, 'cnpjEmpregAnt', '') <> '' then //begin vinculo.sucessaoVinc.tpInscAnt := eSStrToTpInscricao(Ok, INIRec.ReadString(sSecao, 'tpInscAnt', '1')); vinculo.sucessaoVinc.cnpjEmpregAnt := INIRec.ReadString(sSecao, 'cnpjEmpregAnt', ''); vinculo.sucessaoVinc.MatricAnt := INIRec.ReadString(sSecao, 'matricAnt', ''); vinculo.sucessaoVinc.dtTransf := StringToDateTime(INIRec.ReadString(sSecao, 'dtTransf', '0')); vinculo.sucessaoVinc.Observacao := INIRec.ReadString(sSecao, 'observacao', ''); vinculo.sucessaoVinc.tpInscAnt := eSStrToTpInscricao(Ok, INIRec.ReadString(sSecao, 'tpInsc', '1')); vinculo.sucessaoVinc.cnpjEmpregAnt := INIRec.ReadString(sSecao, 'nrInsc', ''); //end; Grato Eduardo/Keli - AS Informática pcesS2200.pas

Bom dia. Aqui precisamos adicionar as linhas nos arquivos abaixo : pcesS2200.pas (linha 521) 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', ''); vinculo.infoContrato.horContratual.tmpParc := StrTotpTmpParc(Ok, INIRec.ReadString(sSecao, 'tmpParc', '0')); vinculo.infoContrato.horContratual.horNoturno:= eSStrToSimNao(Ok, INIRec.ReadString(sSecao, 'horNoturno', 'S')); //26/01/2022--Adicionado end; pcesS2206.pas (linha 570) 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', ''); altContratual.infoContrato.horContratual.tmpParc := StrTotpTmpParc(Ok, INIRec.ReadString(sSecao, 'tmpParc', '0')); altContratual.infoContrato.horContratual.horNoturno:= eSStrToSimNao(Ok, INIRec.ReadString(sSecao, 'horNoturno', 'S')); //26/01/2022 -- Adicionado end; Segue para validação Eduardo / Keli pcesS2206.pas pcesS2200.pas

Boa tarde. Estamos ajustando nosso sistema com o esocial e precisamos modificar o fonte da ficha 2210 (pcesS2210) na procedure da leitura do arquivo INI com o codigo abaixo a variavel sSecao não recebia a nova seção por consequencia não preechia de maneira correta. sSecao := 'ideLocalAcid'; //23/07/2021 if INIRec.ReadString(sSecao, 'nrInsc', '') <> '' then begin cat.localAcidente.ideLocalAcid.TpInsc := eSStrToTpInscricao(Ok, INIRec.ReadString(sSecao, 'tpInsc', '1')); cat.localAcidente.ideLocalAcid.NrInsc := INIRec.ReadString(sSecao, 'nrInsc', EmptyStr); end; Segue arquivo anexo tb Grato Eduardo / Keli pcesS2210.pas

Senhores, boa tarde. Fizemos alguns testes na versão simplificada do evento 2399 e precisamos modificar algumas linhas para validar corretamente. Segue o arquivo anexo, coloquei comentários nas linhas alteradas com a data de 04/06/2021, abaixo tb estará disponível function TEvtTSVTermino.LerArqIni(const AIniString: String): Boolean; var INIRec: TMemIniFile; Ok: Boolean; sSecao, sFim: String; I, J, K, L, M: Integer; begin Self.VersaoDF := TACBreSocial(FACBreSocial).Configuracoes.Geral.VersaoDF; //04/06/2021 Result := True; INIRec := TMemIniFile.Create(''); ------------------------------------------------------------------------------------- sSecao := 'ideTrabSemVinculo'; ideTrabSemVinc.CpfTrab := INIRec.ReadString(sSecao, 'cpfTrab', EmptyStr); ideTrabSemVinc.NisTrab := INIRec.ReadString(sSecao, 'nisTrab', EmptyStr); ideTrabSemVinc.codCateg := INIRec.ReadInteger(sSecao, 'codCateg', 0); ideTrabSemVinc.matricula := INIRec.ReadString(sSecao, 'matricula', EmptyStr); //04/06/2021 -- ------------------------------------------------------------------------------------- with detVerbas.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', '')); //04/06/2021 Eduardo / Keli pcesS2399.pas

Senhores, boa tarde. Fizemos alguns testes na versão simplificada do evento 2306 e precisamos modificar algumas linhas para validar corretamente. Segue o arquivo anexo, coloquei comentários nas linhas alteradas com a data de 01/06/2021, abaixo tb estará disponível sSecao := 'infoComplementares'; if INIRec.ReadString(sSecao, 'codCargo', '') <> '' then begin infoTSVAlteracao.infoComplementares.cargoFuncao.CodCargo := INIRec.ReadString(sSecao, 'codCargo', ''); infoTSVAlteracao.infoComplementares.cargoFuncao.CodFuncao := INIRec.ReadString(sSecao, 'codFuncao', ''); end; infoTSVAlteracao.infoComplementares.cargoFuncao.nmCargo := INIRec.ReadString(sSecao, 'nmCargo', ''); //01/06/2021 infoTSVAlteracao.infoComplementares.cargoFuncao.CBOCargo := INIRec.ReadString(sSecao, 'CBOCargo', ''); //01/06/2021 infoTSVAlteracao.infoComplementares.cargoFuncao.nmFuncao := INIRec.ReadString(sSecao, 'nmFuncao', ''); //01/06/2021 infoTSVAlteracao.infoComplementares.cargoFuncao.CBOFuncao := INIRec.ReadString(sSecao, 'CBOFuncao', ''); //01/06/2021 --------------------------------------------------------------------------- sSecao := 'ideTrabSemVinculo'; ideTrabSemVinc.CpfTrab := INIRec.ReadString(sSecao, 'cpfTrab', EmptyStr); ideTrabSemVinc.NisTrab := INIRec.ReadString(sSecao, 'nisTrab', EmptyStr); ideTrabSemVinc.codCateg := INIRec.ReadInteger(sSecao, 'codCateg', 0); ideTrabSemVinc.matricula := INIRec.ReadString(sSecao, 'matricula', EmptyStr); //01/06/2021 --------------------------------------------------------------------------- procedure TEvtTSVAltContr.GerarInstEnsino(obj: TinstEnsino); begin Gerador.wGrupo('instEnsino'); Gerador.wCampo(tcStr, '', 'cnpjInstEnsino', 14, 14, 0, obj.cnpjInstEnsino); if (obj.cnpjInstEnsino = '') then //01/06/2021 -- Preenchendo somente se não tiver CNPJ begin Gerador.wCampo(tcStr, '', 'nmRazao', 1, 100, 1, obj.nmRazao); Gerador.wCampo(tcStr, '', 'dscLograd', 1, 80, 0, obj.dscLograd); Gerador.wCampo(tcStr, '', 'nrLograd', 1, 10, 0, obj.nrLograd); Gerador.wCampo(tcStr, '', 'bairro', 1, 60, 0, obj.bairro); Gerador.wCampo(tcStr, '', 'cep', 1, 8, 0, obj.cep); Gerador.wCampo(tcInt, '', 'codMunic', 7, 7, 0, obj.codMunic); Gerador.wCampo(tcStr, '', 'uf', 2, 2, 0, obj.uf); end; Gerador.wGrupo('/instEnsino'); end; Grato Eduardo / Keli pcesS2306.pas

Senhores, boa tarde. Fizemos alguns testes na versão simplificada do evento 2300 e precisamos modificar algumas linhas para validar corretamente. Segue o arquivo anexo, coloquei comentários nas linhas alteradas com a data de 01/06/2021, abaixo tb estará disponível procedure TEvtTSVInicio.GerarFGTS(obj: TFGTS); begin if obj.dtOpcFGTS > 0 then begin if VersaoDF <= ve02_05_00 then Gerador.wGrupo('fgts') else Gerador.wGrupo('FGTS'); if VersaoDF <= ve02_05_00 then //01/06/2021 Gerador.wCampo(tcStr, '', 'opcFGTS', 1, 1, 1, eSOpcFGTSToStr(obj.OpcFGTS)); //if VersaoDF <= ve02_05_00 then //01/06/2021 Gerador.wCampo(tcDat, '', 'dtOpcFGTS', 10, 10, 0, obj.dtOpcFGTS); if VersaoDF <= ve02_05_00 then Gerador.wGrupo('/fgts') else Gerador.wGrupo('/FGTS'); end; end; -------------------------------------------------------------------------------- sSecao := 'infoTSVInicio'; infoTSVInicio.cadIni := eSStrToSimNao(Ok, INIRec.ReadString(sSecao, 'cadIni', 'S')); infoTSVInicio.codCateg := INIRec.ReadInteger(sSecao, 'codCateg', 0); infoTSVInicio.dtInicio := StringToDateTime(INIRec.ReadString(sSecao, 'dtInicio', '0')); infoTSVInicio.natAtividade := eSStrToNatAtividade(Ok, INIRec.ReadString(sSecao, 'natAtividade', '1')); infoTSVInicio.matricula := INIRec.ReadString(sSecao, 'matricula', ''); //01/06/2021 -------------------------------------------------------------------------------- sSecao := 'FGTS'; if INIRec.ReadString(sSecao, 'opcFGTS', '') <> '' then begin infoTSVInicio.infoComplementares.FGTS.OpcFGTS := eSStrToOpcFGTS(Ok, INIRec.ReadString(sSecao, 'opcFGTS', '1')); infoTSVInicio.infoComplementares.FGTS.DtOpcFGTS := StringToDateTime(INIRec.ReadString(sSecao, 'dtOpcFGTS', '0')); end; infoTSVInicio.infoComplementares.FGTS.DtOpcFGTS := StringToDateTime(INIRec.ReadString(sSecao, 'dtOpcFGTS', '0')); //01/06/2021 Grato Eduardo / Keli pcesS2300.pas

Senhores, boa tarde. Fizemos alguns testes na versão simplificada do evento 3000 e precisamos modificar algumas linhas para validar corretamente. Segue o arquivo anexo, coloquei comentários nas linhas alteradas com a data de 27/05/2021, abaixo tb estará disponível sSecao := 'ideFolhaPagto'; if INIRec.ReadString(sSecao, 'indApuracao', '') <> '' then begin infoExclusao.ideFolhaPagto.indApuracao := eSStrToIndApuracao(Ok, INIRec.ReadString(sSecao, 'indApuracao', '1')); infoExclusao.ideFolhaPagto.perApur := INIRec.ReadString(sSecao, 'perApur', EmptyStr); end; if (TipoEventoToStr(infoExclusao.tpEvento) = 'S-1210') then infoExclusao.ideFolhaPagto.perApur := INIRec.ReadString(sSecao, 'perApur', EmptyStr); //27/05/2021 end; sSecao := 'ideFolhaPagto'; if INIRec.ReadString(sSecao, 'indApuracao', '') <> '' then begin infoExclusao.ideFolhaPagto.indApuracao := eSStrToIndApuracao(Ok, INIRec.ReadString(sSecao, 'indApuracao', '1')); infoExclusao.ideFolhaPagto.perApur := INIRec.ReadString(sSecao, 'perApur', EmptyStr); end; if (TipoEventoToStr(infoExclusao.tpEvento) = 'S-1210') then infoExclusao.ideFolhaPagto.perApur := INIRec.ReadString(sSecao, 'perApur', EmptyStr); //27/05/2021 end; Este codigo faz a leitura do perApur que deve constar no S-1210 Porém temos um problema ao gerar o XML, a tag indApuracao não pode aparecer ser for o S-1210 mas deverá constar nas demais, neste ponto eu não modifiquei. pcesS3000.pas

Senhores, boa tarde. Fizemos alguns testes na versão simplificada do evento 2299 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 sSecao := 'infoDeslig'; infoDeslig.mtvDeslig := INIRec.ReadString(sSecao, 'mtvDeslig', EmptyStr); infoDeslig.dtDeslig := StringToDateTime(INIRec.ReadString(sSecao, 'dtDeslig', '0')); infoDeslig.indPagtoAPI := eSStrToSimNao(Ok, INIRec.ReadString(sSecao, 'indPagtoAPI', 'S')); infoDeslig.dtProjFimAPI := StringToDateTime(INIRec.ReadString(sSecao, 'dtProjFimAPI', '0')); infoDeslig.pensAlim := eSStrToTpPensaoAlim(Ok, INIRec.ReadString(sSecao, 'pensAlim', '0')); infoDeslig.percAliment := StringToFloatDef(INIRec.ReadString(sSecao, 'percAliment', ''), 0); infoDeslig.vrAlim := StringToFloatDef(INIRec.ReadString(sSecao, 'vrAlim', ''), 0); infoDeslig.nrCertObito := INIRec.ReadString(sSecao, 'nrCertObito', EmptyStr); infoDeslig.nrProcTrab := INIRec.ReadString(sSecao, 'nrProcTrab', EmptyStr); infoDeslig.indCumprParc := eSStrToTpCumprParcialAviso(Ok, INIRec.ReadString(sSecao, 'indCumprParc', '0')); infoDeslig.qtdDiasInterm := INIRec.ReadInteger(sSecao, 'qtdDiasInterm', -1); infoDeslig.Observacao := INIRec.ReadString(sSecao, 'observacao', EmptyStr); infoDeslig.dtAvPrv := StringToDateTime(INIRec.ReadString(sSecao, 'dtAvPrv', '0')); //20/05/2021 --------------------------------------------------------------------------------------------------------- with detVerbas.New do begin codRubr := sFim; ideTabRubr := INIRec.ReadString(sSecao, 'ideTabRubr', EmptyStr); 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')); //20/05/2021 end; pcesS2299.pas

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

Funcionou, muito obrigado. Se quiser pode encerrar o topico

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

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

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

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

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

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

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

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

Boa tarde, Já esta disponivel na revisão 21799 do SVN ?

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.