PL169GRV - Informações do Usuário

Ponto-de-Entrada: PL169GRV - Informações do Usuário

Versões:	Todas
Compatível Países:	Todos
Sistemas Operacionais:	Todos
Compatível às Bases de Dados:	Todos
Idiomas:	Espanhol , Inglês

Descrição:

O ponto de entrada PL169GRV, é utilizado na rotina "Transferência(PLSA169)", para contemplar os dados do usuário, que não são considerados na transferência padrão da rotina, como por exemplo, a informação de carência do usuário.

Eventos

Este ponto de entrada é acionado ao final da gravação de cada usuário, e considerado durante a execução da rotina de Transferência.

Programa Fonte

PLSA169.PRW

Sintaxe

PL169GRV - Informações do Usuário ( < @cOldMat> , < @cNewMat> , < @cOldUsr> , < @cNewUsr> )

Parâmetros:

Nome

Tipo

Descrição

Default

Obrigatório

Referência

cOldMat

Caracter

Matrícula Família de Origem

X

cNewMat

Caracter

Matrícula Família de Destino

X

cOldUsr

Caracter

Matrícula Usuário Antiga

X

cNewUsr

Caracter

Matrícula Usuário Nova Gerada

X

Retorno

()

Exemplos

User Function PL169GRVLocal cOldMat    := paramixb[1]Local cNewMat    := paramixb[2]Local cOldUsr    := paramixb[3]Local cNewUsr    := paramixb[4]    Local nCntLocal nRegBFOLocal aConteudo        //ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿//³ cOldMat -> Matricula Familia de Origem                                   ³//³ cNewMat -> Matricula Familia de Destino                                  ³//³ cOldUsr -> Matricula Usuario Antiga                                      ³//³ cNewUsr -> Matricula Usuario Nova Gerada                                 ³//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿//³ Transfere as classes de carencia do usuario - BFO                        ³//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙBFO->( dbSetorder(01) )If BFO->(MsSeek(xFilial("BFO")+cOldUsr))	While !BFO->( Eof() ) .and. BFO->BFO_CODINT+BFO->BFO_CODEMP+BFO->BFO_MATRIC+BFO->BFO_TIPREG == cOldUsr		aConteudo 	:= {}		nRegBFO 	:= BFO->( RecNo() )						For nCnt := 1 To BFO->( fCount() )			Aadd(aConteudo, BFO->( FieldGet(nCnt) ))		Next						RecLock("BFO", .T.)		For nCnt := 1 To BFO->( fCount() )			cField 	:= BFO->( Field(nCnt) )			If cField == "BFO_CODEMP"				BFO->( FieldPut(nCnt, M->BQQ_EMPDES) )					Elseif cField == "BFO_MATRIC"				BFO->( FieldPut(nCnt, cMatricula) )								Elseif cField == "BFO_TIPREG"				BFO->( FieldPut(nCnt, BA1->BA1_TIPREG) )			Else				BFO->( FieldPut(nCnt, aConteudo[nCnt]) )			Endif		Next		BFO->( msUnlock() )		BFO->( dbGoto(nRegBFO) )		BFO->( dbSkip() )	EnddoEndifReturn

Home

Linha Microsiga Protheus

Páginas filhas