Histórico da Página
Composition Setup |
---|
import.css=/download/attachments/327912/newLayout.css |
Portuguese | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
Ponto-de-Entrada: GPE10HIST - Histórico de Salários
Descrição:
Eventos Este Ponto de Entrada é chamado nas situações: GPEA010: TRMA100 (quando o módulo corrente for Cargos e Salários ou Arquitetura Organizacional) : 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. Programa Fonte .PRW Sintaxe GPE10HIST - Histórico de Salários ( [ nTipoOper ], [ bCond ], [ cCond ] ) --> bCond Parâmetros:
Retorno
Observações 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. ; 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. ; 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. ; 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 ' Exemplos #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) |