Ponto-de-Entrada: PLRFASBD6 - Tratamento no Retorno de Fase
Descrição:
PLRFASBD6o ponto de entrada PLRFASBD6 permite realizar algum tratamento durante a retorno de fase de uma guia.
Ponto de Chamada: Após a gravação das informações na tabela BD6 no processo de retorno de fase de uma guia.
Observação: Utilizar as funções GetArea() e RestArea() para preservar a área já definida pelo sistema.
Programa Fonte
PLSA720
Sintaxe
PLRFASBD6 - Tratamento no Retorno de Fase ( [ nRecBD6 ] )
Parâmetros:
| Nome | Tipo | Descrição | Default | Obrigatório | Referência | ||||||||||||
| nRecBD6 | Nulo | Recno do registro da tabela BD6 que está posicionado. |
Retorno
-
()
Exemplos
User Function PLRFASBD6Local nBD6Recno := paramixb[1]Local aArea := GetArea() If FunName() == "PLSA498" BD6->(DbGoTo(nBD6Recno)) //Posiciona no BD6 DbSelectArea("BD7") BD7->(DbSetOrder(1)) If BD7->(MsSeek(xFilial("BD6")+BD6->(BD6_CODOPE+BD6_CODLDP+BD6_CODPEG+BD6_NUMERO+BD6_ORIMOV+BD6_SEQUEN))) While ! BD7->(Eof()) .And. BD7->(BD7_FILIAL+BD7_CODOPE+BD7_CODLDP+BD7_CODPEG+BD7_NUMERO+BD7_ORIMOV+; BD7_SEQUEN) == ; xFilial("BD6")+BD6->(BD6_CODOPE+BD6_CODLDP+BD6_CODPEG+BD6_NUMERO+BD6_ORIMOV+; BD6_SEQUEN) //Posiciona no BD7 // Regra definida pelo cliente BD7->(DbSkip()) EndDo EndIfEndIfRestArea(aArea) Return