PLGERBD7 - IncluirAlterar Registros

O ponto de entrada PLGERBD7 permite incluir/alterar registros na tabela BD7 após a valorização dos registros já gravados no sistema durante a mudança de fase da Guia.

Ponto de chamada: Após a valorização dos registros da tabela BD7 já gravados no sistema durante a mudança de fase da Guia.

Observações:
- Utilizar as funções GetArea() e RestArea() para preservar a área já definida pelo sistema.
- Quando houver procedimentos com participação financeira na guia, o sistema não atualizará automaticamente os novos valores no registro correspondente na tabela BD6. Será necessário a utilização de um ponto de entrada para a atualização. Para este fim, é possível utilizar o ponto de entrada PLS720DOP que está posicionado no BD6, e é acionado no final da apuração do procedimento.

PLSA720

PLGERBD7 - Incluir/Alterar Registros ( [ nBD6Recno ] )

()

User Function PLGERBD7Local nBD6Recno := paramixb[1]Local aArea := GetArea()                            If FunName() == "PLSA498"    DbSelectArea("BD6")                              BD6->(DbGoTo(nBD6Recno))    // Posiciona no BD6  DbSelectArea("BD7")  BD7->(RecLock("BD7",.T.)) //Cria Registro na BD7       //Regra definida pelo cliente                      BD7->(MsUnLock())            EndIfRestArea(aArea)  Return