Histórico da Página

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.

PLSA720

PLRFASBD6 - Tratamento no Retorno de Fase ( [ nRecBD6 ] )

()

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