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 | X | |||||||||||||
| cNewMat | Caracter | Matrícula Família de Destino | X | X | |||||||||||||
| cOldUsr | Caracter | Matrícula Usuário Antiga | X | X | |||||||||||||
| cNewUsr | Caracter | Matrícula Usuário Nova Gerada | X | 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