GPE10HIST - Histórico de Salários -- 10355

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

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)