Histórico da Página

Ponto de entrada que permite integrar com a folha determinados roteiros de cálculos, definidos pelo usuário.

Deverá utilizar o Array aRotMark que contém os dados necessários sobre os roteiros escolhidos para integrar.

Lembrando que nada impede à criação de roteiros definidos manualmente, porém para a transição para a Folha, a responsabilidade se torna do desenvolvedor,

em alimentar as tabelas necessárias, como no exemplo abaixo onde há a transição para a RGB.

Como exemplo foi criado uma tabela RZZ com os campos de: Matrícula, Verba e Valor.

Esses dados serão transpostos para a tabela de incidências RGB.

#Include 'Protheus.ch'

User Function RS050SEL()
Local lCont := .F.
Local cArqTmp := ParamIXB[1]

If (cArqTmp)->TRX_CHECK

lCont := MsgYesNo("CV Nº: " + (cArqTmp)->TRX_CURRIC + Chr(10)+Chr(13)+;
" Nome: " + (cArqTmp)->TRX_NOME+ Chr(10)+Chr(13)+;
"Tem certeza que deseja desmarcar?" )

Else

lCont := MsgYesNo("CV Nº: " + (cArqTmp)->TRX_CURRIC + Chr(10)+Chr(13)+;
" Nome: " + (cArqTmp)->TRX_NOME+ Chr(10)+Chr(13)+;
"Tem certeza que deseja marcar?" )

EndIf

GPM19INTEG()

Local aAreaRGB := RGB->( GetArea("RGB") )
Local cPd := ""
Local nValor := 0
Local cPerFol := aRotMark[1,3] // Periodo
Local cSemFol := aRotMark[1,5] // Semana
Local cProc := aRotMark[1,1] // Processo
Local cRoteiro := aRotMark[1,2] // Roteiro
Local cRGBSeek := ""
Local nIndice := RetOrder( "RGB", "RGB_FILIAL+RGB_MAT+RGB_PD+RGB_PERIOD+RGB_SEMANA+RGB_SEQ" )

DbSelectArea("RZZ")
RZZ->( DbSetOrder(1) )

While RZZ->( !Eof() )

DbSelectArea("RGB")
RGB->( DbSetOrder( nIndice ) )
If !( RGB->( DbSeek( xFilial("RGB") + RZZ->RZZ_MAT + RZZ->RZZ_PD + cPerFol + "01", .F. ) ) )
RGB->( RecLock( "RGB" , .T. ) )
RGB->RGB_FILIAL := xFilial("RGB")
RGB->RGB_MAT := RZZ->RZZ_MAT
RGB->RGB_CC := "000001"
RGB->RGB_PD := RZZ->RZZ_PD
RGB->RGB_HORAS := 0
RGB->RGB_VALOR := RZZ->RZZ_VALOR
RGB->RGB_PARCEL := 0
RGB->RGB_PROCES := cProc
RGB->RGB_PERIOD := cPerFol
RGB->RGB_ROTEIR := cRoteiro
RGB->RGB_SEMANA := "01"
RGB->RGB_ROTORI := cRoteiro
RGB->( MsUnlock() )
EndIf

RGB->( DbCloseArea() )
RZZ->( DbSkip() )
EndDo

RZZ->( DbCloseArea() )

RestArea( aAreaRGB )
Return(.T.Return(lCont)

Português(Brasil)

Microsiga_Protheus12

Todos

Todas

.T. para permitir a integração.

Após a marcação do roteiro especifíco na chamada da rotina de 'Integração' .

GPEM019.PRW