Programa: PLSA660B
Função: PLS660SOOK
Ponto de Entrada: PL660OPE
Objetivo : Permite confirmar uma operação executada pelo usuário. É chamado, após o usuário clicar no botão 'OK' e o sistema ter 
feito todas as validações , para confirmar uma operação de inclusão/alteraçã 
o/exclusão.
 Exemplo de utilização: 
 Caso queira fazer algum tipo de validação adicional 
para confirmar ou não a operação executada pelo usuário.
 Parâmetros de entrada: Operação
 que está sendo executada (3 - Incluir, 4 - Alterar, 5 - Excluir)
Parâmetros de 
Retorno: .T. (confirma a operação) ou .F. (não confirma a operação)
 Exemplo de sua codificação:
 Caso queira validar se existe título em aberto para o cliente antes de confirmar a
 inclusão d e um subcontrato. Se existir, não confirma a operação.
 User Function PL660OPE()
  Local lRet := .T.
  Local nOpc := ParamIXB[1]
    If nOpc == 3 // Incluir
       If M->BQ C_COBNIV = '1'
         SE1->(DbSetOrder(8))
 If 
SE1->(MsSeek(xFilial('SE1')+M->BQC_CODCLI+M ->BQC_LOJA+'A'))
            MsgStop('Cliente 
poss ui títulos em aberto... Subcontrato não poderá ser incluído!',Atenção')
lRet := .F.
 EndIf
      EndIf
   EndIf
 Return(lRet)      

.PRW

PL660OPE - Confirmação de Procedimento ( < ParamIXB[1]> , < lRet> ) --> lRet

lRet(logico)
• Retorno: .T. (confirma a operação) ou .F. (não confirma a operação)