Histórico da Página

...

A tabela a ser inserida via rotina automática sempre será do tipo INFORMADA,
Para cada operação o array aCabec que contempla o cabeçalho deve ser enviado os campos citados no exemplo, ele sempre deverá ser enviado com os dados da tabela!,
A operação de exclusão, excluí todos os registros da tabela (RBR/RB6),
Campo "Tipo Valor" (RBR_TIPOVL ou RB6_TIPOVL) aceita o seguinte conteúdo:
1 // Tabela de Valores Exatos por Nível
2 // Tabela de Intervalos por Nível
3 // Tabela de Valores por Faixa
4 // Tabela de Intervalos por FaixaForam realizados ajustes de dicionário de dados que serão disponibilizados via expedição contínua.

Informações

title	Aviso

É necessário efetuar atualização no dicionário de dados a partir da execução do UPDDISTR com o dicionário liberado no pacote de expedição do módulo RH a partir de 12/08/2022 para os releases iguais ou superiores a versão 12.1.33.

O campo RB6_TIPOVL terá a seguinte estrutura no dicionário SX3:

X3_ARQUIVO	X3_CAMPO	X3_TIPO	X3_TITULO	X3_VALID
RB6	RB6_TIPOVL	N	Tipo Valor	Pertence("1,2,3,4")

Bloco de código

title	Exemplo de ExecAuto para Cadastro de Tabela Salarial
linenumbers	true

User Function CSAA070AUT()

Local aCabec   := {}
Local aItens   := {}
Local aLinha   := {}
Private lMsErroAuto := .F.

// INCLUSÃO
//Faz chamada para inclusão de Tabela Informada / Valores Exatos / 2 Níveis / 2 Faixas por Nível (opcao 3)
aCabec   := {}
aadd(aCabec,{"RBR_FILIAL"  ,"D MG 01 "  			,   Nil  })
aadd(aCabec,{"RBR_TABELA"  ,"001" 					,	Nil  })
aadd(aCabec,{"RBR_DESCTA"  ,"TABELA SALARIAL 001" 	,	Nil  })
aadd(aCabec,{"RBR_DTREF"   ,CtoD('02/08/2022') 		,	Nil  })
aadd(aCabec,{"RBR_VLREF"   ,100						,	Nil  })
aadd(aCabec,{"RBR_USAPTO"  ,1 						,	Nil  })
aadd(aCabec,{"RBR_APLIC"   ,"2" 					,	Nil  })
aadd(aCabec,{"RBR_TIPOVL"  ,3 						,	Nil  })

// PRIMEIRO NÍVEL - PRIMEIRA FAIXA
aadd(aLinha,{"RB6_FILIAL"	,"D MG 01 "  			,   Nil })
aadd(aLinha,{"RB6_TABELA"   ,"001" 					,	Nil })
aadd(aLinha,{"RB6_DESCTA"   ,"TABELA SALARIAL 001" 	,	Nil })
aadd(aLinha,{"RB6_TIPOVL"   ,3						,	Nil })
aadd(aLinha,{"RB6_NIVEL" 	,"01" 					,	Nil })
aadd(aLinha,{"RB6_FAIXA"  	,"01" 					,	Nil })
aadd(aLinha,{"RB6_VALOR" 	, 500    				,   Nil })
aadd(aLinha,{"RB6_PTOMIN"  	, 1    					,   Nil })
aadd(aLinha,{"RB6_PTOMAX"  	, 4.99    				,   Nil })
aadd(aLinha,{"RB6_CLASSE"  	, "001"   			    ,   Nil })
aadd(aLinha,{"RB6_DTREF" 	, CtoD('02/08/2022') 	, 	Nil })
aadd(aLinha,{"RB6_COEFIC" 	, 5    					, 	Nil })
aadd(aLinha,{"RB6_ATUAL" 	, "1"    				, 	Nil })
aadd(aItens,aLinha)
aLinha := {}


// PRIMEIRO NÍVEL - SEGUNDA FAIXA
aadd(aLinha,{"RB6_FILIAL"	,"D MG 01 "  			,   Nil })
aadd(aLinha,{"RB6_TABELA"   ,"001" 					,	Nil })
aadd(aLinha,{"RB6_DESCTA"   ,"TABELA SALARIAL 001" 	,	Nil })
aadd(aLinha,{"RB6_TIPOVL"   ,3	 					,	Nil })
aadd(aLinha,{"RB6_NIVEL" 	,"01" 					,	Nil })
aadd(aLinha,{"RB6_FAIXA"  	,"02" 					,	Nil })
aadd(aLinha,{"RB6_VALOR" 	, 1000    				,   Nil })
aadd(aLinha,{"RB6_PTOMIN"  	, 5    					,   Nil })
aadd(aLinha,{"RB6_PTOMAX"  	, 10   					, 	Nil })
aadd(aLinha,{"RB6_CLASSE"  	, "001"   			    , 	Nil })
aadd(aLinha,{"RB6_DTREF" 	, CtoD('02/08/2022')    , 	Nil })
aadd(aLinha,{"RB6_COEFIC" 	, 10    				, 	Nil })
aadd(aLinha,{"RB6_ATUAL" 	, "1"    				, 	Nil })
aadd(aItens,aLinha)
aLinha := {}                


// SEGUNDO NÍVEL - PRIMEIRA FAIXA
aadd(aLinha,{"RB6_FILIAL"	,"D MG 01 "  			,   Nil })
aadd(aLinha,{"RB6_TABELA"   ,"001" 					,	Nil })
aadd(aLinha,{"RB6_DESCTA"   ,"TABELA SALARIAL 001" 	,	Nil })
aadd(aLinha,{"RB6_TIPOVL"   ,3 						,	Nil })
aadd(aLinha,{"RB6_NIVEL" 	,"02" 					,	Nil })
aadd(aLinha,{"RB6_FAIXA"  	,"01" 					,	Nil })
aadd(aLinha,{"RB6_VALOR" 	, 1000    				,   Nil })
aadd(aLinha,{"RB6_PTOMIN"  	, 11    				,   Nil })
aadd(aLinha,{"RB6_PTOMAX"  	, 14.99    				,   Nil })
aadd(aLinha,{"RB6_CLASSE"  	, "002"   			    ,   Nil })
aadd(aLinha,{"RB6_DTREF" 	, CtoD('02/08/2022')    , 	Nil })
aadd(aLinha,{"RB6_COEFIC" 	, 10    				, 	Nil })
aadd(aLinha,{"RB6_ATUAL" 	, "1"    				, 	Nil })
aadd(aItens,aLinha)
aLinha := {}     

// SEGUNDO NÍVEL - SEGUNDA FAIXA
aadd(aLinha,{"RB6_FILIAL"	,"D MG 01 "  			,   Nil })
aadd(aLinha,{"RB6_TABELA"   ,"001" 					,	Nil })
aadd(aLinha,{"RB6_DESCTA"   ,"TABELA SALARIAL 001" 	,	Nil })
aadd(aLinha,{"RB6_TIPOVL"   ,3						,	Nil })
aadd(aLinha,{"RB6_NIVEL" 	,"02" 					,	Nil })
aadd(aLinha,{"RB6_FAIXA"  	,"02" 					,	Nil })
aadd(aLinha,{"RB6_VALOR" 	, 2000    				,   Nil })
aadd(aLinha,{"RB6_PTOMIN"  	, 15    				,   Nil })
aadd(aLinha,{"RB6_PTOMAX"  	, 20    				,   Nil })
aadd(aLinha,{"RB6_CLASSE"  	, "002"   			    ,   Nil })
aadd(aLinha,{"RB6_DTREF" 	, CtoD('02/08/2022')    , 	Nil })
aadd(aLinha,{"RB6_COEFIC" 	, 20    				, 	Nil })
aadd(aLinha,{"RB6_ATUAL" 	, "1"    				, 	Nil })
aadd(aItens,aLinha)
aLinha := {}

MSExecAuto({|x,y,k,w| CSAA070(x,y,k,w)},aCabec,aItens,3,.F.)  //-- Opcao 3 - Inclui registro */


/*
// ALTERAÇÃO
// Faz chamada para alteração do Pontos Máximos da segunda faixa do segundo nível
aCabec   := {}
aadd(aCabec,{"RBR_FILIAL"  ,"D MG 01 "  			,   Nil  })
aadd(aCabec,{"RBR_TABELA"  ,"001" 					,	Nil  })
aadd(aCabec,{"RBR_DESCTA"  ,"TABELA SALARIAL 001" 	,	Nil  })
aadd(aCabec,{"RBR_DTREF"   ,CtoD('02/08/2022') 		,	Nil  })
aadd(aCabec,{"RBR_VLREF"   ,100						,	Nil  })
aadd(aCabec,{"RBR_USAPTO"  ,1 						,	Nil  })
aadd(aCabec,{"RBR_APLIC"   ,"2" 					,	Nil  })
aadd(aCabec,{"RBR_TIPOVL"  ,3 						,	Nil  })

// SEGUNDO NÍVEL - PRIMEIRA FAIXA
aadd(aLinha,{"RB6_FILIAL"	,"D MG 01 "  			,   Nil })
aadd(aLinha,{"RB6_TABELA"   ,"001" 					,	Nil })
aadd(aLinha,{"RB6_NIVEL" 	,"02" 					,	Nil })
aadd(aLinha,{"RB6_FAIXA"  	,"02" 					,	Nil })
aadd(aLinha,{"RB6_PTOMAX"  	, 25    				,   Nil })
aadd(aItens,aLinha)

MSExecAuto({|x,y,k,w| CSAA070(x,y,k,w)},aCabec,aItens,4,.F.)  //-- Opcao 4 - Altera registro
*/

/*
// EXCLUSÃO
// Faz a exclusão da tabela salarial completa (igual opção em tela Outras Ações > Excluir)
aCabec   := {}
aadd(aCabec,{"RBR_FILIAL"  ,"D MG 01 "  			,   Nil  })
aadd(aCabec,{"RBR_TABELA"  ,"001" 					,	Nil  })
aadd(aCabec,{"RBR_DESCTA"  ,"TABELA SALARIAL 001" 	,	Nil  })
aadd(aCabec,{"RBR_DTREF"   ,CtoD('02/08/2022') 		,	Nil  })
aadd(aCabec,{"RBR_VLREF"   ,100						,	Nil  })
aadd(aCabec,{"RBR_USAPTO"  ,1 						,	Nil  })
aadd(aCabec,{"RBR_APLIC"   ,"2" 					,	Nil  })
aadd(aCabec,{"RBR_TIPOVL"  ,3 						,	Nil  })

// SEGUNDO NÍVEL - PRIMEIRA FAIXA
aadd(aLinha,{"RB6_FILIAL"	,"D MG 01 "  			,   Nil })
aadd(aLinha,{"RB6_TABELA"   ,"001" 					,	Nil })
aadd(aLinha,{"RB6_DESCTA"   ,"TABELA SALARIAL 001" 	,	Nil })
aadd(aLinha,{"RB6_TIPOVL"   ,3						,	Nil })
aadd(aLinha,{"RB6_NIVEL" 	,"02" 					,	Nil })
aadd(aLinha,{"RB6_FAIXA"  	,"02" 					,	Nil })
aadd(aLinha,{"RB6_VALOR" 	, 2000    				,   Nil })
aadd(aLinha,{"RB6_PTOMIN"  	, 15    				,   Nil })
aadd(aLinha,{"RB6_PTOMAX"  	, 25    				,   Nil })
aadd(aLinha,{"RB6_CLASSE"  	, "002"   			    ,   Nil })
aadd(aLinha,{"RB6_DTREF" 	, CtoD('02/08/2022')    , 	Nil })
aadd(aLinha,{"RB6_COEFIC" 	, 20    				, 	Nil })
aadd(aLinha,{"RB6_ATUAL" 	, "1"    				, 	Nil })
aadd(aItens,aLinha)

MSExecAuto({|x,y,k,w| CSAA070(x,y,k,w)},aCabec,aItens,5,.F.)  //-- Opcao 5 - Exclui registro
*/

//Retorno de erro na execução da rotina
If lMsErroAuto   
	Alert("Não foi possível realizar a operação!")  	  
Else 	
	Alert("Operação realizada com sucesso!")  	
EndIf


Return(.T.)

...

Árvore de páginas

Versões comparadas

Versão antiga 5

Nova versão Atual

Chave