Linha Microsiga Protheus.

Home

Linha Microsiga Protheus

Páginas filhas
  • PLRFASBD6 - Tratamento no Retorno de Fase
  • Criado por Usuário desconhecido (ana.lira), última alteração por admin em 24 jun, 2012

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