Histórico da Página
Criar um processo chamado FopConverterPerfilTela, este processo irá converter os perfis de tela gravados pela versão delphi do Labora para o formato da versão .net
Na primeira tela do processo o usuário irá informar qual tipo de perfil de tela ele deseja converter, RAIS, DIRF, Folha Analítica. O usuário só pode avançar para tela seguinte após escolher um destes tipos de perfil, caso contrário, a seguinte mensagem de alerta deve ser exibida: “Escolha um tipo de perfil de tela para prosseguir”.
A segunda tela do processo deve exibir a lista de processos disponíveis para serem convertidos, segundo o tipo escolhido pelo usuário na primeira tela.
Os perfis da Dirf e Folha Analitica podem ser obtidos na tabela PPARAMRELAT, onde TIPORELAT = 1 e IDRELAT = 1 são registros da Folha Analitica e TIPORELAT = ?? e IDRELAT = ??
O usuário só pode avançar após selecionar um perfil de tela, o sistema deve exibir uma mensagem de alerta caso contrário.
A etapa seguinte é a execução do processo, que deve ler o perfil selecionado, e associar a respectiva classe .net, serializar a classe, e grava-la na tabela PPARAMRELAT no campo PARAMETROS.
A versão delphi grava as informações em um formato texto, de chave e valor:
[LANCAMENTOS FINANCEIROS]
USARFILIALCONT=FALSE
CONTACAIXA=
COLIGADACONTACAIXA=0
CODTB5FLX=
CODTB4FLX=
ORDENACAO=0
[SELECAO]
NomeFiltro=
Formula=
TipoFunc=
CodReceb=
Situacao=
CodQuebra=??
Chapa=
[PARMLANCFINANC]
CODRECEITA=
DataFinalIR=30/04/2011
DataInicialIR=01/04/2011
LancAtivos=1,-2,-3,-4
A versão .net grava os dados em um xml:
<?xml version="1.0" encoding="utf-16"?> <FopParamsRAIS xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema"> <Initialized>false</Initialized> <PrimaryKeyList /> <JobID /> <ExecutionId>ecf22a8a-16df-4dff-bd0e-b77c88194447</ExecutionId> <Scheduler>JobMonitor</Scheduler> <UseJobMonitor>true</UseJobMonitor> <ScheduleDateTime>2011-10-14T09:33:43.6952569-03:00</ScheduleDateTime> <CanSendMail>false</CanSendMail> <CanWaitSchedule>false</CanWaitSchedule> <SendMail>false</SendMail> <SuccessMessage>Processo executado com sucesso</SuccessMessage> <FailureMessage>Falha na execução do processo</FailureMessage> <WaitSchedule>false</WaitSchedule> <ColigadaAtual>0</ColigadaAtual>
Para criar o xml com os perfis de tela, o sistema serializa uma classe com os dados gravados, no caso da Rais, ele utiliza a classe ParametrosExecucaoRais que herda de ParametrosExecucaoColigada e a classe ResponsavelRais. Estas classes estão no projeto RM.Fop.Calc.Interfaces.
No final o processo deve exibir uma lista de campos convertidos, a lista de campos presentes no delphi e não encontrados no .net e a lista de campos presentes no .net e não presentes no delphi. Esta lista deve ser gravada em um arquivo de log.