Versões: | Microsiga Protheus 8.11 , Microsiga Protheus 10 |
Compatível Países: | Todos |
Sistemas Operacionais: | Todos |
Compatível às Bases de Dados: | Todos |
Idiomas: | Espanhol , Inglês |
Através deste Ponto de Entrada será possível modificar a condição que denota a alteração salarial, bastando alterar o conteúdo de bCond e retorná-lo.
Este Ponto de Entrada é chamado nas situações:
GPEA010:
- Na manutenção de dados do funcionário para verificar a condição que denota a alteração salarial.
- Na gravação efetiva dos dados do funcionário para verificar a condição que denota a alteração salarial.
TRMA100 (quando o módulo corrente for Cargos e Salários ou Arquitetura Organizacional) :
-Na manutenção de dados do funcionário para verificar a condição que denota a alteração salarial.
Em todos os casos, o processamento prosseguirá normalmente se a condição for atendida, caso contrário o processamento será desviado para as instruções definidas em cada operação.
Se a condição padrão do sistema for modificada para uma condição não válida ou inadequada (retorno do ponto de entrada inexeqüível), a condição padrão do sistema será executada.
.PRW
GPE10HIST - Histórico de Salários ( [ nTipoOper ], [ bCond ], [ cCond ] ) --> bCond
Nome | Tipo | Descrição | Default | Obrigatório | Referência | ||||||||||||
nTipoOper | Numérico | Origem da chamada para o ponto de entrada( 1 = Consistência de Campo do GPEA010 / 2 = Gravação do GPEA010 / 3 = TRMA100 ) | |||||||||||||||
bCond | Bloco de código | Condição para gravação do histórico de alteração de salário | |||||||||||||||
cCond | Caracter | Variável informativa, contém o mesmo conteúdo que o existente em bCond |
-
bCond()
- Retorna a nova condição para gravação do histórico de salários
O Ponto de Entrada poderá ser executado a partir de 3 funções diferentes, são elas:
Gp010AltSal - Consistência do Campo Tipo Alt. Salarial
cTipoOper:= 1
bCond := {|x| (( IsMemVar( "RA_SALARIO" ) .and. GetMemVar( "RA_SALARIO" ) # SRA->RA_SALARIO) .OR. ;
( IsMemVar( "RA_CODFUNC" ) .and. GetMemVar( "RA_CODFUNC" ) # SRA->RA_CODFUNC) .OR. ;
( IsMemVar( "RA_ANTEAUM" ) .and. GetMemVar( "RA_ANTEAUM" ) # SRA->RA_ANTEAUM .and. SR3->( Type("R3_ANTEAUM") ) # "U" ) .OR. ;
( IsMemVar( "RA_CARGO" ) .and. GetMemVar( "RA_CARGO" ) # SRA->RA_CARGO .and. SR7->( Type("R7_CARGO") ) # "U") ) }
cCond := '(( IsMemVar( "RA_SALARIO" ) .and. GetMemVar( "RA_SALARIO" ) # SRA->RA_SALARIO) .OR. ( IsMemVar( "RA_CODFUNC" ) .and. GetMemVar( "RA_CODFUNC" ) # SRA->RA_CODFUNC) .OR. ( IsMemVar( "RA_ANTEAUM" ) .and. GetMemVar( "RA_ANTEAUM" ) # SRA->RA_ANTEAUM .and. SR3->( Type("R3_ANTEAUM") ) # "U" ) .OR. ( IsMemVar( "RA_CARGO" ) .and. GetMemVar( "RA_CARGO" ) # SRA->RA_CARGO .and. SR7->( Type("R7_CARGO") ) # "U" ) )'
Gpea010Grv – Gravação do cadastro de funcionários:
cTipoOper:= 2
bCond := {|x|( ( GdFieldGet( "RA_SALARIO" , 1 , .F. , aSraHeader , aSvSraCols ) <> GetMemVar( "RA_SALARIO" ) ) .or. ;
( GdFieldGet( "RA_CODFUNC" , 1 , .F. , aSraHeader , aSvSraCols ) <> GetMemVar( "RA_CODFUNC" ) ) .or. ;
( GdFieldGet( "RA_CATFUNC" , 1 , .F. , aSraHeader , aSvSraCols ) <> GetMemVar( "RA_CATFUNC" ) ) .or. ;
( GdFieldGet( "RA_CARGO" , 1 , .F. , aSraHeader , aSvSraCols ) <> GetMemVar( "RA_CARGO" ) .and. SR7->( Type("R7_CARGO") ) # "U" ) .or. ;
( GdFieldGet( "RA_ANTEAUM" , 1 , .F. , aSraHeader , aSvSraCols ) <> GetMemVar( "RA_ANTEAUM" ) .and. SR3->( Type("R3_ANTEAUM") ) # "U" ) )}
cCond := '(( GdFieldGet( "RA_SALARIO" , 1 , .F. , aSraHeader , aSvSraCols ) <> GetMemVar( "RA_SALARIO" ) ) .or. ( GdFieldGet( "RA_CODFUNC" , 1 , .F. , aSraHeader , aSvSraCols ) <> GetMemVar( "RA_CODFUNC" ) ) .or. ( GdFieldGet( "RA_CATFUNC" , 1 , .F. , aSraHeader , aSvSraCols ) <> GetMemVar( "RA_CATFUNC" ) ) .or. ( GdFieldGet( "RA_CARGO" , 1 , .F. , aSraHeader , aSvSraCols ) <> GetMemVar( "RA_CARGO" ) .and. SR7->( Type("R7_CARGO") ) # "U" ) .or. ( GdFieldGet( "RA_ANTEAUM" , 1 , .F. , aSraHeader , aSvSraCols ) <> GetMemVar( "RA_ANTEAUM" ) .and. SR3->( Type("R3_ANTEAUM") ) # "U" ) )'
Tr100VlTree - Mostra o Tree dos funcionários (TRMA100) - Somente para os módulos ‘SIGACSA’ ou ‘SIGAORG’
cTipoOper:= 3
bCond := {|x| ( ( SRA->RA_SALARIO # M->RA_SALARIO .OR. SRA->RA_CODFUNC # M->RA_CODFUNC .OR. ;
SRA->RA_CATFUNC # M->RA_CATFUNC .or. SRA->RA_CARGO # M->RA_CARGO ) .And. nOpcx == 4 ;
)}
cCond := '( SRA->RA_SALARIO # M->RA_SALARIO .OR. SRA->RA_CODFUNC # M->RA_CODFUNC .OR. SRA->RA_CATFUNC # M->RA_CATFUNC .or. SRA->RA_CARGO # M->RA_CARGO ) .And. nOpcx == 4 '
#INCLUDE 'RWMAKE.CH'USER FUNCTION GPE10HISTLocal nTipoOper := Paramixb[1] //-- Tipo de OperacaoLocal bCond := Paramixb[2] //-- Bloco com a condicao padrao do sistemaLocal cCond := Paramixb[3] //-- String informativa, representa o conteudo padrao do bCond//-- Consistencia de campo (Gpea010)If nTipoOper = 1 //Exclui verificacao do cargo da condicao padrao bCond := {|x| (( IsMemVar( "RA_SALARIO" ) .and. GetMemVar( "RA_SALARIO" ) # SRA->RA_SALARIO) .OR. ; ( IsMemVar( "RA_CODFUNC" ) .and. GetMemVar( "RA_CODFUNC" ) # SRA->RA_CODFUNC) .OR. ; ( IsMemVar( "RA_ANTEAUM" ) .and. GetMemVar( "RA_ANTEAUM" ) # SRA->RA_ANTEAUM .and. SR3->( Type("R3_ANTEAUM") ) # "U" ) ) }//-- Gravacao (Gpea010)ElseIf nTipoOper = 2 //Exclui verificacao do cargo da condicao padrao bCond := {|x|( ( GdFieldGet( "RA_SALARIO" , 1 , .F. , aSraHeader , aSvSraCols ) <> GetMemVar( "RA_SALARIO" ) ) .or. ; ( GdFieldGet( "RA_CODFUNC" , 1 , .F. , aSraHeader , aSvSraCols ) <> GetMemVar( "RA_CODFUNC" ) ) .or. ; ( GdFieldGet( "RA_CATFUNC" , 1 , .F. , aSraHeader , aSvSraCols ) <> GetMemVar( "RA_CATFUNC" ) ) .or. ; ( GdFieldGet( "RA_ANTEAUM" , 1 , .F. , aSraHeader , aSvSraCols ) <> GetMemVar( "RA_ANTEAUM" ) .and. SR3->( Type("R3_ANTEAUM") ) # "U" ) )}//-- Tree de funcionarios (TRMA100)ElseIf nTipoOper = 3 //Exclui verificacao do cargo da condicao padrao bCond := {|x| ( ( SRA->RA_SALARIO # M->RA_SALARIO .OR. SRA->RA_CODFUNC # M->RA_CODFUNC .OR. ; SRA->RA_CATFUNC # M->RA_CATFUNC ) .And. nOpcx == 4 )}EndIfReturn(bCond)