Manual de Integração Do TAF

Sumário

Sumário ......................................................................................................................................................... 1

1.

Objetivo................................................................... ...................................................................................................................................... ..................................................................... 2

2.

Integração ............................................................... ................................................................................................................................... .................................................................... 3

3.

Pré-requisitos: Instalação, Implantação e Utilização .................................................................. 9

4.

Integração – Banco a Banco ...................................................................... ........................................................................................................ .................................. 9

5.

Integração – WebService ............................................................................................................ ............................................................................................................ 17

6.

Integração - nativa ............................................................. ...................................................................................................................... ......................................................... 20

7.

Controle de Versão ........................................................... .................................................................................................................... ......................................................... 155

8.

Fluxo das Informações ................................................................... ................................................................................................................ ............................................. 156

9.

Como fazer .............................................................. .................................................................................................................................. .................................................................... 159

Integração TAF

Integração TAF

Título do documento

1. Objetivo Disponibilizar no produto TAF rotinas de integração que poderão ser executadas tanto via menu como via job, ou seja, rotinas scheduladas conforme configuração de Schedule do sistema (SIGACFG - Configurador). As formas de integração são disponibilizadas de 2 (duas) maneiras: 1. Integração Nativa Neste cenário a integração do ERP grava as informações diretamente nas entidades do TAF, utilizando o próprio MVC. Este cenário serve para quando o ERP utilizar a mesma base (Dicionário de Dados/RPO) do produto TAF. 2. Integração banco-a-banco Neste cenário utiliza-se conexão banco-a-banco para realizar a integração das informações. Este conceito utiliza a própria ferramenta DBAcces/TopConnect. DBAcces/TopConnect. Com isso, a aplicação grava em uma tabela compartilhada e sob seu domínio, ou seja, no mesmo database, o XML criado por sua rotina de integração. Após gravá-lo, o TAF através de suas rotinas de monitoramento, processará os XMLs disponíveis e transportará para uma tabela de controle dentro de seu ambiente de processamento (TAF).

2

Versão 1.0

Integração TAF

2. Integração

ERP LOGIX PROTHEUS

TAFAINTEG1 TAFAINTEG 1 RET

ST1

TSS

TAF TAFAINTEG3 TAFAINTEG 3

TAFAINTEG2 TAFAINTEG 2 TABELAS TAF

ST2

TAFAINTEG4 TAFAINTEG 4



Versão 1.0

3

Integração TAF


TAFAINTG0 Programa(s): Deverá Programa(s): Deverá utilizar o nome Integração ERP x TAF. Descrição: Busca Descrição: Busca as informações na ST1 no ERP e integra para a ST2 (TAF). Alterando o flag desses registros na ST1 (STATUS=2 - Integrados). Tabela(s): Deverá Tabela(s): Deverá utilizar a(s) tabela(s) TAFST1 (Tafe Ésse Tê Um), TAFST2 (Tafe Ésse Tê Dois). Dois) . Ambas tratam-se de tabelas compartilhadas sendo ST na base de dados do ERP e ST2 na base de dados do TAF. Opções de menu: Será menu: Será uma rotina de processamento que terá perguntas básicas para filtros do processamento.

TAFAINTG1 Programa(s): Deverá Programa(s): Deverá utilizar o nome Limpar TAFST1. Descrição: Verifica os registros na TAFST1 (STATUS=2) integrados para limpá-lo, tornando ST1 volátil. Tabela(s): Deverá Tabela(s): Deverá utilizar a(s) tabela(s) TAFST1 (Tafe Ésse Tê Um) que Um) que é a tabela compartilhada na base de dados do ERP. Opções de menu: Será menu: Será uma rotina de processamento que terá perguntas básicas para filtros do processamento.

TAFAINTG2 Programa(s): Deverá Programa(s): Deverá utilizar o nome Integração TAFST2 x TAF. Descrição: Realiza a integração da TAFST2 para as tabelas internas do TAF. Integra as informações mesmo com inconsistências alimentando o flag nas tabelas de registros. Tabela(s): Dev Tabela(s): Deverá erá utilizar a(s) tabela(s) TAFST2 (Tafe Ésse Tê Dois). Opções de menu: Será menu: Será uma rotina de processamento que terá perguntas básicas para filtros do processamento.

TAFAINTG3 Programa(s): Deverá Programa(s): Deverá utilizar o nome Validações dos Dados. Descrição: Rotina que varre a base de dados procurando as inconsistências para apresentá-las no monitor de integrações. Tabela(s): Dev Tabela(s): Deverá erá utilizar a(s) tabela(s) TAFST2 (Tafe Ésse Tê Dois) e Dois) e todas as tabelas de base de dados do TAF. Opções de menu: Será menu: Será uma rotina de processamento que terá perguntas básicas para filtros do processamento.

TAFAINTG4 Programa(s): Deverá Programa(s): Deverá utilizar o nome Transmitir eventos. Descrição: Rotina verifica as informações válidas para transmissão ao TSS. Tabela(s): Deverá Tabela(s): Deverá utilizar a(s) a(s) tabela(s) da base de dados TAF. Opções de menu: Será menu: Será uma rotina de processamento que terá perguntas básicas para filtros do processamento.

TAFAINTG5 Programa(s): Deverá Programa(s): Deverá utilizar o nome Monitorar informações TAF. TAF. Descrição: Busca retorno dos registros transmitidos ao TSS e alimentar protocolo. Tabela(s): Deverá Tabela(s): Deverá utilizar a(s) a(s) tabela(s) da base de dados TAF. Opções de menu: Será menu: Será uma rotina de processamento que terá perguntas básicas para filtros do processamento.

4

Versão 1.0

Integração TAF

Todas as tabelas referentes aos eventos terão o grupo de campos abaixo: Campo

???_ID

Tipo

C

Tamanho

6

Título

ID

Descrição

Identificador do registro

Picture

@!

Uso

Usado por todos os módulos e Não Obrigatório.

Inic.Padrão

GetSx8Num("???","???_ID")

Browse

Sim

Visual

Visualizar

Contexto

Real

Help de Campo

Representa o código de identificação do registro. Este código é controlado internamente pelo sistema de forma incremental e único por filial.

Campo

???_VERSAO

Tipo

C

Grupo Campos

071

Tamanho

14

Título

Id. Ver. Reg

Descrição

ID da versão do registro

Picture

@!

Uso

Não Usado

Propriedade

Microsiga

Browse

Não

Visual

Alterar

Contexto

Real Campo de uso interno do sistema.

Help de Campo

Representa a identificação da versão do registro. Será composto por Data + Hora da ação (Inclusão/Alteração/Exclusão). (Inclusão/Alteração/Exclusão).

Campo

???_VERANT

Tipo

C

Grupo Campos

071

Tamanho

14

Versão 1.0

5

Integração TAF

Título do documento Título

Ver Ant Reg

Descrição

Versão anterior registro

Picture

@!

Uso

Não Usado

Browse

Não

Visual

Alterar

Contexto

Real Campo de uso interno do sistema.

Help de Campo

Representa a identificação da versão anterior do registro. Este campo herdará a versão do registro anterior, quando se tratar de uma alteração/exclusão.

Campo

???_STATUS

Tipo

C

Grupo Campos

072

Tamanho

1

Título

Status Reg.

Descrição

Status do registro

Picture

@!

Valid

Pertence(" 012349")

Uso

Não Usado

Browse

Não

Visual

Alterar

Contexto

Real 0=Reg.Válido 1=Reg.Inválido

Combo Box

2=Reg.Transmitido 3=Reg.Transmitido com inconsistência 4=Reg.Transmitido válido 9=Em Processamento Campo de uso interno do sistema. Representa o status do registro: (Vazio) = Registro Novo

Help de Campo

0 = Registro Válido (integração) 1 = Registro invalido (integração) 2 = Registro transmitido 3 = Registro transmitido com inconsistência(s) 4 = Registro transmitido válido 9 = Em Processamento

6

Versão 1.0

Integração TAF

Campo

???_PROTUL

Tipo

C

Grupo Campos

073

Ordem

16

Tamanho

44

Título

Ult. Prot.

Descrição

Prot. última transmissão

Picture

@!

Uso

Não Usado

Browse

Não

Visual

Alterar

Contexto

Real

Help de Campo

Campo de uso interno do sistema. Deve representar neste campo o protocolo da última transmissão do registro

Campo

???_PROTPN

Tipo

C

Grupo Campos

073

Ordem

17

Tamanho

44

Título

Pnlt. Prot.

Descrição

Prot. penúltima transm.

Picture

@!

Uso

Não Usado

Browse

Não

Visual

Alterar

Contexto

Real

Help de Campo

Campo de uso interno do sistema. Representa o protocolo da penúltima transmissão do registro.

Campo

???_EVENTO

Tipo

C

Grupo Campos

074

Tamanho

1

Título

Id. Evento

Versão 1.0

7

Integração TAF

Título do documento Descrição

Identificação do evento

Picture

@!

Valid

Pertence("IAE")

Uso

Não Usado

Inicio Padrão

"I"

Browse

Não

Visual

Alterar

Contexto

Real I=Inclusão

Combo Box

A=Alteração E=Exclusão Campo de uso interno do sistema. Representa a identificação do evento. Deve ser preenchido com:

Help de Campo

I = Inclusão A = Alteração E = Exclusão

Campo

???_ATIVO

Tipo

C

Grupo Campos

075

Tamanho

1

Título

Reg. Ativo?

Descrição

Registro ativo?

Valid

Pertence("12")

Uso

Não Usado

Inicio Padrão

"1"

Browse

Não

Visual

Alterar

Contexto

Real

Combo Box

1=Sim 2=Não Campo de uso interno do sistema. Indica se o registro está at ivo:

Help de Campo

1 = Sim 2 = Não

8

Versão 1.0

Integração TAF

Alteração direta do registro, mantendo o Evento como uma Inclusão Gera um novo registro como um evento de Alteração e inativa o registro original na base TAF Alteração direta do registro, mantendo o Evento como uma Alteração Gera um novo registro como um evento de Alteração e inativa o registro original na base TAF Inclui um novo registro como um evento do Inclusão

Ação Alteração/Retificação Alteração direta, mantendo o Evento como uma inclusão Gera um novo registro como um evento de Alteração e inativa o registro original na base TAF Alteração direta do registro, mantendo o Evento como uma Alteração Gera um novo registro como um evento de Alteração e inativa o registro original na base TAF Alteração direta, alterando o Evento como uma Alteração

Gera um novo registro como um evento de Inclusão

Gera um novo registro como um evento de Inclusão

Ação Inclusão

Inclusão EVENTO = “I”

Alteração

Não Transmitido

Transmitido

Não Transmitido

EVENTO = “A”

Transmitido

Exclusão

Não Transmitido

EVENTO = “E”

Transmitido

Ação Exclusão (apenas para eventos cadastrais) Exclusão direta Gera um novo registro como um evento de Exclusão e inativa o registro original na base TAF Exclusão direta e Ativa o registro anterior na base TAF Gera um novo registro como um evento de Exclusão e inativa o registro original na base TAF Gera um novo registro herdando todas as informações do registro original e como um evento de Exclusão

3. Pré-requisitos: Instalação, Implantação e Utilização  

TAF – Protheus V. 11.90 TOTVS DBAccess – V. 20131204

4. Integração – Banco Banco a Banco Primeiramente é necessário realizar a instalação do produto TAF. Mais informações na manual de instalação TAF. // em desenvolvimento. Instalação do TOTVS DBAcces. Mais informações no link : http://tdn.totvs.com.br/display/tec/TOTVS++DBAccess+--+29106.. http://tdn.totvs.com.br/display/tec/TOTVS++DBAccess+--+29106 Depois de configurado o ambiente local TAF, será necessário realizar as configurações para informar o local da base de dados do ERP, onde será criada e manutenida a tabela compartilhada TAFST1. TAFST1. Para isso, utiliza-se o próprio ODBC ( Open Open Database Connectivity) do sistema operacional, criando uma Fonte de dados do sistema, apontando para essa database.

Versão 1.0

9

Integração TAF

Título do documento Exemplo: Fonte de dados ODBC Windows, base de dados SQL:

Neste exemplo, o banco de dados do ERP está no endereço: 172.16.104.249.

10

Versão 1.0

Integração TAF

Configuração do DBAcces: Através do DBAcces Monitor

Versão 1.0

11

Integração TAF


Desta forma, o DBAcces na base local terá acesso direto à base de dados do ERP. Com isso, no ambiente TAF, é necessário configurar os parâmetros abaixo (Via Configurador): Parâmetro

MV_TAFTDB

Conteúdo (exemplo)

MSSQL

Descrição

Indicar Top Data Base da Base da base de dados da tabela TAFST1 (em domínio do ERP) para integração.

Parâmetro

MV_TAFTALI

Conteúdo (exemplo)

TOPERP

Descrição

Indicar Top Alias da Alias da base de dados da tabela TAFST1 (em domínio do ERP) para integração.

Antes de qualquer integração deverá informada, no cadastro de estabelecimentos TAF, a empresa/estabelecimento. Esse cadastro serve para relacionar a identificação identificação da Empresa/Filial do ERP com a Empresa Filial no TAF. Exemplo: Ao ter registros na TAFST1, com o campo TAFFIL preenchido pr eenchido com a filial do ERP: “001”.

Através da rotina de Complemento de Estabelecimento ( mais informações na especificação técnica REQ002.S1000 – Empregador) Empregador), deve-se cadastrar previamente o relacionamento desta filial “001” com a filial correspondente na base TAF.

Caso a integração contemple múltiplos softwares, através deste mesmo cadastro estará disponibilizada no TAF.

12

Versão 1.0

Integração TAF

Especificação da Tabela Compartilhada:



Layout Shared Table (TAFST1/TAFST2) As informações transferidas para esta relação (tabela) será de responsabilidade da aplicação através de sua rotina de extração de movimento. Após devidamente populada, todo o restante do processamento é de controle do TAF, inclusive a remoção dos registros já processados, tornando-a volátil. Ela estará localizada na mesma instância da aplicação (ERPs) e será criada automaticamente pelo TAF no momento da implantação. Definições Esta relação se chamará TAFST1 / TAFST2 e terá 7 atributos. Suas duplas terão como finalidade principal armazenar as mensagens, seja ela XML ou TXT (texto no layout TOTVS). TAFFIL ( CHAR(10) ) NOT NULL Representa o código da empresa/filial vinculada ao TAF no Cadastro de Complemento do Estabelecimento. Esta informação qual estabelecimento o movimento pertence. TAFCODMSG ( CHAR(1) ) NOT NULL Representa o código da mensagem objeto da comunicação. 1, para mensagem no formato de arquivo texto ( layout Totvs). Totvs). 2, para mensagem no formato XML. 3, para mensagem NFe no formato XML (notas integradas via TSS). TAFSEQ ( CHAR(3) ) NOT NULL Representa sempre uma ordem crescente para processamento das informações. Principalmente nos casos de mesmos tipos de registros (TP_REG) caso o tamanho total da mensagem extrapole 1 MB de limite do campo (MSG ), ), especificado abaixo. TAFTPREG ( CHAR(10) ) NULL Representa o tipo de registro, este domínio da relação r elação é opcional/(OBRIGATÓRIO) opcional/(OBRIGATÓRIO) e e poderá ser utilizado para quando a mensagem for segregada por registro, no caso do e-Social. TAFKEY ( CHAR(100) ) NOT NULL Representa uma chave de identidade da mensagem para controle do ERP em futuras consultas, atualizações, etc. Esta identidade ( key ) tem o objetivo de evitar duplicidades de informações caso a dupla ainda não tenha sido processada pelo TAF e uma nova inserção esteja sendo efetuada para a mesma chave FILIAL + COD_MSG + SEQ + TP_REG .

Versão 1.0

13

Integração TAF

Título do documento TAFMSG ( BLOB ) NOT NULL Representa a mensagem objeto da comunicação, conforme padrão definido pelo comitê e limitado a 1 MB. MB. (VERIFICAR BANCOS). Observação: Um BLOB (Binary Large Object - Grande Objeto Binário) pode conter qualquer informação binária como imagens, vídeos, imagens, vídeos, áudio, áudio, bem bem como qualquer outro tipo de multimídia de multimídia ou dados em geral. TAFSTATUS ( CHAR(1) ) NOT NULL Representa o status de processamento das informações por dupla. 0, indica que as informações estão sendo processadas pela aplicação (ERP). 1, indica que as informações estão disponíveis para que a integração a processe, ou seja, está disponível para o TAF processá-la. 2, indica 2, indica que as informações estão sendo processadas. 3, indica que as informações já foram processadas e estão disponíveis no ambiente do TAF. 7, indica que hove erro na exclusão excl usão dos registros (somente para arquivo texto COD_MSG = 1). 1) . 8, indica que que a filial do registro não está cadastrada no sistema. 7, indica erro de estrutura no registro (numero de pipes menor que o esperado).

TAFIDTHRD ( CHAR(10) ) NOT NULL Representa a identificação da Thread que processará o registro. É utilizada para um processamento com múltiplas threads.

UNIQUE KEY FILIAL + COD_MSG + SEQ + TP_REG + KEY PRIMARY KEY FILIAL + COD_MSG + SEQ + TP_REG + KEY FILIAL

COD_MSG

SEQ

TP_REG

TAFKEY

MSG

STATUS

001

1

001

T001

20120701155000 20120701155000

|T001|001|[email protected]|...

1

001

1

001

T007

20120701155000 20120701155000

|T007|000022333|ADFASDFSA |T007|000022333|ADFASDFSADSA... DSA...

1

001

1

002

T007

20120701155000 20120701155000


1

001

1

003

T007

20120701155000 20120701155000


0

001

2

001

S1200

20120701155000 20120701155000

SDFSDFSAFASDFSF... SDFSDFSAFASDFSF...

1

001

2

002

S1200

20120701155000 20120701155000

RRRDFFSAFASDFSF... RRRDFFSA FASDFSF...

0

TAFIDTHRD

Neste exemplo, foi utilizado como KEY a data e hora de geração das duplas no formato (AAAAMMDDHHMMSS), porém fica a critério da aplicação o controle deste domínio.

Considera-se informação apta para a integração todas àqu elas que estiverem com status igual a “1”.

14

Versão 1.0

Integração TAF

Para exclusão dos registos com COD_MSG = 1 (arquivo texto) deve-se substiruir o Tipo de Registro (TP_REG) pelo código T999: FILIAL

COD_MSG

SEQ

TP_REG

TAFKEY

MSG

STATUS

001

1

001

T999

20120701155000 20120701155000

|T001|001|[email protected]|...

1

001

1

001

T999

20120701155000 20120701155000


1

001

1

002

T999

20120701155000 20120701155000


1

TAFIDTHRD

O sistema se baseia na chave da tabela Pai para realizar a exclusão.

A criação a manutenção da estrutura desta tabela TAFST1 será de responsabilidade do produto TAF.

Chave dos registros TAF Registro

Chave única do Layout E-Social

Tam.Chave

S-1000

Filial + Filial de Origem das informações

8

S-1010

Filial + CodRubrica + iniValidade + fimValidade

46

‘S-1020

Filial + CodLotacao + iniValidade + fimValidade

46

S-1030

Filial + CodCargo + iniValidade + fimValidade

46

S-1040

Filial + CodFuncao + iniValidade + fimValidade

46

S-1050

Filial + CodJornada + iniValidade + fimValidade

46

S-1060

Filial + TpInscricao + nrInscricao + iniValidade + fimValidade

31

S-1070

Filial + TpProcesso + nrProcesso + iniValidade + fimValidade

37

S-1080

Filial + CnpjOpPortuario + iniValidade + fimValidade

30

S-1100

Filial + indApuracao+perApuracao

7

S-1200

Filial + indApuracao+perApuracao+cpfTrab

19

S-1300


7

S-1310


7

S-1320


7

S-1330


7

S-1340


7

S-1350


7

S-1360


7

S-1370


7

Versão 1.0

15

Integração TAF

Título do documento S-1380


7

S-1390


7

S-1399


7

S-1400


7

S-1800

Filial + dtApuracao

8

S-2100

Filial + Matricula+cpfTrab

41

S-2200


41

S-2220

Filial + cpfTrab+dtAlteracao

19

S-2240

Filial + Matricula+cpfTrab+dtAlteracao

49

S-2260

Filial + cpfTrab+dtAcidente+horaAcidente

24

S-2280

Filial + Matricula+cpfTrab+dtAso

49

S-2320

Filial + Matricula+cpfTrab+codMotAfastamento

43

S-2325


43

S-2330


43

S-2340

Filial + Matricula+cpfTrab+dtIniEstabilidade

49

S-2345

Filial + Matricula+cpfTrab+dtFimEstabilidade

49

S-2360

Filial + Matricula+cpfTrab+dtIniCondicao+tpCondicao

51

S-2365

Filial + Matricula+cpfTrab+tpCondicao+dtFimCondicao

51

S-2400

Filial + Matricula+cpfTrab+dtAvisoPrevio

49

S-2405

Filial + Matricula+cpfTrab+dtCancAvisoPrevio

49

S-2600


40

S-2620


19

S-2680

Filial + cpfTrab+dtTermino

19

S-2800

Filial + Matricula+cpfTrab+motivoDesligamento+dtDesligamento+indPagtoAPI

52

S-2820

Filial + Matricula+cpfTrab+tpReintegracao+nrProcJud

48

S-2900

Filial + tpEvento+cpfTrab

17

Para todos os registros do E-Social a chave única das tabelas é a mesma indicada no Layout do do Fisco, com exceção do registro S-1000 - Informações do Empregador, onde a chave única é a filial de origem das informações.

16

Versão 1.0

Integração TAF

5. Integração – WebService WebService

A integração utilizando WebService realiza a gravação dos arquivos diretamente na tabela ST2 dispensando a utilização da conexão banco a banco. Para a utilização deste serviço é necessário configurar um server para trabalhar como servidor web, sendo este preferencialmente separado do server do TAF criando-se um serviço novo. No serviço é necessário incluir as informações do servidor web no arquivo de configuração (appserver.ini) conforme EXEMPLO abaixo: [HTTP] Enable=1 Port=8089 Path=C:\Base_Oficial\TAF_Data\web instances=40,100 SESSIONTIMEOUT=60000 [172.16.31.105:8089] ENABLE=1 PATH=C:\Base_Oficial\TAF_Data\web\ws ENVIRONMENT=TAF_CLOUD RESPONSEJOB=JOB_WS INSTANCENAME=WS DEFAULTPAGE=wsindex.apw Após a configuração do appserver.ini o servidor web vai estar disponível na Url configurada, no caso do exemplo acima 172.16.31.105:8089, digitar essa Url na barra de endereços de um navegador e verificar se o serviço TAFWS está disponível.

O Método para gravação dos arquivos é o GRAVAST2 que GRAVAST2 que possui as seguintes propriedades: Processo: Assíncrono Processo: Assíncrono Função – Método de recebimento dos XMLs do E-Social para gravação direta na tabela ST2. Url - http://HOST:PORTA/TAFWS.apw - http://HOST:PORTA/TAFWS.apw

Versão 1.0

17

Integração TAF


Parâmetros de entrada: STRING STRING STRING STRING STRING STRING STRING STRING STRING STRING BASE64BINARY BASE64BINARY Parâmetro

Tipo

Tam

Pai

-

-

GRAVAST2 ESOCIAL REGESOCIAL REGISTRO CODFIL

Estrutura Estrutura Estrutura Estrutura Alfanumérico

10

GRAVAST2 ESOCIAL REGESOCIAL REGESOCIAL

CODMSG

Alfanumérico

01

REGESOCIAL

SEQ TAFKEY

Alfanumérico Alfanumérico

03 100

REGESOCIAL REGESOCIAL

TIPOREG XMLESOC

Alfanumérico BASE64Binary

10

REGESOCIAL REGESOCIAL

Observação

Filial do TAF que corresponde a filial do ERP. Representa o código da mensagem objeto da comunicação. (1-TXT,2XML,3-Msg Nfe XML) Sequencia do arquivo Chave para identificação do Registro conforme Regra TAF Código do evento e-social XML do evento, conforme Manual de Orientação do e-Social.

Parâmetros de saída: STRING STRING BOOLEAN BOOLEAN

18

Versão 1.0

Integração TAF

STRING STRING Parâmetro GRAVAST2RESULT REGRETORNO RETORNO MENSAGEM RETORNO TAFKEY

Tipo Estrutura Estrutura Estrutura Estrutura Boolean Alfanumérico

Tam -

100

Pai GRAVAST2RESULT ESOCIAL REGESOCIAL REGESOCIAL REGESOCIAL

Observação

Mensagem de retorno. Retorno lógico da requisição Chave para identificação do Registro conforme Regra TAF

Parâmetros do sistema: X6_VAR

MV_TAFVXML

X6_TIPO

Lógico

X6_DESCRIC

Determina se deve ser efetuado a validaç ão dos Xml’s na Integração dos registros para tabela TAFST2

X6_CONTEUD

.F.

X6_VAR

MV_TAFVLAY

X6_TIPO

Lógico

X6_DESCRIC

Determina se deve ser efetuado a validação dos Layouts na Integração dos registros para tabela TAFST2

X6_CONTEUD

.T.

Versão 1.0

19

Integração TAF


6. Integração - nativa

Para integração nativa é utilizado o próprio MVC para gravações diretas nas tabelas TAF, TA F, ficando como opcional a utilização da conexão entre banco de dados e utilização util ização das tabelas compartilhadas (ST – Shared Table). Isso será feito quando o Protheus RH instalado for a partir da versão 11.00, ou seja, o TAF estará automaticamente no mesmo ambiente (Binário, Dicionário e Repositório de Dados). Tabelas TAF: Tabela

Requisito

Descrição

Fonte PRW

C87

REQ001.01

Cadastro de Categoria de Trabalhadores

TAFA212

C88

REQ001.02

Cadastro de Grau de Exposição a Agentes Nocivos

TAFA213

C89

REQ001.03

Cadastro de Natureza das Rubricas da folha de pagamento

TAFA214

C8A

REQ001.04

Cadastro de Códigos e Alíquotas de Fpas - Terceiro

TAFA215

C8C

REQ001.06

Cadastro de classificação de Serv. Ret. Contrib. Previd.

TAFA217

C94

REQ001.07

Cadastro dos Riscos Operacionais Específicos

TAFA240

C95

REQ001.07


TAFA241

C96

REQ001.07


TAFA242

C97

REQ001.07


TAFA243

C98

REQ001.07


TAFA244

C8D

REQ001.08

Classificação Tributária

TAFA219

C8E

REQ001.09

Cadastro de Tipos de Arquivo da e-Social

TAFA220

C8F

REQ001.10

Cadastro de Tipos de Lotação

TAFA221

C8G

REQ001.11

Cadastro de Códigos x Siglas x Alíquotas de Outras Entidades e Fundos

TAFA222

C8H

REQ001.12

Cadastro de tipos de Contribuição

TAFA223

C8I

REQ001.13

Cadastro de Parte do Corpo Atingida

TAFA224

C8J

REQ001.14

Cadastro de Agente Causador do Acidente do Trabalho

TAFA225

C8K

REQ001.15

Cadastro de Agente Causador-Sit. Ger. Doença Prof.

TAFA226

C8L

REQ001.16

Cadastro de Situação Geradora do Acidente de Trabalho

TAFA227

C8M

REQ001.17

Cadastro de Descrição da Natureza da Lesão

TAFA228

C8N

REQ001.18

Cadastro de Motivos de Afastamento

TAFA229

C8O

REQ001.19

Cadastro de Motivos de Desligamento

TAFA230

C06

REQ001.20

Cadastro de Tipos de Logradouro

TAFA006

C8P

REQ001.21

Cadastro de Natureza Jurídica do Contribuinte

TAFA231

C8T

REQ001.22

Cadastro de códigos de incidência tributária da rubrica para a Previdência Social

TAFA233

C8U

REQ001.23

Cadastro de Códigos de incidência tributária da rubrica para o IRRF

TAFA234

C8Z

REQ001.24

Cadastro do Código Brasileiro de Ocupação

TAFA237

C8S

REQ001.25

Cadastro de Indicativo de Decisão

TAFA247

CR9

REQ002

Complemento do cadastro de Complemento de Empresa - C1E

TAFA050

C1E

REQ002

S-1000 - Informações do Empregador

TAFA050

20

Versão 1.0

Integração TAF

C8R

REQ003

S-1010 - Tabelas de Rubricas

TAFA232

C99

REQ004

S-1020 - Tabela de Lotação / Departamento

TAFA246

C8V

REQ005

S-1030 - Tabela de Cargos

TAFA235

C8X

REQ006

S-1040 - Tabela de Funções

TAFA236

C90

REQ007

S-1050 - Tabela de Horários / Turnos de Trabalho

TAFA238

C92

REQ008

S-1060 - Cadastro de Estabelecimento

TAFA253

C93

REQ009

S-1070 - Tabela de Processos

TAFA245

C8W

REQ010

S-1080 - Tabela de Operadores Portuários

TAFA248

C9V

REQ011

S-2100,S-2200,S-2220,S-2240 S-2100,S-2200,S-2220,S-2240 - Cadastro de Funcionários

TAFA256

C9Y

REQ011


TAFA256

C9Z

REQ011


TAFA256

CMH

REQ011.1

Cadastro de Grau de Instrução

TAFA216

CMI

REQ011.2

Cadastro de Tipo de Dependente

TAFA218

CM0

REQ013

S-2260 - Comunicação de Acidente de Trabalho

TAFA257

CM1

REQ013


TAFA257

CM2

REQ013


TAFA257

CM3

REQ013


TAFA257

CM7

REQ013

S-2260 - Comunicação de Acidente de Trabalho / Cadastro de Médico

TAFA262

C8B

REQ014

S-2280 - Atestado de Saúde Ocupacional

TAFA258

C9W

REQ014


TAFA258

C9X

REQ014


TAFA258

CM6

REQ016

S-2320 - Afastamento Temporário

TAFA261

CMM

REQ016.1

Classificação Internacional de Doenças

TAFA270

CM5

REQ017.01

S-2340 - Estabilidade – Inicio

TAFA260

CRH

REQ017.02

S-2345 - Estabilidade – Término

TAFA287

CM9

REQ018

S-2360,S-2365 - Condição diferenciada de trabalho

TAFA264

CMA

REQ018


TAFA264

CMB

REQ018


TAFA264

CM8

REQ019

S-2400 - Aviso Prévio e S2405 - Cancelamento Aviso Prévio

TAFA263

CMK

REQ022

S-2600,S-2620,S-2680 S-2600,S-2620,S-2680 - Trabalhador sem vínculo

TAFA256

CML

REQ022

S-2600,S-2620,S-2680 S-2600,S-2620,S-2680 - Trabalhador sem vínculo

TAFA273

CMD

REQ023

S-2800 - Desligamento

TAFA266

CME

REQ023

S-2800 - Desligamento

TAFA266

CMF

REQ023

S-2820 - Reintegração por determinação Judicial

TAFA267

CMJ

REQ024

S2900 - Exclusão de Evento Enviado Indevidamente

TAFA269

C8Y

REQ025

S-1100 - E-Social Mensal - Abertura

TAFA249

C91

REQ026

S-1200 - Folha de Pagamento

TAFA250

C9J

REQ026


TAFA250

C9K

REQ026


TAFA250

C9L

REQ026


TAFA250

Versão 1.0

21

Integração TAF

Título do documento C9M

REQ026


TAFA250

C9N

REQ026


TAFA250

C9O

REQ026


TAFA250

C9P

REQ026


TAFA250

C9Q

REQ026


TAFA250

C9R

REQ026


TAFA250

CRN

REQ026


TAFA250

C9U

REQ026


TAFA250

CUS

REQ026


TAFA250

CUT

REQ026


TAFA250

CMN

REQ027

S-1310 - Mensal – Outras Informações - Serv. Tomados (Cessão de Mão de Obra)

TAFA271

CMO

REQ027


TAFA271

CMP

REQ027


TAFA271

CMQ

REQ027


TAFA271

CMR

REQ031

S-1350 - Mensal – Outras Informações - Aquisição de Produção

TAFA272

CMS

REQ031


TAFA272

CMT

REQ031


TAFA272

CMU

REQ031


TAFA272

CMV

REQ031


TAFA272

C8Q

REQ032

S-1360 - Comercialização da Produção

TAFA252

C9C

REQ032


TAFA252

C9D

REQ032


TAFA252

C9E

REQ032


TAFA252

C9B

REQ033

S-1370 - Rec. Recebidos ou Repassados para Clube de Futebol

TAFA255

C9G

REQ033


TAFA255

C9H

REQ033


TAFA255

C9I

REQ033


TAFA255

CMX

REQ034

S-1400 - Mensal – Bases, Retenção, Deduções e Contribuições

TAFA274

CMZ

REQ034


TAFA274

CR0

REQ034


TAFA274

CR1

REQ034


TAFA274

CR2

REQ034


TAFA274

CR3

REQ034


TAFA274

CR3

REQ034


TAFA274

CR4

REQ034


TAFA274

CR5

REQ034


TAFA274

CR6

REQ034


TAFA274

CR7

REQ034


TAFA274

CR8

REQ034


TAFA274

CRS

REQ003.003129

S-1800 - Espetáculo Desportivo

TAFA298

22

Versão 1.0

Integração TAF

CRT

REQ003.003129


TAFA298

CUG

REQ003.003129


TAFA298

CUH

REQ003.003129


TAFA298

CUI

REQ003.003129


TAFA298

CUJ

REQ003.003129


TAFA298

CUK

REQ003.003129


TAFA298

CUL

REQ003.003129


TAFA298

C9A

REQ051

Cadastro de Varas

TAFA251

C9F

REQ052

Cadastro de Responsável pelas Informações

TAFA254

Eventos:

S-1000 – Informações Informações do Empregador Rotina: Model MVC: Validação Geração XML Regras

TAFA050.prw MODEL_C1E TAF050VLD() TAF050XML() # 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27

TAG eSocial evtInfoEmpregador id versao ideEvento tpAmb procEmi indSegmento verProc ideEmpregador tpInscricao nrInscricao infoEmpregador Inclusão / alteração idePeriodo iniValidade fimValidade infoCadastro nomeRazao classTrib natJuridica cnaePreponderante indCooperativa indConstrutora aliqRat aliqRat fap

Versão 1.0

Model MODEL_C1E MODEL_C1E MODEL_C1E MODEL_C1E MODEL_C1E MODEL_C1E MODEL_C1E MODEL_C1E MODEL_C1E MODEL_C1E

23

Campo

FGetIDInt ()

C1E_DTINI C1E_DTFIN C1E_NOME C1E_CLAFIS C1E_NATJUR C1E_CNAE C1E_INCOOP C1E_INCONS C1E_ALIRAT C1E_FAP

"classTrib" "natJuridica"

Integração TAF

Título do documento 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63

aliqRatAjustada procAdmJudRat tpProcesso nrProcesso procAdmJudFap tpProcesso nrProcesso dadosIsencao siglaMin nrCertificado dtEmissaoCertificado dtVenctoCertificado nrProtRenovacao dtProtRenovacao dtDou pagDou contato nomeContato cpfContato foneFixo foneCelular fax email infoOrgInternacional indAcordoIsencaoMulta softwareHouse cnpjSoftwareHouse nomeRazao nomeContato telefone codMunicipio uf email infoComplementares indSocioOstensivo indSituacaoEspecial

MODEL_C1E MODEL_C1E MODEL_C1E MODEL_C1E MODEL_C1E MODEL_C1E MODEL_C1E MODEL_C1E MODEL_C1E MODEL_C1E MODEL_C1E MODEL_C1E MODEL_C1E MODEL_C1E MODEL_C1E MODEL_C1E MODEL_C1E MODEL_C1E MODEL_CRM MODEL_CRM MODEL_CRM MODEL_CRM MODEL_CRM MODEL_CRM MODEL_CRM MODEL_C1E MODEL_C1E

C1E_AJURAT C1E_PRFRAT -

"tpProcesso","nrProcesso"

C1E_PRFFAP -

"tpProcesso","nrProcesso"

C1E_SIGMIN C1E_NRCERT C1E_DTEMCE C1E_DTVCCE C1E_NRPRRE C1E_DTPRRE C1E_DTDOU C1E_PAGDOU C1E_NOMCNT C1E_CPFCNT C1E_FONCNT C1E_CELCNT C1E_FAXCNT C1E_EMAIL C1E_ISEMUL CRM_CNPJ CRM_NOME CRM_CONTAT CRM_FONE CRM_MUN CRM_UF CRM_MAIL

"uf", "codMunicipio" uf

C1E_SOCOST C1E_SITESP

Exemplo: Begin Transaction Aadd( aChave, { “C”, “C1E_CODFIL”, “001”, .T. } )

//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ //³Função para validar se a operação desejada pode ser realizada³ //ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ If FTafVldOpe( 'C1E' 'C1E', , 7, @nOpc, cFilEv, @aIncons, aChave, @oModel, 'TAFA050' 'TAFA050', , cCmpsNoUpd, 2 ) //ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ //³Quando se tratar de uma Exclusão direta, é preciso apenas realizar ³ //³o Commit(), não sendo necessária nenhuma manutenção nas informações³ //ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ If nOpc <> 5

24

Versão 1.0

Integração TAF

oModel:LoadValue( "MODEL_C1E", "MODEL_C1E" , "C1E_FILTAF", "C1E_FILTAF" , C1E->C1E_FILTAF ) oModel:LoadValue( "MODEL_C1E" "MODEL_C1E", , "C1E_CODFIL" "C1E_CODFIL", , C1E->C1E_CODFIL ) oModel:LoadValue( "MODEL_C1E", "MODEL_C1E" , "C1E_FILIAL", "C1E_FILIAL" , xFilial( "C1E" ) ) oModel:LoadValue( "MODEL_C1E" "MODEL_C1E", , "C1E_VERSAO" "C1E_VERSAO", , xFunGetVer() ) oModel:LoadValue( oModel:LoadValue( oModel:LoadValue( oModel:LoadValue( oModel:LoadValue(

"MODEL_C1E" , "MODEL_C1E", "MODEL_C1E", "MODEL_C1E" , "MODEL_C1E", "MODEL_C1E" , "MODEL_C1E", "MODEL_C1E" , "MODEL_C1E", "MODEL_C1E" ,

"C1E_DTINI" ,"012013" "C1E_DTINI", "C1E_DTFIN", "C1E_DTFIN" ,"012013" "C1E_NOME", "C1E_NOME" , "Nome da "C1E_CNAE", "C1E_CNAE" , "CNAE01" "C1E_INCOOP", "C1E_INCOOP" , "1" )

) ) ) Empresa" ) )

//³Quando se tratar de um código de Tabela do TAF, ou seja, se refere³ //³a um ID, deve-se utilizar a função FGetIdInt() para que o ID seja ³ //³retornado ³ oModel:LoadValue( "MODEL_C1E" "MODEL_C1E", , "C1E_BANCO" "C1E_BANCO", , FGetIdInt( "banco" "banco", , ,"033" ) ) EndIf

//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ //³Efetiva a operação desejada³ //ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ FWFormCommit( oModel ) oModel:DeActivate() EndIf End Transaction

S-1010 – Tabela Tabela de Rubricas Rotina: Model MVC:

TAFA232.prw MODEL_C8R

Versão 1.0

25

Integração TAF


Validação TAF232VLD() Geração XML TAF232XML() # TAG Regras 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44

eSocial evtTabRubrica Id versao ideEvento tpAmb procEmi indSegmento verProc ideEmpregador tpInscricao nrInscricao infoRubrica Inclusão Inclusão / alteração ideRubrica codRubrica iniValidade fimValidade dadosRubrica descRubrica natRubrica indProvDesc codIncidCP codIncidIRRF codIncidFGTS codIncidSIND repDSR repDecTerceiro repFerias repRescisao fatorRubrica ideProcessoCP tpProcesso nrProcesso extDecisao ideProcessoIRRF tpProcesso nrProcesso ideProcessoFGTS tpProcesso nrProcesso ideProcessoSIND tpProcesso nrProcesso

Model MODEL_C8R MODEL_C8R MODEL_C8R MODEL_C8R MODEL_C8R MODEL_C8R MODEL_C8R MODEL_C8R MODEL_C8R MODEL_C8R MODEL_C8R MODEL_C8R MODEL_C8R MODEL_C8R MODEL_C8R MODEL_C8R MODEL_C8R MODEL_C8R MODEL_C8R MODEL_C8R MODEL_C8R MODEL_C8R MODEL_C8R MODEL_C8R

Campo

FGetIDInt()

C8R_CODRUB C8R_DTINI C8R_DTFIN C8R_DESRUB C8R_NATRUB C8R_INDTRB C8R_CINTPS C8R_CINTIR C8R_CINTFG C8R_CINTSL C8R_REPDSR C8R_REPDTE C8R_REPFER C8R_REPREC C8R_FATRUB

natRubrica codIncidCP codIncidIRRF

C8R_PROCCP C8R_PROCCP C8R_PROCCP

tpProcesso,nrProcesso tpProcesso,nrProcesso tpProcesso,nrProcesso

C8R_PROCIR C8R_PROCIR

tpProcesso,nrProcesso tpProcesso,nrProcesso

C8R_PROCFG C8R_PROCFG


C8R_PROCCS C8R_PROCCS


Exemplo: Aadd( aChave, { "C" "C", , "C8R_CODRUB", "C8R_CODRUB" ,"00000001" "00000001", , .T. .T.} } ) Aadd( aChave, { "C" "C", , "C8R_DTINI" "C8R_DTINI", , "112013", "112013" , .T. } ) Aadd( aChave, { "C", "C", "C8R_DTFIN" "C8R_DTFIN", , "122013" "122013", , .T. .T.} } )

26

Versão 1.0

Integração TAF

Begin Transaction //ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ //³Função para validar se a operação desejada pode ser realizada³ //ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ If FTafVldOpe( 'C8R' 'C8R', , 2, @nOpc, cFilEv, @aIncons, aChave, @oModel, 'TAFA232' 'TAFA232', , cCmpsNoUpd,1 ) //ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ //³Quando se tratar de uma Exclusão direta, é preciso realizar apenas³ //³o Commit(), não sendo necessária nenhuma manutenção nas informações³ //ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ If nOpc <> 5 oModel:LoadValue( "MODEL_C8R" "MODEL_C8R", , "C8R_FILIAL" "C8R_FILIAL", , C8R->C8R_FILIAL ) oModel:LoadValue( "MODEL_C8R" "MODEL_C8R", , “C8R_CODRUB”, “00000001”)

.

EndIf


Versão 1.0

27

Integração TAF


S-1020 – Tabela Tabela de Lotações Rotina: Model MVC: Validação Geração XML Regras

TAFA246.prw MODEL_C99 TAF246VLD() TAF246XML() # 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40

TAG evtTabLotacao versao infEvento idEvento ideEvento tpAmb procEmi indSegmento verProc ideEmpregador tpInscricao nrInscricao infoLotacao Inclusão / alteração ideLotacao codLotacao iniValidade fimValidade dadosLotacao descLotacao tpLotacao tpInscEstab nrInscEstab Endereço tpLogradouro descLogradouro nrLogradouro Complemento Bairro CEP codMunicipio Uf fpasLotacao Fpas codTerceiros infoEmprParcial tpInscContratante nrInscContratante tpInscProprietario nrInscProprietario

Model MODEL_C99 MODEL_ C99 MODEL_ C99 MODEL_ C99 MODEL_ C99 MODEL_ C99 MODEL_ C99 MODEL_ C99 MODEL_ C99 MODEL_ C99 MODEL_ C99 MODEL_ C99 MODEL_ C99 MODEL_ C99 MODEL_ C99 MODEL_ C99 MODEL_ C99 MODEL_C99 MODEL_ C99 MODEL_ C99 MODEL_C99

28

Campo

FGetIDInt()

C99_CODIGO C99_DTINI C99_DTFIN C99_DESCRI C99_TPLOT C99_TPINES C99_NRINES

tpLotacao

C99_TPLOGR C99_DESLOG C99_NUMLOG C99_COMLOG C99_BAIRRO C99_CEP C99_CODMUN "C99_UF"

tpLogradouro

Uf, codMunicipio Uf

C99_FPAS C99_FPAS

Fpas,codTerceiros Fpas,codTerceiros

C99_TPINCT C99_NRINCT C99_TPINPR C99_NRINPR

Versão 1.0

Integração TAF

Exemplo: Begin Transaction Aadd( aChave, { "C" "C", , "C99_CODIGO", "C99_CODIGO" ,"Codigo001" Codigo001 ", .T. .T.} } ) Aadd( aChave, { "C" "C", , "C99_DTINI" "C99_DTINI", , "102013", "102013" , .T. } ) Aadd( aChave, { "C", "C", "C99_DTFIN" "C99_DTFIN", , "122013" "122013", , .F. .F.} } ) //ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ //³Função para validar se a operação desejada pode ser realizada³ //ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ If FTafVldOpe( 'C99' 'C99', , 2, @nOpc, cFilEv, @aIncons, aChave, @oModel, 'TAFA246' 'TAFA246', , cCmpsNoUpd, 1 ) //ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ //³Quando se tratar de uma Exclusão direta, é preciso apenas realizar³ //³o Commit(), não sendo necessária nenhuma manutenção nas informações³ //ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ If nOpc <> 5 oModel:LoadValue( "MODEL_C99" "MODEL_C99", , "C99_FILIAL" "C99_FILIAL", , C99->C99_FILIAL ) oModel:LoadValue( "MODEL_C99" "MODEL_C99", , "C99_CODIGO" "C99_CODIGO", , “Codigo001” ) oModel:LoadValue( "MODEL_C99" "MODEL_C99", , "C99_DESCRI" "C99_DESCRI", , “Descrição da lotação” ) EndIf

//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ //³Efetiva a operação desejada³ ’ //ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ FWFormCommit( oModel ) oModel:DeActivate() EndIf End Transaction

Versão 1.0

29

Integração TAF


S-1030 – Tabela Tabela de Cargos Rotina: Model MVC: Validação Geração XML Regras

TAFA235.prw MODEL_C8V TAF235VLD() TAF235XML() # 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20

TAG eSocial evtTabRubrica Id versao ideEvento tpAmb procEmi indSegmento verProc ideEmpregador tpInscricao nrInscricao infoCargo Inclusão / alteração ideCargo codCargo iniValidade fimValidade dadosCargo descCargo

Model MODEL_C8V MODEL_C8V MODEL_C8V MODEL_C8V

Campo

FGetIDInt()

C8V_CODIGO C8V_DTINI C8V_DTFIN C8V_DESCRI

Exemplo: Begin Transaction aAdd( aChave, { "C" "C", , "C8V_CODIGO", "C8V_CODIGO" , ”00001" , .T. } ) aAdd( aChave, { "C" "C", , "C8V_DTINI" , ”052013" 052013", , .T. } ) aAdd( aChave, { "C", "C", "C8V_DTFIN" , ”072013" 072013", , .T. } ) //ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ //³Função para validar se a operação desejada pode ser realizada³ //ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ If FTafVldOpe( "C8V" "C8V", , 2, @nOpc, cFilEv, @aIncons, aChave, @oModel, "TAFA235" "TAFA235", , cCmpsNoUpd ) //ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ //³Quando se tratar de uma Exclusão direta, é preciso apenas realizar ³ //³o Commit(), não sendo necessária nenhuma manutenção nas informações³ //ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ If nOpc <> 5 oModel:LoadValue( "MODEL_C8V" "MODEL_C8V", , "C8V_CODIGO" "C8V_CODIGO", , “00001” ) oModel:LoadValue( "MODEL_C8V" "MODEL_C8V", , "C8V_DESCRI" "C8V_DESCRI", , “Descrição Cargo” ) EndIf


30

Versão 1.0

Integração TAF

S-1040 – Tabela Tabela de Funções Rotina: Model MVC: Validação Geração XML Regras

TAFA236.prw MODEL_C8X TAF236VLD() TAF236XML() # 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20

TAG eSocial evtTabFuncao Id versao ideEvento tpAmb procEmi indSegmento verProc ideEmpregador tpInscricao nrInscricao infoFuncao Inclusão / alteração ideFuncao codFuncao iniValidade fimValidade dadosFuncao descFuncao

Model MODEL_C8X MODEL_C8X MODEL_C8X MODEL_C8X

Campo

FGetIDInt()

C8X_CODIGO C8X_DTINI C8X_DTFIN C8X_DESCRI

Exemplo: Begin Transaction Aadd( aChave, { "C" "C", , "C8X_CODIGO", "C8X_CODIGO" , ”Codigo" Codigo ", .T. .T.} } ) Aadd( aChave, { "C" "C", , "C8X_DTINI" , ”112013" 112013", , .T. .T.} } ) Aadd( aChave, { "C", "C", "C8X_DTFIN" , ”122013" 122013", , .T. .T.} } ) //ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ //³Função para validar se a operação desejada pode ser realizada³ //ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ If FTafVldOpe( 'C8X' 'C8X', , 2, @nOpc, cFilEv, @aIncons, aChave, @oModel, 'TAFA236' 'TAFA236', , cCmpsNoUpd ) //ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ //³Quando se tratar de uma Exclusão direta, é preciso apenas realizar ³ //³o Commit(), não sendo necessária nenhuma manutenção nas informações³ //ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ If nOpc <> 5 oModel:LoadValue( "MODEL_C8X" "MODEL_C8X", , "C8X_CODIGO" "C8X_CODIGO", , “Codigo” ) oModel:LoadValue( "MODEL_C8X" "MODEL_C8X", , "C8X_DESCRI" "C8X_DESCRI", , “Descrição” ) EndIf

//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ //³Efetiva a operação desejada³ //ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ

Versão 1.0

31

Integração TAF

Título do documento FWFormCommit( oModel ) oModel:DeActivate() EndIf End Transaction

32

Versão 1.0

Integração TAF

S-1050 – Tabela Tabela de horários/Turnos Rotina: Model MVC: Validação Geração XML Regras

TAFA238.prw MODEL_C90 TAF238VLD() TAF238XML() # 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32

TAG eSocial evtTabHorContratual Id Versao ideEvento tpAmb procEmi indSegmento verProc ideEmpregador tpInscricao nrInscricao infoHorContratual Inclusão / alteração ideHorContratual codHorContratual iniValidade fimValidade dadosHorContratual horaEntrada horaSaida durJornada tpJornada descTpJornada tpIntervalo durIntervalo horarioIntervalo inicioIntervalo terminoIntervalo varHorario deltaEntrada deltaSaida

Model MODEL_C90 MODEL_C90 MODEL_C90 MODEL_C90 MODEL_C90 MODEL_C90 MODEL_C90 MODEL_C90 MODEL_C90 MODEL_C90 MODEL_CRL MODEL_CRL MODEL_C90 MODEL_C90

Campo

C90_CODIGO C90_DTINI C90_DTFIN C90_HRENT C90_HRSAI C90_DURJOR C90_TPJORN C90_DTPJOR C90_TPINT C90_DURINT CRL_INIINT CRL_FIMINT C90_DELENT C90_DELSAI

Exemplo: Aadd( aChave, { "C" "C", , "C90_CODIGO", "C90_CODIGO" , “0001", .T. .T.} } ) Aadd( aChave, { "C" "C", , "C90_DTINI" , "122013" "122013", , .T. .T.} } ) Aadd( aChave, { "C", "C", "C90_DTFIN" "C90_DTFIN", , "122013" "122013", , .T. .T.} } ) Begin Transaction

//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ //³Função para validar se a operação desejada pode ser realizada³ //ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ

Versão 1.0

33

FGetIDInt()

Integração TAF

Título do documento If FTafVldOpe( 'C90' 'C90', , 2, @nOpc, cFilEv, @aIncons, aChave, @oModel, 'TAFA238' 'TAFA238', , cCmpsNoUpd )

//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ //³Quando se tratar de uma Exclusão direta, é preciso apenas realizar ³ //³o Commit(), não sendo necessária nenhuma manutenção nas informações³ //ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ If nOpc <> 5 oModel:LoadValue( "MODEL_C90" "MODEL_C90", , "C90_FILIAL" "C90_FILIAL", , C90->C90_FILIAL ) //ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ //³Roda o aRules para gravar as informações³ //ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ oModel:LoadValue( "MODEL_C90" "MODEL_C90", , aRules[ nlI, 01 ],”10:10”) oModel:LoadValue( "MODEL_C90" "MODEL_C90", , aRules[ nlI, 01 ],”20:00”) //ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ //³Quando se trata de uma alteração, deleta-se todas as linhas do Grid³ //ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ If (nOpc == 4) For nJ := 1 to oModel:GetModel( 'MODEL_CRL' ):Length() oModel:GetModel( 'MODEL_CRL' ):GoLine(nJ) oModel:GetModel( 'MODEL_CRL' ):DeleteLine() Next nJ EndIf

/* Esse layout, possui registros 'filhos'(horarioIntervalo). Então faço o controle para salvar a quantidade de nós que estiverem no xml para os 'filhos'.*/ //CRL nCRL := 1 While !Intervalos:EOF() If (nCRL > 1) .Or. (nOpc == 4)

// é necessário atribuir LVALID para que permita o addline(); oModel:GetModel( "MODEL_CRL" ):LVALID := .T. oModel:GetModel( "MODEL_CRL" ):AddLine() EndIf

//Começa a salvar as informações; oModel:LoadValue( "MODEL_CRL" "MODEL_CRL", , "CRL_INIINT" "CRL_INIINT", , “12:00”) oModel:LoadValue( "MODEL_CRL" "MODEL_CRL", , "CRL_FIMINT" "CRL_FIMINT", , “12:30”) nCRL := nCRL + 1 EndDo EndIf

//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ //³Efetiva a operação desejada³ //ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ FWFormCommit( oModel ) lRet := .T. oModel:DeActivate() EndIf End Transaction

34

Versão 1.0

Integração TAF

S-1060 – Tabela Tabela de Estabelecime Estabelecimentos ntos Rotina: Model MVC: Validação Geração XML Regras

TAFA253.prw MODEL_C92 TAF253VLD() TAF253XML() # 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 26 27

TAG eSocial evtTabRubrica Id versao ideEvento tpAmb procEmi indSegmento verProc ideEmpregador tpInscricao nrInscricao infoEstab Inclusão / alteração ideEstab tpInscricao nrInscricao iniValidade fimValidade dadosEstab Fpas codTerceiros cnaePreponderante aliqGilrat aliqRat fap aliqRatAjustada indSubstPatronalObra

Model MODEL_C92 MODEL_C92 MODEL_C92 MODEL_C92 MODEL_C92 MODEL_C92 MODEL_C92 MODEL_C92 MODEL_C92 MODEL_C92 MODEL_C92

Campo

FGetIDInt()

C92_TPINSC C92_NRINSC C92_DTINI C92_DTFIN C92_CDFPAS C92_CDFPAS C92_CNAE

Fpas,codTerceiros Fpas,codTerceiros

C92_ALQRAT C92_FAP C92_AJURAT C92_SUBPAT

Exemplo: Begin Transaction aAdd( aAdd( aAdd( aAdd(

aChave, aChave, aChave, aChave,

{ { { {

"C", "C", "C", "C" , "C", "C" , "C", "C" ,

"C92_TPINSC" , "C92_TPINSC", "C92_NRINSC", "C92_NRINSC" , "C92_DTINI" , "C92_DTFIN" ,

"1"

, .T. } ) , .T. } ) "012013", "012013" , .T. } ) "052013", "052013" , .T. } ) “123456 "

//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ //³Função para validar se a operação desejada pode ser realizada³ //ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ If FTafVldOpe( "C92" "C92", , 2, @nOpc, cFilEv, @aIncons, aChave, @oModel, "TAFA253" "TAFA253", , cCmpsNoUpd )

Versão 1.0

35

Integração TAF

Título do documento //ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ //³Quando se tratar de uma Exclusão direta, é preciso apenas realizar ³ //³o Commit(), não sendo necessária nenhuma manutenção nas informações³ //ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ If nOpc <> 5 oModel:LoadValue( "MODEL_C92" "MODEL_C92", , "C92_TPINSC" "C92_TPINSC", , “1” ) oModel:LoadValue( "MODEL_C92" "MODEL_C92", , "C92_CNAE" "C92_CNAE", , “123456” ) EndIf


36

Versão 1.0

Integração TAF

S-1070 – Tabela Tabela de Processos Rotina: Model MVC: Validação Geração XML Regras

TAFA245.prw MODEL_C93 TAF245VLD() TAF245XML() # 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28

TAG evtTabProcesso Versão infEvento idEvento ideEvento tpAmb procEmi indSegmento verProc ideEmpregador tpInscricao nrInscricao infoProcesso Inclusão / alteração ideProcesso tpProcesso nrProcesso iniValidade fimValidade dadosProcesso indDecisao dtDecisao indDeposito dadosProcJud ufVara codMunicipio idVara indAutoria

Model MODEL_C93 MODEL_C93 MODEL_C93 MODEL_C93 MODEL_C93 MODEL_C93 MODEL_C93 MODEL_C93 MODEL_C93 MODEL_C93 MODEL_C93

Campo

C93_TPPROC C93_NRPROC C93_DTINI C93_DTFIN C93_INDDEC C93_DTDEC C93_INDDEP

indDecisao

C93_IDVARA C93_IDVARA C93_IDVARA C93_INDAUT

idVara idVara idVara

Exemplo: Begin Transaction Aadd( Aadd( Aadd( Aadd(


{ { { {

"C", "C", "C", "C" , "C", "C" , "C", "C" ,

"C93_TPPROC" ,"1" "C93_TPPROC", "1", , .T. .T.} } ) "C93_NRPROC", "C93_NRPROC" ,"15000259872013” ,.T. .T.} } ) "C93_DTINI", "C93_DTINI" , "072013" "072013", , .T. } ) "C93_DTFIN", "C93_DTFIN" , "102013" "102013", , .T. .T.} } )

//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ //³Função para validar se a operação desejada pode ser realizada³ //ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ

Versão 1.0

37

FGetIDInt()

Integração TAF

Título do documento If FTafVldOpe( 'C93' 'C93', , 2, @nOpc, cFilEv, @aIncons, aChave, @oModel, 'TAFA245' 'TAFA245', , cCmpsNoUpd, 1 )

//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ //³Quando se tratar de uma Exclusão direta, é preciso apenas realizar ³ //³o Commit(), não sendo necessária nenhuma manutenção nas informações³ //ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ If nOpc <> 5 oModel:LoadValue( "MODEL_C93 ", ", "C93_FILIAL" "C93_FILIAL", , C93->C93_FILIAL) oModel:LoadValue( "MODEL_C93 ", ", "C93_INDDEP" "C93_INDDEP", , “S” ) EndIf


38

Versão 1.0

Integração TAF

S-1080 – Tabela Tabela de Operadores Portuários Rotina: Model MVC: Validação Geração XML Regras

TAFA248.prw MODEL_C8W TAF248VLD() TAF248XML() # 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22

TAG eSocial evtTabOperPortuario Id versao ideEvento tpAmb procEmi indSegmento verProc ideEmpregador tpInscricao nrInscricao infoOperPortuario Inclusão / alteração ideOperPortuario cnpjOpPortuario iniValidade fimValidade dadosOperPortuario aliqRat Fat aliqRatAjustada

Model MODEL_C8W MODEL_C8W MODEL_C8W MODEL_C8W MODEL_C8W MODEL_C8W

Campo

FGetIDInt()

C8W_CNPJOP C8W_DTINI C8W_DTFIN C8W_ALQRAT C8W_FAP C8W_ALQAJU

Exemplo: Begin Transaction Aadd( aChave, {"C" "C", , "C8W_CNPJOP", "C8W_CNPJOP" , " 17066878000122" 17066878000122", , .T. .T.} } ) //cnpjOpPortuario Aadd( aChave, {"C" "C", , "C8W_DTINI" "C8W_DTINI", , "012013", "012013" , .T. .T.} } ) //iniValidade Aadd( aChave, {"C" "C", , "C8W_DTFIN" "C8W_DTFIN", , "122013" "122013", , .T. .T.} } ) //fimValidade //ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ //³Função para validar se a operação desejada pode ser realizada³ //ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ If FTafVldOpe( 'C8W' 'C8W', , 2, @nOpc, cFilEv, @aIncons, aChave, @oModel, 'TAFA248' 'TAFA248', , cCmpsNoUpd ) //ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ //³Quando se tratar de uma Exclusão direta, é preciso apenas realizar ³ //³o Commit(), não sendo necessária nenhuma manutenção nas informações³ //ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ If nOpc <> 5 oModel:LoadValue( "MODEL_C8W" "MODEL_C8W", , "C8W_CNPJOP" "C8W_CNPJOP", , C8W->C8W_CNPJOP) oModel:LoadValue( "MODEL_C8W" "MODEL_C8W", , "C8W_DTINI" "C8W_DTINI", , C8W->C8W_DTINI) oModel:LoadValue( "MODEL_C8W" "MODEL_C8W", , "C8W_DTFIN" "C8W_DTFIN", , C8W->C8W_DTFIN)

Versão 1.0

39

Integração TAF

Título do documento EndIf


40

Versão 1.0

Integração TAF

S-1100 – eSocial eSocial Mensal – Abertura Abertura Rotina: Model MVC: Validação Geração XML Regras

TAFA249 MODEL_C8Y TAF249VLD() TAF249XML() # 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38

TAG evtFpAbertura Versão infEvento idEvento ideEvento indRetificacao nrRecibo indApuracao perApuracao tpAmb procEmi indSegmento verProc ideEmpregador tpInscricao nrInscricao ideRespInformacao nomeResponsavel cpfResponsavel Telefone Fax Email infoSubstPatronal indSubstPatronal percAliqPatronal recExpServicos recBrutaExp12m recBrutaTot12m vlrTribRecBruta qtdMesesAtiv percReducaoLei11774 recAtivConcomitante recBrutaTotMes recBrutaTotAno recBrutaAtssMes recBrutaAtssAno fatorMes Fator13

Versão 1.0

Model -

Campo

MODEL_C8Y MODEL_C8Y -

C8Y_INDAPU C8Y_PERAPU

MODEL_C8Y MODEL_C8Y MODEL_C8Y MODEL_C8Y MODEL_C8Y MODEL_C8Y MODEL_C8Y MODEL_C8Y MODEL_C8Y MODEL_C8Y MODEL_C8Y MODEL_C8Y MODEL_C8Y MODEL_C8Y

C8Y_RESPON -

41

C8Y_INDSPT C8Y_ALQPTN C8Y_RBRVEN C8Y_RBRTOT C8Y_VLIMPC C8Y_QTDMES C8Y_PERCRZ C8Y_RBTMES C8Y_RBTANO C8Y_RBTATM C8Y_RBTATA C8Y_FATMES C8Y_FATDTS

FGetIDInt()

cpfResponsavel

Integração TAF

Título do documento Exemplo: Aadd( aChave, { "C" Aadd( "C", , "C8Y_INDAPU", "C8Y_INDAPU" , "1" "1", , .T. } ) Aadd( Aadd ( aChave, { "C" "C", , "C8Y_PERAPU" "C8Y_PERAPU", , "102013" "102013", , .T. } ) Begin Transaction If FTafVldOpe( "C8Y" "C8Y", , 2, @nOpc, cFilEv, @aIncons, aChave, @oModel, "TAFA249" "TAFA249", , cCmpsNoUpd )

/*ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ ³Carrega array com os campos De/Para de gravação das informações ³ ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ*/ aRules := TAF249Rul(cCabec) oModel:LoadValue( "MODEL_C8Y" "MODEL_C8Y", , "C8Y_FILIAL" "C8Y_FILIAL", , C8Y->C8Y_FILIAL ) oModel:LoadValue( "MODEL_C8Y" "MODEL_C8Y", , "C8Y_PERAPU" "C8Y_PERAPU", , "102013" "102013") ) /*ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ ³Efetiva a operação desejada³ ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ*/ FWFormCommit( oModel ) lRet := .T. oModel:DeActivate() EndIf End Transaction

42

Versão 1.0

Integração TAF

S-1200 – eSocial eSocial Mensal – Remuneração Remuneração do Trabalhador Rotina: Model MVC: Validação Geração XML Regras

TAFA250 MODEL_C91 TAF250VLD() TAF250XML() # 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40

41

TAG evtFpRemuneracao Versão infEvento idEvento ideEvento indRetificacao nrRecibo indApuracao perApuracao tpAmb procEmi indSegmento verProc ideEmpregador tpInscricao nrInscricao ideTrabalhador cpfTrab nisTrab qtdDepSF qtdDepIRRF infoMultiplosVinculos indMV remOutrasEmpresas tpInscricao nrInscricao vlrRemuneracao infoSimplesAtivConcomitante indSimples infoComplementares nomeTrab dtNascto codCBO infoTrabAvulso cnpjSindicato fPasSindicato codTerceiros procJudTrabalhador tpTributo nrProcJud infoPeriodoApuracao

Versão 1.0

Model -

Campo

MODEL_C91 MODEL_C91 MODEL_C91 -

C91_INDAPU C91_PERAPU

C91_TRABAL

MODEL_C91

C91_INDMVI

MODEL_C91

C91_INDSIM

MODEL_C91 MODEL_C91 -

C91_CNPJSI C91_FPASSI -

-

-

MODEL_CRN MODEL_CRN -

CRN_TPTRIB CRN_IDPROC

43

FGetIDInt()

cpfTrab

"fpas","codTerceiros"

Integração TAF

Título do documento 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87

ideEstabLotacao tpInscricao nrInscricao codLotacal remunPeriodoApuracao Matricula codCateg bcCP bcIRRF bcFGTS descCP vlrProventos vlrDescontos vlrLiquido itensRemun codRubrica qtdRubrica vlrRubrica infoAgenteNocivo grauExp infoRescisao nrReciboDeslig infoPeriodoAnterior ideAcordoDissidio dtAcordo tpAcordo idePeriodo perReferencia ideEstabLotacao tpInscricao nrInscricao codLotacao remunPeriodoAnterior Matricula codCateg bcCP bcIRRF bcFGTS descCP vlrProventos vlrDescontos vlrLiquido itensRemun codRubrica qtdRubrica vlrRubrica

MODEL_C9K MODEL_C9K

C9K_ESTABE C9K_LOTACA

MODEL_C9L MODEL_C9L MODEL_C9L MODEL_C9L MODEL_C9L MODEL_C9L MODEL_C9L MODEL_C9L MODEL_C9L

C9L_MATRIC C9L_CODCAT C9L_BCPREV C9L_BCIRRF C9L_BCFGTS C9L_VDESPR C9L_PROVEN C9L_DESCON C9L_VLRLIQ

MODEL_C9M MODEL_C9M MODEL_C9M

C9M_CODRUB C9M_QTDRUB C9M_VLRRUB

MODEL_C9L

C9L_GRAEXP

MODEL_C9L

C9L_NRECDE

MODEL_C9N MODEL_C9N

C9N_DTACOR C9N_TPACOR

MODEL_C9O

C9O_PERREF

MODEL_C9P MODEL_C9P

C9P_ESTABE C9P_LOTACA

MODEL_C9Q MODEL_C9Q MODEL_C9Q MODEL_C9Q MODEL_C9Q MODEL_C9Q MODEL_C9Q MODEL_C9Q MODEL_C9Q

C9Q_MATRIC C9Q_CODCAT C9Q_BCPREV C9Q_BCIRRF C9Q_BCFGTS C9Q_VDESPR C9Q_PROVEN C9Q_DESCON C9Q_VLRLIQ

MODEL_C9R MODEL_C9R MODEL_C9R

C9R_CODRUB C9R_QTDRUB C9R_VLRRUB

44

codCateg

codRubrica

tpInscricao,nrInscricao codLotacao

codCateg

codRubrica

Versão 1.0

Integração TAF

88 89 90 91 92 93 94 95 96 97

infoAgenteNocivo grauExp totRemuneracao perReferencia Matricula codCateg bcCP bcFGTS bcIRRF descCP

MODEL_C9Q

C9Q_GRAEXP

MODEL_C9U MODEL_C9U MODEL_C9U MODEL_C9U MODEL_C9U MODEL_C9U MODEL_C9U

C9U_PERREF C9U_MATRIC C9U_CODCAT C9U_BCPREV C9U_BCFGTS C9U_BCIRRF C9U_VDESPR

codCateg

Exemplo: cXml := xFunLerXML() oDados := TXmlManager():New() oDados:Parse(cXml) Aadd( aChave, {"C" Aadd( "C", , "C91_INDAPU", "C91_INDAPU" , "1" , .T. } ) Aadd( Aadd ( aChave, {"C" "C", , "C91_PERAPU" "C91_PERAPU", , "122013" , .T. } ) Aadd( Aadd ( aChave, {"C" "C", , "C91_TRABAL" "C91_TRABAL", , FGetIdInt("cpfTrab" FGetIdInt( "cpfTrab", ,"" "", ,"37400956876" "37400956876") ) , .T. .T.} } ) Begin Transaction

//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ //³Função para validar se a operação desejada pode ser realizada³ //ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ If FTafVldOpe( 'C91' 'C91', , 2, @nOpc, cFilEv, @aIncons, aChave, @oModel, 'TAFA250' 'TAFA250', , cCmpsNoUpd ) //ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ //³Quando se tratar de uma Exclusão direta, é preciso apenas realizar ³ //³o Commit(), não sendo necessária nenhuma manutenção nas informações³ //ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ If nOpc <> 5 oModel:LoadValue( "MODEL_C91" "MODEL_C91", , "C91_INDAPU" "C91_INDAPU", , C91->C91_INDAPU) oModel:LoadValue( "MODEL_C91" "MODEL_C91", , "C91_PERAPU" "C91_PERAPU", , C91->C91_PERAPU) oModel:LoadValue( "MODEL_C91" "MODEL_C91", , "C91_TRABAL" "C91_TRABAL", , C91->C91_TRABAL) nC9K := 1 cC9KPath := "/evtFpRemuneracao/infEvento/infoPeriodoApuracao/ideEstabLotacao[" + CVALTOCHAR(nC9K) CVALTOCHAR (nC9K) + "]" If nOpc == 4 .And. oDados:XPathHasNode( cC9KPath ) For nJ := 1 to oModel:GetModel( 'MODEL_C9K' ):Length() Next nJ

oModel:GetModel( 'MODEL_C9K' ):GoLine(nJ) oModel:GetModel( 'MODEL_C9K' ):DeleteLine()

EndIf

//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ //³Roda o XML parseado para gravar as novas informações no GRID³ //ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ nC9K := 1 While oDados:XPathHasNode(cC9KPath) oModel:GetModel( 'MODEL_C9K' ):LVALID

:= .T.

If nOpc == 4 .Or. nC9K > 1

oModel:GetModel( 'MODEL_C9K' ):AddLine() EndIf

oModel:LoadValue( "MODEL_C9K" "MODEL_C9K", , "C9K_ESTABE" "C9K_ESTABE", , "nrInscricao", "nrInscricao" , "1" , "123456" "123456") ) )

Versão 1.0

45

FGetIdInt( "tpInscricao" "tpInscricao", ,

Integração TAF

Título do documento oModel:LoadValue( "MODEL_C9K" "MODEL_C9K", , "C9K_LOTACA" "C9K_LOTACA", , FGetIdInt( "codLotacao" "codLotacao", , "" "", , "01" "01") ) ) nC9L:= nC9L:= 1 cC9LPath := cC9KPath+ cC9KPath +"/remunPeriodoApuracao[" + CVALTOCHAR CVALTOCHAR(nC9L) (nC9L) + "]" If nOpc == 4 .And. oDados:XPathHasNode( cC9LPath ) For nJ := 1 to oModel:GetModel( 'MODEL_C9L' ):Length()

oModel:GetModel( 'MODEL_C9L' ):GoLine(nJ) oModel:GetModel( 'MODEL_C9L' ):DeleteLine() Next nJ EndIf

nC9L := 1

While oDados:XPathHasNode(cC9LPath)

oModel:GetModel( 'MODEL_C9L' ):LVALID

:= .T.

If nOpc == 4 .Or. nC9L > 1

oModel:GetModel( 'MODEL_C9L' ):AddLine() EndIf

oModel:LoadValue( "MODEL_C9L" "MODEL_C9L", , "C9L_VLRLIQ” , "10" "10") ) oModel:LoadValue( "MODEL_C9L" "MODEL_C9L", , "C9L_NRECDE" "C9L_NRECDE", , "0123456789" "0123456789") ) nC9M:= nC9M:= 1 cC9MPath := cC9LPath+ cC9LPath +"/itensRemun[" + CVALTOCHAR CVALTOCHAR(nC9M) (nC9M) + "]" If nOpc == 4 .And. oDados:XPathHasNode( cC9MPath ) For nJ := 1 to oModel:GetModel( 'MODEL_C9M' ):Length()

oModel:GetModel( 'MODEL_C9M' ):GoLine(nJ) oModel:GetModel( 'MODEL_C9M' ):DeleteLine() Next nJ EndIf

nC9M := 1 While oDados:XPathHasNode(cC9MPath)

oModel:GetModel( 'MODEL_C9M' ):LVALID

:= .T.

If nOpc == 4 .Or. nC9M > 1

oModel:GetModel( 'MODEL_C9M' ):AddLine() EndIf

oModel:LoadValue( "MODEL_C9M" "MODEL_C9M", , "C9M_QTDRUB" , "2" "2") ) nC9M++ cC9MPath := cC9LPath+ cC9LPath +"/itensRemun[" + CVALTOCHAR CVALTOCHAR(nC9M) (nC9M) + "]" EndDo

nC9L++ cC9LPath := cC9KPath+ cC9KPath +"/remunPeriodoApuracao[" + CVALTOCHAR CVALTOCHAR(nC9L) (nC9L) + "]" EndDo

nC9K++ cC9KPath := "/evtFpRemuneracao/infEvento/infoPeriodoApuracao/ideEstabLotacao[" + CVALTOCHAR CVALTOCHAR(nC9K) (nC9K) + "]" EndDo

nC9N := 1 cC9NPath := "/evtFpRemuneracao/infEvento/infoPeriodoAnterior/ideAcordoDissidio[" + CVALTOCHAR(nC9N) CVALTOCHAR (nC9N) + "]" If nOpc == 4 .And. oDados:XPathHasNode( cC9NPath ) For nJ := 1 to oModel:GetModel( 'MODEL_C9N' ):Length()

oModel:GetModel( 'MODEL_C9N' ):GoLine(nJ) oModel:GetModel( 'MODEL_C9N' ):DeleteLine() Next nJ EndIf

//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ //³Roda o XML parseado para gravar as novas informações no GRID³ //ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ nC9N := 1 While oDados:XPathHasNode(cC9NPath) oModel:GetModel( 'MODEL_C9N' ):LVALID := .T. If nOpc == 4 .Or. nC9N > 1

46

Versão 1.0

Integração TAF

oModel:GetModel( 'MODEL_C9N' ):AddLine() EndIf

oModel:LoadValue( "MODEL_C9N" "MODEL_C9N", , "C9N_TPACOR" , "1" "1") ) nC9O:= nC9O:= 1 cC9OPath := cC9NPath + "/idePeriodo[" + CVALTOCHAR CVALTOCHAR(nC9O) (nC9O) + "]" If nOpc == 4 .And. oDados:XPathHasNode( cC9OPath ) For nJ := 1 to oModel:GetModel( 'MODEL_C9O' ):Length()

oModel:GetModel( 'MODEL_C9O' ):GoLine(nJ) oModel:GetModel( 'MODEL_C9O' ):DeleteLine() Next nJ EndIf

nC9O := 1

While oDados:XPathHasNode(cC9OPath)

oModel:GetModel( 'MODEL_C9O' ):LVALID

:= .T.

If nOpc == 4 .Or. nC9O > 1

oModel:GetModel( 'MODEL_C9O' ):AddLine() EndIf

oModel:LoadValue( "MODEL_C9O" "MODEL_C9O", , "C9O_PERREF ”, "102013" "102013") ) nC9P:= nC9P:= 1 cC9PPath := cC9OPath + "/ideEstabLotacao[" + CVALTOCHAR CVALTOCHAR(nC9P) (nC9P) + "] If nOpc == 4 .And. oDados:XPathHasNode( cC9PPath ) For nJ := 1 to oModel:GetModel( 'MODEL_C9P' ):Length()

oModel:GetModel( 'MODEL_C9P' ):GoLine(nJ) oModel:GetModel( 'MODEL_C9P' ):DeleteLine() Next nJ EndIf

nC9P := 1

While oDados:XPathHasNode(cC9PPath)

oModel:GetModel( 'MODEL_C9P' ):LVALID

:= .T.

If nOpc == 4 .Or. nC9P > 1

oModel:GetModel( 'MODEL_C9P' ):AddLine() EndIf

oModel:LoadValue( "MODEL_C9P" "MODEL_C9P", , "C9P_ESTABE" "C9P_ESTABE", , FGetIdInt( "tpInscricao", "tpInscricao" , "nrInscricao" "nrInscricao", , "1" , "0235789" )) nC9Q:= nC9Q:= 1 cC9QPath := cC9PPath+ cC9PPath + "/remunPeriodoAnterior[" + CVALTOCHAR(nC9Q) CVALTOCHAR (nC9Q) + "]" If nOpc == 4 .And. oDados:XPathHasNode( cC9QPath ) For nJ := 1 to oModel:GetModel( 'MODEL_C9Q' ):Length()

oModel:GetModel( 'MODEL_C9Q' ):GoLine(nJ) oModel:GetModel( 'MODEL_C9Q' ):DeleteLine() Next nJ EndIf

nC9Q := 1

While oDados:XPathHasNode(cC9QPath)

oModel:GetModel( 'MODEL_C9Q' ):LVALID

:= .T.

If nOpc == 4 .Or. nC9Q > 1

oModel:GetModel( 'MODEL_C9Q' ):AddLine() EndIf

oModel:LoadValue( "MODEL_C9Q" "MODEL_C9Q", , "C9Q_DESCON" , "1" "1") ) nC9R:= nC9R:= 1 cC9RPath := cC9QPath + "/itensRemun[" + CVALTOCHAR CVALTOCHAR(nC9R) (nC9R) + "]" If nOpc == 4 .And. oDados:XPathHasNode( cC9QPath ) For nJ := 1 to oModel:GetModel( 'MODEL_C9R'

):Length()

Versão 1.0

47

Integração TAF

Título do documento oModel:GetModel( 'MODEL_C9R' ):GoLine(nJ) oModel:GetModel( 'MODEL_C9R' ):DeleteLine() Next nJ EndIf

nC9R := 1 While oDados:XPathHasNode(cC9RPath)

oModel:GetModel( 'MODEL_C9R' ):LVALID

:=

.T. If nOpc == 4 .Or. nC9R > 1

oModel:GetModel( 'MODEL_C9R' ):AddLine() EndIf

oModel:LoadValue( "MODEL_C9R" "MODEL_C9R", , "C9R_QTDRUB" "C9R_QTDRUB", , "5" "5") ) nC9R++ cC9RPath := cC9QPath + "/itensRemun[" + CVALTOCHAR(nC9R) CVALTOCHAR (nC9R) + "]" EndDo

nC9Q++ cC9QPath := cC9PPath+ cC9PPath+ "/remunPeriodoAnterior[" + CVALTOCHAR(nC9Q) CVALTOCHAR (nC9Q) + "]" EndDo

nC9P++ cC9PPath := cC9OPath+ cC9OPath +"/itensRemun[" + CVALTOCHAR CVALTOCHAR(nC9P) (nC9P) + "]" EndDo

nC9O++ cC9OPath := cC9NPath+ cC9NPath +"/remunPeriodoApuracao[" + CVALTOCHAR CVALTOCHAR(nC9O) (nC9O) + "]" EndDo

nC9N++ cC9NPath := "/evtFpRemuneracao/infEvento/infoPeriodoApuracao/ideEstabLotacao[" + CVALTOCHAR CVALTOCHAR(nC9N) (nC9N) + "]" EndDo

nC9S := 1 cC9SPath := "/evtFpRemuneracao/infEvento/infoPagtosEfetuados[" + CVALTOCHAR CVALTOCHAR(nC9S) (nC9S) + "]" If nOpc == 4 .And. oDados:XPathHasNode( cC9SPath ) For nJ := 1 to oModel:GetModel( 'MODEL_C9S' ):Length()

oModel:GetModel( 'MODEL_C9S' ):GoLine(nJ) oModel:GetModel( 'MODEL_C9S' ):DeleteLine() Next nJ EndIf

//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ //³Quando se trata de uma alteração, deleta-se todas as linhas do Grid³ //ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ nC9U := 1 cC9UPath := "/evtFpRemuneracao/infEvento/totRemuneracao[" + CVALTOCHAR CVALTOCHAR(nC9U) (nC9U) + "]" If nOpc == 4 .And. oDados:XPathHasNode( cC9UPath ) For nJ := 1 to oModel:GetModel( 'MODEL_C9U' ):Length()

oModel:GetModel( 'MODEL_C9U' ):GoLine(nJ) oModel:GetModel( 'MODEL_C9U' ):DeleteLine() Next nJ EndIf

//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ //³Roda o XML parseado para gravar as novas informações no GRID³ //ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ nC9U := 1 While oDados:XPathHasNode(cC9UPath) oModel:GetModel( 'MODEL_C9U' ):LVALID

:= .T.

If nOpc == 4 .Or. nC9U > 1

oModel:GetModel( 'MODEL_C9U' ):AddLine() EndIf

oModel:LoadValue( "MODEL_C9U" "MODEL_C9U", , "C9U_VDESPR ”, "1" "1") )

48

Versão 1.0

Integração TAF

nC9U++ cC9UPath := "/evtFpRemuneracao/infEvento/totRemuneracao[" + CVALTOCHAR CVALTOCHAR(nC9U) (nC9U) + "]" EndDo

//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ //³Quando se trata de uma alteração, deleta-se todas as linhas do Grid³ //ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ nC9J := 1 cC9JPath := "evtFpRemuneracao/infEvento/ideTrabalhador/infoMultiplosVinculos/remunOutrasEmpresas+[" + CVALTOCHAR CVALTOCHAR(nC9J) (nC9J) + "]" If nOpc == 4 .And. oDados:XPathHasNode( cC9JPath ) For nJ := 1 to oModel:GetModel( 'MODEL_C9J' ):Length() oModel:GetModel( 'MODEL_C9J' ):GoLine(nJ) oModel:GetModel( 'MODEL_C9J' ):DeleteLine() Next nJ EndIf

//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ //³Roda o XML parseado para gravar as novas informações no GRID³ //ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ nC9J := 1 While oDados:XPathHasNode(cC9JPath) oModel:GetModel( 'MODEL_C9J' ):LVALID

:= .T.

If nOpc == 4 .Or. nC9J > 1

oModel:GetModel( 'MODEL_C9J' ):AddLine() EndIf

oModel:LoadValue( "MODEL_C9J" "MODEL_C9J", , "C9J_VLREMU" , "500" "500") ) nC9J++ cC9JPath := "evtFpRemuneracao/infEvento/ideTrabalhador/infoMultiplosVinculos/remunOutrasEmpresas+[" "]" EndDo EndIf


Versão 1.0

49

+ CVALTOCHAR CVALTOCHAR(nC9J) (nC9J) +

Integração TAF


S-1300 – Eventos Eventos Periódicos – Pagamentos Pagamentos Diversos Rotina: Model MVC: Validação Geração XML Regras

TAFA285 MODEL_CRW; MODEL_CRX; MODEL_CRY; MODEL_CU2; MODEL_CRZ; MODEL_CU3; MODEL_CU4; MODEL_CU5; MODEL_CU6; MODEL_CU7; MODEL_CU8; MODEL_CU9; TAF285VLD() TAF285XML() #

TAG

Model

01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30

eSocial evtPagtosDiversos Id versao ideEvento indRetificacao nrRecibo IndApuracao perApuracao tpAmb procEmi indSegmento verProc ideEmpregador tpInscricao nrInscricao ideBeneficiario codRendimento tpInscBeneficiario nrInscBeneficiario dadosNaoResidente dadosPessoais nomeBeneficiario dadosEndereco paisResidencia descLogradouro nrLogradouro Complemento Bairro nomeCidade

MODEL_CRW MODEL_CRW MODEL_CRW MODEL_CRW MODEL_CRW MODEL_CRW MODEL_CRW MODEL_CRW MODEL_CRW MODEL_CRW MODEL_CRW MODEL_CRW

31 32 33 34 35 36 37 38 39 40 41 42 43 44

codPostal dadosFiscais indNIF nifBeneficiario relFontePagadora dadosMolestiaGrave dtLaudo infoPagto pagtoResidente pagtoBPF dtPagto indSuspExigibilidade indSuspExigibilidade indDecTerceiro vlrRendTributavel

MODEL_CRW MODEL_CRW MODEL_CRW MODEL_CRW MODEL_CRW MODEL_CRX MODEL_CRX MODEL_CRX MODEL_CRX

50

Campo

FGetIDInt()

CRW_INDAPU CRW_PERAPU

CRW_IDREND CRW_TPINSC CRW_NRINSC

codRendimento

CRW_NOMEBE CRW_IDPAIS CRW_LOGRAD CRW_NUMERO CRW_COMPLE CRW_BAIRRO CRW_CODMU N CRW_CEP CRW_TPNIF CRW_NIF CRW_RELFON

paisResidencia

relFontePagadora

CRW_DTLAUD

CRX_DATA CRX_EXISUS CRX_DECTER CRX_VLRRTR

Versão 1.0

Integração TAF

45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100

vlrIRRF detDeducao indTpDeducao vlrDeducao rendIsento tpIsencao vlrIsento detOutros descRendimento detCompetencia indPerReferencia perRefPagto vlrRendTributavel compJudicial vlrCompAnoCalendario vlrCompAnoCalendario vlrcompAnosAnteriores depJudicial vlrDepJudicial infoRRA tpProcRRA nrProcRRA natRRA qtdMesesRRA despProcJudicial vlrDespCustas vlrDespAdvogados ideAdvogado tpInscAdvogado nrInscAdvogado vlrAdvogado infoProcJudicial nrProcJud indOrigemRecursos despProcJudicial vlrDespCustas vlrDespAdvogados ideAdvogado tpInscAdvogado nrInscAdvogado vlrAdvogado origemRecursos cnpjOrigemRecursos pagtoBPJ dtPagto vlrRendTributavel vlrIRRF pagtoNaoResidente dtPagto tpRendimento formaTributacao vlrPago vlrIRRF infoPlanoSaudeColetivo infoPlanoSaudeColetivo cnpjOperadora vlrPagoTitular depPlano

Versão 1.0

MODEL_CRX MODEL_CRY MODEL_CRY MODEL_CU2 MODEL_CU2 MODEL_CU2 MODEL_CRZ MODEL_CRZ MODEL_CRZ MODEL_CRX MODEL_CRX MODEL_CRX MODEL_CU3 MODEL_CU3 MODEL_CU3 MODEL_CU3 MODEL_CU3 MODEL_CU4 MODEL_CU4 MODEL_CU5 MODEL_CU5 MODEL_CU5 MODEL_CU5 MODEL_CU6 MODEL_CU6 MODEL_CU5 MODEL_CU7 MODEL_CU7 MODEL_CU7 MODEL_CU8 MODEL_CU8 MODEL_CU8 MODEL_CU8 MODEL_CU8 MODEL_CRW MODEL_CRW -

51

CRX_VLRIRR CRY_TPDEDU CRY_VLRDED CU2_TPISEN CU2_VLRISE

tpIsencao

CU2_REFER CRZ_PERREF CRZ_REFER CRZ_RENTRI CRX_VLRCAC CRX_VLRCCA CRX_VLRDJU CU3_IDPROC CU3_NATRRA CU3_QTDMES

tpProcRRA, nrProcRRA -

CU3_VLRCUS CU3_VLRADV CU4_IDADV CU4_VLRADV

tpInscAdvogado, nrInscAdvogado -

CU5_IDPROC CU5_ORIREC

"","nrProcJud"

CU5_VLRCUS CU5_VLRADV CU6_IDADV CU6_VLRADV

"tpInscAdvogado","nrInscAdvogado" "tpInscAdvogado","nrInscAdvogado" -

CU5_CNPJOR CU7_DTPGTO CU7_VLRPGT CU7_VLRIRR CU8_DTPGTO CU8_IDTPRE CU8_IDFTRI CU8_VLRPGT CU8_VLRIRR CRW_CNPJPS CRW_VLRTIT

tpRendimento formaTributacao

Integração TAF

Título do documento 101 102 103 104 105

cpfDep dtNasctoDep nomeDep relDependencia vlrPagoDep

MODEL_CU9 MODEL_CU9 MODEL_CU9 MODEL_CU9 MODEL_CU9

CU9_CPFDEP CU9_DTNASC CU9_NOMDEP CU9_TPDEP CU9_VLRPGT

relDependencia

Exemplo: aAdd( aChave, {"C" aAdd( "C",, "CRW_PERAPU" ,cCabec + "/ideEvento/indApuracao" , .F. } ) aAdd(( aChave, {"C" aAdd "C",, "CRW_INDAPU" "CRW_INDAPU",cCabec ,cCabec + "/ideEvento/perApuracao" , .F. } ) aAdd(( aChave, {"C" aAdd "C",, "CRW_IDREND" "CRW_IDREND",FGetIdInt( ,FGetIdInt("codRendimento" "codRendimento" , "" "",, cCabec + "/ideBeneficiario/codRendimento" "/ideBeneficiario/codRendimento"), ), .T. } ) aAdd(( aChave, {"C" aAdd "C",, "CRW_TPINSC" "CRW_TPINSC",cCabec ,cCabec + "/ideBene "/ideBeneficiario/tpInsc ficiario/tpInscBeneficiario Beneficiario"", .F. } ) aAdd(( aChave, {"C" aAdd "C",, "CRW_NRINSC" "CRW_NRINSC",cCabec ,cCabec + "/ideBene "/ideBeneficiario/nrInscB ficiario/nrInscBeneficiario" eneficiario",, .F. } ) Begin Transaction //³Funcao para validar se a operacao desejada pode ser realizada³ If FTafVldOpe( "CRW" "CRW",, 2, @nOpc, cFilEv, @aIncons, aChave, @oModel, "TAFA285" "TAFA285",, cCmpsNoUpd ) //³Carrego array com os campos De/Para de gravacao das informacoes³ aRules := TAF285Rul() If nOpc <> 5 oModel:LoadValue( "MODEL_CRW" "MODEL_CRW",, "CRW_FILIAL" "CRW_FILIAL",, CRW->CRW_FILIAL ) //ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ //³Rodo o aRules para gravar as informacoes³ //ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ For nlI := 1 To Len Len(( aRules ) oModel:LoadValue( "MODEL_CRW" "MODEL_CRW",, aRules[ nlI, 01 ], FTafGetVal( aRules[ nlI, 02 ], aRules[nlI, 03], aRules[nlI, 04], @aIncons, .F. ) ) Next //³INICIO CRX- ³ nCRX := 1 cCRXPath := cCabec + "/infoPagto/pagtoResidente/pagtoBPF[" + cValToChar cValToChar(nCRX) (nCRX) + "]" //Deleta as linhas existentes se for alteraca If nOpc == 4 .And. oDados:XPathHasNode( cCRXPath ) For nCRX := 1 to oModel:GetModel( 'MODEL_CRX' ):Length() oModel:GetModel( 'MODEL_CRX' ):GoLine(nCRX) oModel:GetModel( 'MODEL_CRX' ):DeleteLine() Next nCRX EndIf //Alimenta o modelo CRX While oDados:XPathHasNode( cCabec + "/infoPagto/pagtoResidente/pagtoBPF[" + cValToChar cValToChar(nCRX) (nCRX) + "]" ) If nOpc == 4 .Or. nCRX > 1 // Informa que a linha está válida para que seja incluída uma nova linha oModel:GetModel( "MODEL_CRX" ):LVALID := .T. // Inclui uma linha a cada volta do laço oModel:GetModel( "MODEL_CRX" ):AddLine() EndIf // Grava dados no model oModel:LoadValue( "MODEL_CRX" "MODEL_CRX",, "CRX_DATA" , FTafGetVal( cCRXPath + "/dtPagto" "/dtPagto",, "D" "D",, .F. .F.,, @aIncons, .F. ) ) oModel:LoadValue( "MODEL_CRX" "MODEL_CRX",, "CRX_EXISUS" "CRX_EXISUS",, FTafGetVal( cCRXPath + "/indSuspExigibilidade" "/indSuspExigibilidade",, "C" "C",, .F. .F.,, @aIncons, .T. ) ) oModel:LoadValue( "MODEL_CRX" "MODEL_CRX",, "CRX_DECTER" "CRX_DECTER",, FTafGetVal( cCRXPath + "/indDecTerceiro" "/indDecTerceiro",, "C" "C",, .F. .F.,, @aIncons, .T. ) ) oModel:LoadValue( "MODEL_CRX" "MODEL_CRX",, "CRX_VLRRTR" "CRX_VLRRTR",, FTafGetVal( cCRXPath + "/vlrRendTributavel" "/vlrRendTributavel",, "N" "N",, .F. .F.,, @aIncons, .F. ) ) oModel:LoadValue( "MODEL_CRX" "MODEL_CRX",, "CRX_CODIGO" "CRX_CODIGO",, Strzero Strzero(nCRX,2)) (nCRX,2))

52

Versão 1.0

Integração TAF

//³INICIO CRY- ³ nCRY := 1 cCRYPath := cCabec + "/infoPagto/pagtoResidente/pagtoBPF/detDeducao[" + cValToChar cValToChar(nCRY) (nCRY) + "] //Deleta as linhas existentes se for alteraca If nOpc == 4 .And. oDados:XPathHasNode( cCRYPath ) For nCRY := 1 to oModel:GetModel( 'MODEL_CRY' ):Length() oModel:GetModel( 'MODEL_CRY' ):GoLine(nCRY) oModel:GetModel( 'MODEL_CRY' ):DeleteLine() Next nCRY EndIf //Alimenta o modelo CRY While oDados:XPathHasNode( cCabec + "/infoPagto/pagtoResidente/pagtoBPF/detDeducao[" + cValToChar cValToChar(nCRY) (nCRY) + "]" ) cCRYPath := cCabec + "/infoPagto/pagtoResidente/pagtoBPF/detDeducao[" + cValToChar cValToChar(nCRY) (nCRY) + "] If nOpc == 4 .Or. nCRY > 1 // Informa que a linha está válida para que seja incluída uma nova linha oModel:GetModel( "MODEL_CRY" ):LVALID := .T. // Inclui uma linha a cada volta do laço oModel:GetModel( "MODEL_CRY" ):AddLine() EndIf oModel:LoadValue( "MODEL_CRY" "MODEL_CRY",, "CRY_VLRDED" "CRY_VLRDED",, FTafGetVal( cCRYPath + "/vlrDeducao" "/vlrDeducao",, "N" "N",, .F. .F.,, @aIncons, .F. ) ) nCRY ++ EndDo //³INICIO CRZ - ³ nCRZ := 1 cCRZPath := cCabec + "/infoPagto/pagtoResidente/pagtoBPF/detCompetencia[" + cValToChar cValToChar(nCRZ) (nCRZ) + "]" //Deleta as linhas existentes se for alteracao If nOpc == 4 .And. oDados:XPathHasNode( cCRZPath ) For nCRZ := 1 to oModel:GetModel( 'MODEL_CRZ' ):Length() oModel:GetModel( 'MODEL_CRZ' ):GoLine(nCRZ) oModel:GetModel( 'MODEL_CRZ' ):DeleteLine() Next nCRZ EndIf //Alimenta o modelo CRZ While oDados:XPathHasNode( cCabec + "/infoPagto/pagtoResidente/pagtoBPF/detCompetencia[" + cValToChar cValToChar(nCRZ) (nCRZ) + "]" ) cCRZPath := cCabec + "/infoPagto/pagtoResidente/pagtoBPF/detCompetencia[" + cValToChar cValToChar(nCRZ) (nCRZ) + "]" If nOpc == 4 .Or. nCRZ > 1 // Informa que a linha está válida para que seja incluída uma nova linha oModel:GetModel( "MODEL_CRZ" ):LVALID := .T. // Inclui uma linha a cada volta do laço oModel:GetModel( "MODEL_CRZ" ):AddLine() EndIf oModel:LoadValue( "MODEL_CRZ" "MODEL_CRZ",, "CRZ_REFER" , FTafGetVal( cCRZPath + "/perRefPagto" , "C" "C",, .F. .F.,, @aIncons, .F. ) ) nCRZ ++ EndDo //³INICIO CU2- ³ nCU2 := 1 cCU2Path := cCabec + "/infoPagto/pagtoResidente/pagtoBPF/rendIsento[" + cValToChar cValToChar(nCU2) (nCU2) + "] //Deleta as linhas existentes se for alteraca If nOpc == 4 .And. oDados:XPathHasNode( cCU2Path ) For nCU2 := 1 to oModel:GetModel( 'MODEL_CU2' ):Length() oModel:GetModel( 'MODEL_CU2' ):GoLine(nCU2) oModel:GetModel( 'MODEL_CU2' ):DeleteLine() Next nCU2

Versão 1.0

53

Integração TAF

Título do documento EndIf //Alimenta o modelo CU2 While oDados:XPathHasNode( cCabec + "/infoPagto/pagtoResidente/pagtoBPF/rendIsento[" + cValToChar cValToChar(nCU2) (nCU2) + "]" ) cCU2Path := cCabec + "/infoPagto/pagtoResidente/pagtoBPF/rendIsento[" + cValToChar cValToChar(nCU2) (nCU2) + "] If nOpc == 4 .Or. nCU2 > 1 // Informa que a linha está válida para que seja incluída uma nova linha oModel:GetModel( "MODEL_CU2" ):LVALID := .T. // Inclui uma linha a cada volta do laço oModel:GetModel( "MODEL_CU2" ):AddLine() EndIf oModel:LoadValue( "MODEL_CU2" "MODEL_CU2",, "CU2_VLRISE" "CU2_VLRISE",, FTafGetVal( cCU2Path + "/vlrIsento" "/vlrIsento",, "N" "N",, .F. .F.,, @aIncons, .F. ) ) nCU2 ++ EndDo //³INICIO CU3 - ³ nCU3 := 1 cCU3Path := cCabec + "/infoPagto/pagtoResidente/pagtoBPF/infoRRA[" + cValToChar cValToChar(nCU3) (nCU3) + "]" //Deleta as linhas existentes se for alteracao if nOpc == 4 .And. oDados:XPathHasNode( cCU3Path ) For nCU3 := 1 to oModel:GetModel( 'MODEL_CU3' ):Length() oModel:GetModel( 'MODEL_CU3' ):GoLine(nCU3) oModel:GetModel( 'MODEL_CU3' ):DeleteLine() Next nCU3 EndIf //Alimenta o modelo CU3 While oDados:XPathHasNode( cCabec + "/infoPagto/pagtoResidente/pagtoBPF/infoRRA[" + cValToChar cValToChar(nCU3) (nCU3) + "]" ) cCU3Path := cCabec + "/infoPagto/pagtoResidente/pagtoBPF/infoRRA[" + cValToChar cValToChar(nCU3) (nCU3) + "]" If nOpc == 4 .Or. nCU3 > 1 // Informa que a linha está válida para que seja incluída uma nova linha oModel:GetModel( "MODEL_CU3" ):LVALID := .T. // Inclui uma linha a cada volta do laço oModel:GetModel( "MODEL_CU3" ):AddLine() EndIf nGetId := FGetIdInt("tpProcRRA" FGetIdInt( "tpProcRRA",,"nrProcRRA" "nrProcRRA",, cCU3Path + "/tpProcRRA" "/tpProcRRA",, cCU3Path + "/nrProcRRA" "/nrProcRRA",,.T. .T.)) oModel:LoadValue( "MODEL_CU3", "MODEL_CU3" , "CU3_IDPROC" "CU3_IDPROC",, nGetId) oModel:LoadValue( "MODEL_CU3" "MODEL_CU3",, "CU3_NATRRA" "CU3_NATRRA",, FTafGetVal( cCU3Path + "/natRRA" "/natRRA",, "C" "C",, .F. .F.,, @aIncons, .F. ) ) //³INICIO CU4 - ³ nCU4 := 1 cCU4Path := cCabec + "/infoPagto/pagtoResidente/pagtoBPF/infoRRA/despProcJudicial/ideAdvogado[" + cValToChar(nCU4) cValToChar (nCU4) + "]" //Deleta as linhas existentes se for alteracao If nOpc == 4 .And. oDados:XPathHasNode( cCU4Path ) For nCU4 := 1 to oModel:GetModel( 'MODEL_CU4' ):Length() oModel:GetModel( 'MODEL_CU4' ):GoLine(nJ) oModel:GetModel( 'MODEL_CU4' ):DeleteLine() Next nCU4 EndIf //Alimenta o modelo CU4 While oDados:XPathHasNode( cCabec + "/infoPagto/pagtoResidente/pagtoBPF/infoRRA/despProcJudicial/ideAdvogado[" + cValToChar cValToChar(nCU4) (nCU4) + "]" ) cCU4Path := cCabec + "/infoPagto/pagtoResidente/pagtoBPF/infoRRA/despProcJudicial/ideAdvogado[" + cValToChar(nCU4) cValToChar (nCU4) + "]" If nOpc == 4 .Or. nCU4 > 1 // Informa que a linha está válida para que seja incluída uma nova linha oModel:GetModel( "MODEL_CU4" ):LVALID := .T.

54

Versão 1.0

Integração TAF

// Inclui uma linha a cada volta do laço oModel:GetModel( "MODEL_CU4" ):AddLine() EndIf nGetId := FGetIdInt("tpInscAdvogado" FGetIdInt( "tpInscAdvogado" ,"nrInscAdvogado" , cCU4Path + "/tpInscAdvogado" , cCU4Path + "/nrInscAdvogado",,.T. "/nrInscAdvogado" .T.)) oModel:LoadValue( "MODEL_CU4", "MODEL_CU4" , "CU4_IDADV" "CU4_IDADV",, nGetId) oModel:LoadValue( "MODEL_CU4" "MODEL_CU4",, "CU4_VLRADV" "CU4_VLRADV",FTafGetVal( ,FTafGetVal( cCU4Path + "/vlrAdvogado" , "N" "N",, .F. .F.,, @aIncons, .F. ) ) nCU4 ++ EndDo nCU3 ++ EndDo //³INICIO CU5 - ³ nCU5 := 1 cCU5Path := cCabec + "/infoPagto/pagtoResidente/pagtoBPF/infoProcJudicial[" + cValToChar cValToChar(nCU5) (nCU5) + "]" //Deleta as linhas existentes se for alteracao If nOpc == 4 .And. oDados:XPathHasNode( cCU5Path ) For nCU5 := 1 to oModel:GetModel( 'MODEL_CU5' ):Length() oModel:GetModel( 'MODEL_CU5' ):GoLine(nCU5) oModel:GetModel( 'MODEL_CU5' ):DeleteLine() Next nCU5 EndIf //Alimenta o modelo CU5 While oDados:XPathHasNode( cCabec + "/infoPagto/pagtoResidente/pagtoBPF/infoProcJudicial[" + cValToChar cValToChar(nCU5) (nCU5) + "]" ) cCU5Path := cCabec + "/infoPagto/pagtoResidente/pagtoBPF/infoProcJudicial[" + cValToChar cValToChar(nCU5) (nCU5) + "]" If nOpc == 4 .Or. nCU5 > 1 // Informa que a linha está válida para que seja incluída uma nova linha oModel:GetModel( "MODEL_CU5" ):LVALID := .T. // Inclui uma linha a cada volta do laço oModel:GetModel( "MODEL_CU5" ):AddLine() EndIf nGetId := FTafGetVal(FGetIdInt( "" "",,"nrProcJud" "nrProcJud",, cCU5Path + "/nrProcJud" ), "C" "C",, .T. .T.,, @aIncons, .F. ) oModel:LoadValue( "MODEL_CU5" "MODEL_CU5",, "CU5_IDPROC" "CU5_IDPROC",, nGetId )

//³INICIO CU6 - ³ nCU6 := 1 cCU6Path := cCabec + "/infoPagto/pagtoResidente/pagtoBPF/infoProcJudicial/despProcJudicial/ideAdvogado[" + cValToChar(nCU6) cValToChar (nCU6) + "]" //Deleta as linhas existentes se for alteracao If nOpc == 4 .And. oDados:XPathHasNode( cCU6Path ) For nCU6 := 1 to oModel:GetModel( 'MODEL_CU6' ):Length() oModel:GetModel( 'MODEL_CU6' ):GoLine(nCU6) oModel:GetModel( 'MODEL_CU6' ):DeleteLine() Next nCU6 EndIf //Alimenta o modelo CU6 While oDados:XPathHasNode( cCabec + "/infoPagto/pagtoResidente/pagtoBPF/infoProcJudicial[" + cValToChar(nCU5) cValToChar (nCU5) + "]/despProcJudicial/ideAdvogado[" "]/despProcJudicial/ideAdvogado["++ cValToChar cValToChar(nCU6) (nCU6) + "]" ) cCU6Path := cCabec + "/infoPagto/pagtoResidente/pagtoBPF/infoProcJudicial/despProcJudicial/ideAdvogado[" + cValToChar cValToChar(nCU6) (nCU6) + "]" If nOpc == 4 .Or. nCU6 > 1 // Informa que a linha está válida para que seja incluída uma nova linha oModel:GetModel( "MODEL_CU6" ):LVALID := .T. // Inclui uma linha a cada volta do laço

Versão 1.0

55

Integração TAF

Título do documento oModel:GetModel( "MODEL_CU6" ):AddLine() EndIf nGetId := FGetIdInt("tpInscAdvogado" FGetIdInt( "tpInscAdvogado" ,"nrInscAdvogado" , cCU6Path + "/tpInscAdvogado" , cCU6Path + "/nrInscAdvogado",,.T. "/nrInscAdvogado" .T.)) oModel:LoadValue( "MODEL_CU6" "MODEL_CU6",, "CU6_IDADV" "CU6_IDADV",, nGetId) nCU6 ++ EndDo nCU5 ++ EndDo nCRX ++ EndDo //³INICIO CU7 - ³ nCU7 := 1 cCU7Path := cCabec + "/infoPagto/pagtoResidente/pagtoBPJ[" + cValToChar cValToChar(nCU7) (nCU7) + "]" //Deleta as linhas existentes se for alteracao If nOpc == 4 .And. oDados:XPathHasNode( cCU7Path ) For nCU7 := 1 to oModel:GetModel( 'MODEL_CU7' ):Length() oModel:GetModel( 'MODEL_CU7' ):GoLine(nCU7) oModel:GetModel( 'MODEL_CU7' ):DeleteLine() Next nCU7 EndIf //Alimenta o modelo CU7 While oDados:XPathHasNode( cCabec + "/infoPagto/pagtoResidente/pagtoBPJ[" + cValToChar cValToChar(nCU7) (nCU7) + "]" ) cCU7Path := cCabec + "/infoPagto/pagtoResidente/pagtoBPJ[" + cValToChar cValToChar(nCU7) (nCU7) + "]" If nOpc == 4 .Or. nCU7 > 1 // Informa que a linha está válida para que seja incluída uma nova linha oModel:GetModel( "MODEL_CU7" ):LVALID := .T. // Inclui uma linha a cada volta do laço oModel:GetModel( "MODEL_CU7" ):AddLine() EndIf oModel:LoadValue( "MODEL_CU7", "MODEL_CU7" , "CU7_DTPGTO" "CU7_DTPGTO",, FTafGetVal( cCU7Path + "/dtPagto" "/dtPagto",, "D" "D",, .F. .F.,, @aIncons, .F. ) ) oModel:LoadValue( "MODEL_CU7" "MODEL_CU7",, "CU7_VLRPGT" "CU7_VLRPGT",, FTafGetVal( cCU7Path + "/vlrRendTributavel" "/vlrRendTributavel",, "N" "N",, .F. .F.,, @aIncons, .F. ) ) oModel:LoadValue( "MODEL_CU7" "MODEL_CU7",, "CU7_VLRIRR", "CU7_VLRIRR" , FTafGetVal( cCU7Path + "/vlrIRRF" "/vlrIRRF",, "N" "N",, .F. .F.,, @aIncons, .F. ) ) nCU7 ++ EndDo //³INICIO CU8 - ³ nCU8 := 1 cCU8Path := cCabec + "/infoPagto/pagtoNaoResidente[" + cValToChar cValToChar(nCU8) (nCU8) + "]" //Deleta as linhas existentes se for alteracao If nOpc == 4 .And. oDados:XPathHasNode( cCU8Path ) For nCU8 := 1 to oModel:GetModel( 'MODEL_CU8' ):Length() oModel:GetModel( 'MODEL_CU8' ):GoLine(nCU8) oModel:GetModel( 'MODEL_CU8' ):DeleteLine() Next nCU8 EndIf //Alimenta o modelo CU8 While oDados:XPathHasNode( cCabec + "/infoPagto/pagtoNaoResidente[" + cValToChar cValToChar(nCU8) (nCU8) + "]" ) cCU8Path := cCabec + "/infoPagto/pagtoNaoResidente[" + cValToChar cValToChar(nCU8) (nCU8) + "]" If nOpc == 4 .Or. nCU8 > 1 // Informa que a linha está válida para que seja incluída uma nova linha oModel:GetModel( "MODEL_CU8" ):LVALID := .T. // Inclui uma linha a cada volta do laço oModel:GetModel( "MODEL_CU8" ):AddLine() EndIf

56

Versão 1.0

Integração TAF

oModel:LoadValue( oModel:LoadValue( "/tpRendimento"), "/tpRendimento" ),"C" "C",,.T. .T.,, @aIncons, .F. .F.)) ) oModel:LoadValue( "/formaTributacao" ), "C" "C",, .T. .T.,, @aIncons, .F. ) ) oModel:LoadValue( oModel:LoadValue( nCU8 ++

"MODEL_CU8" , "CU8_DTPGTO" "MODEL_CU8", "CU8_DTPGTO",, FTafGetVal( cCU8Path + "/dtPagto" "/dtPagto",, "D" "D",, .F. .F.,, @aIncons, .F. ) ) "MODEL_CU8",, "CU8_IDTPRE" "MODEL_CU8" "CU8_IDTPRE",, FTafGetVal( FGetIdInt( "tpRendimento" "tpRendimento",,"" "",cCU8Path ,cCU8Path + "MODEL_CU8",, "CU8_IDFTRI" "MODEL_CU8" "CU8_IDFTRI",, FTafGetVal( FGetIdInt( "formaTributacao" ,"" "",cCU8Path ,cCU8Path + "MODEL_CU8" , "CU8_VLRPGT" "MODEL_CU8", "CU8_VLRPGT",, FTafGetVal( cCU8Path + "/vlrPago" "/vlrPago",, "N" "N",, .F. .F.,, @aIncons, .F. ) ) "MODEL_CU8",, "CU8_VLRIRR" "MODEL_CU8" "CU8_VLRIRR",, FTafGetVal( cCU8Path + "/vlrIRRF" "/vlrIRRF",, "N" "N",, .F. .F.,, @aIncons, .F. ) )

EndDo //³INICIO CU9 - ³ nCU9 := 1 cCU9Path := cCabec + "/infoPlanoSaudeColetivo/depPlano[" + cValToChar cValToChar(nCU9) (nCU9) + "]" //Deleta as linhas existentes se for alteracao If nOpc == 4 .And. oDados:XPathHasNode( cCU9Path ) For nCU9 := 1 to oModel:GetModel( 'MODEL_CU9' ):Length() oModel:GetModel( 'MODEL_CU9' ):GoLine(nCU9) oModel:GetModel( 'MODEL_CU9' ):DeleteLine() Next nCU9 EndIf //Alimenta o modelo CU9 While oDados:XPathHasNode( cCabec + "/infoPlanoSaudeColetivo/depPlano[" + cValToChar cValToChar(nCU9) (nCU9) + "]" ) cCU9Path := cCabec + "/infoPlanoSaudeColetivo/depPlano[" + cValToChar cValToChar(nCU9) (nCU9) + "]" If nOpc == 4 .Or. nCU9> nCU9> 1 // Informa que a linha está válida para que seja incluída uma nova linha oModel:GetModel( "MODEL_CU9" ):LVALID := .T. // Inclui uma linha a cada volta do laço oModel:GetModel( "MODEL_CU9" ):AddLine() EndIf oModel:LoadValue( oModel:LoadValue( oModel:LoadValue( oModel:LoadValue(

"MODEL_CU9" , "CU9_CPFDEP" "MODEL_CU9", "CU9_CPFDEP",, FTafGetVal( cCU9Path + "/cpfDep" "/cpfDep",, "C" "C",, .F. .F.,, @aIncons, .F. ) ) "MODEL_CU9",, "CU9_DTNASC" "MODEL_CU9" "CU9_DTNASC",, FTafGetVal( cCU9Path + "/dtNasctoDep" "/dtNasctoDep",, "D" "D",, .F. .F.,, @aIncons, .F. ) ) "MODEL_CU9",, "CU9_NOMDEP" "MODEL_CU9" "CU9_NOMDEP",, FTafGetVal( cCU9Path + "/nomeDep" "/nomeDep",, "C" "C",, .F. .F.,, @aIncons, .F. ) ) "MODEL_CU9",, "CU9_TPDEP" "MODEL_CU9" "CU9_TPDEP",, FGetIdInt("relDependencia" FGetIdInt( "relDependencia",,"" "",cCU9Path ,cCU9Path + "/relDependencia" "/relDependencia"), ), "C" "C",, .T. .T.,,

@aIncons, .F. ) oModel:LoadValue( "MODEL_CU9" "MODEL_CU9",, "CU9_VLRPGT" "CU9_VLRPGT",, FTafGetVal( cCU9Path + "/vlrPagoDep" "/vlrPagoDep",, "N" "N",, .F. .F.,, @aIncons, .F. ) ) nCU9 ++ EndDo EndIf FWFormCommit( oModel ) lRet := .T. oModel:DeActivate() EndIf End Transaction

Versão 1.0

57

Integração TAF


S-1310 – eSocial eSocial Mensal – Outras Outras Informações – Serv. Serv. Tomados (Cessão de Mão de Obra) Rotina: Model MVC: Validação Geração XML Regras

TAFA271 MODEL_CMN; MODEL_CMO; MODEL_CMP; MODEL_CMQ; TAF271VLD() TAF271XML() # 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42

TAG evtFpServTomados Versão infEvento idEvento ideEvento indRetificacao nrRecibo indApuracao perApuracao tpAmb procEmi indSegmento verProc ideEmpregador tpInscricao nrInscricao infoServTomados ideEstabelecimento tpInscricao nrInscricao idePrestadorServicos cnpjPrestador vlrBruto vlrBaseRetencao vlrRetencao vlrAdicional vlrNaoRetido nfsTerceiros Serie numDocto dtEmissaoNF indObra nrCno vlrBaseRetencao vlrBruto vlrRetencaoApurada vlrRetencaoSubEmpreitada vlrRetencao vlrAdicional itensNfs nrItem tpServico

Model MODEL_CMN MODEL_CMN MODEL_CMO MODEL_CMO MODEL_CMP MODEL_CMP MODEL_CMP MODEL_CMP MODEL_CMP MODEL_CMP MODEL_CMQ MODEL_CMQ MODEL_CMQ MODEL_CMQ MODEL_CMQ MODEL_CMQ MODEL_CMQ MODEL_CMQ MODEL_CMQ MODEL_CMQ MODEL_CMQ MODEL_CRO MODEL_CRO

58

Campo

FGetIDInt()

CMN_INDAPU CMN_PERAPU

CMO_TPINSC CMO_INSCES CMP_INSCCO CMP_VLBRUT CMP_BCRETE CMP_VLRETE CMP_VLADIC CMP_VLNRET CMQ_SERIE CMQ_NUMDOC CMQ_DTEMIS CMQ_INDOBR CMQ_NRCNO CMQ_BCRETE CMQ_VLBRUT CMQ_VLAPUR CMQ_VLSUBE CMQ_VLRETE CMQ_VLADIC CRO_NRITEM CRO_TPSERV

Versão 1.0

Integração TAF

43 44 45 46 47 48 49 50 51 52 53 54

vlrBruto vlrBaseRetencao servPrestCondEspeciais vlrServicos15 vlrServicos20 vlrServicos25 infoProcJudicial nrProcJud vlrNaoRetido proprietarioCNO tpInscProprietario nrInscProprietario

MODEL_CRO MODEL_CRO MODEL_CMQ MODEL_CMQ MODEL_CMQ MODEL_CMQ MODEL_CMQ MODEL_CMQ MODEL_CMQ

CRO_VLRBRU CRO_VBSRET CMQ_VLSV15 CMQ_VLSV20 CMQ_VLSV25 CMQ_NRPROC CMQ_VLNRET CMQ_TPINSC CMQ_INSCPR

Exemplo: Aadd( aChave, { "C" "C", , "CMN_NOMEVE", "CMN_NOMEVE" , "S1310" "S1310", , .T. } ) Aadd( aChave, { "C" "C", , "CMN_INDAPU" "CMN_INDAPU", , cInfEvento + "/ideEvento/indApuracao" , .F. } ) Aadd( aChave, { "C", "C", "CMN_PERAPU" "CMN_PERAPU", , cInfEvento + "/ideEvento/perApuracao" , .F. } ) Begin Transaction

//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ //³Função para validar se a operação desejada pode ser realizada³ //ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ If FTafVldOpe( 'CMN' 'CMN', , 2, @nOpc, cFilEv, @aIncons, aChave, @oModel, 'TAFA271' 'TAFA271', , cCmpsNoUpd ) //ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ //³Quando se tratar de uma Exclusão direta, é preciso apenas realizar ³ //³o Commit(), não sendo necessária nenhuma manutenção nas informações³ //ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ If nOpc <> 5 oModel:LoadValue( "MODEL_CMN" "MODEL_CMN", , "CMN_FILIAL" "CMN_FILIAL", , CMN->CMN_FILIAL ) oModel:LoadValue( 'MODEL_CMN' 'MODEL_CMN', , 'CMN_NOMEVE' 'CMN_NOMEVE', , "S1310" ) // CMO nCMO := 1 cCMOPath := cInfEvento + "/infoServTomados/ideEstabelecimento[" + AllTrim(Str(nCMO)) + "]" If nOpc == 4 .And. oDados:XPathHasNode( cCMOPath ) For nJ := 1 to oModel:GetModel( 'MODEL_CMO' ):Length()

oModel:GetModel( 'MODEL_CMO' ):GoLine(nJ) oModel:GetModel( 'MODEL_CMO' ):DeleteLine() Next nJ EndIf While oDados:XPathHasNode( cCMOPath ) If nOpc == 4 .Or. nCMO > 1

// Informa que a linha está válida para que seja incluída uma nova linha oModel:GetModel( "MODEL_CMO" ):LVALID := .T. // Inclui uma linha a cada volta do laço oModel:GetModel( "MODEL_CMO" ):AddLine() EndIf

// Grava dados no model oModel:LoadValue( "MODEL_CMO" "MODEL_CMO", , "CMO_TPINSC", "CMO_TPINSC" , "1" "1") ) oModel:LoadValue( "MODEL_CMO" "MODEL_CMO", , "CMO_INSCES" "CMO_INSCES", , "123456789" "123456789") ) nCRO := 1 cCROPath := cCMQPath + "/itensNfs[" + AllTrim AllTrim( (Str Str(nCRO)) (nCRO)) + "]"

Versão 1.0

59

Integração TAF

Título do documento If nOpc == 4 .And. oDados:XPathHasNode( cCROPath ) For nJ := 1 to oModel:GetModel( 'MODEL_CRO' ):Length()

oModel:GetModel( 'MODEL_CRO' ):GoLine(nJ) oModel:GetModel( 'MODEL_CRO' ):DeleteLine() Next nJ EndIf While oDados:XPathHasNode( cCROPath

)

If nOpc == 4 .Or. nCRO > 1

// Informa que a linha está para que seja incluída uma nova linha oModel:GetModel( "MODEL_CRO" ):LVALID := .T. // Inclui uma linha a cada volta do laço oModel:GetModel( "MODEL_CRO" ):AddLine() EndIf

oModel:LoadValue( "MODEL_CRO" "MODEL_CRO", , "CRO_NRITEM" "CRO_NRITEM", , FTafGetVal( cCROPath + "/nrItem", "/nrItem" , "C" "C", , .F. .F., , @aIncons, .T. ) ) oModel:LoadValue( "MODEL_CRO" "MODEL_CRO", , "CRO_TPSERV" "CRO_TPSERV", , FTafGetVal( FGetIdInt( "tpServico" "tpServico", , , cCROPath + "/tpServico" ), "C" "C", , .T. .T., , @aIncons, .T. ) ) oModel:LoadValue( "MODEL_CRO" "MODEL_CRO", , "CRO_VLRBRU" "CRO_VLRBRU", , FTafGetVal( cCROPath + "/vlrBruto" "/vlrBruto", , "N" "N", , .F. .F., , @aIncons, .T. ) ) oModel:LoadValue( "MODEL_CRO" "MODEL_CRO", , "CRO_VBSRET" "CRO_VBSRET", , FTafGetVal( cCROPath + "/vlrBaseRetencao" "/vlrBaseRetencao", , "N" "N", , .F. .F., , @aIncons, .T. ) ) nCRO++ cCROPath := cCMQPath + "/itensNfs[" + AllTrim AllTrim( (Str Str(nCRO)) (nCRO)) + "]"

EndDo // Fim - CRO // CMP nCMP := 1 cCMPPath := cCMOPath + "/idePrestadorServicos[" + AllTrim(Str(nCMP)) + "]" If nOpc == 4 .And. oDados:XPathHasNode( cCMPPath ) For nJ := 1 to oModel:GetModel( 'MODEL_CMP' ):Length() Next nJ

oModel:GetModel( 'MODEL_CMP' ):GoLine(nJ) oModel:GetModel( 'MODEL_CMP' ):DeleteLine()

EndIf While oDados:XPathHasNode( cCMPPath

)

If nOpc == 4 .Or. nCMP > 1

// Informa que a linha está para que seja incluída uma nova linha oModel:GetModel( "MODEL_CMP" ):LVALID := .T. // Inclui uma linha a cada volta do laço oModel:GetModel( "MODEL_CMP" ):AddLine() EndIf

oModel:LoadValue( "MODEL_CMP", "MODEL_CMP" , "CMP_VLADIC", "CMP_VLADIC" , "350") "350") oModel:LoadValue( "MODEL_CMP" "MODEL_CMP", , "CMP_VLNRET" "CMP_VLNRET", , "200" "200") ) // CMQ nCMQ := 1 cCMQPath := cCMPPath + "/nfsTerceiros[" + AllTrim(Str(nCMQ)) + "]" If nOpc == 4 .And. oDados:XPathHasNode( cCMQPath ) For nJ := 1 to oModel:GetModel( 'MODEL_CMQ' ):Length()

oModel:GetModel( 'MODEL_CMQ' ):GoLine(nJ) oModel:GetModel( 'MODEL_CMQ' ):DeleteLine() Next nJ EndIf While oDados:XPathHasNode( cCMQPath

)

If nOpc == 4 .Or. nCMQ > 1

// Informa que a linha está para que seja incluída uma nova linha oModel:GetModel( "MODEL_CMQ" ):LVALID := .T.

60

Versão 1.0

Integração TAF

// Inclui uma linha a cada volta do laço oModel:GetModel( "MODEL_CMQ" ):AddLine() EndIf

oModel:LoadValue( "MODEL_CMQ", "MODEL_CMQ" , "CMQ_VLBRUT", "CMQ_VLBRUT" , "350") "350") oModel:LoadValue( "MODEL_CMQ" "MODEL_CMQ", , "CMQ_VLAPUR" "CMQ_VLAPUR", , "200" "200") ) If oDados:XPathHasNode( cCMQPath + "/servPrestCondEspeciais" ) oModel:LoadValue( "MODEL_CMQ" "MODEL_CMQ", , "CMQ_VLSV15" "CMQ_VLSV15", , “100”) oModel:LoadValue( "MODEL_CMQ" "MODEL_CMQ", , "CMQ_VLSV20" "CMQ_VLSV20", , “100”) oModel:LoadValue( "MODEL_CMQ" "MODEL_CMQ", , "CMQ_VLSV25" "CMQ_VLSV25", , “100”) EndIf If oDados:XPathHasNode( cCMQPath + "/infoProcJudicial" ) oModel:LoadValue( "MODEL_CMQ" "MODEL_CMQ", , "CMQ_VLNRET" "CMQ_VLNRET", , “100”) EndIf If oDados:XPathHasNode( cCMQPath + "/proprietarioCNO" ) oModel:LoadValue( "MODEL_CMQ" "MODEL_CMQ", , "CMQ_TPINSC" ,“1”)

oModel:LoadValue( "MODEL_CMQ" "MODEL_CMQ", , "CMQ_INSCPR" "CMQ_INSCPR", , “5681000114”) EndIf

nCMQ++ cCMQPath := cCMPPath + "/nfsTerceiros[" + AllTrim(Str(nCMQ)) + "]"

EndDo // Fim - CMQ

nCMP++ cCMPPath := cCMOPath + "/idePrestadorServicos[" + AllTrim(Str(nCMP)) + "]" EndDo // Fim - CMP

nCMO++ cCMOPath := cInfEvento + "/infoServTomados/ideEstabelecimento[" + AllTrim(Str(nCMO)) + "]"

EndDo // Fim - CMO

EndIf

//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ //³Efetiva a operacao desejada³ //ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ FWFormCommit( oModel ) lRet := .T. oModel:DeActivate() EndIf End Transaction

Versão 1.0

61

Integração TAF


S-1320 – eSocial eSocial Mensal – Outras Outras Informações – Serv. Serv. Prestados (Cessão de Mão de Obra) Rotina: Model MVC: Validação Geração XML Regras

TAFA288 MODEL_CMN; MODEL_CMO; MODEL_CMP; MODEL_CMQ; TAF288VLD() TAF288XML() # 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42

TAG evtFpServPrestados Versão infEvento idEvento ideEvento indRetificacao nrRecibo indApuracao perApuracao tpAmb procEmi indSegmento verProc ideEmpregador tpInscricao nrInscricao infoServPrestados ideEstabPrestador tpInscricao nrInscricao ideContratante tpInscContratante nrInscContratante vlrBruto vlrServicos vlrBaseRetencao vlrRetencao vlrAdicional vlrNaoRetido nfsEmitidas Serie numDocto dtEmissaoNF indObra nrCno vlrBruto vlrServicos vlrDeducoes vlrBaseRetencao vlrRetencaoApurada vlrRetencaoSubEmpreitada vlrRetencao

Model MODEL_CMN MODEL_CMN MODEL_CMO MODEL_CMO MODEL_CMP MODEL_CMP MODEL_CMP MODEL_CMP MODEL_CMP MODEL_CMP MODEL_CMP MODEL_CMP MODEL_CMQ MODEL_CMQ MODEL_CMQ MODEL_CMQ MODEL_CMQ MODEL_CMQ MODEL_CMQ MODEL_CMQ MODEL_CMQ MODEL_CMQ MODEL_CMQ MODEL_CMQ

62

Campo

FGetIDInt()


CMO_TPINSC CMO_INSCES CMP_TPINSC CMP_INSCCO CMP_VLBRUT CMP_VLSERV CMP_BCRETE CMP_VLRETE CMP_VLADIC CMP_VLNRET CMQ_SERIE CMQ_NUMDOC CMQ_DTEMIS CMQ_INDOBR CMQ_NRCNO CMQ_VLBRUT CMQ_VLSERV CMQ_VLDEDU CMQ_BCRETE CMQ_VLAPUR CMQ_VLSUBE CMQ_VLRETE

Versão 1.0

Integração TAF

43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61

vlrAdicional itensNfs nrItem tpServico vlrBruto vlrBaseRetencao servPrestCondEspeciais vlrServicos15 vlrServicos20 vlrServicos25 infoProcJudicial nrProcJud vlrNaoRetido servSubempreitados cnpjSubempreiteiro vlrRetidoSubempreitada proprietarioCNO tpInscProprietario nrInscProprietario

MODEL_CMQ MODEL_CRO MODEL_CRO MODEL_CRO MODEL_CRO MODEL_CMQ MODEL_CMQ MODEL_CMQ MODEL_CMQ MODEL_CMQ MODEL_CMQ MODEL_CMQ MODEL_CMQ MODEL_CMQ

CMQ_VLADIC CRO_NRITEM CRO_TPSERV CRO_VLRBRU CRO_VBSRET CMQ_VLSV15 CMQ_VLSV20 CMQ_VLSV25 CMQ_NRPROC CMQ_VLNRET CMQ_CNPJSU CMQ_VLRSUB CMQ_TPINSC CMQ_INSCPR

Exemplo: Aadd( aChave, { "C" "C", , "CMN_NOMEVE", "CMN_NOMEVE" , "S1320" "S1320", , .T. } ) Aadd( aChave, { "C" "C", , "CMN_INDAPU" "CMN_INDAPU", , "1" "1", , .T. } ) Aadd( aChave, { "C", "C", "CMN_PERAPU" "CMN_PERAPU", , "122013", "122013" , .T. } ) Begin Transaction

//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ //³Função para validar se a operação desejada pode ser realizada³ //ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ If FTafVldOpe( 'CMN' 'CMN', , 2, @nOpc, cFilEv, @aIncons, aChave, @oModel, 'TAFA288' 'TAFA288', , cCmpsNoUpd ) //ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ //³Quando se tratar de uma Exclusão direta, é preciso apenas realizar ³ //³o Commit(), não sendo necessária nenhuma manutenção nas informações³ //ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ If nOpc <> 5 oModel:LoadValue( "MODEL_CMN" "MODEL_CMN", , "CMN_FILIAL" "CMN_FILIAL", , CMN->CMN_FILIAL ) oModel:LoadValue( 'MODEL_CMN' 'MODEL_CMN', , 'CMN_NOMEVE' 'CMN_NOMEVE', , "S1320" ) // CMO nCMO := 1 cCMOPath := cInfEvento + "/infoServPrestados/ideEstabPrestador[" + AllTrim(Str(nCMO)) + "]" If nOpc == 4 .And. oDados:XPathHasNode( cCMOPath ) For nJ := 1 to oModel:GetModel( 'MODEL_CMO' ):Length()


// Informa que a linha está válida para que seja incluída uma nova linha oModel:GetModel( "MODEL_CMO" ):LVALID := .T.

Versão 1.0

63

Integração TAF


// Inclui uma linha a cada volta do laço oModel:GetModel( "MODEL_CMO" ):AddLine() EndIf

// Grava dados no model oModel:LoadValue( "MODEL_CMO", "MODEL_CMO" , "CMO_TPINSC", "CMO_TPINSC" , "1" "1") ) oModel:LoadValue( "MODEL_CMO" "MODEL_CMO", , "CMO_INSCES" "CMO_INSCES", , "102505781460" "102505781460") ) // CMP nCMP := 1 cCMPPath := cCMOPath + "/ideContratante[" + AllTrim(Str(nCMP)) + "]" If nOpc == 4 .And. oDados:XPathHasNode( cCMPPath ) For nJ := 1 to oModel:GetModel( 'MODEL_CMP' ):Length()

oModel:GetModel( 'MODEL_CMP' ):GoLine(nJ) oModel:GetModel( 'MODEL_CMP' ):DeleteLine() Next nJ EndIf While oDados:XPathHasNode( cCMPPath

)


// Informa que a linha está para que seja incluída uma nova linha oModel:GetModel( "MODEL_CMP" ):LVALID := .T. // Inclui uma linha a cada volta do laço oModel:GetModel( "MODEL_CMP" ):AddLine() EndIf

oModel:LoadValue( "MODEL_CMP", "MODEL_CMP" , "CMP_VLADIC", "CMP_VLADIC" , "300") "300") oModel:LoadValue( "MODEL_CMP" "MODEL_CMP", , "CMP_VLNRET" "CMP_VLNRET", , "500" "500") ) // CMQ nCMQ := 1 cCMQPath := cCMPPath + "/nfsEmitidas[" + AllTrim(Str(nCMQ)) + "]" If nOpc == 4 .And. oDados:XPathHasNode( cCMQPath ) For nJ := 1 to oModel:GetModel( 'MODEL_CMQ' ):Length()


)


// Informa que a linha está para que seja incluída uma nova linha oModel:GetModel( "MODEL_CMQ" ):LVALID := .T. // Inclui uma linha a cada volta do laço oModel:GetModel( "MODEL_CMQ" ):AddLine() EndIf

oModel:LoadValue( "MODEL_CMQ", "MODEL_CMQ" , "CMQ_VLRETE", "CMQ_VLRETE" , "250") "250") oModel:LoadValue( "MODEL_CMQ" "MODEL_CMQ", , "CMQ_VLADIC" "CMQ_VLADIC", , "400" "400") ) If oDados:XPathHasNode( cCMQPath + "/servPrestCondEspeciais" ) oModel:LoadValue( "MODEL_CMQ" "MODEL_CMQ", , "CMQ_VLSV15" "CMQ_VLSV15", , “200”) oModel:LoadValue( "MODEL_CMQ" "MODEL_CMQ", , "CMQ_VLSV20" "CMQ_VLSV20", , “200”) oModel:LoadValue( "MODEL_CMQ" "MODEL_CMQ", , "CMQ_VLSV25" "CMQ_VLSV25", , “200”) EndIf If oDados:XPathHasNode( cCMQPath + "/infoProcJudicial" ) oModel:LoadValue( "MODEL_CMQ" "MODEL_CMQ", , "CMQ_VLNRET" "CMQ_VLNRET", , “250”) EndIf If oDados:XPathHasNode( cCMQPath + "/servSubempreitados" ) oModel:LoadValue( "MODEL_CMQ" "MODEL_CMQ", , "CMQ_TPINSC" "CMQ_TPINSC", , “1”)

oModel:LoadValue( "MODEL_CMQ" "MODEL_CMQ", , "CMQ_INSCPR" "CMQ_INSCPR", , “5544778800112”)

64

Versão 1.0

Integração TAF

EndIf If oDados:XPathHasNode( cCMQPath + "/proprietarioCNO" ) oModel:LoadValue( "MODEL_CMQ" "MODEL_CMQ", , "CMQ_TPINSC" "CMQ_TPINSC", , “1”)

oModel:LoadValue( "MODEL_CMQ" "MODEL_CMQ", , "CMQ_INSCPR" "CMQ_INSCPR", , “87887782320”) EndIf

nCMQ++ cCMQPath := cCMPPath + "/nfsEmitidas[" + AllTrim(Str(nCMQ)) + "]" EndDo // Fim - CMQ

nCMP++ cCMPPath := cCMOPath + "/ideContratante[" + AllTrim(Str(nCMP)) + "]" EndDo // Fim - CMP nCMO++ cCMOPath := cInfEvento + "/infoServPrestados/ideEstabPrestador[" + AllTrim(Str(nCMO)) + "]" EndDo // Fim - CMO EndIf

FWFormCommit( oModel ) lRet := .T. oModel:DeActivate() EndIf End Transaction

Versão 1.0

65

Integração TAF


S-1330 – eSocial eSocial Mensal – Outras Outras Informações – Serv. Serv. Tomados de Cooperativa C ooperativa de Trabalho Rotina: Model MVC: Validação Geração XML Regras

TAFA289 MODEL_CMN; MODEL_CMO; MODEL_CMQ TAF289VLD() TAF289XML() # 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42

TAG evtFpServTomadosCoop Versão infEvento idEvento ideEvento indRetificacao nrRecibo indApuracao perApuracao tpAmb procEmi indSegmento verProc ideEmpregador tpInscricao nrInscricao infoServTomados ideEstabelecimento tpInscricao nrInscricao nfsTerceiros cnpjCooperativa Serie numDocto dtEmissaoNF dtPagtoNF indObra nrCno vlrBruto vlrMatEquip vlrServicos vlrDeducoes vlrBaseCoop servCoopCondEspeciais vlrServicos15 vlrServicos20 vlrServicos25 servPrestAtivConcomitante vlrBaseCoop vlrBaseCoop15 vlrBaseCoop20 vlrBaseCoop25

Model -

Campo

MODEL_CMN

CMN_INDAPU

MODEL_CMN

CMN_PERAPU

FGetIDInt()

-

MODEL_CMO

CMO_TPINSC

MODEL_CMO

CMO_INSCES

MODEL_CMQ

CMQ_CNPJCO

MODEL_CMQ

CMQ_SERIE

MODEL_CMQ

CMQ_NUMDOC

MODEL_CMQ

CMQ_DTEMIS

MODEL_CMQ

CMQ_DTPGTO

MODEL_CMQ

CMQ_INDOBR

MODEL_CMQ

CMQ_NRCNO

MODEL_CMQ

CMQ_VLBRUT

MODEL_CMQ

CMQ_VLMATE

MODEL_CMQ

CMQ_VLSERV

MODEL_CMQ

CMQ_VLDEDU

MODEL_CMQ

CMQ_BCCOOP

MODEL_CMQ

CMQ_VLSV15

MODEL_CMQ

CMQ_VLSV20

MODEL_CMQ

CMQ_VLSV25

MODEL_CMQ

CMQ_BCCONC

MODEL_CMQ

CMQ_BCCO15

MODEL_CMQ

CMQ_BCCO20

MODEL_CMQ

CMQ_BCCO25

66

Versão 1.0

Integração TAF

43 44 45 46 47 48 49 50 51

proprietarioCNO tpInscProprietario nrInscProprietario totBaseCoop indIncidencia vlrBaseCoop vlrBaseCoop15 vlrBaseCoop20 vlrBaseCoop25

MODEL_CMQ

CMQ_TPINSC

MODEL_CMQ

CMQ_INSCPR

MODEL_CMO

CMO_INDINC

MODEL_CMO

CMO_BCTOT

MODEL_CMO

CMO_BCCP15

MODEL_CMO

CMO_BCCP20

MODEL_CMO

CMO_BCCP25

Exemplo: cXml := xFunLerXML() oDados := TXmlManager():New() oDados:Parse(cXml) Aadd( aChave, { "C" Aadd( "C", , "CMN_NOMEVE", "CMN_NOMEVE" , "S1330" "S1330", , .T. } ) Aadd( Aadd ( aChave, { "C" "C", , "CMN_INDAPU" "CMN_INDAPU", , "1" "1", , .T. } ) Aadd( Aadd ( aChave, { "C", "C", "CMN_PERAPU" "CMN_PERAPU", , "102014", "102014" , .T. } ) Begin Transaction If FTafVldOpe( 'CMN' 'CMN', , 2, @nOpc, cFilEv, @aIncons, aChave, @oModel, 'TAFA289' 'TAFA289', , cCmpsNoUpd ) If nOpc <> 5

oModel:LoadValue( "MODEL_CMN", "MODEL_CMN" , "CMN_FILIAL", "CMN_FILIAL" , CMN->CMN_FILIAL ) oModel:LoadValue( 'MODEL_CMN' 'MODEL_CMN', , 'CMN_NOMEVE' 'CMN_NOMEVE', , "S1330" ) // CMO nCMO := 1 cCMOPath := cInfEvento + "/infoServTomados/ideEstabelecimento[" + AllTrim AllTrim( (Str Str(nCMO)) (nCMO)) +

"]" If nOpc == 4 .And. oDados:XPathHasNode( cCMOPath ) For nJ := 1 to oModel:GetModel( 'MODEL_CMO' ):Length()



// Grava dados no model oModel:LoadValue( "MODEL_CMO" "MODEL_CMO", , "CMO_INDINC" "CMO_INDINC", , "1 ") ") // CMQ nCMQ := 1 cCMQPath := cCMOPath + "/nfsTerceiros[" + AllTrim AllTrim( (Str Str(nCMQ)) (nCMQ)) + "]" If nOpc == 4 .And. oDados:XPathHasNode( cCMQPath ) For nJ := 1 to oModel:GetModel( 'MODEL_CMQ' ):Length() Next nJ

oModel:GetModel( 'MODEL_CMQ' ):GoLine(nJ) oModel:GetModel( 'MODEL_CMQ' ):DeleteLine()

EndIf While oDados:XPathHasNode( cCMQPath

Versão 1.0

67

)

Integração TAF

Título do documento If nOpc == 4 .Or. nCMQ > 1


oModel:LoadValue( "MODEL_CMQ" "MODEL_CMQ", , "CMQ_NUMDOC" "CMQ_NUMDOC", , "1504" "1504") ) nCMQ++ cCMQPath := cCMOPath + "/nfsTerceiros[" + AllTrim AllTrim( (Str Str(nCMQ)) (nCMQ)) + "]" EndDo // Fim - CMQ nCMO++ cCMOPath := cInfEvento + "/infoServTomados/ideEstabelecimento[" + AllTrim( AllTrim (Str Str(nCMO)) (nCMO)) + "]" EndDo // Fim - CMO EndIf


68

Versão 1.0

Integração TAF

S-1340 – eSocial eSocial Mensal – Outras Outras Informações – Serv. Serv. Prestados pela Cooperativa de Trabalho Rotina: Model MVC: Validação Geração XML Regras

TAFA290 MODEL_CMN; MODEL_CMO; MODEL_CMP; MODEL_CMQ TAF290VLD() TAF290XML() # 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44

TAG evtFpServPrestadoCoop evtFpServPrestadoCoop Versão infEvento idEvento ideEvento indRetificacao nrRecibo indApuracao perApuracao tpAmb procEmi indSegmento verProc ideEmpregador tpInscricao nrInscricao infoServPrestados ideEstabPrestador tpInscricao nrInscricao ideContratante tpInscContratante nrInscContratante vlrBruto vlrBaseCoop nfsEmitidas Serie numDocto dtEmissaoNF dtPagtoNF indObra nrCno vlrBruto vlrMatEquip vlrServicos vlrDeducoes vlrBaseCoop servCoopCondEspeciais servCoopCondEspeciais vlrServicos15 vlrServicos20 vlrServicos25 proprietarioCNO tpInscProprietario nrInscProprietario

Versão 1.0

Model MODEL_CMN MODEL_CMN MODEL_CMO MODEL_CMO MODEL_CMP MODEL_CMP MODEL_CMP MODEL_CMP MODEL_CMQ MODEL_CMQ MODEL_CMQ MODEL_CMQ MODEL_CMQ MODEL_CMQ MODEL_CMQ MODEL_CMQ MODEL_CMQ MODEL_CMQ MODEL_CMQ MODEL_CMQ MODEL_CMQ MODEL_CMQ MODEL_CMQ MODEL_CMQ

69

Campo


CMO_TPINSC CMO_INSCES CMP_TPINSC CMP_INSCCO CMP_VLBRUT CMP_BCCOOP CMQ_SERIE CMQ_NUMDOC CMQ_DTEMIS CMQ_DTPGTO CMQ_INDOBR CMQ_NRCNO CMQ_VLBRUT CMQ_VLMATE CMQ_VLSERV CMQ_VLDEDU CMQ_BCCOOP CMQ_VLSV15 CMQ_VLSV20 CMQ_VLSV25 CMQ_TPINSC CMQ_INSCPR

FGetIDInt()

Integração TAF

Título do documento Exemplo: cXml := xFunLerXML() oDados := TXmlManager():New() oDados:Parse(cXml) Aadd( aChave, { "C" Aadd( "C", , "CMN_NOMEVE", "CMN_NOMEVE" , "S1340" "S1340", , .T. } ) Aadd( Aadd ( aChave, { "C" "C", , "CMN_INDAPU" "CMN_INDAPU", , "1”, .T. } ) Aadd( Aadd ( aChave, { "C", "C", "CMN_PERAPU" "CMN_PERAPU", , "102013", "102013" , .T. } ) Begin Transaction

//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ //³Função para validar se a operação desejada pode ser realizada³ //ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ If FTafVldOpe( 'CMN' 'CMN', , 2, @nOpc, cFilEv, @aIncons, aChave, @oModel, 'TAFA290' 'TAFA290', , cCmpsNoUpd ) //ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ //³Quando se tratar de uma Exclusão direta, é preciso apenas realizar ³ //³o Commit(), não sendo necessária nenhuma manutenção nas informações³ //ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ If nOpc <> 5 oModel:LoadValue( "MODEL_CMN" "MODEL_CMN", , "CMN_FILIAL" "CMN_FILIAL", , CMN->CMN_FILIAL ) oModel:LoadValue( 'MODEL_CMN' 'MODEL_CMN', , 'CMN_NOMEVE' 'CMN_NOMEVE', , "S1340" ) // CMO nCMO := 1 cCMOPath := cInfEvento + "/infoServPrestados/ideEstabPrestador[" + AllTrim AllTrim( (Str Str(nCMO)) (nCMO)) + "]" If nOpc == 4 .And. oDados:XPathHasNode( cCMOPath ) For nJ := 1 to oModel:GetModel( 'MODEL_CMO' ):Length() Next nJ

oModel:GetModel( 'MODEL_CMO' ):GoLine(nJ) oModel:GetModel( 'MODEL_CMO' ):DeleteLine()

EndIf While oDados:XPathHasNode( cCMOPath ) If nOpc == 4 .Or. nCMO > 1


// Grava dados no model oModel:LoadValue( "MODEL_CMO" "MODEL_CMO", , "CMO_TPINSC") "CMO_TPINSC" ) oModel:LoadValue( "MODEL_CMO" "MODEL_CMO", , "CMO_INSCES" "CMO_INSCES", ,

"665487991") "665487991" )

// CMP nCMP := 1 cCMPPath := cCMOPath + "/ideContratante[" + AllTrim AllTrim( (Str Str(nCMP)) (nCMP)) + "]" If nOpc == 4 .And. oDados:XPathHasNode( cCMPPath ) For nJ := 1 to oModel:GetModel( 'MODEL_CMP' ):Length() Next nJ

oModel:GetModel( 'MODEL_CMP' ):GoLine(nJ) oModel:GetModel( 'MODEL_CMP' ):DeleteLine()

EndIf While oDados:XPathHasNode( cCMPPath

)


// Informa que a linha está para que seja incluída uma nova linha oModel:GetModel( "MODEL_CMP" ):LVALID := .T. // Inclui uma linha a cada volta do laço

70

Versão 1.0

Integração TAF

oModel:GetModel( "MODEL_CMP" ):AddLine() EndIf

oModel:LoadValue( "MODEL_CMP" "MODEL_CMP", , "CMP_BCCOOP" "CMP_BCCOOP", ,

"500") "500" )

// CMQ nCMQ := 1 cCMQPath := cCMPPath + "/nfsEmitidas[" + AllTrim AllTrim( (Str Str(nCMQ)) (nCMQ)) + "]" If nOpc == 4 .And. oDados:XPathHasNode( cCMQPath ) For nJ := 1 to oModel:GetModel( 'MODEL_CMQ' ):Length()


)



oModel:LoadValue( "MODEL_CMQ" "MODEL_CMQ", , "CMQ_BCCOOP" "CMQ_BCCOOP", ,

"305") "305" )

If oDados:XPathHasNode( cCMQPath + "/servCoopCondEspeciais" ) oModel:LoadValue( "MODEL_CMQ" "MODEL_CMQ", , "CMQ_VLSV25" "CMQ_VLSV25", , “200”) EndIf

nCMQ++ cCMQPath := cCMPPath + "/nfsEmitidas[" + AllTrim AllTrim( (Str Str(nCMQ)) (nCMQ)) + "]"

EndDo // Fim - CMQ

nCMP++ cCMPPath := cCMOPath + "/ideContratante[" + AllTrim AllTrim( (Str Str(nCMP)) (nCMP)) + "]" EndDo // Fim - CMP nCMO++ cCMOPath := cInfEvento + "/infoServPrestados/ideEstabPrestador[" + AllTrim( AllTrim (Str Str(nCMO)) (nCMO)) + "]" EndDo // Fim - CMO EndIf


Versão 1.0

71

Integração TAF


S-1350 – eSocial eSocial Mensal – Outras Outras Informações – Aquisição Aquisição de Produção Rotina: Model MVC: Validação Geração XML Regras

TAFA272 MODEL_CMR TAF272VLD() TAF272XML() # 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40

TAG evtFpAquisProducao Versão infEvento idEvento ideEvento indRetificacao nrRecibo indApuracao perApuracao tpAmb procEmi indSegmento verProc ideEmpregador tpInscricao nrInscricao infoAquisProducao ideEstabAdquirente tpInscricao nrInscricao tipoAquisicao indAquisicao vlrTotalAquisicao ideProdutor tpInscricao nrInscricao vlrBruto vlrContribDescPR vlrGilratDescPR vlrSenarDescPR notasFiscais Serie numDocto dtEmissaoNF vlrBruto vlrContribDescPR vlrGilratDescPR vlrSenarDescPR infoProcJudicial nrProcJud

Model MODEL_CMR MODEL_CMR MODEL_CMS MODEL_CMS MODEL_CMT MODEL_CMT MODEL_CMU MODEL_CMU MODEL_CMU MODEL_CMU MODEL_CMU MODEL_CMU MODEL_CMV MODEL_CMV MODEL_CMV MODEL_CMV MODEL_CMV MODEL_CMV MODEL_CMV MODEL_CMU

72

Campo

FGetIDInt()

CMR_INDAPU CMR_PERAPU

CMS_TPINSC CMS_INSCES CMT_INDAQU CMT_VLAQUI C MT_VLAQUI CMU_TPINSC CMU_INSCPR CMU_VLBRUT CMU_VLCONT CMU_VLCONT CMU_VLGILR CMU_VLSENA CMV_SERIE CMV_NUMDOC CMV_DTEMIS CMV_VLBRUT CMV_VLCONT CMV_VLGILR CMV_VLSENA CMU_NRPROC

Versão 1.0

Integração TAF

Exemplo: cXml := xFunLerXML() oDados := TXmlManager():New() oDados:Parse(cXml) Aadd( aChave, { "C" Aadd( "C", , "CMX_INDAPU", "CMX_INDAPU" , "1 ", ", .F. } ) Aadd( Aadd ( aChave, { "C" "C", , "CMX_PERAPU" "CMX_PERAPU", , "122013" "122013", , .F. } ) Begin Transaction

//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ //³Função para validar se a operação desejada pode ser realizada³ //ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ If FTafVldOpe( 'CMR' 'CMR', , 2, @nOpc, cFilEv, @aIncons, aChave, @oModel, 'TAFA272' 'TAFA272', , cCmpsNoUpd ) If nOpc <> 5

oModel:LoadValue( "MODEL_CMR" "MODEL_CMR", , "CMR_FILIAL" "CMR_FILIAL", , CMR->CMR_FILIAL ) //ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ //³INICIO CMS - ³ //ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ nCMS := 1 cCMSPath := cInfEvento + "/infoAquisProducao/ideEstabAdquirente[" + AllTrim AllTrim( (Str Str(nCMS)) (nCMS)) + "]" //Deleta as linhas existentes se for alteração If nOpc == 4 .And. oDados:XPathHasNode( cCMSPath ) For nJ := 1 to oModel:GetModel( 'MODEL_CMS' ):Length() oModel:GetModel( 'MODEL_CMS' ):GoLine(nJ) oModel:GetModel( 'MODEL_CMS' ):DeleteLine() Next nJ EndIf

//Alimenta o modelo CMS While oDados:XPathHasNode( cCMSPath ) If nOpc == 4 .Or. nCMS > 1

// Informa que a linha está válida para que seja incluída uma nova linha oModel:GetModel( "MODEL_CMS" ):LVALID := .T. // Inclui uma linha a cada volta do laço oModel:GetModel( "MODEL_CMS" ):AddLine() EndIf

// Grava dados no model oModel:LoadValue( "MODEL_CMS", "MODEL_CMS" , "CMS_TPINSC", "CMS_TPINSC" , "1" "1") ) oModel:LoadValue( "MODEL_CMS" "MODEL_CMS", , "CMS_INSCES" "CMS_INSCES", , "1120150478" "1120150478") ) //ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ //³INICIO CMT - ³ //ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ nCMT := 1 cCMTPath := cCMSPath + "/tipoAquisicao[" + AllTrim AllTrim( (Str Str(nCMT)) (nCMT)) + "]" //Deleta as linhas existentes se for alteraca If nOpc == 4 .And. oDados:XPathHasNode( cCMTPath ) For nJ := 1 to oModel:GetModel( 'MODEL_CMT' ):Length() oModel:GetModel( 'MODEL_CMT' ):GoLine(nJ) oModel:GetModel( 'MODEL_CMT' ):DeleteLine() Next nJ EndIf

//Alimenta o modelo CMT

While oDados:XPathHasNode( cCMTPath ) If nOpc == 4 .Or. nCMT > 1

// Informa que a linha está válida para que seja incluída uma nova linha

Versão 1.0

73

Integração TAF

Título do documento oModel:GetModel( "MODEL_CMT" ):LVALID := .T. // Inclui uma linha a cada volta do laço oModel:GetModel( "MODEL_CMT" ):AddLine() EndIf

// Grava dados no model oModel:LoadValue( "MODEL_CMT" "MODEL_CMT", , "CMT_VLAQUI" "CMT_VLAQUI", ,

"1200") "1200" )

//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ //³INICIO CMU - ³ //ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ nCMU := 1 cCMUPath := cCMTPath + "/ideProdutor[" + AllTrim AllTrim( (Str Str(nCMU)) (nCMU)) + "]" //Deleta as linhas existentes se for alteraca If nOpc == 4 .And. oDados:XPathHasNode( cCMUPath ) For nJ := 1 to oModel:GetModel( 'MODEL_CMU' ):Length() oModel:GetModel( 'MODEL_CMU' ):GoLine(nJ) oModel:GetModel( 'MODEL_CMU' ):DeleteLine() Next nJ EndIf While oDados:XPathHasNode( cCMUPath ) If nOpc == 4 .Or. nCMU > 1

// Informa que a linha está válida para que seja incluída uma nova linha oModel:GetModel( "MODEL_CMU" ):LVALID := .T. // Inclui uma linha a cada volta do laço oModel:GetModel( "MODEL_CMU" ):AddLine() EndIf

// Grava dados no model oModel:LoadValue( "MODEL_CMU" "MODEL_CMU", , "CMU_VLSENA" "CMU_VLSENA", , "1250") //ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ //³INICIO CMV - ³ //ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ nCMV := 1 cCMVPath := cCMUPath + "/notasFiscais[" + AllTrim AllTrim( (Str Str(nCMV)) (nCMV)) + "]" //Deleta as linhas existentes se for alteração If nOpc == 4 .And. oDados:XPathHasNode( cCMVPath ) For nJ := 1 to oModel:GetModel( 'MODEL_CMV' ):Length() oModel:GetModel( 'MODEL_CMV' ):GoLine(nJ) oModel:GetModel( 'MODEL_CMV' ):DeleteLine() Next nJ EndIf While oDados:XPathHasNode( cCMVPath ) If nOpc == 4 .Or. nCMV > 1

// Informa que a linha está válida para que seja incluída uma nova linha oModel:GetModel( "MODEL_CMV" ):LVALID := .T. // Inclui uma linha a cada volta do laço oModel:GetModel( "MODEL_CMV" ):AddLine() EndIf

// Grava dados no model oModel:LoadValue( "MODEL_CMV" "MODEL_CMV", , "CMV_VLSENA" "CMV_VLSENA", , nCMV++ cCMVPath := cCMUPath + "/notasFiscais[" + AllTrim( AllTrim (Str Str(nCMV)) (nCMV)) + "]" EndDo

74

Versão 1.0

"500")

Integração TAF

//ÚÄÄÄÄÄÄÄ¿ //³FIM CMV³ //ÀÄÄÄÄÄÄÄÙ If oDados:XPathHasNode( cCMUPath + "/infoProcJudicial" )

oModel:LoadValue( "MODEL_CMU" "MODEL_CMU", , "CMU_NRPROC" "CMU_NRPROC", ,"334477" "334477") ) EndIf

nCMU++ cCMUPath := cCMTPath + "/ideProdutor[" + AllTrim AllTrim( (Str Str(nCMU)) (nCMU)) + "]" EndDo

//ÚÄÄÄÄÄÄÄ¿ //³FIM CMU³ //ÀÄÄÄÄÄÄÄÙ nCMT++ cCMTPath := cCMSPath + "/tipoAquisicao[" + AllTrim AllTrim( (Str Str(nCMT)) (nCMT)) + "]" EndDo

//ÚÄÄÄÄÄÄÄ¿ //³FIM CMT³ //ÀÄÄÄÄÄÄÄÙ nCMS++ cCMSPath := cInfEvento + "/infoAquisProducao/ideEstabAdquirente[" + AllTrim AllTrim( (Str Str(nCMS)) (nCMS)) + "]" EndDo

//ÚÄÄÄÄÄÄÄ¿ //³FIM CMS³ //ÀÄÄÄÄÄÄÄÙ EndIf


Versão 1.0

75

Integração TAF


S-1360 – eSocial eSocial Mensal – Outras Outras Informações – Comercialização Comercialização da Produção Rotina: Model MVC: Validação Geração XML Regras

TAFA252 MODEL_C8Q; MODEL_C9C; MODEL_C9D; MODEL_C9E TAF252VLD() TAF252XML() # 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28

TAG evtFpComercProducao Versão infEvento idEvento ideEvento indRetificacao nrRecibo indApuracao perApuracao tpAmb procEmi indSegmento verProc ideEmpregador tpInscricao nrInscricao infoComercProducao ideEstabelecimento tpInscricao nrInscricao tipoComercializacao indComercializacao vlrTotalComercializacao ideAdquirente tpInscricao nrInscricao vlrComercializacao vlrRetidoProdRural

Model MODEL_C8Q MODEL_C8Q MODEL_C9C MODEL_C9D MODEL_C9D MODEL_C9E MODEL_C9E MODEL_C9E MODEL_C9E

Campo

FGetIDInt()

C8Q_INDAPU C8Q_PERAPU

C9C_ESTABE -

tpEstabelecimento

C9D_INDCOM C9D_VLTCOM C9E_TPINCA C9E_NRINCA C9E_VBCPRD C9E_VRETPR

Exemplo: cXml := xFunLerXML() oDados := TXmlManager():New() oDados:Parse(cXml) Aadd( aChave, { "C" Aadd( "C", , "C8Q_INDAPU", "C8Q_INDAPU" ,"1" "1", , .T. } ) Aadd( Aadd ( aChave, { "C" "C", , "C8Q_PERAPU" "C8Q_PERAPU", ,"102013" "102013", , .T. } ) Begin Transaction If FTafVldOpe( "C8Q" "C8Q", , 2, @nOpc, cFilEv, @aIncons, aChave, @oModel, "TAFA252" "TAFA252", , cCmpsNoUpd )

oModel:LoadValue( "MODEL_C8Q" "MODEL_C8Q", , "C8Q_FILIAL" "C8Q_FILIAL", , C8Q->C8Q_FILIAL )

76

Versão 1.0

Integração TAF

If nOpc == 4 For nJ := 1 to oModel:GetModel( 'MODEL_C9C' ):Length()

oModel:GetModel( 'MODEL_C9C' ):GoLine(nJ) oModel:GetModel( 'MODEL_C9C' ):DeleteLine() Next nJ EndIf

/*ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ ³Roda o XML parseado para gravar as novas informações no GRID³ ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ*/ nJ := 1 While oDados:XPathHasNode(cCabec + "/infoComercProducao/ideEstabelecimento[" + CVALTOCHAR CVALTOCHAR(nJ) (nJ) + "]" "]") )

If nOpc == 4 .Or. nJ > 1

oModel:GetModel( 'MODEL_C9C' ):LVALID oModel:GetModel( 'MODEL_C9C' ):AddLine()

:= .T.

EndIf

"tpEstabelecimento"

oModel:LoadValue( "MODEL_C9C" "MODEL_C9C", , "C9C_ESTABE" , "" , cTpInsc,cNrInsc,.F. cTpInsc,cNrInsc, .F.)) ))

, FGetIdInt(

/*

³ Tipo de Comercializacao ³*/ ³*/ /*ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ ³Quando se trata de uma alteração, deleta-se todas as linhas do Grid³ ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ*/ If nOpc == 4 For nX:= nX:= 1 to oModel:GetModel( 'MODEL_C9D' ):Length() oModel:GetModel( 'MODEL_C9D' ):GoLine(nX) oModel:GetModel( 'MODEL_C9D' ):DeleteLine() Next nX EndIf

/*ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ ³Roda o XML parseado para gravar as novas informações no GRID³ ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ*/ nX := 1 While oDados:XPathHasNode(cCabec + "/infoComercProducao/ideEstabelecimento[" + CVALTOCHAR(nJ) CVALTOCHAR (nJ)+ + "]/tipoComrcializacao[" + CVALTOCHAR CVALTOCHAR(nX) (nX)+ + "]" ) If nOpc == 4 .Or. nX > 1

oModel:GetModel( 'MODEL_C9D' ):LVALID oModel:GetModel( 'MODEL_C9D' ):AddLine()

:= .T.

EndIf

oModel:LoadValue( "MODEL_C9D" "MODEL_C9D", , "C9D_INDCOM" , "1") // ³ Adquirente da Comercialização ³ /*ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ ³Quando se trata de uma alteração, deleta-se todas as linhas do Grid³ ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ*/ If nOpc == 4 For nI := 1 to oModel:GetModel( 'MODEL_C9E' ):Length()

oModel:GetModel( 'MODEL_C9E' ):GoLine(nI) oModel:GetModel( 'MODEL_C9E' ):DeleteLine() Next nI EndIf

/*ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ ³Roda o XML parseado para gravar as novas informações no GRID³ ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ*/ nI := 1 While oDados:XPathHasNode(cCabec + "/infoComercProducao/ideEstabelecimento[" + CVALTOCHAR(nJ) CVALTOCHAR (nJ)+ + "]/tipoComercializacao[" + CVALTOCHAR CVALTOCHAR(nX) (nX)+ + "]/ideAdquirente[" + CVALTOCHAR CVALTOCHAR(nI) (nI)+ + "]" ) If nOpc == 4 .Or. nI > 1

oModel:GetModel( 'MODEL_C9E' ):LVALID oModel:GetModel( 'MODEL_C9E' ):AddLine()

:= .T.

EndIf

oModel:LoadValue( "MODEL_C9E" "MODEL_C9E", ,"C9E_VBCPRD" "C9E_VBCPRD", ,"10") nI++ EndDo

nX++ EndDo

nJ++

Versão 1.0

77

Integração TAF

Título do documento EndDo

/*ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ ³Efetiva a operação desejada³ ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ*/ FWFormCommit( oModel ) lRet := .T. oModel:DeActivate() EndIf End Transaction

78

Versão 1.0

Integração TAF

S-1370 – eSocial eSocial Mensal – Outras Outras Informações – Rec. Rec. Recebidos ou Repassados p/ Clube de Futebol Rotina: Model MVC: Validação Geração XML Regras

TAFA255 MODEL_C9B; MODEL_C9G; MODEL_C9H; MODEL_C9I; TAF255VLD() TAF255XML() # 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

TAG evtFpAssocDesportiva Versão infEvento idEvento ideEvento indRetificacao nrRecibo indApuracao perApuracao tpAmb procEmi indSegmento verProc ideEmpregador tpInscricao nrInscricao infoRecursoRecebido recursosRecebidos cnpjEmpOrigemRecurso tpRepasse dtRepasse vlrRepasse infoRecursoRepassado ideEstabelecimento tpInscricao

Model MODEL_C9B MODEL_C9B MODEL_C9G MODEL_C9G MODEL_C9G MODEL_C9G MODEL_C9H

26 27 28 29 30 31 32

nrInscricao vlrTotalRepasses recursosRepassados cnpjAssocDesportiva tpRepasse dtRepasse vlrRepasse

MODEL_C9H MODEL_C9I MODEL_C9I MODEL_C9I MODEL_C9I

Exemplo: cXml := xFunLerXML() oDados := TXmlManager():New() oDados:Parse(cXml)

Versão 1.0

79

Campo

FGetIDInt()

C9B_INDAPU C9B_PERAPU

C9G_CNPJOR C9G_TPREPO C9G_DTREPA C9G_VLREPA

C9H_ESTABE C9H_VTOTRE C9I_CNPJAD C9I_TPREPA C9I_DTREPA C9I_VLREPA

tpEstabelecimento nrEstabelecimento

Integração TAF


Aadd( aChave, { "C" Aadd( "C", , "C9B_INDAPU", "C9B_INDAPU" , "1 ", ", .T. } ) Aadd( Aadd ( aChave, { "C" "C", , "C9B_PERAPU" "C9B_PERAPU", , "122013 ", ", .T. } ) Begin Transaction

//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ //³Função para validar se a operação desejada pode ser realizada³ //ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ If FTafVldOpe( 'C9B' 'C9B', , 2, @nOpc, cFilEv, @aIncons, aChave, @oModel, 'TAFA255' 'TAFA255', , cCmpsNoUpd ) If nOpc <> 5

oModel:LoadValue( "MODEL_C9B" "MODEL_C9B", , "C9B_FILIAL" "C9B_FILIAL", , C9B->C9B_FILIAL ) // C9G nC9G := 1 cC9GPath := cInfEvento + "/infoRecursoRecebido/recursosRecebidos[" + AllTrim AllTrim( (Str Str(nC9G)) (nC9G)) + "]" If nOpc == 4 .And. oDados:XPathHasNode( cC9GPath ) For nJ := 1 to oModel:GetModel( 'MODEL_C9G' ):Length()

oModel:GetModel( 'MODEL_C9G' ):GoLine(nJ) oModel:GetModel( 'MODEL_C9G' ):DeleteLine() Next nJ EndIf While oDados:XPathHasNode( cC9GPath

)

If nOpc == 4 .Or. nC9G > 1

// Informa que a linha está para que seja incluída uma nova linha oModel:GetModel( "MODEL_C9G" ):LVALID := .T. // Inclui uma linha a cada volta do laço oModel:GetModel( "MODEL_C9G" ):AddLine() EndIf

oModel:LoadValue( "MODEL_C9G" "MODEL_C9G", , "C9G_VLREPA" "C9G_VLREPA", , "10" "10") ) nC9G++ cC9GPath := cInfEvento + "/infoRecursoRecebido/recursosRecebidos[" + AllTrim( AllTrim (Str Str(nC9G)) (nC9G)) + "]" EndDo // Fim - C9G

// C9H nC9H := 1 cC9HPath := cInfEvento + "/infoRecursoRepassado/ideEstabelecimento[" + AllTrim( AllTrim (Str Str(nC9H)) (nC9H)) + "]" If nOpc == 4 .And. oDados:XPathHasNode( cC9HPath ) For nJ := 1 to oModel:GetModel( 'MODEL_C9H' ):Length() Next nJ

oModel:GetModel( 'MODEL_C9H' ):GoLine(nJ) oModel:GetModel( 'MODEL_C9H' ):DeleteLine()

EndIf While oDados:XPathHasNode( cC9HPath ) If nOpc == 4 .Or. nC9H > 1

// Informa que a linha está válida para que seja incluída uma nova linha oModel:GetModel( "MODEL_C9H" ):LVALID := .T. // Inclui uma linha a cada volta do laço oModel:GetModel( "MODEL_C9H" ):AddLine() EndIf

oModel:LoadValue( "MODEL_C9H" "MODEL_C9H", , "C9H_ESTABE" "C9H_ESTABE", , "110" ) // C9I nC9I := 1 cC9IPath := cC9HPath + "/recursosRepassados[" + AllTrim AllTrim( (Str Str(nC9I)) (nC9I)) + "]" If nOpc == 4 .And. oDados:XPathHasNode( cC9IPath ) For nJ := 1 to oModel:GetModel( 'MODEL_C9I' ):Length()

oModel:GetModel( 'MODEL_C9I' ):GoLine(nJ) oModel:GetModel( 'MODEL_C9I' ):DeleteLine()

80

Versão 1.0

Integração TAF

Next nJ EndIf While oDados:XPathHasNode( cC9IPath

)

If nOpc == 4 .Or. nC9I > 1

// Informa que a linha está válida para que seja incluída uma nova linha oModel:GetModel( "MODEL_C9I" ):LVALID := .T. // Inclui uma linha a cada volta do laço oModel:GetModel( "MODEL_C9I" ):AddLine() EndIf

oModel:LoadValue( "MODEL_C9I" "MODEL_C9I", , "C9I_TPREPA" "C9I_TPREPA", , "1" "1") ) nC9I++ cC9IPath := cC9HPath + "/recursosRepassados[" + AllTrim AllTrim( (Str Str(nC9I)) (nC9I)) + "]" EndDo // Fim - C9I nC9H++ cC9HPath := cInfEvento + "/infoRecursoRepassado/ideEstabelecimento[" + AllTrim( AllTrim (Str Str(nC9H)) (nC9H)) + "]"

EndDo // Fim - C9H

EndIf


S-1380 – eSocial eSocial Mensal – Informações Informações Complementares Desoneração Rotina: Model MVC: Validação Geração XML Regras

TAFA239 MODEL_CRR TAF239VLD() TAF239XML() # 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16

TAG eSocial evtFpInfoDesoneracao Id Versão ideEvento indRetificacao nrRecibo indApuracao perApuracao tpAmb procEmi indSegmento verProc ideEmpregador tpInscricao nrInscricao

Versão 1.0

Model

Campo

MODEL_CRR MODEL_CRR -

CRR_INDAPU CRR_PERAPU

81

FGetIDInt()

Integração TAF

Título do documento 17 18 19 20 21 22 23 24 25

recExpServicos recBrutaExp12m recBrutaTot12m vlrTribRecBruta qtdMesesAtiv percReducaoLei11774 infoSubstPatronal indSubstPatronal percAliqPatronal

MODEL_CRR MODEL_CRR MODEL_CRR MODEL_CRR MODEL_CRR

CRR_VLREXP CRR_VLRTOT CRR_VLTRIB CRR_QTDMES CRR_VLREDU

MODEL_CRR MODEL_CRR

CRR_INDSUB CRR_ALIQPA

Exemplo: Aadd( aChave, { "C", "CRR_INDAPU", cCabec + "/ideEvento/indApuracao", .F. } ) Aadd( aChave, { "C", "CRR_PERAPU", cCabec + "/ideEvento/perApuracao", .F. } ) Begin Transaction

//Função para validar se a operação desejada pode ser realizada If FTafVldOpe( "CRR" "CRR", , nIndChv, @nOpc, cFilEv, @aIncons, aChave, @oModel, "TAFA303" "TAFA303", , cCmpsNoUpd, nIndIDVer, .F. .F.) ) If nOpc <> 5 oModel:LoadValue( "MODEL_CRR" "MODEL_CRR", , "CRR_FILIAL" "CRR_FILIAL", , CRR->CRR_FILIAL ) oModel:LoadValue( "MODEL_CRR" "MODEL_CRR", , "CRR_VLREXP" "CRR_VLREXP", , “1” ) EndIf


S-1390 – eSocial eSocial Periódicos – Receitas Receitas de Atividades Concomitantes Rotina: Model MVC: Validação Geração XML Regras

TAFA292 MODEL_ TAF292VLD() TAF292XML() # 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15

TAG eSocial evtFpRecAtivConcomitante Id Versão ideEvento indRetificacao nrRecibo indApuracao perApuracao tpAmb procEmi indSegmento verProc ideEmpregador tpInscricao

Model MODEL_CRV MODEL_CRV -

82

Campo

FGetIDInt()

CRV_INDAPU CRV_PERAPU

Versão 1.0

Integração TAF

16 17 18 19 20 21 22 23

nrInscricao recAtivConcomitante recBrutaTotMes recBrutaTotAno recBrutaAtssMes recBrutaAtssAno fatorMes fator13

MODEL_CRV MODEL_CRV MODEL_CRV MODEL_CRV MODEL_CVR MODEL_CRV

CRV_TOTMES CRV_TOTANO CRV_ASSMES CRV_ASSANO CRV_FATMES CRV_FAT13

Exemplo Aadd( aChave, { "C" "C", , "CRV_INDAPU", "CRV_INDAPU" , cCabec + "/ideEvento/indApuracao" , .F. } ) Aadd( aChave, { "C" "C", , "CRV_PERAPU" "CRV_PERAPU", , cCabec + "/ideEvento/perApuracao" , .F. } ) Begin Transaction

//Função para validar se a operação desejada pode ser realizada If FTafVldOpe( "CRV" "CRV", , nIndChv, @nOpc, cFilEv, @aIncons, aChave, @oModel, "TAFA3292" "TAFA3292", , cCmpsNoUpd, nIndIDVer, .F. .F.) ) If nOpc <> 5 oModel:LoadValue( "MODEL_CRV" "MODEL_CRV", , "CRV_FILIAL" "CRV_FILIAL", , CRV->CRV_FILIAL ) oModel:LoadValue( "MODEL_CRV" "MODEL_CRV", , "CRV_TOTMES" "CRV_TOTMES", , “1” ) EndIf


S-1399 – eSocial eSocial Mensal – Fechamento Fechamento Rotina: Model MVC: Validação Geração XML Regras

TAFA303 MODEL_CUO TAF303VLD() TAF303XML() # 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15

TAG eSocial evtFpFechamento Id Versão ideEvento indRetificacao nrRecibo indApuracao perApuracao tpAmb procEmi indSegmento verProc ideEmpregador tpInscricao

Versão 1.0

Model MODEL_CUO MODEL_CUO -

83

Campo

CUO_INDAPU CUO_PERAPU

FGetIDInt()

Integração TAF

Título do documento 16 17 18 19 20 21 22 23 24 25 26 27 28

nrInscricao InfoFechamento evtRemuneracao evtPagamentosDiversos evtServTomadosCMO evtServPrestadosCMO evtServTomadosCOOP evtServPrestadosCOOP evtAquisProdRural evtComercProducao evtRepasseClubeFutebol evtInfoDesoneracao evtReceitaAtivConcomitantes

MODEL_CUO MODEL_CUO MODEL_CUO MODEL_CUO MODEL_CUO MODEL_CUO MODEL_CUO MODEL_CUO MODEL_CUO MODEL_CUO MODEL_CUO

CUO_REMUN CUO_PAGDIV CUO_SRVTCM CUO_SRVPCM CUO_SRVTCO CUO_SRVPCO CUO_AQUPRU CUO_COMPRO CUO_REPACF CUO_INFDES CUO_RECCON

Exemplo Aadd( aChave, { "C" "C", , "CUO_INDAPU", "CUO_INDAPU" , cCabec + "/ideEvento/indApuracao" , .F. } ) Aadd( aChave, { "C" "C", , "CUO_PERAPU" "CUO_PERAPU", , cCabec + "/ideEvento/perApuracao" , .F. } ) Begin Transaction

//Função para validar se a operação desejada pode ser realizada If FTafVldOpe( "CUO" "CUO", , nIndChv, @nOpc, cFilEv, @aIncons, aChave, @oModel, "TAFA303" "TAFA303", , cCmpsNoUpd, nIndIDVer, .F. .F.) ) If nOpc <> 5 oModel:LoadValue( "MODEL_CUO" "MODEL_CUO", , "CUO_FILIAL" "CUO_FILIAL", , CUO->CUO_FILIAL ) oModel:LoadValue( "MODEL_CUO" "MODEL_CUO", , "CUO_REMUN" "CUO_REMUN", , “1” ) EndIf


S-1400 – eSocial eSocial Mensal – Bases, Bases, Retenção, Deduções e Contribuições Rotina: Model MVC:

TAFA274 MODEL_CMX; MODEL_CMZ; MODEL_CR0; MODEL_CR1; MODEL_CR2; MODEL_CR3; MODEL_CR4; MODEL_CR5; MODEL_CR6; MODEL_CR7; MODEL_CR8;

Validação TAF274VLD() Geração XML TAF274XML() # TAG Regras 01 02 03 04 05 06 07 08 09 10 11

evtFpBasesContrib Versão infEvento idEvento ideEvento indRetificacao nrRecibo indApuracao perApuracao tpAmb procEmi

Model MODEL_CMX MODEL_CMX -

84

Campo

FGetIDInt()

CMX_INDAPU CMX_PERAPU

Versão 1.0

Integração TAF

12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62

indSegmento verProc ideEmpregador tpInscricao nrInscricao ideConteudo indConteudo infoBasesContrib ideEstabelecimento tpInscricao nrInscricao basesPorCategoria indIncidencia codCateg vlrBcCP vlrBcCP15 vlrBcCP20 vlrBcCP25 vlrDescCP vlrSalFam vlrSalMat basesPorOperPortuario cnpjOpPortuario vlrBcOpPortuario basesPorFpas Fpas codTerceiros bcTerceiros contribPrevSocial indTpContrib vlrContribuicao contribOutrasEntidades Fpas codTerceiros vlrTotTerceiros contribTerceiro codTerceiro aliqTerceiro vlrTerceiro infoCessaoMaoObra retencaoEfetuada idePrestadorObra cnpjPrestador indObra nrCno vlrRetencao vlrAdicional vlrNaoRetido proprietarioCNO tpInscProprietario nrInscProprietario

Versão 1.0

MODEL_CMX MODEL_CMZ MODEL_CMZ

CMX_INDCON

CMZ_TPINSC CMZ_INSCES

MODEL_CR0 MODEL_CR0 MODEL_CR0 MODEL_CR0 MODEL_CR0 MODEL_CR0 MODEL_CR0 MODEL_CR0 MODEL_CR0 MODEL_CR1 MODEL_CR1 MODEL_CR2

CR0_INDINC CR0_CODCAT CR0_BASECP CR0_VLBC15 CR0_VLBC20 CR0_VLBC25 CR0_VLDESC CR0_VLSALF CR0_VLSALM

MODEL_CR2 MODEL_CR3 MODEL_CR3 MODEL_CR4

CR2_BCTERC

MODEL_CR4 MODEL_CR5 MODEL_CR5 MODEL_CR5 MODEL_CR6 MODEL_CR6 MODEL_CR6 MODEL_CR6 MODEL_CR6 MODEL_CR6 MODEL_CR6 MODEL_CR6

85

catTrabalhador

CR1_CNPJOP CR1_VLBCOP CR2_FPAS


CR3_INDTP CR3_VLCONT

tpContrib

CR4_FPAS


CR4_VLTOT CR5_TERCEI CR5_ALIQTE CR5_BASECP

CR6_CNPJPR CR6_INDOBR CR6_NRCNO CR6_VLRETE CR6_VLADIC CR6_VLNRET CR6_TPINSC CR6_TPINSC CR6_NRINSC


Integração TAF

Título do documento 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83

retencaoSofrida ideContratanteObra tpInscContratante nrInscContratante indObra nrCno vlrRetencao vlrAdicional vlrNaoRetido proprietarioCNO tpInscProprietario nrInscProprietario remunPorContratante tpInscContratante nrInscContratante nrCno codCateg bcCP proprietarioCNO tpInscProprietario nrInscProprietario

MODEL_CR7 MODEL_CR7 MODEL_CR7 MODEL_CR7 MODEL_CR7 MODEL_CR7 MODEL_CR7 MODEL_CR7 MODEL_CR7 MODEL_CR8 MODEL_CR8 MODEL_CR8 MODEL_CR8 MODEL_CR8 MODEL_CR8 MODEL_CR8

CR7_TPINOB CR7_INSCCO CR7_INDOBR CR7_NRCNO CR7_VLRETE CR7_VLADIC CR7_VLNRET CR7_TPINSC CR7_TPINSC CR7_NRINSC CR8_TPINSC CR8_TPINSC CR8_INSCCO CR8_NRCNO CR8_CODCAT CR8_BCCP

catTrabalhador

CR8_TPINSP CR8_NRINSC

Exemplo: cXml := xFunLerXML() oDados := TXmlManager():New() oDados:Parse(cXml) Aadd( aChave, { "C" Aadd( "C", , "CMX_INDAPU", "CMX_INDAPU" , "1" "1", , .T. } ) Aadd( Aadd ( aChave, { "C" "C", , "CMX_PERAPU" "CMX_PERAPU", , "102013" "102013", , .T. } ) Begin Transaction

//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ //³Função para validar se a operação desejada pode ser realizada³ //ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ If FTafVldOpe( 'CMX' 'CMX', , 2, @nOpc, cFilEv, @aIncons, aChave, @oModel, 'TAFA274' 'TAFA274', , cCmpsNoUpd ) //³Quando se tratar de uma Exclusão direta, é preciso apenas realizar ³ //³o Commit(), não sendo necessária nenhuma manutenção nas informações³ If nOpc <> 5 oModel:LoadValue( "MODEL_CMX" "MODEL_CMX", , "CMX_FILIAL" "CMX_FILIAL", , CMX->CMX_FILIAL ) oModel:LoadValue( "MODEL_CMX" "MODEL_CMX", ,"CMX_INDAPU" "CMX_INDAPU", , "1" ) Next

// CMZ If nOpc == 4 .And. lCMZ For nJ := 1 to oModel:GetModel( 'MODEL_CMZ' ):Length() oModel:GetModel( 'MODEL_CMZ' ):GoLine(nJ) oModel:GetModel( 'MODEL_CMZ' ):DeleteLine() Next nJ EndIf For nI :=1 to nCMZ If nOpc == 4 .Or. nI > 1

// Informa que a linha está válida para que seja incluída uma nova linha

86

Versão 1.0

Integração TAF

oModel:GetModel( "MODEL_CMZ" ):LVALID := .T. // Inclui uma linha a cada volta do laço oModel:GetModel( "MODEL_CMZ" ):AddLine() EndIf

// Grava dados no model oModel:LoadValue( "MODEL_CMZ", "MODEL_CMZ" , "CMZ_TPINSC", "CMZ_TPINSC" ,”1” ) oModel:LoadValue( "MODEL_CMZ" "MODEL_CMZ", , "CMZ_INSCES" "CMZ_INSCES", , “0123456789” ) // CR0 If nOpc == 4 .And. lCR0 For nJ := 1 to oModel:GetModel( 'MODEL_CR0' ):Length() oModel:GetModel( 'MODEL_CR0' ):GoLine(nJ) oModel:GetModel( 'MODEL_CR0' ):DeleteLine() Next nJ EndIf While !AliasCRO->EOF !AliasCRO->EOF If nOpc == 4 .Or. nCR0 > 1

// Informa que a linha está válida para que seja incluída uma nova linha oModel:GetModel( "MODEL_CR0" ):LVALID := .T. // Inclui uma linha a cada volta do laço oModel:GetModel( "MODEL_CR0" ):AddLine() EndIf

oModel:LoadValue( "MODEL_CR0", "MODEL_CR0" , "CR0_VLSALF", "CR0_VLSALF" , "123, "123,) oModel:LoadValue( "MODEL_CR0" "MODEL_CR0", , "CR0_VLSALM" "CR0_VLSALM", , "325" "325") ) nCR0++ EndDo // Fim - CR0

// CR1 If nOpc == 4 .And. oDados:XPathHasNode( cCR1Path ) For nJ := 1 to oModel:GetModel( 'MODEL_CR1' ):Length()

oModel:GetModel( 'MODEL_CR1' ):GoLine(nJ) oModel:GetModel( 'MODEL_CR1' ):DeleteLine() Next nJ EndIf While oDados:XPathHasNode( cCR1Path

)

If nOpc == 4 .Or. nCR1 > 1


oModel:LoadValue( "MODEL_CR1", "MODEL_CR1" , "CR1_CNPJOP", "CR1_CNPJOP" , "00123000122") "00123000122" ) oModel:LoadValue( "MODEL_CR1" "MODEL_CR1", , "CR1_VLBCOP" "CR1_VLBCOP", , "123456" "123456", , "N" "N", , .F. .F., , @aIncons, .T. ) ) EndDo // Fim - CR1



Versão 1.0

87

)

Integração TAF

Título do documento If nOpc == 4 .Or. nCR2 > 1


oModel:LoadValue( "MODEL_CR2" "MODEL_CR2", , "CR2_FPAS" "CR2_FPAS", , FTafGetVal( nGetId, "C", "C" , .T. .T., , @aIncons, .T. ) ) oModel:LoadValue( "MODEL_CR2" "MODEL_CR2", , "CR2_BCTERC" "CR2_BCTERC", , FTafGetVal( cCR2Path + "/bcTerceiros" "/bcTerceiros", , "N" "N", , .F. .F., , @aIncons, .T. ) ) EndDo // Fim - CR2



)



oModel:LoadValue( "MODEL_CR3" "MODEL_CR3", , "CR3_INDTP" "CR3_INDTP", , FTafGetVal( nGetId, "C", "C" , .T. .T., , @aIncons, .T. ) ) oModel:LoadValue( "MODEL_CR3" "MODEL_CR3", , "CR3_VLCONT" "CR3_VLCONT", , FTafGetVal( cCR3Path + "/vlrContribuicao" "/vlrContribuicao", , "N" "N", , .F. .F., , @aIncons, .T. ) ) EndDo // Fim - CR3



)


// Informa que a linha está para que seja incluída uma nova linha oModel:GetModel( "MODEL_CR4" ):LVALID := .T. // Inclui uma linha a cada volta do laço oModel:GetModel( "MODEL_CR4" ):AddLine() EndIf

oModel:LoadValue( "MODEL_CR4" "MODEL_CR4", , "CR4_FPAS" "CR4_FPAS", , FTafGetVal( nGetId, "C", "C" , .T. .T., , @aIncons, .T. ) ) oModel:LoadValue( "MODEL_CR4" "MODEL_CR4", , "CR4_VLTOT" "CR4_VLTOT", , FTafGetVal( cCR4Path + "/vlrTotTerceiros" , "N" "N", , .F. .F., , @aIncons, .T. ) ) // CR5 If nOpc == 4 .And. oDados:XPathHasNode( cCR5Path ) For nJ := 1 to oModel:GetModel( 'MODEL_CR5' ):Length()

oModel:GetModel( 'MODEL_CR5' ):GoLine(nJ)

88

Versão 1.0

Integração TAF

Next nJ

oModel:GetModel( 'MODEL_CR5' ):DeleteLine()

EndIf While oDados:XPathHasNode( cCR5Path

)



oModel:LoadValue( "MODEL_CR5", "MODEL_CR5" , "CR5_TERCEI" "CR5_TERCEI", , FTafGetVal( cCR5Path + "/codTerceiro" "/codTerceiro", , "C" "C", , .F. .F., , @aIncons, .T. ) ) oModel:LoadValue( "MODEL_CR5" "MODEL_CR5", , "CR5_ALIQTE" "CR5_ALIQTE", , FTafGetVal( cCR5Path + "/aliqTerceiro" "/aliqTerceiro", , "N" "N", , .F. .F., , @aIncons, .T. ) ) oModel:LoadValue( "MODEL_CR5" "MODEL_CR5", , "CR5_BASECP", "CR5_BASECP" , FTafGetVal( cCR5Path + "/vlrTerceiro" "/vlrTerceiro", , "N" "N", , .F. .F., , @aIncons, .T. ) ) EndDo // Fim - CR5 nCR4++ cCR4Path := cCMZPath + "/contribOutrasEntidades[" + AllTrim AllTrim( (Str Str(nCR4)) (nCR4)) + "]"

EndDo // Fim - CR4

nCMZ++ cCMZPath := cInfEvento + "/infoBasesContrib/ideEstabelecimento[" + AllTrim( AllTrim (Str Str(nCMZ)) (nCMZ)) + "]" EndDo

// CR6 nCR6 := 1 cCR6Path := cInfEvento + "/infoCessaoMaoObra/retencaoEfetuada/idePrestadorObra[" + AllTrim( AllTrim (Str Str(nCR6)) (nCR6)) + "]" If nOpc == 4 .And. oDados:XPathHasNode( cCR6Path ) For nJ := 1 to oModel:GetModel( 'MODEL_CR6' ):Length() Next nJ

oModel:GetModel( 'MODEL_CR6' ):GoLine(nJ) oModel:GetModel( 'MODEL_CR6' ):DeleteLine()

EndIf While oDados:XPathHasNode( cCR6Path

)



nGetId := FGetIdInt( "fpas" "fpas", , "codTerceiros" "codTerceiros", , cCR6Path + "/fpas" "/fpas", , cCR6Path + "/codTerceiros" ) oModel:LoadValue( "/cnpjPrestador", "/cnpjPrestador" , "C" "C", , .F. .F., , @aIncons, .T. ) ) oModel:LoadValue( "C", "C" , .F. .F., , @aIncons, .T. ) ) oModel:LoadValue( "C", "C" , .F. .F., , @aIncons, .T. ) ) oModel:LoadValue( "/vlrRetencao", "/vlrRetencao" , "N" "N", , .F. .F., , @aIncons, .T. ) ) oModel:LoadValue( "/vlrAdicional", "/vlrAdicional" , "N" "N", , .F. .F., , @aIncons, .T. ) ) oModel:LoadValue( "/vlrNaoRetido", "/vlrNaoRetido" , "N" "N", , .F. .F., , @aIncons, .T. ) )

Versão 1.0

"MODEL_CR6", "MODEL_CR6" , "CR6_CNPJPR" "CR6_CNPJPR", , FTafGetVal( cCR6Path + "MODEL_CR6", "MODEL_CR6" , "CR6_INDOBR" "CR6_INDOBR", , FTafGetVal( cCR6Path + "/indObra" "/indObra", , "MODEL_CR6", "MODEL_CR6" , "CR6_NRCNO" "CR6_NRCNO", , FTafGetVal( cCR6Path + "/nrCno" "/nrCno", , "MODEL_CR6", "MODEL_CR6" , "CR6_VLRETE" "CR6_VLRETE", , FTafGetVal( cCR6Path + "MODEL_CR6", "MODEL_CR6" , "CR6_VLADIC" "CR6_VLADIC", , FTafGetVal( cCR6Path + "MODEL_CR6", "MODEL_CR6" , "CR6_VLNRET" "CR6_VLNRET", , FTafGetVal( cCR6Path +

89

Integração TAF

Título do documento If oDados:XPathHasNode( cCR6Path + "/proprietarioCNO[1]" )

oModel:LoadValue( "MODEL_CR6" "MODEL_CR6", , "/proprietarioCNO[1]/tpInscProprietario" , "C" "C", , .F. .F., , @aIncons, .T. ) oModel:LoadValue( "MODEL_CR6" "MODEL_CR6", , "/proprietarioCNO[1]/nrInscProprietario" , "C" "C", , .F. .F., , @aIncons, .T. )

"CR6_TPINSC" , FTafGetVal( cCR6Path + "CR6_TPINSC", ) "CR6_NRINSC", "CR6_NRINSC" , FTafGetVal( cCR6Path + )

EndIf

nCR6++ cCR6Path := cInfEvento + "/infoCessaoMaoObra/retencaoEfetuada/idePrestadorObra[" + AllTrim AllTrim( (Str Str(nCR6)) (nCR6)) + "]" EndDo // Fim - CR6 // CR7 nCR7 := 1 cCR7Path := cInfEvento + "/infoCessaoMaoObra/retencaoSofrida/ideContratanteObra[" + AllTrim( AllTrim (Str Str(nCR7)) (nCR7)) + "]" If nOpc == 4 .And. oDados:XPathHasNode( cCR7Path ) For nJ := 1 to oModel:GetModel( 'MODEL_CR7' ):Length()


)



nGetId := FGetIdInt( "fpas" "fpas", , "codTerceiros" "codTerceiros", , cCR7Path + "/fpas" "/fpas", , cCR7Path + "/codTerceiros" ) oModel:LoadValue( "MODEL_CR7" "MODEL_CR7", , "/tpInscContratante" , "C" "C", , .F., .F., @aIncons, .T. ) ) oModel:LoadValue( "MODEL_CR7" "MODEL_CR7", , "/nrInscContratante" , "C" "C", , .F. .F., , @aIncons, .T. ) ) oModel:LoadValue( "MODEL_CR7" "MODEL_CR7", , "C", "C" , .F. .F., , @aIncons, .T. ) ) oModel:LoadValue( "MODEL_CR7" "MODEL_CR7", , "C", "C" , .F. .F., , @aIncons, .T. ) ) oModel:LoadValue( "MODEL_CR7" "MODEL_CR7", , "/vlrRetencao", "/vlrRetencao" , "N" "N", , .F. .F., , @aIncons, .T. ) ) oModel:LoadValue( "MODEL_CR7" "MODEL_CR7", , "/vlrAdicional", "/vlrAdicional" , "N" "N", , .F. .F., , @aIncons, .T. ) ) oModel:LoadValue( "MODEL_CR7" "MODEL_CR7", , "/vlrNaoRetido", "/vlrNaoRetido" , "N" "N", , .F. .F., , @aIncons, .T. ) )

"CR7_TPINOB", "CR7_TPINOB" , FTafGetVal( cCR7Path + "CR7_INSCCO", "CR7_INSCCO" , FTafGetVal( cCR7Path + "CR7_INDOBR", "CR7_INDOBR" , FTafGetVal( cCR7Path + "/indObra" "/indObra", , "CR7_NRCNO", "CR7_NRCNO" , FTafGetVal( cCR7Path + "/nrCno" "/nrCno", , "CR7_VLRETE", "CR7_VLRETE" , FTafGetVal( cCR7Path + "CR7_VLADIC", "CR7_VLADIC" , FTafGetVal( cCR7Path + "CR7_VLNRET", "CR7_VLNRET" , FTafGetVal( cCR7Path +

If oDados:XPathHasNode( cCR7Path + "/proprietarioCNO[1]" )


"CR7_TPINSC" , FTafGetVal( cCR7Path + "CR7_TPINSC", ) "CR7_NRINSC", "CR7_NRINSC" , FTafGetVal( cCR7Path + )

EndIf

nCR7++ cCR7Path := cInfEvento + "/infoCessaoMaoObra/retencaoSofrida/ideContratanteObra[" + AllTrim AllTrim( (Str Str(nCR7)) (nCR7)) + "]" EndDo // Fim - CR7 // CR8 nCR8 := 1 cCR8Path := cInfEvento + "/infoCessaoMaoObra/remunPorContratante[" + AllTrim AllTrim( (Str Str(nCR8)) (nCR8)) + "]" If nOpc == 4 .And. oDados:XPathHasNode( cCR8Path ) For nJ := 1 to oModel:GetModel( 'MODEL_CR8' ):Length()

90

Versão 1.0

Integração TAF


)



nGetId := FGetIdInt( "catTrabalhador" "catTrabalhador", , , cCR8Path + "/codCateg" ) oModel:LoadValue( "MODEL_CR8" "MODEL_CR8", , "/tpInscContratante" , "C" "C", , .F., .F., @aIncons, .T. ) ) oModel:LoadValue( "MODEL_CR8" "MODEL_CR8", , "/nrInscContratante" , "C" "C", , .F. .F., , @aIncons, .T. ) ) oModel:LoadValue( "MODEL_CR8" "MODEL_CR8", , "C", "C" , .F. .F., , @aIncons, .F. ) ) oModel:LoadValue( "MODEL_CR8" "MODEL_CR8", , @aIncons, .T. ) ) oModel:LoadValue( "MODEL_CR8" "MODEL_CR8", , .F., .F. , @aIncons, .T. ) )

"CR8_TPINSC", "CR8_TPINSC" , FTafGetVal( cCR8Path + "CR8_INSCCO", "CR8_INSCCO" , FTafGetVal( cCR8Path + "CR8_NRCNO", "CR8_NRCNO" , FTafGetVal( cCR8Path + "/nrCno" "/nrCno", , "CR8_CODCAT", "CR8_CODCAT" , FTafGetVal( nGetId, "C" "C", , .T. .T., , "CR8_BCCP", "CR8_BCCP" , FTafGetVal( cCR8Path + "/bcCP" "/bcCP", , "N" "N", ,

If oDados:XPathHasNode( cCR8Path + "/proprietarioCNO[1]" )


"CR8_TPINSP" , FTafGetVal( cCR8Path + "CR8_TPINSP", ) "CR8_NRINSC", "CR8_NRINSC" , FTafGetVal( cCR8Path + )

EndIf

nCR8++ cCR8Path := cInfEvento + "/infoCessaoMaoObra/remunPorContratante[" + AllTrim( AllTrim (Str Str(nCR8)) (nCR8)) + "]" EndDo // Fim - CR8 EndIf


Versão 1.0

91

Integração TAF


S-1800 – eSocial eSocial Mensal – Espetáculo Espetáculo Desportivo Rotina:

TAFA298 MODEL_CRS; MODEL_CRT; MODEL_CUG; MODEL_CUH; MODEL_CUI; MODEL_CUJ; Model MVC: MODEL_CUK; MODEL_CUL; Validação TAF298VLD() Geração XML TAF298XML() # TAG Model Campo FGetIDInt() Regras 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41

eSocial evtEspDesportivo Id Versão ideEvento indRetificacao nrRecibo dtApuracao tpAmb procEmi indSegmento verProc ideEmpregador tpInscricao nrInscricao ideEstabelecimento tpInscricao nrInscricao boletim nrBoletim tpCompeticao categEvento nomeCompeticao cnpjMandante cnpjMandante nomeVisitante pracaDesportiva codMunicipio uf dtRealizacao hrRealizacao qtdePagantes qtdeNaoPagantes infoIngressos cnpjResponsavel tpInscricao nrInscricao qtdeIngressos receitaIngressos tpIngresso tpPreco

MODEL_CRS MODEL_CRT MODEL_CRT MODEL_CUG MODEL_CUG MODEL_CUG MODEL_CUG MODEL_CUG MODEL_CUG MODEL_CUG MODEL_CUG MODEL_CUG MODEL_CUG MODEL_CUG MODEL_CUG MODEL_CUG MODEL_CUG MODEL_CUH MODEL_CUH MODEL_CUH MODEL_CUH MODEL_CUI MODEL_CUI

92

CRS_DTAPUR

CRT_TPINSC CRT_NRINSC CUG_NBOLET CUG_TCOMPE CUG_CTEVEN CUG_NOMCOM CUG_CNPJMA CUG_CNPJVI CUG_NOMVIS CUG_PRADES CUG_CODMUN CUG_UF CUG_DTREAL CUG_HRINIC CUG_QTDPAG CUG_QTDNOP

"uf", "codMunicipio” uf

CUH_CNPJRE CUH_TINSCR CUH_NUMINS CUH_QTDING CUI_TPINGR CUI_TPRECO

Versão 1.0

Integração TAF

42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63

qtdeIngressosVenda qtdeIngressosVendidos qtdeIngressosDevolvidos precoIndividual vlrTotalArrecadado outrasReceitas tpReceita vlrReceita despesas tpDespesa vlrDespesa detMaoObra cpfTrab vlrRemuneracao vlrDescCP contribPrevSocial indTpContrib vlrContribuicao receitaTotal vlrReceitaTotal vlrReceitaClubes vlrRetidoParcelamento

MODEL_CUI MODEL_CUI MODEL_CUI MODEL_CUI MODEL_CUI MODEL_CUJ MODEL_CUJ MODEL_CUK MODEL_CUK MODEL_CUL MODEL_CUL MODEL_CUL MODEL_CRT MODEL_CRT MODEL_CRT MODEL_CRT MODEL_CRT

CUI_QTDIVA CUI_QTDIVS CUI_QTDIDV CUI_PRCIND CUI_TOTARC CUJ_TPREC CUJ_VLRREC CUK_TPDESP CUK_VLRDES

tpDespesa

CUL_CPFTRB CUL_VLRREM CUL_VLDESC CRT_CODCON CRT_VLCONT

tpContrib

CRT_VLRBRU CRT_VLCLUB CRT_VLPARC

Exemplo: oDados := oXML Aadd( aChave, { "D" "D", , "CRS_DTAPUR" "CRS_DTAPUR", , "/eSocial/evtEspDesportivo/ideEvento/dtApuracao" , .F. } ) Begin Transaction

//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ //³Função para validar se a operação desejada pode ser realizada³ //ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ If FTafVldOpe( 'CRS' 'CRS', , 2, @nOpc, cFilEv, @aIncons, aChave, @oModel, 'TAFA298' 'TAFA298', , cCmpsNoUpd ) //ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ //³Quando se tratar de uma Exclusão direta, é preciso apenas realizar ³ //³o Commit(), não sendo necessária nenhuma manutenção nas informações³ //ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ If nOpc <> 5 oModel:LoadValue( "MODEL_CRS" "MODEL_CRS", , "CRS_FILIAL" "CRS_FILIAL", , CRS->CRS_FILIAL ) oModel:LoadValue( "MODEL_CRS" "MODEL_CRS", , "CRS_DTAPUR" "CRS_DTAPUR", , FTafGetVal( "/eSocial/evtEspDesportivo/ideEvento/dtApuracao" , "D" "D", , .F. .F., , @aIncons, .T. ) ) // CRT nCRT := 1 cCRTPath := "/eSocial/evtEspDesportivo/ideEstabelecimento[" + AllTrim(Str(nCRT)) + "]" If nOpc == 4 .And. oDados:XPathHasNode( cCRTPath ) For nJ := 1 to oModel:GetModel( 'MODEL_Crt' ):Length() Next nJ

oModel:GetModel( 'MODEL_CRT' ):GoLine(nJ) oModel:GetModel( 'MODEL_CRT' ):DeleteLine()

EndIf While oDados:XPathHasNode( cCRTPath ) If nOpc == 4 .Or. nCRT > 1

Versão 1.0

93

Integração TAF

Título do documento // Informa que a linha está válida para que seja incluída uma nova linha oModel:GetModel( "MODEL_CRT" ):LVALID := .T. oModel:GetModel( "MODEL_CRT" ):AddLine() EndIf

// oModel:LoadValue( @aIncons, .T. ) ) oModel:LoadValue( @aIncons, .T. ) ) oModel:LoadValue(

Grava dados no model "MODEL_CRT", "MODEL_CRT" , "CRT_TPINSC" "CRT_TPINSC", , FTafGetVal( cCRTPath + "/tpInscricao" "/tpInscricao", , "C" "C", , .F. .F., , "MODEL_CRT", "MODEL_CRT" , "CRT_NRINSC" "CRT_NRINSC", , FTafGetVal( cCRTPath + "/nrInscricao" "/nrInscricao", , "C" "C", , .F. .F., ,

"MODEL_CRT", "MODEL_CRT" , "CRT_CODCON" "CRT_CODCON", , FTafGetVal( FGetIdInt( "tpContrib" "tpContrib", , "" "",; ,; cCRTPath + "/contribPrevSocial/indTpContrib" ), "C" "C", , .T. .T., , @aIncons, .T. ) ) oModel:LoadValue( "MODEL_CRT" "MODEL_CRT", , "CRT_VLCONT" "CRT_VLCONT", , FTafGetVal( cCRTPath + "/contribPrevSocial/vlrContribuicao" , "N" "N", , .F. .F., , @aIncons, .T. ) ) oModel:LoadValue( "MODEL_CRT" "MODEL_CRT", , "CRT_VLRBRU" "CRT_VLRBRU", , FTafGetVal( cCRTPath + "/receitaTotal/vlrReceitaTotal" , "N" "N", , .F. .F., , @aIncons, .T. ) ) oModel:LoadValue( "MODEL_CRT" "MODEL_CRT", , "CRT_VLCLUB" "CRT_VLCLUB", , FTafGetVal( cCRTPath + "/receitaTotal/vlrReceitaClubes" , "N" "N", , .F. .F., , @aIncons, .T. ) ) oModel:LoadValue( "MODEL_CRT" "MODEL_CRT", , "CRT_VLPARC" "CRT_VLPARC", , FTafGetVal( cCRTPath + "/receitaTotal/vlrRetidoParcelamento" , "N" "N", , .F. .F., , @aIncons, .T. ) ) // CUG nCUG := 1 cCUGPath := cCRTPath + "/boletim[" + AllTrim(Str(nCUG)) + "]" If nOpc == 4 .And. oDados:XPathHasNode( cCUGPath ) For nJ := 1 to oModel:GetModel( 'MODEL_CUG' ):Length()

oModel:GetModel( 'MODEL_CUG' ):GoLine(nJ) oModel:GetModel( 'MODEL_CUG' ):DeleteLine() Next nJ EndIf While oDados:XPathHasNode( cCUGPath

)

If nOpc == 4 .Or. nCUG > 1

// Informa que a linha está para que seja incluída uma nova linha oModel:GetModel( "MODEL_CUG" ):LVALID := .T. oModel:GetModel( "MODEL_CUG" ):AddLine() EndIf

oModel:LoadValue( "MODEL_CUG" "MODEL_CUG", , "CUG_NBOLET" "CUG_NBOLET", , FTafGetVal( cCUGPath + "/nrBoletim" "/nrBoletim", , "C" "C", , .F., .F. , @aIncons, .T. ) ) oModel:LoadValue( "MODEL_CUG" "MODEL_CUG", , "CUG_TCOMPE" "CUG_TCOMPE", , FTafGetVal( cCUGPath + "/tpCompeticao" "/tpCompeticao", , "C", "C" , .F. .F., , @aIncons, .T. ) ) oModel:LoadValue( "MODEL_CUG" "MODEL_CUG", , "CUG_CTEVEN" "CUG_CTEVEN", , FTafGetVal( cCUGPath + "/categEvento" "/categEvento", , "C", "C" , .F. .F., , @aIncons, .T. ) ) oModel:LoadValue( "MODEL_CUG" "MODEL_CUG", , "CUG_NOMCOM" "CUG_NOMCOM", , FTafGetVal( cCUGPath + "/nomeCompeticao" "/nomeCompeticao", , "C", "C" , .F. .F., , @aIncons, .T. ) ) oModel:LoadValue( "MODEL_CUG" "MODEL_CUG", , "CUG_CNPJMA" "CUG_CNPJMA", , FTafGetVal( cCUGPath + "/cnpjMandante" "/cnpjMandante", , "C", "C" , .F. .F., , @aIncons, .T. ) ) oModel:LoadValue( "MODEL_CUG" "MODEL_CUG", , "CUG_CNPJVI" "CUG_CNPJVI", , FTafGetVal( cCUGPath + "/cnpjVisitante" "/cnpjVisitante", , "C", "C" , .F. .F., , @aIncons, .T. ) ) oModel:LoadValue( "MODEL_CUG" "MODEL_CUG", , "CUG_NOMVIS" "CUG_NOMVIS", , FTafGetVal( cCUGPath + "/nomeVisitante" "/nomeVisitante", , "C", "C" , .F. .F., , @aIncons, .T. ) ) oModel:LoadValue( "MODEL_CUG" "MODEL_CUG", , "CUG_PRADES" "CUG_PRADES", , FTafGetVal( cCUGPath + "/pracaDesportiva", "/pracaDesportiva" , "C" "C", , .F. .F., , @aIncons, .T. ) ) oModel:LoadValue( "MODEL_CUG" "MODEL_CUG", , "CUG_CODMUN" "CUG_CODMUN", , FTafGetVal( FGetIdInt( "uf", "uf" , "codMunicipio" "codMunicipio",; ,; cCUGPath + "/uf" "/uf",; ,; cCUGPath + "/codMunicipio" "/codMunicipio"), ), "C" "C", , .T., .T., @aIncons, .F. ) ) oModel:LoadValue( "MODEL_CUG" "MODEL_CUG", , "CUG_UF" "CUG_UF", , , "" "",; ,; cCUGPath + "/uf" "/uf") )

FTafGetVal( FGetIdInt( "uf"

, "C" "C", , .T. .T., , @aIncons, .F. ) )

94

Versão 1.0

Integração TAF

oModel:LoadValue( "D", "D" , .F. .F., , @aIncons, .T. ) ) oModel:LoadValue( "C", "C" , .F. .F., , @aIncons, .T. ) ) oModel:LoadValue( "N", "N" , .F. .F., , @aIncons, .T. ) ) oModel:LoadValue( "N", "N" , .F. .F., , @aIncons, .T. ) )

"MODEL_CUG", "MODEL_CUG" , "CUG_DTREAL" "CUG_DTREAL", , FTafGetVal( cCUGPath + "/dtRealizacao" "/dtRealizacao", , "MODEL_CUG", "MODEL_CUG" , "CUG_HRINIC" "CUG_HRINIC", , FTafGetVal( cCUGPath + "/hrRealizacao" "/hrRealizacao", , "MODEL_CUG", "MODEL_CUG" , "CUG_QTDPAG" "CUG_QTDPAG", , FTafGetVal( cCUGPath + "/qtdePagantes" "/qtdePagantes", , "MODEL_CUG", "MODEL_CUG" , "CUG_QTDNOP" "CUG_QTDNOP", , FTafGetVal( cCUGPath + "/qtdeNaoPagantes" "/qtdeNaoPagantes", ,

// CUH nCUH := 1 cCUHPath := cCUGPath + "/infoIngressos[" + AllTrim(Str(nCUH)) + "]" If nOpc == 4 .And. oDados:XPathHasNode( cCUHPath ) For nJ := 1 to oModel:GetModel( 'MODEL_CUH' ):Length()

oModel:GetModel( 'MODEL_CUH' ):GoLine(nJ) oModel:GetModel( 'MODEL_CUH' ):DeleteLine() Next nJ EndIf While oDados:XPathHasNode( cCUHPath

)

If nOpc == 4 .Or. nCUH > 1

// Informa que a linha está para que seja incluída uma nova linha oModel:GetModel( "MODEL_CUH" ):LVALID := .T. oModel:GetModel( "MODEL_CUH" ):AddLine() EndIf

oModel:LoadValue( cCUHPath + "/cnpjResponsavel" "/cnpjResponsavel", , "C" "C", , .F. .F., , @aIncons, .T. ) ) oModel:LoadValue( cCUHPath + "/tpInscricao" "/tpInscricao", , "C" "C", , .F. .F., , @aIncons, .T. ) ) oModel:LoadValue( cCUHPath + "/nrInscricao" "/nrInscricao", , "C" "C", , .F. .F., , @aIncons, .F. ) ) oModel:LoadValue( cCUHPath + "/qtdeIngressos" "/qtdeIngressos", , "N" "N", , .F. .F., , @aIncons, .T. ) )

"MODEL_CUH", "MODEL_CUH" , "CUH_CNPJRE" "CUH_CNPJRE", , FTafGetVal( "MODEL_CUH", "MODEL_CUH" , "CUH_TINSCR" "CUH_TINSCR", , FTafGetVal( "MODEL_CUH", "MODEL_CUH" , "CUH_NUMINS" "CUH_NUMINS", , FTafGetVal( "MODEL_CUH", "MODEL_CUH" , "CUH_QTDING" "CUH_QTDING", , FTafGetVal(

nCUH++ cCUHPath := cCUGPath + "/infoIngressos[" + AllTrim(Str(nCUH)) + "]" EndDo // Fim - CUH

// CUI nCUI := 1 cCUIPath := cCUGPath + "/receitaIngressos[" + AllTrim(Str(nCUI)) + "]" If nOpc == 4 .And. oDados:XPathHasNode( cCUIPath ) For nJ := 1 to oModel:GetModel( 'MODEL_CUI' ):Length()

oModel:GetModel( 'MODEL_CUI' ):GoLine(nJ) oModel:GetModel( 'MODEL_CUI' ):DeleteLine() Next nJ EndIf While oDados:XPathHasNode( cCUIPath

)

If nOpc == 4 .Or. nCUI > 1

// Informa que a linha está para que seja incluída uma nova linha oModel:GetModel( "MODEL_CUI" ):LVALID := .T. oModel:GetModel( "MODEL_CUI" ):AddLine() EndIf

oModel:LoadValue( "MODEL_CUI" "MODEL_CUI", , cCUIPath + "/tpIngresso" "/tpIngresso", , "C" "C", , .F. .F., , @aIncons, .T. ) ) oModel:LoadValue( "MODEL_CUI" "MODEL_CUI", , cCUIPath + "/tpPreco" "/tpPreco", , "C" "C", , .F. .F., , @aIncons, .T. ) ) oModel:LoadValue( "MODEL_CUI" "MODEL_CUI", , cCUIPath + "/qtdeIngressosVenda" , "N" "N", , .F. .F., , @aIncons, .F. ) ) oModel:LoadValue( "MODEL_CUI" "MODEL_CUI", , cCUIPath + "/qtdeIngressosVendidos" , "N" "N", , .F. .F., , @aIncons, .T. ) )

Versão 1.0

95

"CUI_TPINGR", "CUI_TPINGR" , FTafGetVal( "CUI_TPRECO", "CUI_TPRECO" , FTafGetVal( "CUI_QTDIVA", "CUI_QTDIVA" , FTafGetVal( "CUI_QTDIVS", "CUI_QTDIVS" , FTafGetVal(

Integração TAF

Título do documento oModel:LoadValue( "MODEL_CUI" "MODEL_CUI", , "CUI_QTDIDV", "CUI_QTDIDV" , FTafGetVal( cCUIPath + "/qtdeIngressosDevolvidos" , "N" "N", , .F., .F., @aIncons, .F. ) ) oModel:LoadValue( "MODEL_CUI" "MODEL_CUI", , "CUI_PRCIND" "CUI_PRCIND", , FTafGetVal( cCUIPath + "/precoIndividual" "/precoIndividual", , "N" "N", , .F. .F., , @aIncons, .T. ) ) oModel:LoadValue( "MODEL_CUI" "MODEL_CUI", , "CUI_TOTARC" "CUI_TOTARC", , FTafGetVal( cCUIPath + "/vlrTotalArrecadado" , "N" "N", , .F. .F., , @aIncons, .F. ) ) nCUI++ cCUIPath := cCUGPath + "/receitaIngressos[" + AllTrim(Str(nCUI)) + "]" EndDo // Fim - CUI

// CUJ nCUJ := 1 cCUJPath := cCUGPath + "/outrasReceitas[" + AllTrim(Str(nCUJ)) + "]" If nOpc == 4 .And. oDados:XPathHasNode( cCUJPath ) For nJ := 1 to oModel:GetModel( 'MODEL_CUJ' ):Length()

oModel:GetModel( 'MODEL_CUJ' ):GoLine(nJ) oModel:GetModel( 'MODEL_CUJ' ):DeleteLine() Next nJ EndIf While oDados:XPathHasNode( cCUJPath

)

If nOpc == 4 .Or. nCUJ > 1

// Informa que a linha está para que seja incluída uma nova linha oModel:GetModel( "MODEL_CUJ" ):LVALID := .T. oModel:GetModel( "MODEL_CUJ" ):AddLine() EndIf

oModel:LoadValue( "MODEL_CUJ" "MODEL_CUJ", , "CUJ_TPREC" "CUJ_TPREC", , FTafGetVal( cCUJPath + "/tpReceita" "/tpReceita", , "C" "C", , .F. .F., , @aIncons, .T. ) ) oModel:LoadValue( "MODEL_CUJ" "MODEL_CUJ", , "CUJ_VLRREC" "CUJ_VLRREC", , FTafGetVal( cCUJPath + "/vlrReceita" "/vlrReceita", , "N" "N", , .F. .F., , @aIncons, .T. ) ) nCUJ++ cCUJPath := cCUGPath + "/outrasReceitas[" + AllTrim(Str(nCUJ)) + "]"

EndDo // Fim - CUJ

// CUK nCUK := 1 cCUKPath := cCUGPath + "/despesas[" + AllTrim(Str(nCUK)) + "]" If nOpc == 4 .And. oDados:XPathHasNode( cCUKPath ) For nJ := 1 to oModel:GetModel( 'MODEL_CUK' ):Length()

oModel:GetModel( 'MODEL_CUK' ):GoLine(nJ) oModel:GetModel( 'MODEL_CUK' ):DeleteLine() Next nJ EndIf While oDados:XPathHasNode( cCUKPath

)

If nOpc == 4 .Or. nCUK > 1

// Informa que a linha está para que seja incluída uma nova linha oModel:GetModel( "MODEL_CUK" ):LVALID := .T. oModel:GetModel( "MODEL_CUK" ):AddLine() EndIf

oModel:LoadValue( "MODEL_CUK" "MODEL_CUK", , "CUK_TPDESP" "CUK_TPDESP", , FTafGetVal( FGetIdInt( "tpDespesa" "tpDespesa", , "" "",; ,; cCUKPath + "/tpDespesa"), "/tpDespesa" ), "C" "C", , .T. .T., , @aIncons, .T. ) ) oModel:LoadValue( "MODEL_CUK" "MODEL_CUK", , "CUK_VLRDES" "CUK_VLRDES", , FTafGetVal( cCUKPath + "/vlrDespesa" "/vlrDespesa", , "N" "N", , .F. .F., , @aIncons, .T. ) ) // CUL nCUL := 1

96

Versão 1.0

Integração TAF

cCULPath := cCUKPath + "/detMaoObra[" + AllTrim(Str(nCUL)) + "]" If nOpc == 4 .And. oDados:XPathHasNode( cCULPath ) For nJ := 1 to oModel:GetModel( 'MODEL_CUL' ):Length()

oModel:GetModel( 'MODEL_CUL' ):GoLine(nJ) oModel:GetModel( 'MODEL_CUL' ):DeleteLine() Next nJ EndIf While oDados:XPathHasNode( cCULPath

)

If nOpc == 4 .Or. nCUL > 1

// Informa que a linha está para que seja incluída uma nova linha oModel:GetModel( "MODEL_CUL" ):LVALID := .T. oModel:GetModel( "MODEL_CUL" ):AddLine() EndIf

oModel:LoadValue( "MODEL_CUL" "MODEL_CUL", , "CUL_CPFTRB" "CUL_CPFTRB", , FTafGetVal( cCULPath + "/cpfTrab" "/cpfTrab", , "C" "C", , .F. .F., , @aIncons, .T. ) ) oModel:LoadValue( "MODEL_CUL", "MODEL_CUL" , "CUL_VLRREM", "CUL_VLRREM" , FTafGetVal( cCULPath + "/vlrRemuneracao" "/vlrRemuneracao", , "N" "N", , .F. .F., , @aIncons, .T. ) ) oModel:LoadValue( "MODEL_CUL" "MODEL_CUL", , "CUL_VLDESC" "CUL_VLDESC", , FTafGetVal( cCULPath + "/vlrDescCP" "/vlrDescCP", , "N" "N", , .F. .F., , @aIncons, .T. ) ) nCUL++ cCULPath := cCUKPath + "/detMaoObra[" + AllTrim(Str(nCUL)) + "]"

EndDo // Fim - CUL

nCUK++ cCUKPath := cCUGPath + "/despesas[" + AllTrim(Str(nCUK)) + "]" EndDo // Fim - CUK nCUG++ cCUGPath := cCRTPath + "/boletim[" + AllTrim(Str(nCUG)) + "]" EndDo // Fim - CUG nCRT++ cCRTPath := "/eSocial/evtEspDesportivo/ideEstabelecimento[" + AllTrim(Str(nCRT)) + "]"

EndDo // Fim - CRT

EndIf


Versão 1.0

97

Integração TAF


S-2100 – Evento Evento Cadastramento Inicial do Vínculo Rotina: Model MVC: Validação Geração XML Regras

TAFA256.prw MODEL_C9V TAF256VLD() TAF256XML() # 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43

TAG evtCadInicial Versão infEvento idEvento ideEvento indRetificacao nrRecibo tpAmb procEmi indSegmento verProc ideEmpregador tpInscricao nrInscricao Trabalhador cpfTrab nisTrab nomeTrab Sexo racaCor estadoCivil grauInstrucao Nascimento dtNascto codMunicipio Uf paisNascto paisNacionalidade nomeMae nomePai Documentos CTPS nrCtps serieCtps ufCtps RIC nrRic orgaoEmissor dtExpedicao RG nrRg orgaoEmissor dtExpedicao

Model MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V

98

Campo

FGetIDInt()

C9V_CPF C9V_NIS C9V_NOME C9V_SEXO C9V_RCCOR C9V_ESTCIV C9V_GRINST C9V_DTNASC C9V_CODMUN C9V_CODUF C9V_CODPAI C9V_PAINAC C9V_NOMMAE C9V_NOMPAI

C9V_NRCTPS C9V_SERCTP C9V_UFCTPS

Uf, codMunicipio Uf paisNascto paisNacionalidade

ufCtps

C9V_NRRIC C9V_OREMRI C9V_DTEXRI C9V_NRRG C9V_OREMRG C9V_DTEMRG

Versão 1.0

Integração TAF

44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94

RNE nrRne orgaoEmissor dtExpedicao OC nrOc orgaoEmissor dtExpedicao dtValidade CNH nrCnh orgaoEmissor dtExpedicao dtValidade Endereço Brasil tpLogradouro descLogradouro nrLogradouro Complemento Bairro CEP codMunicipio Uf Exterior paisResidencia descLogradouro nrLogradouro Complemento Bairro nomeCidade codPostal infoCasaPropria residenciaPropria recursoFGTS trabEstrangeiro dtChegada dtNaturalizacao casadoBr filhosBr infBancarias Banco Agencia tpContaBancaria nrContaBancaria infoDeficiencia defMotora defVisual defAuditiva Reabilitado Observação

Versão 1.0

MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V

99

C9V_NRRNE C9V_OREMRN C9V_DTEMRN C9V_NUMOC C9V_OREMOC C9V_DTEXOC C9V_DTVLOC C9V_NRCNH C9V_OREMCN C9V_DTEXCN C9V_DTVLCN

C9V_TPLOGR C9V_LOGRAD C9V_NRLOG C9V_COMLOG C9V_BAIRRO C9V_CEP C9V_MUN C9V_UF C9V_PAIS C9V_LOGRAD C9V_NRLOG C9V_COMLOG C9V_BAIRRO C9V_NOMCID C9V_CEP C9V_RESPRP C9V_RECFGT C9V_DTCHEG C9V_DTNATU C9V_CASBRA C9V_FILBRA C9V_BANCO C9V_AGENC C9V_TPCTBA C9V_NRCTBA C9V_NRC TBA C9V_DEFMOT C9V_DEFVIS C9V_DEFAUD C9V_REABIL C9V_OBSDEF

tpLogradouro

uf, codMunicipio uf paisResidencia

Integração TAF

Título do documento 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145

Dependente tpDep nomeDep dtNascto cpfDep depIRRF depSF contato fonePrincipal foneAlternativo emailPrincipal emailAlternativo Vinculo Matricula dtAdmissao tpAdmissao indAdmissao indPrimeiroEmprego Contrato tpRegimeTrab tpRegimePrev natAtividade codCateg codCargo codFuncao Remuneração vlrSalFixo unidSalFixo vlrSalVariavel unidSalVariavel Duração tpContrato dtTermino localTrabalho tpInscricao nrInscricao codLotacao descComplementar Jornada jornadaPadrao qtdHoras codJornadaSegSexta codJornadaSab jornadaTurnoFixo qtdHoras codJornadaSeg codJornadaTer codJornadaQua codJornadaQui codJornadaSex codJornadaSab

MODEL_C9Y MODEL_C9Y MODEL_C9Y MODEL_C9Y MODEL_C9Y MODEL_C9Y MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V

100

C9Y_TPDEP C9Y_NOMDEP C9Y_DTNASC C9Y_CPFDEP C9Y_DEPIRF C9Y_DEPSFA C9V_FONPRC C9V_FONALT C9V_EMAILP C9V_EMAILA C9V_MATRIC C9V_DTADMI C9V_TPADMI C9V_INDADM C9V_INDPRE C9V_TPREGT C9V_TPREGP C9V_TPREGP C9V_NATATV C9V_CODCAT C9V_CODCGO C9V_CODFUN

codCateg codCargo codFuncao

C9V_VLSLFX C9V_UNSLFX C9V_VLSLVR C9V_UNSLVR C9V_TPCONT C9V_DTTERM C9V_TPINSC C9V_NRINSC C9V_CODLOT C9V_COMLOT

codLotacao

C9V_QTDHJP C9V_CJORSS C9V_CJORSA

codJornadaSegSexta codJornadaSab

C9V_QTDHJF C9V_JORSEG C9V_JORTER C9V_JORQUA C9V_JORQUI C9V_JORSEX C9V_JORSAB

codJornadaSeg codJornadaTer codJornadaQua codJornadaQui codJornadaSex codJornadaSab

Versão 1.0

Integração TAF

146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180

codJornadaDom jornadaTurnoFlexivel Turno codJornada jornadaEspecial tpEscala qtdHoras codJornada filiacaoSindical cnpjSindTrabalhador alvaraJudicial nrProcJud FGTS optanteFGTS dtOpcaoFGTS sucessaoVinc cnpjEmpregadorAnterior matriculaAnterior dtInicioVinculo Observação cessaoTrab cnpjCedente matriculaCedente dtAdmissaoCedente infoOnus ASO dtAso Medico nomeMedico CRM nrCRM ufCRM Exame dtExame descExame

MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V -

C9V_JORDOM

codJornadaDom

C9V_CODTUR C9V_CODJTF

codJornada

C9V_TPEJES C9V_QTDHJE C9V_CODJES

codJornada

C9V_CNPJSD C9V_ALVJUD

nrProcJud

C9V_FGTS C9V_DTFGTS C9V_CNPJEA C9V_MATANT C9V_DTINVI C9V_OBSVIN C9V_CNPJCD C9V_MATRCD C9V_DTADCD C9V_INFOCD

-

-

Exemplo: cXml := xFunLerXML() oDados := TXmlManager():New() oDados:Parse(cXml) aAdd( aChave, {"C" aAdd( "C", , "C9V_MATRIC" ,”MATRICULA001”, .T. } ) aAdd( aAdd ( aChave, {"C" "C", , "C9V_CPF" ,"37400956876" , .T. } ) Begin Transaction

//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ //³Função para validar se a operação desejada pode ser realizada³ //ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ If FTafVldOpe( "C9V" "C9V", , 2, @nOpc, cFilEv, @aIncons, aChave, @oModel, "TAFA256" "TAFA256", , cCmpsNoUpd ) If nOpc == 3

oModel:LoadValue( "MODEL_C9V" "MODEL_C9V", , "C9V_NOMEVE" "C9V_NOMEVE", , "S2100" ) EndIf

Versão 1.0

101

Integração TAF


//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ //³Quando se tratar de uma Exclusão direta, é preciso apenas realizar ³ //³o Commit(), não sendo necessária nenhuma manutenção nas informações³ //ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ If nOpc <> 5 oModel:LoadValue( "MODEL_C9V" "MODEL_C9V", , "C9V_FILIAL" "C9V_FILIAL", , C9V->C9V_FILIAL ) oModel:LoadValue( "MODEL_C9V" "MODEL_C9V", , "C9V_CPF" ,"37400956876" ) //³Quando se trata de uma alteração, deleta-se todas as linhas do Grid³ If nOpc == 4 .and. lExisteC9Y For nJ := 1 to oModel:GetModel( "MODEL_C9Y" ):Length() oModel:GetModel( "MODEL_C9Y" ):GoLine(nJ) oModel:GetModel( "MODEL_C9Y" ):DeleteLine() Next nJ EndIf

//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ //³Roda o XML parseado para gravar as novas informações no GRID³ //ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ For nJ := 1 to nX If nOpc == 4 .or. nJ > 1 oModel:GetModel( "MODEL_C9Y" ):lValid:= ):lValid := .T. oModel:GetModel( "MODEL_C9Y" ):AddLine() EndIf

oModel:LoadValue( "MODEL_C9Y", "MODEL_C9Y" , "C9Y_IDDEP" , StrZero StrZero(nJ,6) (nJ,6) ) oModel:LoadValue( "MODEL_C9Y" "MODEL_C9Y", , "C9Y_NOMDEP" "C9Y_NOMDEP", , “Leandro” ) Next nJ EndIf


S-2200 – Evento Evento Admissão Rotina: Model MVC: Validação Geração XML Regras

TAFA278.prw MODEL_C9V TAF278VLD() TAF278XML() # 01 02 03 04 05 06 07 08 09

TAG evtAdmissao Versão infEvento idEvento ideEvento indRetificacao nrRecibo tpAmb procEmi

Model -

102

Campo

FGetIDInt()

Versão 1.0

Integração TAF

10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60

indSegmento verProc ideEmpregador tpInscricao nrInscricao Trabalhador cpfTrab nisTrab nomeTrab Sexo racaCor estadoCivil grauInstrucao Nascimento dtNascto codMunicipio Uf paisNascto paisNacionalidade nomeMae nomePai Documentos CTPS nrCtps serieCtps ufCtps RIC nrRic orgaoEmissor dtExpedicao RG nrRg orgaoEmissor dtExpedicao RNE nrRne orgaoEmissor dtExpedicao OC nrOc orgaoEmissor dtExpedicao dtValidade CNH nrCnh orgaoEmissor dtExpedicao dtValidade Endereço Brasil tpLogradouro

Versão 1.0

MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V

103


C9V_NRCTPS C9V_SERCTP C9V_UFCTPS


ufCtps

C9V_NRRIC C9V_OREMRI C9V_DTEXRI C9V_NRRG C9V_OREMRG C9V_DTEMRG C9V_NRRNE C9V_OREMRN C9V_DTEMRN C9V_NUMOC C9V_OREMOC C9V_DTEXOC C9V_DTVLOC C9V_NRCNH C9V_OREMCN C9V_DTEXCN C9V_DTVLCN

C9V_TPLOGR

tpLogradouro

Integração TAF


descLogradouro nrLogradouro Complemento Bairro CEP codMunicipio Uf Exterior paisResidencia descLogradouro nrLogradouro Complemento Bairro nomeCidade codPostal infoCasaPropria residenciaPropria recursoFGTS trabEstrangeiro dtChegada dtNaturalizacao casadoBr filhosBr infBancarias Banco Agencia tpContaBancaria nrContaBancaria infoDeficiencia defMotora defVisual defAuditiva Reabilitado Observação Dependente tpDep nomeDep dtNascto cpfDep depIRRF depSF contato fonePrincipal foneAlternativo emailPrincipal emailAlternativo Vinculo Matricula dtAdmissao tpAdmissao indAdmissao

MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9Y MODEL_C9Y MODEL_C9Y MODEL_C9Y MODEL_C9Y MODEL_C9Y MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V

104

C9V_LOGRAD C9V_NRLOG C9V_COMLOG C9V_BAIRRO C9V_CEP C9V_MUN C9V_UF C9V_PAIS C9V_LOGRAD C9V_NRLOG C9V_COMLOG C9V_BAIRRO C9V_NOMCID C9V_CEP


C9V_RESPRP C9V_RECFGT C9V_DTCHEG C9V_DTNATU C9V_CASBRA C9V_FILBRA C9V_BANCO C9V_AGENC C9V_TPCTBA C9V_NRCTBA C9V_NRC TBA C9V_DEFMOT C9V_DEFVIS C9V_DEFAUD C9V_REABIL C9V_OBSDEF C9Y_TPDEP C9Y_NOMDEP C9Y_DTNASC C9Y_CPFDEP C9Y_DEPIRF C9Y_DEPSFA C9V_FONPRC C9V_FONALT C9V_EMAILP C9V_EMAILA C9V_MATRIC C9V_DTADMI C9V_TPADMI C9V_INDADM

Versão 1.0

Integração TAF

112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162

indPrimeiroEmprego Contrato tpRegimeTrab tpRegimePrev natAtividade codCateg codCargo codFuncao Remuneração vlrSalFixo unidSalFixo vlrSalVariavel unidSalVariavel Duração tpContrato dtTermino localTrabalho tpInscricao nrInscricao codLotacao descComplementar Jornada jornadaPadrao qtdHoras codJornadaSegSexta codJornadaSab jornadaTurnoFixo qtdHoras codJornadaSeg codJornadaTer codJornadaQua codJornadaQui codJornadaSex codJornadaSab codJornadaDom jornadaTurnoFlexivel Turno codJornada jornadaEspecial tpEscala qtdHoras codJornada filiacaoSindical cnpjSindTrabalhador alvaraJudicial nrProcJud FGTS optanteFGTS dtOpcaoFGTS sucessaoVinc cnpjEmpregadorAnterior

Versão 1.0

MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V

105

C9V_INDPRE C9V_TPREGT C9V_TPREGP C9V_TPREGP C9V_NATATV C9V_CODCAT C9V_CODCGO C9V_CODFUN


C9V_VLSLFX C9V_UNSLFX C9V_VLSLVR C9V_UNSLVR C9V_TPCONT C9V_DTTERM C9V_TPINSC C9V_NRINSC C9V_CODLOT C9V_COMLOT

codLotacao

C9V_QTDHJP C9V_CJORSS C9V_CJORSA


C9V_QTDHJF C9V_JORSEG C9V_JORTER C9V_JORQUA C9V_JORQUI C9V_JORSEX C9V_JORSAB C9V_JORDOM

codJornadaSeg codJornadaTer codJornadaQua codJornadaQui codJornadaSex codJornadaSab codJornadaDom

C9V_CODTUR C9V_CODJTF

codJornada

C9V_TPEJES C9V_QTDHJE C9V_CODJES

codJornada

C9V_CNPJSD C9V_ALVJUD C9V_FGTS C9V_DTFGTS C9V_CNPJEA

nrProcJud

Integração TAF

Título do documento 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180

matriculaAnterior dtInicioVinculo Observação cessaoTrab cnpjCedente matriculaCedente dtAdmissaoCedente infoOnus ASO dtAso Medico nomeMedico CRM nrCRM ufCRM Exame dtExame descExame

MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V -

C9V_MATANT C9V_DTINVI C9V_OBSVIN C9V_CNPJCD C9V_MATRCD C9V_DTADCD C9V_INFOCD

-

-

Exemplo: aAdd( aChave, {"C" aAdd( "C", , "C9V_MATRIC" ,”MATRICULA001”, .T. } ) aAdd( aAdd ( aChave, {"C" "C", , "C9V_CPF" ,"37400956876" , .T. } ) Begin Transaction



//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ //³Quando se tratar de uma Exclusão direta, é preciso apenas realizar ³ //³o Commit(), não sendo necessária nenhuma manutenção nas informações³ //ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ If nOpc <> 5 oModel:LoadValue( "MODEL_C9V" "MODEL_C9V", , "C9V_FILIAL" "C9V_FILIAL", , C9V->C9V_FILIAL ) oModel:LoadValue( "MODEL_C9V" "MODEL_C9V", , "C9V_CPF" ,"37400956876" ) //³Quando se trata de uma alteração, deleta-se todas as linhas do Grid³ If nOpc == 4 .and. lExisteC9Y For nJ := 1 to oModel:GetModel( "MODEL_C9Y" ):Length() oModel:GetModel( "MODEL_C9Y" ):GoLine(nJ) oModel:GetModel( "MODEL_C9Y" ):DeleteLine() Next nJ EndIf


oModel:LoadValue( "MODEL_C9Y" "MODEL_C9Y", , "C9Y_IDDEP" , StrZero StrZero(nJ,6) (nJ,6) )

106

Versão 1.0

Integração TAF

oModel:LoadValue( "MODEL_C9Y" "MODEL_C9Y", , "C9Y_NOMDEP" "C9Y_NOMDEP", , “Leandro”) Next nJ EndIf


Versão 1.0

107

Integração TAF


S-2220 – Alteração Alteração de Dados Cadastrais Rotina: Model MVC: Validação Geração XML Regras

TAFA275 MODEL_CRA TAF275VLD() TAF275XML() # 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43

TAG evtAltCadastral Versão infEvento idEvento ideEvento indRetificacao nrRecibo tpAmb procEmi indSegmento verProc ideEmpregador tpInscricao nrInscricao Alteração dtAlteracao dadosTrabalhador cpfTrab nisTrab nomeTrab Sexo racaCor estadoCivil grauInstrucao Nascimento dtNascto codMunicipio Uf paisNascto paisNacionalidade nomeMae nomePai Documentos CTPS nrCtps serieCtps ufCtps RIC nrRic orgaoEmissor dtExpedicao RG nrRg

Model -

Campo

MODEL_CRA MODEL_CRA MODEL_CRA MODEL_CRA MODEL_CRA MODEL_CRA MODEL_CRA MODEL_CRA MODEL_CRA MODEL_CRA MODEL_CRA MODEL_CRA MODEL_CRA MODEL_CRA MODEL_CRA MODEL_CRA MODEL_CRA MODEL_CRA MODEL_CRA MODEL_CRA MODEL_CRA

CRA_CPF CRA_NIS CRA_NOME CRA_SEXO CRA_RCCOR CRA_ESTCIV CRA_GRINST

108

CRA_DTNASC CRA_CODMUN CRA_CODUF CRA_CODPAI CRA_PAINAC CRA_NOMMAE CRA_NOMPAI

CRA_NRCTPS CRA_SERCTP CRA_UFCTPS

FGetIDInt()


ufCtps

CRA_NRRIC CRA_OREMRI CRA_DTEXRI CRA_NRRG

Versão 1.0

Integração TAF

44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94

orgaoEmissor dtExpedicao RNE nrRne orgaoEmissor dtExpedicao OC nrOc orgaoEmissor dtExpedicao dtValidade CNH nrCnh orgaoEmissor dtExpedicao dtValidade Endereço Brasil tpLogradouro descLogradouro nrLogradouro Complemento Bairro CEP codMunicipio Uf Exterior paisResidencia descLogradouro nrLogradouro Complemento Bairro nomeCidade codPostal infoCasaPropria residenciaPropria recursoFGTS trabEstrangeiro dtChegada dtNaturalizacao casadoBr filhosBr infBancarias Banco Agencia tpContaBancaria nrContaBancaria infoDeficiencia defMotora defVisual defAuditiva

Versão 1.0

MODEL_CRA MODEL_CRA MODEL_CRA MODEL_CRA MODEL_CRA MODEL_CRA MODEL_CRA MODEL_CRA MODEL_CRA MODEL_CRA MODEL_CRA MODEL_CRA MODEL_CRA MODEL_CRA MODEL_CRA MODEL_CRA MODEL_CRA MODEL_CRA MODEL_CRA MODEL_CRA MODEL_CRA MODEL_CRA MODEL_CRA MODEL_CRA MODEL_CRA MODEL_CRA MODEL_CRA MODEL_CRA MODEL_CRA MODEL_CRA MODEL_CRA MODEL_CRA MODEL_CRA MODEL_CRA MODEL_CRA MODEL_CRA MODEL_CRA MODEL_CRA MODEL_CRA MODEL_CRA MODEL_CRA

109

CRA_OREMRG CRA_DTEMRG CRA_NRRNE CRA_OREMRN CRA_DTEMRN CRA_NUMOC CRA_OREMOC CRA_DTEXOC CRA_DTVLOC CRA_NRCNH CRA_OREMCN CRA_DTEXCN CRA_DTVLCN

CRA_TPLOGR CRA_LOGRAD CRA_NRLOG CRA_COMLOG CRA_BAIRRO CRA_CEP CRA_MUN CRA_UF CRA_PAIS CRA_LOGRAD CRA_NRLOG CRA_COMLOG CRA_BAIRRO CRA_NOMCID CRA_CEP CRA_RESPRP CRA_RECFGT CRA_DTCHEG CRA_DTNATU CRA_CASBRA CRA_FILBRA CRA_BANCO CRA_AGENC CRA_TPCTBA CRA_NRCTBA CRA_DEFMOT CRA_DEFVIS CRA_DEFAUD

tpLogradouro


Integração TAF

Título do documento 95 96 97 98 99 100 101 102 103 104 105 106 107 108

Reabilitado Observação Dependente tpDep nomeDep dtNascto cpfDep depIRRF depSF contato fonePrincipal foneAlternativo emailPrincipal emailAlternativo

MODEL_CRA MODEL_CRA MODEL_C9Y MODEL_C9Y MODEL_C9Y MODEL_C9Y MODEL_C9Y MODEL_C9Y MODEL_CRA MODEL_CRA MODEL_CRA MODEL_CRA

CRA_REABIL CRA_OBSDEF C9Y_TPDEP C9Y_NOMDEP C9Y_DTNASC C9Y_CPFDEP C9Y_DEPIRF C9Y_DEPSFA CRA_FONPRC CRA_FONALT CRA_EMAILP CRA_EMAILP CRA_EMAILA

Exemplo: aAdd( aChave, {"C" aAdd( "C", , "CRA_CODTRA", "CRA_CODTRA" ,"37400956876" "37400956876", , .T. } ) aAdd( aAdd ( aChave, {"D" "D", , "CRA_DTALTR" "CRA_DTALTR", ,"2013-11-14" , .T. } ) Begin Transaction

//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ //³Função para validar se a operação desejada pode ser realizada³ //ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ If FTafVldOpe( "CRA" "CRA", , 2, @nOpc, cFilEv, @aIncons, aChave, @oModel, "TAFA275" "TAFA275", , cCmpsNoUpd ) //ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ //³Quando se tratar de uma Exclusão direta, é preciso apenas realizar ³ //³o Commit(),não sendo necessária nenhuma manutenção nas informações³ //ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ If nOpc <> 5 oModel:LoadValue( "MODEL_CRA" "MODEL_CRA", , "CRA_FILIAL" "CRA_FILIAL", , CRA->CRA_FILIAL ) oModel:LoadValue( "MODEL_CRA" "MODEL_CRA", , "CRA_DTALTR" "CRA_DTALTR", ,"2013-11-14") //³Quando se trata de uma alteracao, deleto todas as linhas do Grid³ If nOpc == 4 .and. lExisteC9Y For nJ := 1 to oModel:GetModel( "MODEL_C9Y" ):Length() oModel:GetModel( "MODEL_C9Y" ):GoLine(nJ) oModel:GetModel( "MODEL_C9Y" ):DeleteLine() Next nJ EndIf


oModel:LoadValue( "MODEL_C9Y", "MODEL_C9Y" , "C9Y_IDDEP" , StrZero StrZero(nJ,6) (nJ,6) ) oModel:LoadValue( "MODEL_C9Y" "MODEL_C9Y", , "C9Y_NOMDEP" "C9Y_NOMDEP", , “Leandro”) Next nJ EndIf

//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ //³Efetiva a operação desejada³ //ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ FWFormCommit( oModel ) lRet := .T.

110

Versão 1.0

Integração TAF

oModel:DeActivate() EndIf End Transaction

Versão 1.0

111

Integração TAF


S-2240 – Alteração Alteração Contratual Rotina: Model MVC: Validação Geração XML Regras

TAFA276 MODEL_CRB TAF276VLD() TAF276XML() # 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43

TAG evtAltContratual Versão infEvento idEvento ideEvento indRetificacao nrRecibo tpAmb procEmi indSegmento verProc ideEmpregador tpInscricao nrInscricao ideVinculo cpfTrab nisTrab Matricula altContratual dtAlteracao Contrato tpRegimeTrab tpRegimePrev natAtividade codCateg codCargo codFuncao Remuneração vlrSalFixo unidSalFixo vlrSalVariavel unidSalVariavel Duração tpContrato dtTermino localTrabalho tpInscricao nrInscricao codLotacao descComplementar Jornada jornadaPadrao qtdHoras

Model MODEL_CRB MODEL_CRB MODEL_CRB MODEL_CRB MODEL_CRB MODEL_CRB MODEL_CRB MODEL_CRB MODEL_CRB MODEL_CRB MODEL_CRB MODEL_CRB MODEL_CRB MODEL_CRB MODEL_CRB MODEL_CRB MODEL_CRB MODEL_CRB MODEL_CRB MODEL_CRB MODEL_CRB

112

Campo

FGetIDInt()

CRB_DTALTC CRB_TPREGT CRB_TPREGP CRB_NATATV CRB_CODCAT CRB_CODCGO CRB_CODFUN


CRB_VLSLFX CRB_UNSLFX CRB_VLSLVR CRB_UNSLVR CRB_TPCONT CRB_DTTERM CRB_TPINSC CRB_NRINSC CRB_CODLOT CRB_COMLOT

codLotacao

CRB_QTDHJP

Versão 1.0

Integração TAF

44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65

codJornadaSegSexta codJornadaSab jornadaTurnoFixo qtdHoras codJornadaSeg codJornadaTer codJornadaQua codJornadaQui codJornadaSex codJornadaSab codJornadaDom jornadaTurnoFlexivel Turno codJornada jornadaEspecial tpEscala qtdHoras codJornada filiacaoSindical cnpjSindTrabalhador alvaraJudicial nrProcJud

MODEL_CRB MODEL_CRB MODEL_CRB MODEL_CRB MODEL_CRB MODEL_CRB MODEL_CRB MODEL_CRB MODEL_CRB MODEL_CRB MODEL_CRB MODEL_CRB MODEL_CRB MODEL_CRB MODEL_CRB MODEL_CRB MODEL_CRB

CRB_CJORSS CRB_CJORSA


CRB_QTDHJF CRB_JORSEG CRB_JORTER CRB_JORQUA CRB_JORQUI CRB_JORSEX CRB_JORSAB CRB_JORDOM

codJornadaSeg codJornadaTer codJornadaQua codJornadaQui codJornadaSex codJornadaSab codJornadaDom

CRB_CODTUR CRB_CODJTF

codJornada

CRB_TPEJES CRB_QTDHJE CRB_CODJES

codJornada

CRB_CNPJSD CRB_ALVJUD

nrProcJud

Exemplo: aAdd( aChave, {"C" aAdd( "C", , "CRB_CODTRA", "CRB_CODTRA" ,"37400956876" "37400956876", , .T. } ) aAdd( aAdd ( aChave, {"D" "D", , "CRB_DTALTR" "CRB_DTALTR", ,"2013-11-14" , .T. } ) Begin Transaction

//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ //³Função para validar se a operação desejada pode ser realizada³ //ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ If FTafVldOpe( "CRB" "CRB", , 2, @nOpc, cFilEv, @aIncons, aChave, @oModel, "TAFA276" "TAFA276", , cCmpsNoUpd ) //ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ //³Quando se tratar de uma Exclusão direta, é preciso apenas realizar ³ //³o Commit(), não sendo necessária nenhuma manutenção nas informações³ //ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ If nOpc <> 5 oModel:LoadValue( "MODEL_CRB", "MODEL_CRB" , "CRB_FILIAL", "CRB_FILIAL" , CRB->CRB_FILIAL ) oModel:LoadValue( "MODEL_CRB" "MODEL_CRB", , "CRB_DTALTR" "CRB_DTALTR", ,"2013-11-14") EndIf


Versão 1.0

113

Integração TAF


S-2260 – Comunicação Comunicação de Acidente de Trabalho Rotina: Model MVC: Validação Geração XML Regras

TAFA257 MODEL_CM0 TAF257VLD() TAF257XML() # 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43

TAG eSocial evtCAT Id Versão ideEvento indRetificacao nrRecibo tpAmb procEmi indSegmento verProc ideEmpregador tpInscricao nrInscricao ideTrabalhador cpfTrab nisTrab Cat dtAcidente horaAcidente horasTrabAntesAcidente tpAcidente tpCat indCatParcial indCatObito indComunicPolicia codSitGeradora localAcidente tpLocal descLocal descLogradouro nrLogradouro codMunicipio Uf cnpjLocalAcidente parteAtingida codParteAtingida agenteCausador codAgenteCausador Testemunha nomeTestemunha descLogradouro nrLogradouro

Model MODEL_CM0 MODEL_CM0 MODEL_CM0 MODEL_CM0 MODEL_CM0 MODEL_CM0 MODEL_CM0 MODEL_CM0 MODEL_CM0 MODEL_CM0 MODEL_CM0 MODEL_CM0 MODEL_CM0 MODEL_CM0 MODEL_CM0 MODEL_CM0 MODEL_CM0 MODEL_CM0 MODEL_CM1 MODEL_CM2 MODEL_CM3 MODEL_CM3 MODEL_CM3

114

Campo

FGetIDInt()

CM0_TRABAL

cpfTrab

CM0_DTACID CM0_HRACID CM0_HRTRAB CM0_TPACID CM0_TPCAT CM0_INDPAR CM0_INDOBI CM0_COMPOL CM0_CODSIT CM0_TPLOC CM0_DESLOC CM0_DESLOG CM0_NRLOG CM0_CODMUN CM0_UF CM0_CNPJLO

Uf,codMunicipio uf

CM1_CODPAR

codParteAtingida

CM2_CODAGE

codAgenteCausador

CM3_NOMTES CM3_DESLOG CM3_NRLOG

Versão 1.0

Integração TAF

44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66

Bairro codMunicipio Uf CEP Telefone Atestado codCNES dtAtendimento hrAtendimento indInternacao durTratamento indAfastamento descLesao diagProvavel codCID Observação Emitente nomeEmitente nrOC ufOC catOrigem dtCatOrigem nrCatOrigem

MODEL_CM3 MODEL_CM3 MODEL_CM3 MODEL_CM3 MODEL_CM3 MODEL_CM0 MODEL_CM0 MODEL_CM0 MODEL_CM0 MODEL_CM0 MODEL_CM0 MODEL_CM0 MODEL_CM0 MODEL_CM0 MODEL_CM0 MODEL_CM0 MODEL_CM0 MODEL_CM0 MODEL_CM0 MODEL_CM0

CM3_BAIRRO CM3_CODMUN CM3_UF CM3_CEP CM3_FONE

Uf, codMunicipio uf

CM0_CODCNE CM0_DTATEN CM0_HRATEN CM0_INDINT CM0_DURTRA CM0_INDAFA CM0_DESLES CM0_DIAPRO CM0_CODCID CM0_OBSERV CM0_IDPROF -

codCID

nrOC

CM0_DTCAT

Exemplo: Aadd( aChave, {"D" Aadd( "D", , "CM0_DTACID", "CM0_DTACID" ,"2013-11-01" "2013-11-01", , .F. .F.} } ) Aadd( Aadd ( aChave, {"C" "C", , "CM0_HRACID" "CM0_HRACID", ,"10:00" "10:00", , .F. } ) Begin Transaction

//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ //³Função para validar se a operação desejada pode ser realizada³ //ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ If FTafVldOpe( 'CM0' 'CM0', , 2, @nOpc, cFilEv, @aIncons, aChave, @oModel, 'TAFA257' 'TAFA257', , cCmpsNoUpd ) //ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ //³Quando se tratar de uma Exclusão direta, é preciso apenas realizar ³ //³o Commit(), não sendo necessária nenhuma manutenção nas informações³ //ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ If nOpc <> 5 oModel:LoadValue( "MODEL_CM0" "MODEL_CM0", , "CM0_FILIAL" "CM0_FILIAL", , CM0->CM0_FILIAL ) oModel:LoadValue( "MODEL_CM0" "MODEL_CM0", , "CM0_HRACID" "CM0_HRACID", ,"10:00" "10:00") ) //ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ //³Parte Atingida³ //ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ //ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ //³Quando se trata de uma alteração, deleta-se todas as linhas do Grid³ //ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ If nOpc == 4 .And. lParteAting For nJ := 1 to oModel:GetModel( 'MODEL_CM1' ):Length() oModel:GetModel( 'MODEL_CM1' ):GoLine(nJ) oModel:GetModel( 'MODEL_CM1' ):DeleteLine() Next nJ EndIf

//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ //³Roda o XML parseado para gravar as novas informações no GRID³ //ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ For nJ := 1 to nPrtAting oModel:GetModel( 'MODEL_CM1' ):LVALID := .T.

Versão 1.0

115

Integração TAF

Título do documento If nOpc == 4 .Or. nJ > 1

oModel:GetModel( 'MODEL_CM1' ):AddLine() EndIf

oModel:LoadValue( "MODEL_CM1" "MODEL_CM1", , "CM1_CODPAR" "CM1_CODPAR", , “00001”) EndDo

//³Agente Causador³ //³Quando se trata de uma alteração, deleta-se todas as linhas do Grid³ //ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ If nOpc == 4 .And. lAgCausador For nJ := 1 to oModel:GetModel( 'MODEL_CM2' ):Length() Next nJ

oModel:GetModel( 'MODEL_CM2' ):GoLine(nJ) oModel:GetModel( 'MODEL_CM2' ):DeleteLine()

EndIf

//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ //³Roda o XML parseado para gravar as novas informações no GRID³ //ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ For nJ := 1 to nAgCausador oModel:GetModel( 'MODEL_CM2' ):LVALID := .T. If nOpc == 4 .Or. nJ > 1 oModel:GetModel( 'MODEL_CM2' ):AddLine() EndIf

Next nJ

oModel:LoadValue( "MODEL_CM2" "MODEL_CM2", , "CM2_CODAGE" "CM2_CODAGE", , “0001” )

//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ //³Testemunhas ³ //ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ //ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ //³Quando se trata de uma alteração, deleta-se todas as linhas do Grid³ //ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ If nOpc == 4 .And. lTestemun For nJ := 1 to oModel:GetModel( 'MODEL_CM3' ):Length() oModel:GetModel( 'MODEL_CM3' ):GoLine(nJ) oModel:GetModel( 'MODEL_CM3' ):DeleteLine() Next nJ EndIf

//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ //³Roda o XML parseado para gravar as novas informações no GRID³ //ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ For nJ := 1 to nTestemun oModel:GetModel( 'MODEL_CM3' ):LVALID := .T. If nOpc == 4 .Or. nJ > 1 oModel:GetModel( 'MODEL_CM3' ):AddLine() EndIf

oModel:LoadValue( "MODEL_CM3", "MODEL_CM3" , "CM3_NOMTES" , “Gabriela” ) oModel:LoadValue( "MODEL_CM3" "MODEL_CM3", , "CM3_FONE" , “955441100” ) Next nJ EndIf


116

Versão 1.0

Integração TAF

S-2280 – Atestado Atestado de Saúde Ocupacional Rotina: Model MVC: Validação Geração XML Regras

TAFA258.PRW MODEL_C8B; MODEL_C9W; MODEL_C9X;MODEL_CRP; MODEL_C9X;MODEL_CRP; TAF258VLD() TAF258XML() # 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43

TAG eSocial evtASO Versao Id ideEvento indRetificacao nrRecibo tpAmb procEmi indSegmento verProc ideEmpregador tpInscricao nrInscricao ideVinculo cpfTrab nisTrab Matricula aso dtAso tpAso resultadoAso exame dtExame descExame Risco codAgente monitBiologica resultMonitoracao codAgenteQuimico matBiologico codAnalise expExcessiva ordemExame indResultado dtIniMonitoracao dtFimMonitoracao Medico nomeMedico foneContato CRM nrCRM ufCRM

Versão 1.0

Model MODEL_C8B MODEL_C8B MODEL_C8B MODEL_C8B MODEL_C9W MODEL_C9W MODEL_C9X MODEL_CRP MODEL_CRP MODEL_CRP MODEL_CRP MODEL_CRP MODEL_CRP MODEL_C8B -

117

Campo

FGetIDInt()

C8B_FUNC

cpfTrab

C8B_DTASO C8B_TPASO C8B_RESULT C9W_DTEXAM C9W_DESEXM C9X_CODAGE

codAgente

CRP_IDMBIO CRP_EXPEXC CRP_ORDEXA CRP_INDRES CRP_DINIMO CRP_DFIMMO C8B_CODMED -

nrOC

Integração TAF

Título do documento Exemplo: Aadd( aChave, { "C" Aadd( "C", , "C8B_FUNC" , FGetIdInt( "cpfTrab" "cpfTrab", , "" "", , “37400956876 " ), .T. } ) aAdd( aAdd ( aChave, { "D" "D", , "C8B_DTASO” , "2013-11-07" "2013-11-07", , .t. } ) Begin Transaction If FTafVldOpe( "C8B" "C8B", , 2, @nOpc, cFilEv, @aIncons, aChave, @oModel, "TAFA258" "TAFA258", , cCmpsNoUpd )

oModel:LoadValue( "MODEL_C8B" "MODEL_C8B", , "C8B_FILIAL" "C8B_FILIAL", , C8B->C8B_FILIAL ) oModel:LoadValue( "MODEL_C8B" "MODEL_C8B", , "C8B_DTASO” , "2013-11-07" "2013-11-07") ) ) // ³ Risco ³ If nOpc == 4 For nJ := 1 to oModel:GetModel( 'MODEL_C9X' ):Length() oModel:GetModel( 'MODEL_C9X' ):GoLine(nJ) oModel:GetModel( 'MODEL_C9X' ):DeleteLine() Next nJ EndIf For nJ := 1 to nRiscos

oModel:GetModel( 'MODEL_C9X' ):LVALID := .T. If nOpc == 4 .Or. nJ > 1 oModel:GetModel( 'MODEL_C9X' ):AddLine() EndIf

oModel:LoadValue( "MODEL_C9X" "MODEL_C9X", , "C9X_CODAGE" ,”001”) Next nJ //Exame If nOpc == 4 For nJ := 1 to oModel:GetModel( 'MODEL_C9W' ):Length() oModel:GetModel( 'MODEL_C9W' ):GoLine(nJ) oModel:GetModel( 'MODEL_C9W' ):DeleteLine() Next nJ EndIf For nJ := 1 to nExames

oModel:GetModel( 'MODEL_C9W' ):LVALID := .T. If nOpc == 4 .Or. nJ > 1 oModel:GetModel( 'MODEL_C9W' ):AddLine() EndIf

oModel:LoadValue( "MODEL_C9W" "MODEL_C9W", , "C9W_DTEXAM", ”2013-10-10”) Next nJ For nJ := 1 to nExames

oModel:GetModel( 'MODEL_C9W' ):LVALID := .T. If nOpc == 4 .Or. nJ > 1 oModel:GetModel( 'MODEL_C9W' ):AddLine() EndIf cIdCUA := FGetIdInt( "codAgenteQuimico", "codAgenteQuimico" , "" "", , “01”) cIdCUM := FGetIdInt( "codAnalise" "codAnalise", , "" "", , “1.1”)

cMatBio:= cMatBio := “1” ("CUQ" "CUQ")->( )->(DBSetOrder DBSetOrder(3)) (3)) If ("CUQ" "CUQ")->(MsSeek(xFilial( )->(MsSeek(xFilial( "CUQ" "CUQ") )+ cIdCUA + cMatBio + cIdCUM )) oModel:LoadValue( "MODEL_CRP" "MODEL_CRP", , "CRP_IDMBIO" "CRP_IDMBIO", , CUQ->CUQ_ID ) EndIf

oModel:LoadValue( "MODEL_CRP", "MODEL_CRP" , "CRP_EXPEXC", "CRP_EXPEXC" , "1" "1") ) oModel:LoadValue( "MODEL_CRP" "MODEL_CRP", , "CRP_ORDEXA " ", , "1" "1") ) cIdCUA := "" cIdCUM := "" cMatBio:= cMatBio := "" Next nJ


118

Versão 1.0

Integração TAF

S-2320 – Afastamento Afastamento Temporário Rotina: Model MVC: Validação Geração XML Regras

TAFA261.PRW MODEL_CM6 TAF261VLD() TAF261XML() # 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36

TAG eSocial evtAfastTemp id versao ideEvento indRetificacao nrRecibo tpAmb procEmi indSegmento verProc ideEmpregador tpInscricao nrInscricao ideVinculo cpfTrab nisTrab matricula infoAfastamento dtAfastamento codMotAfastamento tpAcidenteTransito observação infoAtestado codCID qtdDiasAfastamento emitente nomeEmitente nrOC ufOC infoCessao cnpjCessionario infoOnus infoMandadoSindical cnpjSindicato infoOnusRemuneracao

Versão 1.0

Model MODEL_CM6 MODEL_CM6 MODEL_CM6 MODEL_CM6 MODEL_CM6 MODEL_CM6 MODEL_CM6 MODEL_CM6 MODEL_CM6 MODEL_CM6 MODEL_CM6 MODEL_CM6 MODEL_CM6

119

Campo

FGetIDInt()

CM6_FUNC

Matricula, cpfTrab

CM6_DTAFAS CM6_MOTVAF CM6_TPACID CM6_OBSERV CM6_CODCID CM6_DIASAF

codCID

CM6_MEDICO

nrCRM

CM6_CNPJCE CM6_INFOCE CM6_CNPJSD CM6_INFOSD

Integração TAF

Título do documento Exemplo: Aadd( aChave, {"C" Aadd( "C", , "CM6_FUNC" , FGetIdInt( "cpfTrab", , "37400956876" "37400956876") ) , .T.} .T.} ) Aadd( Aadd ( aChave, {"C" "C", , "CM6_MOTVAF" "CM6_MOTVAF", , FGetIdInt( "codMotAfastamento" , "" "", ,"0001" ), .T. } ) Begin Transaction

//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ //³Função para validar se a operação desejada pode ser realizada³ //ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ If FTafVldOpe( 'CM6' 'CM6', , 2, @nOpc, cFilEv, @aIncons, aChave, @oModel, 'TAFA261' 'TAFA261', , cCmpsNoUpd ) //ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ //³Quando se tratar de uma Exclusão direta, é preciso apenas realizar ³ //³o Commit(), não sendo necessária nenhuma manutenção nas informações³ //ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ If nOpc <> 5 oModel:LoadValue( "MODEL_CM6" "MODEL_CM6", , "CM6_FUNC" "CM6_FUNC", , CM6->CM6_FUNC) oModel:LoadValue( "MODEL_CM6" "MODEL_CM6", , "CM6_DTAFAS" "CM6_DTAFAS", , CM6->CM6_DTAFAS) oModel:LoadValue( "MODEL_CM6" "MODEL_CM6", , "CM6_MOTVAF" "CM6_MOTVAF", , CM6->CM6_MOTVAF) oModel:LoadValue( "MODEL_CM6" "MODEL_CM6", , CM6_FUNC" , FGetIdInt( "cpfTrab" "cpfTrab", , "37400956876", "37400956876" , "MAT0001" "MAT0001") ) ) Next EndIf


120

Versão 1.0

Integração TAF

S-2325 – Alteração Alteração do Motivo do Afastame Afastamento nto Rotina: Model MVC: Validação Geração XML Regras

TAFA281.PRW MODEL_CRE TAF281VLD() TAF281XML() # 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23

TAG eSocial evtAltMotAfast id versao ideEvento indRetificacao nrRecibo tpAmb procEmi indSegmento verProc ideEmpregador tpInscricao nrInscricao ideVinculo cpfTrab nisTrab Matricula infoAltMotivo dtAltMotivo codMotivoAnterior codMotAfastamento indEfeitoRetroativo

Model MODEL_CRE MODEL_CRE MODEL_CRE MODEL_CRE MODEL_CRE

Campo

FGetIDInt()

CRE_FUNC

Matricula,cpfTrab

CRE_DTALTM CRE_AFASTA CRE_MOTVAF CRE_INDERT

cpfTrab,codMotivoAnterior codMotAfastamento

Exemplo: Aadd( aChave, {"C" Aadd( "C", , "CRE_FUNC" "CRE_FUNC",FGetIdInt( ,FGetIdInt( "matricula" "matricula", , "cpfTrab" "cpfTrab", ,"MAT0001" ,"37400956876 " ), .T. .T.} } ) Aadd( Aadd ( aChave, {"C" "C", , "CRE_MOTVAF" "CRE_MOTVAF", , FGetIdInt( "codMotAfastamento" , "" "", ,"0001" ), .T. } ) Begin Transaction

//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ //³Função para validar se a operação desejada pode ser realizada³ //ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ If FTafVldOpe( 'CRE' 'CRE', , 2, @nOpc, cFilEv, @aIncons, aChave, @oModel, 'TAFA281' 'TAFA281', , cCmpsNoUpd ) //ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ //³Quando se tratar de uma Exclusão direta, é preciso apenas realizar ³ //³o Commit(), não sendo necessária nenhuma manutenção nas informações³ //ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ If nOpc <> 5 oModel:LoadValue( "MODEL_CRE" "MODEL_CRE", , "CRE_FUNC" "CRE_FUNC", , CRE->CRE_FUNC) oModel:LoadValue( "MODEL_CRE" "MODEL_CRE", , "CRE_MOTVAF" "CRE_MOTVAF", , CRE->CRE_MOTVAF) EndIf

//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿

Versão 1.0

121

Integração TAF

Título do documento //³Efetiva a operação desejada³ //ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ FWFormCommit( oModel ) lRet := .T. oModel:DeActivate() EndIf End Transaction

122

Versão 1.0

Integração TAF

S-2330 – Retorno Retorno do Afastamento Rotina: Model MVC: Validação Geração XML Regras

TAFA291.PRW MODEL_CRF TAF291VLD() TAF291XML() # 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22

TAG eSocial evtAfastRetorno id versao ideEvento indRetificacao nrRecibo tpAmb procEmi indSegmento verProc ideEmpregador tpInscricao nrInscricao ideVinculo cpfTrab nisTrab Matricula infoRetorno dtRetorno codMotAfastamento Observação

Model MODEL_CRF MODEL_CRF MODEL_CRF MODEL_CRF

Campo

FGetIDInt()

CRF_FUNC -

Matricula,cpfTrab

CRF_DTRETO CRF_AFASTA CRF_OBSRET

cpfTrab,codMotivoAnterior

Exemplo: Aadd( aChave, { "C" "C", , "CRI_FUNC", "CRI_FUNC" , FGetIdInt( "cpfTrab" "cpfTrab", ,"matricula" "matricula", , "37400956876" "37400956876", , "MAT0001" ), .T. } ) Aadd( aChave, { "D", "D", "CRI_DTFIN" "CRI_DTFIN", , "2013-10-10" "2013-10-10", , .F. .F.} } ) Aadd( aChave, { "C" "C", , "CRI_TPCOND" "CRI_TPCOND", ,"1" "1", , .F. } ) nIndice := 2 Begin Transaction

//Função para validar se a operação desejada pode ser realizada If FTafVldOpe( 'CRI' 'CRI', , nIndice, @nOpc, cFilEv, @aIncons, aChave, @oModel, 'TAFA282' 'TAFA282', , cCmpsNoUpd,1 ) //ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ //³Quando se tratar de uma Exclusão direta, é preciso apenas realizar ³ //³o Commit(), não sendo necessária nenhuma manutenção nas informações³ //ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ If nOpc <> 5 oModel:LoadValue( "MODEL_CRI" "MODEL_CRI", , "CRI_FILIAL" "CRI_FILIAL", , CRI->CRI_FILIAL ) oModel:LoadValue( "MODEL_CRI" "MODEL_CRI", , "CRI_TPCOND" "CRI_TPCOND", ,"1" "1") ) //ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ //³Quando se trata de uma alteração, deleta-se todas as linhas do Grid³ //ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ If (nOpc == 4) For nJ := 1 to oModel:GetModel( 'MODEL_CRJ' ):Length() oModel:GetModel( 'MODEL_CRJ' ):GoLine(nJ) oModel:GetModel( 'MODEL_CRJ' ):DeleteLine() Next nJ EndIf // CRJ

Versão 1.0

123

Integração TAF

Título do documento For nCRJ := 1 to If (nCRJ > 1) .Or. (nOpc == 4)

// é necessário atribuir LVALID para que permita o addline(); oModel:GetModel( "MODEL_CRJ" ):LVALID := .T. oModel:GetModel( "MODEL_CRJ" ):AddLine() EndIf

//Começa a salvar as informações; oModel:LoadValue( "MODEL_CRJ" "MODEL_CRJ", , "CRJ_CODAGE" "CRJ_CODAGE", , FGetIdInt( "codAgente" "codAgente", , "00001" "00001")) )) Next nCRJ

EndIf


S-2340 – Estabilidade Estabilidade – Início Início Rotina: Model MVC: Validação Geração XML Regras

TAFA260.PRW MODEL_CM5 TAF260VLD() TAF260XML() # 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22

TAG eSocial evtEstabInicio infEvento idEvento ideEvento indRetificacao nrRecibo tpAmb procEmi indSegmento verProc ideEmpregador tpInscricao nrInscricao ideVinculo cpfTrab nisTrab matricula infoEstabInicio dtIniEstabilidade codMotivoEstabilidade observacao

Model MODEL_CM5 MODEL_CM5 MODEL_CM5 MODEL_CM5

124

Campo

FGetIDInt()

CM5_TRABAL

cpfTrab,matricula

CM5_DTAFAS CM5_CODEST CM5_OBSERV

Versão 1.0

Integração TAF

Exemplo: Aadd( aChave, {"C" Aadd( "C", , "CM5_TRABAL" Aadd( Aadd ( aChave, {"D" "D", , "CM5_DTESTA"

, FGetIdInt( " cpfTrab", cpfTrab", "matricula" "matricula", ,"37400956876" "37400956876", ,"MAT0001" "MAT0001"), ), .T. .T.} } ) , "2013-01-10" "2013-01-10", , .T. } )

Begin Transaction

//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ //³Função para validar se a operação desejada pode ser realizada³ //ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ If FTafVldOpe( 'CM5' 'CM5', , 2, @nOpc, cFilEv, @aIncons, aChave, @oModel, 'TAFA260' 'TAFA260', , cCmpsNoUpd ) //ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ //³Quando se tratar de uma Exclusão direta, é preciso apenas realizar ³ //³o Commit(), não sendo necessária nenhuma manutenção nas informações³ //ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ If nOpc <> 5 oModel:LoadValue( "MODEL_CM5" "MODEL_CM5", , "CM5_TRABAL" "CM5_TRABAL", , CM5->CM5_TRABAL) oModel:LoadValue( "MODEL_CM5" "MODEL_CM5", , "CM5_DTESTA" "CM5_DTESTA", , CM5->CM5_DTESTA) EndIf


Versão 1.0

125

Integração TAF


S-2345 – Estabilidade Estabilidade – Término Término Rotina: Model MVC: Validação Geração XML Regras

TAFA287.PRW MODEL_CRH TAF287VLD() TAF287XML() # 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22

TAG eSocial evtEstabTermino infEvento idEvento ideEvento indRetificacao nrRecibo tpAmb procEmi indSegmento verProc ideEmpregador tpInscricao nrInscricao ideVinculo cpfTrab nisTrab matricula infoEstabTermino dtFimEstabilidade codMotivoEstabilidade observacao

Model MODEL_CRH MODEL_CRH MODEL_CRH MODEL_CRH

Campo

FGetIDInt()

CRH_TRABAL

cpfTrab,matricula

CRH_DTFNES CRH_CODEST CRH_OBSERV

Exemplo: Aadd( aChave, {"C" Aadd( "C", , "CRH_TRABAL" Aadd( Aadd ( aChave, {"C" "C", , "CRH_INIEST"

, FGetIdInt( " cpfTrab", cpfTrab", "matricula" "matricula", ,"37400956876" "37400956876", ,"MAT0001" "MAT0001"), ), .T. .T.} } ) , FGetIdInt( "IniEst", "IniEst" , "" "",cIdTrabal,cCodEst, ,cIdTrabal,cCodEst, .F. ), .T. } )

Begin Transaction

//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ //³Função para validar se a operação desejada pode ser realizada³ //ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ If FTafVldOpe( 'CRH' 'CRH', , 2, @nOpc, cFilEv, @aIncons, aChave, @oModel, 'TAFA287' 'TAFA287', , cCmpsNoUpd ) //³Quando se tratar de uma Exclusão direta, é preciso apenas realizar ³ //³o Commit(), não sendo necessária nenhuma manutenção nas informações³ If nOpc <> 5 oModel:LoadValue( "MODEL_CRH", "MODEL_CRH" , "CRH_TRABAL", "CRH_TRABAL" , CRH->CRH_TRABAL) oModel:LoadValue( "MODEL_CRH" "MODEL_CRH", , "CRH_INIEST" "CRH_INIEST", , CRH->CRH_INIEST) EndIf


126

Versão 1.0

Integração TAF

S-2360 – Condição Condição Diferenciada de Trabalho – Início Início Rotina: Model MVC: Validação Geração XML Regras

TAFA264.PRW MODEL_CM9; MODEL_CMA; MODEL_CMB TAF264VLD() TAF264XML() # 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35

TAG eSocial evtCDTInicio id versao ideEvento indRetificacao nrRecibo tpAmb procEmi indSegmento verProc ideEmpregador tpInscricao nrInscricao ideVinculo cpfTrab nisTrab matricula infoCDTInicio dtIniCondicao tpCondicao fatoresRisco codAgente intensidConcentracao tecMedicao utilizacaoEPC utilizacaoEPI epi caEPI requisitosEPI medProtecao condFuncionamento prazoValidade periodicTroca Higienização

Model MODEL_CM9 MODEL_CM9 MODEL_CM9 MODEL_CMA MODEL_CMA MODEL_CMA MODEL_CMA MODEL_CMA MODEL_CMB MODEL_CM9 MODEL_CM9 MODEL_CM9 MODEL_CM9 MODEL_CM9

Campo

FGetIDInt()

CM9_FUNC

cpfTrab, matricula

CM9_DTINI CM9_TPCOND

tpCondicao

CMA_CODAGE CMA_INTCON CMA_TECMED CMA_UTLEPC CMA_UTLEPI

codAgente

CMB_CAEPI CM9_MEDPRT CM9_CNDFUN CM9_PRZVLD CM9_PERTRC CM9_HIGIEN

Exemplo: Aadd( aChave, Aadd( Aadd( Aadd ( aChave, Aadd( Aadd ( aChave, Aadd( Aadd ( aChave, nIndice := 2

{ { { {

"C", "C", "C", "C" , "D", "D" , "C", "C" ,

"CM9_NOMEVE" , ‘S2360’, .T. } ) "CM9_NOMEVE", "CM9_FUNC", "CM9_FUNC" , FGetIdInt( "cpfTrab" "cpfTrab", ,"matricula" "matricula", ,"37400956876" "37400956876", ,"MAT00001" "MAT00001"), ), .T. } ) "CM9_DTINI", "CM9_DTINI" , "2013-10-10" "2013-10-10", , .F. .F.} } ) "CM9_TPCOND", "CM9_TPCOND" ,"1" "1", , .F. } )

Versão 1.0

127

Integração TAF

Título do documento Begin Transaction

//Função para validar se a operação desejada pode ser realizada If FTafVldOpe( 'CM9' 'CM9', , nIndice, @nOpc, cFilEv, @aIncons, aChave, @oModel, 'TAFA264' 'TAFA264', , cCmpsNoUpd,1 ) //ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ //³Quando se tratar de uma Exclusão direta, é preciso apenas realizar ³ //³o Commit(), não sendo necessária nenhuma manutenção nas informações³ //ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ If nOpc <> 5 oModel:LoadValue( "MODEL_CM9" "MODEL_CM9", , "CM9_FILIAL" "CM9_FILIAL", , CM9->CM9_FILIAL ) //Grava o tipo de registro, indicando se é condição diferenciada de trabalho - início / término.

oModel:LoadValue( "MODEL_CM9" "MODEL_CM9", , "CM9_NOMEVE" "CM9_NOMEVE", , ‘S2360’ ) oModel:LoadValue( "MODEL_CM9" "MODEL_CM9", , "CM9_TPCOND" "CM9_TPCOND", ,"1" "1") ) //ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ //³Quando se trata de uma alteração deleta-se todas as linhas do Grid³ //ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ If (nOpc == 4) For nJ := 1 to oModel:GetModel( 'MODEL_CMA' ):Length() oModel:GetModel( 'MODEL_CMA' ):GoLine(nJ) oModel:GetModel( 'MODEL_CMA' ):DeleteLine() Next nJ EndIf For nJ := 1 to nCMA If (nJ > 1) .Or. (nOpc == 4)

// é necessário atribuir LVALID para que permita o addline(); oModel:GetModel( "MODEL_CMA" ):LVALID := .T. oModel:GetModel( "MODEL_CMA" ):AddLine() EndIf

//Começa a salvar as informações; oModel:LoadValue( "MODEL_CMA" "MODEL_CMA", , "CMA_UTLEPI" "CMA_UTLEPI", ,”S”) // CMB If nOpc == 4 For nI := 1 to oModel:GetModel( 'MODEL_CMB' ):Length() oModel:GetModel( 'MODEL_CMB' ):GoLine(nJ) oModel:GetModel( 'MODEL_CMB' ):DeleteLine() Next nI EndIf For nI := 1 to nCMB If (nCMB > 1) .Or. (nOpc == 4)

oModel:GetModel( "MODEL_CMB" ):LVALID := .T. oModel:GetModel( "MODEL_CMB" ):AddLine() EndIf

oModel:LoadValue( "MODEL_CMB" "MODEL_CMB", , "CMB_CAEPI" "CMB_CAEPI", ,

“0000001”

)

Next nI Next nJ EndIf


128

Versão 1.0

Integração TAF

S-2365 – Condição Condição Diferenciada de Trabalho – Término Término Rotina: Model MVC: Validação Geração XML Regras

TAFA282.PRW MODEL_CRI; MODEL_CRJ TAF282VLD() TAF282XML() # 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23

TAG eSocial evtCDTTermino id versao ideEvento indRetificacao nrRecibo tpAmb procEmi indSegmento verProc ideEmpregador tpInscricao nrInscricao ideVinculo cpfTrab nisTrab matricula infoCDTTermino dtFimCondicao tpCondicao fatoresRisco codAgente

Model MODEL_CRI MODEL_CRI MODEL_CRI MODEL_CRJ

Campo

FGetIDInt()

CRI_FUNC

cpfTrab, matricula

CRI_DTFIN CRI_TPCOND

tpCondicao

CRJ_CODAGE

codAgente

Exemplo: Aadd( aChave, { "C" Aadd( "C", , "CRI_FUNC", "CRI_FUNC" , FGetIdInt( "cpfTrab" "cpfTrab", ,"matricula" "matricula", ,"37400956876" "37400956876", ,"MAT00001" "MAT00001"), ), .T. } ) Aadd( Aadd ( aChave, { "D" "D", , "CRI_DTINI" "CRI_DTINI", , "2013-10-10" "2013-10-10", , .F. .F.} } ) Aadd( Aadd ( aChave, { "C", "C", "CRI_TPCOND" "CRI_TPCOND", ,"1" "1", , .F. } ) nIndice := 2 Begin Transaction

//Funcao para validar se a operação desejada pode ser realizada If FTafVldOpe( 'CRI' 'CRI', , nIndice, @nOpc, cFilEv, @aIncons, aChave, @oModel, 'TAFA282' 'TAFA282', , cCmpsNoUpd,1 ) //ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ //³Quando se tratar de uma Exclusão direta, é preciso apenas realizar ³ //³o Commit(), não sendo necessária nenhuma manutenção nas informações³ //ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ If nOpc <> 5 oModel:LoadValue( "MODEL_CRI" "MODEL_CRI", , "CRI_FILIAL" "CRI_FILIAL", , CRI->CRI_FILIAL ) oModel:LoadValue( "MODEL_CRI" "MODEL_CRI", , "CRI_TPCOND" "CRI_TPCOND", ,"2" "2") ) //ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ //³Quando se trata de uma alteração deleta-se: todas as linhas do Grid³ //ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ If (nOpc == 4) For nJ := 1 to oModel:GetModel( 'MODEL_CRJ' ):Length()

Versão 1.0

129

Integração TAF

Título do documento oModel:GetModel( 'MODEL_CRJ' ):GoLine(nJ) oModel:GetModel( 'MODEL_CRJ' ):DeleteLine() Next nJ EndIf

/* Esse layout, possui registros 'filhos'(fatoresRisco) e 'netos'(epi). Então é realizado o controle para salvar a quantidade que estiverem no xml para os 'filhos' e seus respectivos 'netos'.*/ // CRJ For nJ := 1 to nCMA If (nJ > 1) .Or. (nOpc == 4) // é necessário atribuir LVALID para que permita o addline(); oModel:GetModel( "MODEL_CRJ" ):LVALID := .T. oModel:GetModel( "MODEL_CRJ" ):AddLine() EndIf

//Começa a salvar as informações; oModel:LoadValue( "MODEL_CRJ" "MODEL_CRJ", , "CRJ_CODAGE" "CRJ_CODAGE", , “”,"0001" "0001") )

FGetIdInt( "codAgente" "codAgente", ,

) Next nJ EndIf


130

Versão 1.0

Integração TAF

S-2400 – Aviso Aviso Prévio Rotina: Model MVC: Validação Geração XML Regras

TAFA263.PRW MODEL_CM8 TAF263VLD() TAF263XML() # 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23

TAG eSocial evtAvisoPrevio id versao ideEvento indRetificacao nrRecibo tpAmb procEmi indSegmento verProc ideEmpregador tpInscricao nrInscricao ideVinculo cpfTrab nisTrab Matricula infoAvisoPrevio dtAvisoPrevio dtProjAfastamento tpAvisoPrevio Observação

Model MODEL_CM8 MODEL_CM8 MODEL_CM8 MODEL_CM8 MODEL_CM8

Campo

FGetIDInt()

CM8_TRABAL -

Matricula,cpfTrab

CM8_DTAVIS CM8_DTAFAS CM8_TPAVIS CM8_OBSERV

Exemplo: Aadd( aChave, { "C" Aadd( "C", , "CM8_TRABAL" aAdd( aAdd ( aChave, { "D" "D", , "CM8_DTAVIS"

, FGetIdInt( "cpfTrab" "cpfTrab", , "" "", , "37400956876" ), .T. } ) , "2013-10-10" "2013-10-10", , .T. } )

Begin Transaction If FTafVldOpe( "CM8" "CM8", , 2, @nOpc, cFilEv, @aIncons, aChave, @oModel, "TAFA263" "TAFA263", , cCmpsNoUpd )

oModel:LoadValue( "MODEL_CM8" "MODEL_CM8", , "CM8_FILIAL" "CM8_FILIAL", , CM8->CM8_FILIAL ) oModel:LoadValue( "MODEL_CM8" "MODEL_CM8", , “CM8_DTAVIS”, “2013-10-10” ) /*ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ ³Efetiva a operação desejada³ ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ*/ FWFormCommit( oModel ) lRet := .T. oModel:DeActivate() EndIf End Transaction

Versão 1.0

131

Integração TAF


S-2405 – Cancelamento Cancelamento do Aviso Prévio Rotina: Model MVC: Validação Geração XML Regras

TAFA286.PRW MODEL_CRG TAF286VLD() TAF286XML() # 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22

TAG evtCancAvisoPrevio Versão infEvento idEvento ideEvento indRetificacao nrRecibo tpAmb procEmi indSegmento verProc ideEmpregador tpInscricao nrInscricao ideVinculo cpfTrab nisTrab Matricula infoCancAvisoPrevio dtCancAvisoPrevio Observação motivoCancAvisoPrevio

Model MODEL_CRG MODEL_CRG MODEL_CRG MODEL_CRG

Campo

FGetIDInt()

CRG_TRABAL -

dtCancAvisoPrevio

CRG_DTCANC CRF_OBSRET CRG_MOTCAN

Exemplo: Aadd( aChave, { 'C' 'C', , 'CRG_TRABAL', 'CRG_TRABAL' , FGetIdInt( "cpfTrab" "cpfTrab", , "" "", , "37400956876" ), .T. } ) aAdd( aChave, { 'C' 'C', , 'CRG_IDAVIS' 'CRG_IDAVIS', , FGetIdInt( "dtCancAvisoPrevio" , "" "", , cIdFun,,.F. cIdFun,, .F.), ), .T. } ) Begin Transaction If FTafVldOpe( 'CRG' 'CRG', , 2, @nOpc, cFilEv, @aIncons, aChave, @oModel, 'TAFA286' 'TAFA286', , cCmpsNoUpd )

oModel:LoadValue( "MODEL_CRG" "MODEL_CRG", , "CRG_FILIAL" "CRG_FILIAL", , CRG->CRG_FILIAL ) oModel:LoadValue( "MODEL_CRG" "MODEL_CRG", , CRG_OBSERV" CRG_OBSERV", , “Observacao..”) ³Efetiva a operação desejada³ FWFormCommit( oModel ) lRet := .T. oModel:DeActivate() EndIf End Transaction

132

Versão 1.0

Integração TAF

S-2600 – Trabalhador Trabalhador Sem Vínculo de Emprego - Início Rotina: Model MVC: Validação Geração XML Regras

TAFA279.PRW MODEL_C9V TAF279VLD() TAF279XML() # 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43

TAG evtTSVInicio Versão infEvento idEvento ideEvento indRetificacao nrRecibo tpAmb procEmi indSegmento verProc ideEmpregador tpInscricao nrInscricao Trabalhador cpfTrab nisTrab nomeTrab sexo racaCor estadoCivil grauInstrucao Nascimento dtNascto codMunicipio Uf paisNascto paisNacionalidade nomeMae nomePai Documentos CTPS nrCtps serieCtps ufCtps RIC nrRIC orgaoEmissor dtExpedicao RG nrRg orgaoEmissor dtExpedicao

Versão 1.0

Model MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V

133

Campo


C9V_NRCTPS C9V_SERCTP C9V_UFCTPS C9V_NRRIC C9V_OREMRI C9V_DTEXRI C9V_NRRG C9V_OREMRG C9V_DTEMRG

FGetIDInt()

Integração TAF


RNE nrRne orgaoEmissor dtExpedicao OC nrOc orgaoEmissor dtExpedicao dtValidade CNH nrCnh orgaoEmissor dtExpedicao dtValidade Endereço Brasil tpLogradouro descLogradouro nrLogradouro Complemento Bairro CEP codMunicipio Uf Exterior paisResidencia descLogradouro nrLogradouro Complemento Bairro nomeCidade codPostal infoCasaPropria residenciaPropria recursoFGTS trabEstrangeiro dtChegada dtNaturalizacao casadoBr filhosBr infBancarias Banco Agencia tpContaBancaria nrContaBancaria infoDeficiencia defMotora defVisual defAuditiva Reabilitado Observação

MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V

134

C9V_NRRNE C9V_OREMRN C9V_DTEMRN C9V_NUMOC C9V_OREMOC C9V_DTEXOC C9V_DTVLOC C9V_NRCNH C9V_OREMCN C9V_DTEXCN C9V_DTVLCN

C9V_TPLOGR C9V_LOGRAD C9V_NRLOG C9V_COMLOG C9V_BAIRRO C9V_CEP C9V_MUN C9V_UF C9V_PAIS C9V_LOGRAD C9V_NRLOG C9V_COMLOG C9V_BAIRRO C9V_NOMCID C9V_CEP C9V_RESPRP C9V_RECFGT C9V_DTCHEG C9V_DTNATU C9V_CASBRA C9V_FILBRA C9V_BANCO C9V_AGENC C9V_TPCTBA C9V_NRCTBA C9V_NRC TBA C9V_DEFMOT C9V_DEFVIS C9V_DEFAUD C9V_REABIL C9V_OBSDEF

Versão 1.0

Integração TAF

95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145

Dependente tpDep nomeDep dtNascto cpfDep depIRRF depSF contato fonePrincipal foneAlternativo emailPrincipal emailAlternativo infoTSVInicio trabalhadorAvulso dtInicio codCateg FGTS optanteFGTS dtOpcaoFGTS contribIndividual codCateg dtInicio codCargo codFuncao FGTS optanteFGTS dtOpcaoFGTS servPubIndConselho dtInicio codCateg codCargo codFuncao dirigenteSindical dtInicio codCateg categOrigem cnpjOrigem dtAdmissaoOrigem matricOrigem FGTS optanteFGTS dtOpcaoFGTS Estagiário dtInicio codCateg natEstagio nivEstagio areaAtuacao nrApolice vlrBolsa

Versão 1.0

MODEL_C9Y MODEL_C9Y MODEL_C9Y MODEL_C9Y MODEL_C9Y MODEL_C9Y MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V

135

C9Y_TPDEP C9Y_NOMDEP C9Y_DTNASC C9Y_CPFDEP C9Y_DEPIRF C9Y_DEPSFA C9V_FONPRC C9V_FONALT C9V_EMAILP C9V_EMAILA

C9V_DTINAV C9V_CATAV

codCateg

C9V_OPFGAV C9V_DTFGAV C9V_CATCI C9V_DTINCI C9V_CARCI C9V_FUNCI


C9V_OPFGCI C9V_DTFGCI C9V_DTFGCI C9V_DTINSP C9V_CATSP C9V_CARSP C9V_FUNSP


C9V_DTINDS C9V_CATDS

codCateg

C9V_CATODS C9V_CNPJDS C9V_DTADDS C9V_MATODS

categOrigem

C9V_OPFGDS C9V_DTFGDS C9V_DTINES C9V_CATES C9V_NATEES C9V_NIVEES C9V_AREAES C9V_NRAPES C9V_VLBLES

codCateg

Integração TAF

Título do documento 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167

dtPrevistaTermino instEnsino cnpjInstEnsino nomeRazao descLogradouro nrLogradouro Bairro CEP codMunicipio Uf ageIntegracao cnpjAgenteIntegracao nomeRazao descLogradouro nrLogradouro Bairro CEP codMunicipio Uf coordEstagio cpfCoordenador nomeCoordenador

MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V MODEL_C9V

C9V_DTTEES C9V_CNPEES C9V_NOMEES C9V_LOGEES C9V_NLGEES C9V_BAREES C9V_CEPES C9V_MUNES C9V_UFES C9V_CNPAES C9V_NOMAES C9V_LOGAES C9V_NLGAES C9V_BARAES C9V_CEPAES C9V_MUNAES C9V_UFAES C9V_CPFCES C9V_NOMCES

Uf,codMunicipio uf

Uf,codMunicipio uf

Exemplo: aAdd( aChave, {"C" "C", , "C9V_CPF" , "37400956876"

, .F. } )

Begin Transaction



//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ //³Quando se tratar de uma Exclusão direta, é preciso apenas realizar ³ //³o Commit(), não sendo necessária nenhuma manutenção nas informações³ //ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ If nOpc <> 5 oModel:LoadValue( "MODEL_C9V" "MODEL_C9V", , "C9V_FILIAL" "C9V_FILIAL", , C9V->C9V_FILIAL ) oModel:LoadValue( "MODEL_C9V" "MODEL_C9V", , "C9V_DTINAV" , "2013-01-01" ) //ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ //³Quando se trata de uma alteração, deleta-se todas as linhas do Grid³ //ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ If nOpc == 4 .and. lExisteDep For nJ := 1 to oModel:GetModel( "MODEL_C9Y" ):Length() oModel:GetModel( "MODEL_C9Y" ):GoLine(nJ) oModel:GetModel( "MODEL_C9Y" ):DeleteLine() Next nJ EndIf

//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ //³Roda o XML parseado para gravar as novas informações no GRID³ //ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ For nJ := 1 to nDependente If nOpc == 4 .or. nJ > 1 oModel:GetModel( "MODEL_C9Y" ):lValid:= ):lValid := .T.

136

Versão 1.0

Integração TAF

oModel:GetModel( "MODEL_C9Y" ):AddLine() EndIf

Next nJ

oModel:LoadValue( "MODEL_C9Y", "MODEL_C9Y" , "C9Y_IDDEP" , StrZero(nJ,6) ) oModel:LoadValue( "MODEL_C9Y" "MODEL_C9Y", , "C9Y_NOMDEP" "C9Y_NOMDEP", , “Fernanda” )

EndIf


Versão 1.0

137

Integração TAF


S-2620 – Trabalhador Trabalhador Sem Vínculo de Emprego – Alteração Alteração Contratual Rotina: Model MVC: Validação Geração XML Regras

TAFA277.PRW MODEL_CRC TAF277VLD() TAF277XML() # 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43

TAG evtTSVAltContratual Versão infEvento idEvento ideEvento indRetificacao nrRecibo tpAmb procEmi indSegmento verProc ideEmpregador tpInscricao nrInscricao Trabalhador cpfTrab nisTrab dtAlteracao contribIndividual codCateg codCargo codFuncao servPubIndConselho codCargo codFuncao Estagiário natEstagio nivEstagio areaAtuacao nrApolice vlrBolsa dtPrevistaTermino instEnsino cnpjInstRazao nomeRazao descLogradouro nrLogradouro Bairro CEP codMunicipio Uf ageIntegracao cnpjAgenteIntegracao

Model MODEL_CRC MODEL_CRC MODEL_CRC MODEL_CRC MODEL_CRC MODEL_CRC MODEL_CRC MODEL_CRC MODEL_CRC MODEL_CRC MODEL_CRC MODEL_CRC MODEL_CRC MODEL_CRC MODEL_CRC MODEL_CRC MODEL_CRC MODEL_CRC MODEL_CRC MODEL_CRC MODEL_CRC MODEL_CRC

138

Campo

FGetIDInt()

CRC_CODTRA CRC_DALTSV

Matricula,cpfTrab

CRC_CATCI CRC_CARCI CRC_FUNCI


CRC_CARSP CRC_FUNSP

codCargo codFuncao

CRC_NATEES CRC_NIVEES CRC_AREAES CRC_NRAPES CRC_VLBLES CRC_DTTEES CRC_CNPEES CRC_NOMEES CRC_LOGEES CRC_NLGEES CRC_BAREES CRC_CEPES CRC_MUNES CRC_UFES

Uf,codMunicipio uf

CRC_CNPAES

Versão 1.0

Integração TAF

44 45 46 47 48 49 50 51 52 53

nomeRazao descLogradouro nrLogradouro Bairro CEP codMunicipio Uf coordEstagio cpfCoordenador nomeCoordenador

MODEL_CRC MODEL_CRC MODEL_CRC MODEL_CRC MODEL_CRC MODEL_CRC MODEL_CRC MODEL_CRC MODEL_CRC

CRC_NOMAES CRC_LOGAES CRC_NLGAES CRC_BARAES CRC_CEPAES CRC_MUNAES CRC_UFAES

Uf,codMunicipio uf

CRC_CPFCES CRC_NOMCES

Exemplo: aAdd( aChave, {"C" "C", , "CRC_CODTRA", "CRC_CODTRA" , FGetIdInt( "cpfTrab" , "" "", , "37400956876" aAdd( aChave, {"D" "D", , "CRC_DALTSV" "CRC_DALTSV", , "2013-10-10" , .T. } )

), .T. } )

Begin Transaction

//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ //³Funcao para validar se a operação desejada pode ser realizada³ //ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ If FTafVldOpe( "CRC" "CRC", , 2, @nOpc, cFilEv, @aIncons, aChave, @oModel, "TAFA277" "TAFA277", , cCmpsNoUpd ) //³Quando se tratar de uma Exclusão direta, é preciso apenas realizar ³ //³o Commit(), não sendo necessária nenhuma manutenção nas informações³ If nOpc <> 5 oModel:LoadValue( "MODEL_CRC" "MODEL_CRC", , "CRC_FILIAL" "CRC_FILIAL", , C9V->C9V_FILIAL ) oModel:LoadValue( "MODEL_CRC" "MODEL_CRC", , "CRC_NOMAES" "CRC_NOMAES", , "Instituicao ") ") EndIf


Versão 1.0

139

Integração TAF


S-2680 – Trabalhador Trabalhador Sem Vínculo de Emprego – Término Término Rotina: Model MVC: Validação Geração XML Regras

TAFA280.PRW MODEL_CRD, MODEL_CMK TAF280VLD() TAF280XML() # 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43

TAG evtTSVTermino Versão infEvento idEvento ideEvento indRetificacao nrRecibo tpAmb procEmi indSegmento verProc ideEmpregador tpInscricao nrInscricao Trabalhador cpfTrab nisTrab trabalhadorAvulso dtTermino contribIndividual codCateg dtTermino tpDesligDiretorNaoEmpregado verbasRescisorias bcCP bcIRRF bcFGTS bcFGTSVerbasIndeniz bcFgtsMesAnt descCP vlrProventos vlrDescontos vlrLiquido itensRemuneracao codRubrica qtdRubrica vlrRubrica servPubIndConselho dtTermino dirigenteSindical dtTermino Estagiário dtTermino

Model MODEL_CRD MODEL_CRD MODEL_CRD MODEL_CRD MODEL_CRD MODEL_CRD MODEL_CRD MODEL_CRD MODEL_CRD MODEL_CRD MODEL_CRD MODEL_CRD MODEL_CRD MODEL_CRD MODEL_CMK MODEL_CMK MODEL_CMK MODEL_CRD MODEL_CRD MODEL_CRD

140

Campo

FGetIDInt()

CRD_CODTRA -

Matricula,cpfTrab

CRD_DTERAV CRD_CATCI CRD_DTERCI CRD_TPDDCI

codCateg

CRD_BCCPCI CRD_BCIRCI CRD_BCFGCI CRD_BCVICI CRD_BCMACI CRD_VDCPCI CRD_VPRVCI CRD_VDESCI CRD_VLIQCI CMK_CODRUB CMK_QTDRUB CMK_VLRRUB

codRubrica

CRD_DTTESP CRD_DTTEDS CRD_DTTEES

Versão 1.0

Integração TAF

Exemplo: aAdd( aChave, {"C" "C", , "CRD_CODTRA" "CRD_CODTRA", , FGetIdInt( "cpfTrab"

, "" "", , "37400956876"

), .T. } )

Begin Transaction

//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ //³Função para validar se a operação desejada pode ser realizada³ //ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ If FTafVldOpe( "CRD" "CRD", , 2, @nOpc, cFilEv, @aIncons, aChave, @oModel, "TAFA280" "TAFA280", , cCmpsNoUpd ) //³Quando se tratar de uma Exclusão direta, é preciso apenas realizar ³ //³o Commit(), não sendo necessária nenhuma manutenção nas informações³ If nOpc <> 5 oModel:LoadValue( "MODEL_CRD" "MODEL_CRD", , "CRD_FILIAL" "CRD_FILIAL", , CRD->CRD_FILIAL ) oModel:LoadValue( "MODEL_CRD" "MODEL_CRD", , "CRD_DTTESP" "CRD_DTTESP", , "2013-10-10" ) //ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ //³Quando se trata de uma alteração, deleta-se todas as linhas do Grid³ //ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ If nOpc == 4 .and. lItensRem For nJ := 1 to oModel:GetModel( "MODEL_CMK" ):Length() oModel:GetModel( "MODEL_CMK" ):GoLine(nJ) oModel:GetModel( "MODEL_CMK" ):DeleteLine() Next nJ EndIf

//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ //³Roda o XML parseado para gravar as novas informações no GRID³ //ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ For nJ := 1 to nCMK If nOpc == 4 .or. nJ > 1 oModel:GetModel( "MODEL_CMK" ):lValid:= ):lValid := .T. oModel:GetModel( "MODEL_CMK" ):AddLine() EndIf Next nJ

oModel:LoadValue( "MODEL_CMK" "MODEL_CMK", , "CMK_QTDRUB" ,”15”)

EndIf


Versão 1.0

141

Integração TAF


S-2800 - Desligamento Rotina: Model MVC: Validação Geração XML Regras

TAFA266.PRW MODEL_CMD TAF266VLD() TAF266XML() # 01 02 03 03 04 05 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43

TAG eSocial evtDesligamento id versao ideEvento indRetificacao nrRecibo tpAmb procEmi indSegmento verProc ideEmpregador tpInscricao nrInscricao ideVinculo cpfTrab nisTrab matricula infoDesligamento motivoDesligamento dtDesligamento indPagtoAPI dtTerminoAPI nrAtestadoObito nrProcTrabalhista bcFgtsMesAnt observacao sucessaoVinculo cnpjSucessora verbasRescisorias bcCP bcIRRF bcFGTS bcFGTSVerbasIndeniz descCP vlrProventos vlrDescontos vlrLiquido itemRemuneracao codRubrica qtdRubrica vlrRubrica infoAgenteNocivo

Model MODEL_CMD MODEL_CMD MODEL_CMD MODEL_CMD MODEL_CMD MODEL_CMD MODEL_CMD MODEL_CMD MODEL_CMD MODEL_CMD MODEL_CMD MODEL_CMD MODEL_CMD MODEL_CMD MODEL_CMD MODEL_CMD MODEL_CMD MODEL_CMD MODEL_CME MODEL_CME MODEL_CME -

142

Campo

FGetIDInt()

CMD_FUNC -

cpfTrab, matricula

CMD_MOTDES CMD_DTDESL CMD_INDPAG CMD_TERAPI CMD_NRATES CMD_NRPROC CMD_FGTSME CMD_OBSERV

motivoDesligamento

CMD_CNPJSU CMD_BCCP CMD_BCIRRF CMD_BCFGTS CMD_BCVERB CMD_DESCCP CMD_VLPROV CMD_VLDESC CMD_VLLIQU CME_CODRUB CME_QTDRUB CME_VLRRUB

codRubrica

Versão 1.0

Integração TAF

44 45 46 47 48 49 50 51 52 53 54 55

grauExp aso dtAso exame dtExame descExame medico nomeMedico foneContato crm nrCRM ufCRM

MODEL_CMD MODEL_CMD MODEL_CMD -

CMD_GRAUEX CMD_CODASO CMD_CODASO

dtAso

Exemplo: aAdd( aAdd( aAdd( aAdd(


{"C" "C", , {"C" "C", , {"D" "D", , {"C" "C", ,

"CMD_FUNC" ,FGetIdInt( "cpfTrab" , "" "", ,"37400956876" ), .T. } ) "CMD_MOTDES", "CMD_MOTDES" , "0001" , .T. } ) "CMD_DTDESL", "CMD_DTDESL" , "2013-11-05" , .T. } ) "CMD_INDPAG", "CMD_INDPAG" , "1" , .T. } )

Begin Transaction

//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ //³Função para validar se a operação desejada pode ser realizada³ //ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ If FTafVldOpe( "CMD" "CMD", , 2, @nOpc, cFilEv, @aIncons, aChave, @oModel, "TAFA266" "TAFA266", , cCmpsNoUpd ) //³Quando se tratar de uma Exclusão direta, é preciso apenas realizar ³ //³o Commit(), não sendo necessária nenhuma manutenção nas informações³ If nOpc <> 5 oModel:LoadValue( "MODEL_CMD", "MODEL_CMD" , "CMD_FILIAL", "CMD_FILIAL" , CMD->CMD_FILIAL ) oModel:LoadValue( "MODEL_CMD" "MODEL_CMD", , "CMD_DTDESL" "CMD_DTDESL", , "2013-11-05" "2013-11-05") ) //ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ //³Quando se trata de uma alteração, deleta-se todas as linhas do Grid³ //ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ If nOpc == 4 .and. lItenRem For nJ := 1 to oModel:GetModel( "MODEL_CME" ):Length() oModel:GetModel( "MODEL_CME" ):GoLine(nJ) oModel:GetModel( "MODEL_CME" ):DeleteLine() Next nJ EndIf For nJ := 1 to nCME If nOpc == 4 .or. nJ > 1

oModel:GetModel( "MODEL_CME" ):lValid:= ):lValid := .T. oModel:GetModel( "MODEL_CME" ):AddLine() EndIf Next nJ

oModel:LoadValue( "MODEL_CME" "MODEL_CME", , "CME_QTDRUB" "CME_QTDRUB", , "01" "01") )

EndIf


Versão 1.0

143

Integração TAF


S-2820 – Reintegração Reintegração Rotina: Model MVC: Validação Geração XML Regras

TAFA267.PRW MODEL_CMF TAF267VLD() TAF267XML() # 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

TAG evtReintegracao Versão infEvento idEvento ideEvento indRetificacao nrRecibo tpAmb procEmi indSegmento verProc ideEmpregador tpInscricao nrInscricao Trabalhador cpfTrab nisTrab Matricula infoReintegracao tpReintegracao nrProcJud nrLeiAnistia dtEfeito dtEfeitoRetorno

Model MODEL_CMF MODEL_CMF MODEL_CMF MODEL_CMF MODEL_CMF MODEL_CMF

Campo

FGetIDInt()

CMF_FUNC -

Matricula,cpfTrab

CMF_TPREIN CMF_NRPROC CMF_NRLEIJ CMF_DTEFEI CMF_DTRET

tpProcesso,nrProcesso

Exemplo: Aadd( Aadd ( aChave, {"C" "C", , "CRH_TRABAL" , "000001" , .T. .T.} } ) Begin Transaction //ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ //³Função para validar se a operação desejada pode ser realizada³ //ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ If FTafVldOpe( 'CRH' FTafVldOpe( 'CRH', , 2, @nOpc, cFilEv, @aIncons, aChave, @oModel, 'TAFA287' 'TAFA287', , cCmpsNoUpd ) //ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ //³Carrega array com os campos De/Para de gravação das informações³ //ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ aRules := TAF287Rul() //ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ //³Quando se tratar de uma Exclusão direta, é preciso apenas realizar ³ //³o Commit(), não sendo necessária nenhuma manutenção nas informações³ //ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ If nOpc <> 5 oModel:LoadValue( "MODEL_CRH" "MODEL_CRH", , "CRH_TRABAL" "CRH_TRABAL", , CRH->CRH_TRABAL) //oModel:LoadValue( "MODEL_CRH", "CRH_INIEST", CRH->CRH_INIEST) //ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ //³Roda o aRules para gravar as informações³

144

Versão 1.0

Integração TAF

//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ For nlI := 1 To 1 To Len( Len( aRules ) oModel:LoadValue( "MODEL_CRH" "MODEL_CRH", , aRules[ aRules[ nlI, 01 ], FTafGetVal( aRules[ nlI, 02 ], aRules[nlI, 03], aRules[nlI, 04], @aIncons, .F. ) ) Next EndIf


Versão 1.0

145

Integração TAF


S-2900 – Exclusão Exclusão de Eventos Rotina: Model MVC: Validação Geração XML Regras

TAFA269.PRW MODEL_CMJ TAF269VLD() TAF269XML() # 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17

TAG evtExclusao Versão infEvento idEvento ideEvento tpAmb procEmi indSegmento verProc ideEmpregador tpInscricao nrInscricao infoExclusao tpEvento nrReciboEvento cpfTrab nisTrab

Model MODEL_CMJ MODEL_CMJ MODEL_CMJ -

Campo

CMJ_TPEVEN CMJ_NRRECI CMJ_TRABAL -

FGetIDInt()

Matricula,cpfTrab

Exemplo: Aadd( aChave, { "C" "C", , "CMJ_TPEVEN", "CMJ_TPEVEN" , "1" "1", , .F. } ) aAdd( aChave, { "C" "C", , "CMJ_TRABAL" "CMJ_TRABAL", , FGetIdInt("cpfTrab" FGetIdInt( "cpfTrab", ,"" "", ,

"37400956876") "37400956876" ) , .T. } )

Begin Transaction If FTafVldOpe( "CMJ" "CMJ", , 2, @nOpc, cFilEv, @aIncons, aChave, @oModel, "TAFA269" "TAFA269", , cCmpsNoUpd )

oModel:LoadValue( "MODEL_CMJ", "MODEL_CMJ" , "CMJ_TPEVEN" "CMJ_TPEVEN", , "1" "1") ) oModel:LoadValue( "MODEL_CMJ" "MODEL_CMJ", , "CMJ_ NRRECI ", ", "12165165465" "12165165465") ) oModel:LoadValue( "MODEL_CMJ" "MODEL_CMJ", , "CMJ_FILIAL", "CMJ_FILIAL" , CMJ->CMJ_FILIAL ) EndIf End Transaction

146

Versão 1.0

Integração TAF

FUNÇÕES DE UTILIZAÇÃO GENÉRICA 1.1

FGetIdInt (cFieldLay1,cFieldLay2,cInfo1,cInfo2, lIdChave, aInfComp)

Descrição da função: Função responsável por retornar os IDs para gravação nas tabelas do TAF durante a integração. Parâmetros: Ordem 01 02 03 04 05

Parâmetro cFieldLay1 cFieldLay2 cInfo1 cInfo2 lIdChave

Tipo Caracter Caracter Caracter Caracter Lógico

06

aInfComp

Array

Descrição Primeiro nome do Campo do Layout do eSocial a que se refere à informação Segundo nome do Campo do Layout do eSocial a que se refere à informação Informação referente ao primeiro campo informado (chave) Informação referente ao segundo campo informado (chave) Indica se os valores indicados sao TAGs ou valores ja para execucao do Seek ( .T. = Tag , .F. = Valor ) Array com os campos a mais da chave que devem ser incluidos na tabela auxiliar

Lista de Opções: Minemônico1

Minemônico2

cpfTrab

codMotivoAnt erior

IniEst cpfBeneficiario

tpProcesso

NrProcesso| nrProcJud

tpInscricao

nrInscricao

classTrib codAgenteQuimico codAnalise codAgente tpDespesa codMotivoEstabilid ade cpfTrab banco

Versão 1.0

Descrição Afastamento Temporário (CM6) Estabilidade Inicial (CM5) Beneficiário (C9Z) Processo referenciado E-Social (Tabela C93) Estabelecimen to (C92) Classificação Tributária (C8D) "CUA" "CUM" Código Agente (Tabela C98) "CUV" CUR

Exemplo FGetIdInt("cpfTrab","","78887020230", .F.) FGetIdInt("IniEst", "","000001", ,.F. ) FGetIdInt("cpfBeneficiario","","78887020230","",.F.)

FGetIdInt("tpProcesso","nrProcesso","J","123456") FGetIdInt("tpInscricao","nrInscricao","F","66610634327",.F. ) FGetIdInt("classTrib","","123","",.F.) FGetIdInt("codAgenteQuimico","","123","",.F.) FGetIdInt("codAnalise","","123","",.F.) FGetIdInt("classTrib","","123","",.F.) FGetIdInt("tpDespesa","","123","",.F.) FGetIdInt("codMotivoEstabilidade","","123","",.F.)

Trabalhador (C9V) Bancos (C1V)

147

FGetIdInt("cpfTrab","","37400956872","",.F.) FGetIdInt("banco","","123","",.F.)

Integração TAF

Título do documento Categoria de Trabalhador (C87) Cargos (C8V) Funções (C8X) Lotações (C99)

catTrabalhador|cod Categ|categOrigem codCargo codFuncao codLotacao codJornadaSegSext a|codJornadaSab|c odJornadaSeg|codJ ornadaTer|codJorn adaQua|codJornad aQui|codJornadaSe x|codJornadaSab|c odJornadaDom|cod Jornada

Horários/Turn os de Trabalho (C90)

dtAso

tpDep tpDesligDiretorNao Empregado codRubrica motivoDesligament o

grauExp

tpContrib uf

codMunicipio

uf|ufCtps paisNascto|paisNac ionalidade|paisResi dencia codCBO

fpas

codTerceiros

Atestado de Saúde Ocupacional (C8B) Tipo de Dependente (CMI) Mot deslig. Diretor sem Vínculo (CML) Rubricas (C8R) Motivos de Desligamento (C8O) Grau Exposição Agentes Nocivos (C88) Tipo de Contribuição (C8H) Municípios (C07) Unidades da Federação (C09) Países Banco Central/SISCO MEX (C08) Código Brasileiro de Ocupação (C8Z) Cod.Aliq.FPAS /Terceiros (C8A)

148

FGetIdInt("catTrabalhador","","1","",.F.) FGetIdInt("codCargo","","01","",.F.) FGetIdInt("codFuncao","","01","",.F.) FGetIdInt("codLotacao","","01","",.F.)

FGetIdInt("codJornadaSegSexta","","01","",.F.)

FGetIdInt("dtAso","","000001","01/01/2013",.F.)

FGetIdInt("tpDep","","01","",.F.)

FGetIdInt("tpDesligDiretorNaoEmpregado","","01","",.F.) FGetIdInt("codRubrica","","01","",.F.) FGetIdInt("motivoDesligamento","","01","",.F.)

FGetIdInt("grauExp","","01","",.F.)

FGetIdInt("tpContrib","","01","",.F.) FGetIdInt("uf","codMunicipio","SP","00001",.F.) FGetIdInt("ufCtps","","SP","",.F.)

FGetIdInt("paisNascto","","00001","",.F.)

FGetIdInt("codCBO ","","01","",.F.)

FGetIdInt("fpas","codTerceiros","01","001",.F.)

Versão 1.0

Integração TAF

tpLogradouro tpLotacao idVara indDecisao natRubrica codIncidCP codIncidIRRF codParteAtingida codAgenteCausado r nrOC codSitGeradora codMotAfastament o codCID nomeMedico grauInstrucao tpEvento codCID

tpEstabelecimento tpServico dtCancAvisoPrevio cpfResponsavel natJuridica tpCondicao tpIsencao

Versão 1.0

Tipo de Logradouro (C06) Tipo de Lotação (C8F) Cadastro de Varas (C9A) Indicativo de Decisão (C8S) Natureza da Rubrica (C89) Incidenc. Trib. Prev. Soc. (C8T) Incidenc. Trib. IRRF. (C8U) Parte Atingida (C8I) Agente causador (C8J) Médico (C87) Situação Geradora (C8J) Motivo Acidente (C8N) Motivo Acidente (C8N) Nome do médico (CM7) Grau de Instrucao (CMH) C8E Motivo Acidente (C8N) Tabela de Estabelecimen tos (C92) Tipo servico ESocial (C8C) Aviso Prévio (CM8) Responsável Informação (C9F) C8P CUN CMY

149

FGetIdInt("tpLogradouro","","01","",.F.) FGetIdInt("tpLotacao","","01","",.F.) FGetIdInt("idVara","","000001","",.F.) FGetIdInt("indDecisao","","01","",.F.) FGetIdInt("natRubrica","","01","",.F.) FGetIdInt("codIncidCP","","01","",.F.) FGetIdInt("codIncidIRRF","","01","",.F.) FGetIdInt("codParteAtingida","","01","",.F.) FGetIdInt("codAgenteCausador","","01","",.F.) FGetIdInt("nrOC","","SP12345","",.F.) FGetIdInt("codSitGeradora","","01","",.F.)

FGetIdInt("codMotAfastamento","","01","",.F.)

FGetIdInt("codCID","","01","",.F.) FGetIdInt("nomeMedico","","Carlos Eduardo","",.F.) FGetIdInt("grauInstrucao","","01","",.F.) FGetIdInt("tpEvento","","123","",.F.) FGetIdInt("codCID","","01","",.F.) FGetIdInt("tpEstabelecimento","J","66228823000187","",.F. ) FGetIdInt("tpServico","","01","",.F.) FGetIdInt("dtCancAvisoPrevio","","000001","",.F.) FGetIdInt("cpfResponsavel","","78887020230","",.F.) FGetIdInt("natJuridica","","123","",.F.) FGetIdInt("tpCondicao","","123","",.F.) FGetIdInt("tpIsencao","","123","",.F.)

Integração TAF

Título do documento tpRendimento formaTributacao paisResidencia codRendimento relFontePagadora relDependencia tpProcRRA tpInscAdvogado nrProcJud cpfTrab

nrProcRRA nrInscAdvoga do

CUC CUD C08 CUF "CUB" CMI C93

FGetIdInt("tpRendimento","","123","",.F.) FGetIdInt("formaTributacao","","123","",.F.) FGetIdInt("paisResidencia","","123","",.F.) FGetIdInt("codRendimento","","123","",.F.) FGetIdInt("relFontePagadora","","123","",.F.) FGetIdInt("relDependencia","","123","",.F.) FGetIdInt("tpProcRRA","","123","",.F.) FGetIdInt("tpInscAdvogado", nrInscAdvogado ","1","32148",.F.) FGetIdInt("nrProcJud","","123","",.F.) FGetIdInt("cpfTrab"," matricula","37400956871","001",.F.) matricula","3740095 6871","001",.F.)

CMW C93

matricula

Retorno: Ordem

Retorno

01

cId

Tipo

Descrição Retorna o ID do registro.

Caracter

Caso não encontre, retorna a string “ERR” + Código passado por parâmetro

1.2 FTafVldOpe (cAlias,nInd,nOpc,cFilEv,aIncons,aCh (cAlias,nInd,nOpc,cFilEv,aIncons,aChave, ave, oModel,cNomModel, cCmpsNoUpd, nIndIdVer, lRuleEvCad, aNewData, cMatTrab)

Descrição da função: Função que valida se a operação desejada pode ser realizada. Retornando os campos obrigatórios de controle da tabela (Filial, ID, Versão Anterior) Parâmetros: Ordem 01

Parâmetro cAlias

Tipo Caracter

02

nInd

Numérico

03

nOpc

Numérico

04 05

cFilEv aIncons

Caracter Array

Descrição Alias a ser gravado Índice de busca da chave única do registro ( De acordo com o Layout do E-Social. ) Operação a ser realizada: 3 - Inclusão 4 - Alteração 5 – Exclusão Esta variável é modificada pela função TAFRegStat(). Podendo ser: 4 – Alteração – Registros não transmitidos 5 – Exclusão – Registros não transmitidos 6 – Alteração – Registros já transmitidos 7 – Exclusão – Registros já transmitidos 9 – Contém inconsistências. Filial de Origem do ERP, sempre deve ser informada. Array para gravação de inconsistências encontradas Chave de busca do registro na tabela, sendo que: Posição 1 do Array: Tipo da informação

06

aChave

Array Posição 2 do Array: Nome do Campo da tabela Posição 3 do Array: Valor referente ao campo informado na posição 2.

150

Versão 1.0

Integração TAF

07 08

oModel cNomModel

Nil Caracter

09

cCmpsNoUpd

Caracter

10 11

nIndIdVer lRuleEvCad

12

aNewData

Númerico Lógico Array

13

cMatTrab

Retorno: Ordem 01

Posição 4 do Array: .T. Objeto a ser criado para manutenir as informações Nome do Fonte referente ao Model Nome dos campos que não devem ser replicados no novo registro no caso de uma exclusão de um registro já transmitido ao RET. Índice referente à chave Filial+ID+Versao da tabela. Indica se o registro se refere aos eventos cadastrais Conteudo da tag novaValidade para operacoes da alteracao de eventos cadastrais Matrícula do funcionário, quando não for evento de funcionário ignorar esse parâmetro.

Caracter

Retorno

Tipo

Descrição

lValido

Lógico

Indica se a operação desejada pode ser realizada ou não.

Atenção para os parâmetros que são passados com @referência. Necessário para que sejam alimentadas através da função.

1.3 FTafGetFil (cSeekFil,aIncons) Descrição da função: Função que tem por finalidade retornar a filial para onde as informações de integração serão importadas. Parâmetros: Ordem 01 02

Retorno: Ordem 01

1.4

Parâmetro cSeekFil aIncons

Tipo Caracter Array

Descrição Filial a ser verificada a existência Array contendo as inconsistências encontradas.

Retorno

Tipo

Descrição

cFilTAF

Caracter

Indica a filial para onde as informações de integração serão importadas.

xFunGetVer()

Descrição da função: Função responsável por retornar a versão do registro no TAF.

Versão 1.0

151

Integração TAF


Retorno: Ordem

01

Retorno

cVersao

Tipo

Descrição Retorno da versão do registro, sendo AAAAMMDDHHMMSS A – Ano M – Mês D – Dia H – Hora M – Minuto S – Segundo

Caracter

Importante: Para todos os registros do E-Social a chave única das tabelas é a mesma indicada no Layout do Fisco, com exceção do registro S-1000 - Informações do Empregador onde a chave única é a filial de origem das informações, conforme abaixo:

Registro

Chave única do Layout E-Social

Tam.Chave

S-1000

Filial +Filial de Origem das informações

8

S-1010

Filial + CodRubrica + iniValidade + fimValidade

46

S-1020

Filial + CodLotacao + iniValidade + fimValidade

46

S-1030

Filial + CodCargo + iniValidade + fimValidade

46

S-1040

Filial + CodFuncao + iniValidade + fimValidade

46

S-1050

Filial + CodJornada + iniValidade + fimValidade

46

S-1060

Filial + TpInscricao + nrInscricao + iniValidade + fimValidade

31

S-1070

Filial + TpProcesso + nrProcesso + iniValidade + fimValidade

37

S-1080

Filial + CnpjOpPortuario + iniValidade + fimValidade

30

S-1100


7

S-1200

Filial + indApuracao+perApuracao+cpfTrab

19

S-1300


7

S-1310


7

S-1320


7

S-1330


7

S-1340


7

S-1350


7

152

Versão 1.0

Integração TAF

S-1360


7

S-1370


7

S-1380


7

S-1390


7

S-1399


7

S-1400


7

S-1800

Filial + dtApuracao

10

S-2100


41

S-2200


41

S-2220


19

S-2240

Filial + Matricula+cpfTrab+dtAlteracao

49

S-2260

Filial + cpfTrab+dtAcidente+horaAcidente

24

S-2280

Filial + Matricula+cpfTrab+dtAso

49

S-2320


43

S-2325


43

S-2330


43

S-2340

Filial + Matricula+cpfTrab+dtIniEstabilidade

49

S-2345

Filial + Matricula+cpfTrab+dtFimEstabilidade

49

S-2360

Filial + Matricula+cpfTrab+dtIniCondicao+tpCondicao

51

S-2365

Filial + Matricula+cpfTrab+tpCondicao+dtFimCondicao

51

S-2400

Filial + Matricula+cpfTrab+dtAvisoPrevio

49

S-2405

Filial + Matricula+cpfTrab+dtCancAvisoPrevio

49

S-2600


40

S-2620


19

S-2680

Filial + cpfTrab+dtTermino

19

S-2800

Filial + Matricula+cpfTrab+motivoDesligamento+dtDesligamento+indPagtoAPI

52

S-2820

Filial + Matricula+cpfTrab+tpReintegracao+nrProcJud

48

S-2900

Filial + tpEvento+cpfTrab

17

O controle de transação é de responsabilidade do ERP de origem. Sempre antes de iniciar o processo de integração é imprescindível que o controle esteja ativo para evitar inconsistências na base do TAF.

Versão 1.0

153

Integração TAF


1.5 xFunRetPrt (cTpEvento,cTafKey) Descrição da função: Esta função tem como objetivo retornar o número do protocolo gerado ao RET e o status do registro solicitado dentro do TAF. Parâmetros: Ordem 01

Parâmetro cTpEvento

Tipo Caracter

02

cTafKey

Caracter

Retorno: Ordem

01

Descrição Tipo do evento, por exemplo, “S -2260”

A chave de busca na tabela do Evento conforme informado neste manual.

Retorno

Tipo

Descrição O retorno desta função é um Array com a estrutura conforme abaixo:

aRet

Array

aRet[ 01 ] – Indica se a chave informada foi encontrada aRet[ 02, 01 ] – Indica o número do Protocolo encontrado aRet[ 02, 02 ] – Indica o status do registro encontrado

1.6 TafPerOpen ( cFilAnt, cMes, cAno ) Descrição da função: Esta função tem como objetivo retornar se existe período em aberto de acordo com os parâmetros informados. Parâmetros: Ordem 01 02 03 Retorno: Ordem

01

Parâmetro cFilAnt cMes cAno

Tipo Caracter Caracter Caracter

Descrição Filial do TAF onde será realizada a consulta. Mês de referência do período a ser consultado ( Formato MM ) Ano de referência do período a ser consultado ( Formato AAAA )

Retorno

Tipo

aRet

Array

Descrição Caso o retorno do array seja vazio significa que não existe período em aberto para os dados informados nos parâmetros da função, pode ser que exista o período em aberto no evento S-1300 porém o mesmo período já foi encerrado pelo evento S-1399. No caso de existir períodos em aberto o retorno do Array será realizado conforme abaixo: aRet[ 01 ] – Indica qual o tipo do período que foi encontrado, podendo ser: 1 = Folha de Pagamento Mensal 2=Folha de Decimo Terceiro Salario

154

Versão 1.0

Integração TAF

aRet[ 02 ] – Indica o Status do período encontrado, podendo ser: 0=Reg.Valido 1=Reg.Invalido 2=Reg.Transmitido 3=Reg.Transmitido com inconsistência 4=Reg.Transmitido valido 9=Em Processamento

7. Controle de Versão

O grupo TOTVS representado por suas marcas irá administrar as demandas de evolução dos layouts e demais ajustes, acordando junto aos solicitantes o prazo de liberação de release. Todas as evoluções programadas deverão ser discutidas e aprovadas pelas marcas antes do início do desenvolvimento e somente serão desenvolvidas em caso de concordância das marcas e alinhamento com as diretivas definidas pelo Comitê de Integração TOTVS.

Versão 1.0

155

Integração TAF


8. Fluxo das Informações 

Integração de eventos Tabela (S-1010 a S-1080) utilizando conceito de controle sobre as datas de validade.

156

Versão 1.0

Integração TAF



Integração de eventos Tabela (S-1010 à S-1080) não utilizando conceito de controle sobre as datas de validade.

Versão 1.0

157

Integração TAF


158

Versão 1.0

Integração TAF

9. Como fazer



Integração Manual:

Para executar a integração manual acesse a opção de menu: Miscelânea/Esocial/Integração Esocial.

Os parâmetros “Data Base ERP?” e “Alias ERP?” referem-se apenas à integração “ST1 x ST2”, indicando a

localização da tabela TAFST1 de domínio do ERP. 

Integração via Agendamento (Schedule).

Primeiramente, é preciso configurar o arquivo appserver.ini como segue: [OnStart] jobs=FWSCHDQUEUE,FWSCHDMANAG_ jobs=FWSCHDQUEUE,FWSCHDMA NAG_XXX XXX RefreshRate=NNN RefreshRate=NNN [FWSCHDMANAG] Main=FWSCHDMANAG Environment=XXX Environment=XXX [FWSCHDQUEUE] Main=FWSCHDQUEUE Environment=XXX Environment=XXX [FWSCHDMANAG_XXX [FWSCHDMANAG_XXX]] Main=FWSCHDMANAG Environment=XXX Environment=XXX

Versão 1.0

159

Integração TAF

Título do documento Onde: - XXX XXX é é nome do ambiente. - NNN NNN é é o intervalo de tempo (em segundos) de atualização dos dados sobre a execução do(s) job(s). Em seguida, deve-se configurar o Schedule no Configurador (SIGACFG) aecssando a opção de menu Ambiente/ Schedule/Schedule. Schedule/Schedule.

O primeiro passo é incluir um Agente:

160

Versão 1.0

Integração TAF

Em seguida, é preciso criar um Agendamento para cada rotina ( job) que será executada:

Versão 1.0

161

Integração TAF


Obs.: preencher o campo Rotina com “TAFAINTEG(par1, par2, par3)”, onde: par1 é par1 é o código do job a ser executado. par2 é o TOP ALIAS para a base do ERP. par3 é par3 é o Database do ERP.   

162

Versão 1.0

Manual de Integração Do TAF

Recommend Documents