emarcolongo Posted April 28 Share Posted April 28 Fizemos ajustes na leitura do arquivo INI para ficha S2200 with trabalhador.Dependente.New do begin tpDep := eSStrToTpDep(Ok, sFim); nmDep := INIRec.ReadString(sSecao, 'nmDep', ''); dtNascto := StringToDateTime(INIRec.ReadString(sSecao, 'dtNascto', '0')); cpfDep := INIRec.ReadString(sSecao, 'cpfDep', ''); //sexoDep := INIRec.ReadString(sSecao, 'sexoDep', 'F'); //25/04/2022 -- valor padrao sexoDep := INIRec.ReadString(sSecao, 'sexoDep', ''); //25/04/2022 -- retirando valor padrao depIRRF := eSStrToSimNao(Ok, INIRec.ReadString(sSecao, 'depIRRF', 'S')); depSF := eSStrToSimNao(Ok, INIRec.ReadString(sSecao, 'depSF', 'S')); incTrab := eSStrToSimNao(Ok, INIRec.ReadString(sSecao, 'incTrab', 'S')); end; No codigo abaixo fizemos a verificação da versão sSecao := 'sucessaoVinc'; {if INIRec.ReadString(sSecao, 'cnpjEmpregAnt', '') <> '' then //28/04/2022 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;} if ((INIRec.ReadString(sSecao, 'cnpjEmpregAnt', '') <> '') and (TACBreSocial(FACBreSocial).Configuracoes.Geral.VersaoDF <= ve02_05_00)) then //28/04/2022 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; if ((INIRec.ReadString(sSecao, 'tpInsc', '') <> '') and (TACBreSocial(FACBreSocial).Configuracoes.Geral.VersaoDF > ve02_05_00)) then //28/04/2022 begin vinculo.sucessaoVinc.tpInsc := eSStrToTpInscricao(Ok, INIRec.ReadString(sSecao, 'tpInsc', '1')); vinculo.sucessaoVinc.nrInsc := INIRec.ReadString(sSecao, 'nrInsc', ''); vinculo.sucessaoVinc.MatricAnt := INIRec.ReadString(sSecao, 'matricAnt', ''); vinculo.sucessaoVinc.dtTransf := StringToDateTime(INIRec.ReadString(sSecao, 'dtTransf', '0')); vinculo.sucessaoVinc.Observacao := INIRec.ReadString(sSecao, 'observacao', ''); end; Segue fonte para avaliação pcesS2200.pas Link to comment Share on other sites More sharing options...
Administradores Juliana Tamizou Posted April 28 Administradores Share Posted April 28 Obrigado pela contribuição, em breve será validada para possível inclusão ao svn TK-2608 Juliana Tamizou Ajude o Projeto ACBr crescer - Assine o SAC (15) 2105-0750 (15)99790-2976. Discord Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil Participe de nosso canal no Discord e fique ainda mais próximo da Comunidade !! Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now