Histórico da Página

Descrição	Ponto de entrada FINA460A substitui os pontos de entrada

:

abaixo.

•

A460VALLIN: Executado na inclusão de linhas de parcelas da liquidação a receber;

•

F460BOT: Executado para inclusão de botões no botão Ações Relacionadas da liquidação a receber;

•

F460CAN: Executado no cancelamento da tela de geração de liquidação a receber;

•

F460CON: Executado no cancelamento da tela de geração de liquidação a receber;

•

F460GRV: Executado após a gravação de dados da geração de liquidação a receber;

•

F460SAID: Executado no cancelamento da tela de geração de liquidação a receber;

•

F460TOK: Executado na validação de toda tela de geração de liquidação a receber;

•

FA460CON: Executado na confirmação da tela de geração de liquidação a receber;

•

FA460LOK: Executado na validação da linha de parcelas da liquidação a receber.
Localização	Contas a Receber / Liquidação

Exemplos

Preview

Veja também

ER_PCREQ-7721-Liquidação_Contas_a_Receber

Idioma	Português(Brasil)
Versões	Microsiga_Protheus12
Sistemas Operacionais Suportados	Todos
Compatível com as Bases de Dados	Todas

Updates

Parâmetros

Retorno	O retorno é de acordo com o bloco/ponto de entrada desejado.

Eventos de chamada do Ponto de Entrada

Variáveis

Programa Fonte	FINA460.PRW/FINA460A.PRW

...

User Function FINA460A()

Local aParam    aParam := PARAMIXB
Local xRet      xRet := .T.
Local oObj      oObj := ''
Local cIdPonto cIdPonto := ''
Local cIdModel cIdModel := ''
Local lIsGrid   nLinha := .F.Local nLinha    := 0
Local nQtdLinhas:= 0
Local cMsg      cMsg := ''
Local cClasse   cClasse := ""

If aParam <> NIL
     oObj       oObj := aParam[1]
     cIdPonto     cIdPonto := aParam[2]
     cIdModel     cIdModel := aParam[3]

     If   If cIdPonto == 'MODELPOS' // Bloco substitui o ponto de entrada F460TOK           cMsg e FA460CON
      cMsg := 'Chamada na validação total do formulário (MODELPOS).' + CRLF
          cMsg       cMsg += 'ID ' + cIdModel + CRLF
          If       If cClasse == 'FWFORMGRID' // Bloco substitui o ponto de entrada FA460LOK, validação do Grid, utilizar o ID de Model 'TITGERFO2'
                nQtdLinhas           nQtdLinhas := oObj:Length()
                nLinha                nLinha := oObj:GetLine()

cMsg cMsg += 'É um FORMGRID com ' + Alltrim( Str( nQtdLinhas ) ) + ' linha(s).' + CRLF
cMsg cMsg += 'Posicionado na linha ' + Alltrim( Str( nLinha nLinha ) ) + CRLF

EndIf

          If       EndIf

      If !( xRet := ApMsgYesNo( cMsg + 'Continua ?' ) )
                Help           Help( ,, 'Help',, 'O MODELPOS retornou .F.', 1, 0 )

EndIf

     ElseIf       EndIf
  ElseIf cIdPonto == 'MODELCANCEL' // Bloco substitui os pontos de entrada F460CAN, F460CON e F460SAID no cancelamento da tela de geração de liquidação.
          cMsg       cMsg := 'Chamada no Botão Cancelar (MODELCANCEL).' + CRLF + 'Deseja Realmente Sair ?'
          If       If !( xRet := ApMsgYesNo( cMsg ) )
                Help           Help( ,, 'Help',, 'O MODELCANCEL retornou .F.', 1, 0 )

EndIf

     ElseIf       EndIf
  ElseIf cIdPonto == 'FORMLINEPRE' // Bloco substitui o ponto de entrada A460VALLIN.
          If       If cIdModel == 'TITGERFO2'
                nQtdLinhas           nQtdLinhas := oObj:Length()
                nLinha               nLinha := oObj:GetLine()
                If           If aParam[5] == 'DELETE' // Deleção de Linha do Grid
                     cMsg               cMsg := 'Chamada na pre validação da linha do formulário (FORMLINEPRE).' + CRLF
                     cMsg               cMsg += 'Onde esta se tentando deletar uma linha' + CRLF
                     cMsg               cMsg += 'É um FORMGRID com ' + Alltrim( Str( nQtdLinhas ) ) + ' linha(s).' + CRLF
                     cMsg               cMsg += 'Posicionado na linha ' + Alltrim( Str( nLinha     nLinha ) ) + CRLF
                     cMsg               cMsg += 'ID ' + cIdModel + CRLF

If If !( xRet := ApMsgYesNo( cMsg + 'Continua ?' ) )
Help Help( ,, 'Help',, 'O FORMLINEPRE retornou .F.', 1, 0 )

EndIf

     ElseIf               EndIf
          EndIf
      EndIf
  ElseIf cIdPonto == 'FORMLINEPOS' // Substitui o ponto de entrada FA460LOK
          If       If cIdModel == 'TITGERFO2'
                nQtdLinhas           nQtdLinhas := oObj:Length()
                nLinha               nLinha := oObj:GetLine()
                cMsg           cMsg := 'Chamada na validação da linha do formulário (FORMLINEPOS).' + CRLF
                cMsg           cMsg += 'ID ' + cIdModel + CRLF
                cMsg           cMsg += 'É um FORMGRID com ' + Alltrim( Str( nQtdLinhas ) ) + ' linha(s).' + CRLF
                cMsg           cMsg += 'Posicionado na linha ' + Alltrim( Str( nLinha ) ) + CRLF

If If !( xRet := ApMsgYesNo( cMsg + 'Continua ?' ) )
Help Help( ,, 'Help',, 'O FORMLINEPOS retornou .F.', 1, 0 )

EndIf

     ElseIf           EndIf
      EndIf
  ElseIf cIdPonto == 'MODELCOMMITNTTS' // Bloco substitui o ponto de entrada F460GRV.
          ApMsgInfo       ApMsgInfo('Chamada apos a gravação total do modelo e fora da transação (MODELCOMMITNTTS).' + CRLF + 'ID ' + cIdModel)
     ElseIf   ElseIf cIdPonto == 'BUTTONBAR' // Bloco substitui o ponto de entrada F460BOT.
          ApMsgInfo       ApMsgInfo('Adicionando Botao na Barra de Botoes (BUTTONBAR).' + CRLF + 'ID ' + cIdModel )
          xRet       xRet := { {'Salvar', 'SALVAR', { || Alert( 'Salvou' ) }, 'Este botao Salva' } }
     EndIf   EndIf
EndIf

Return xRet

Árvore de páginas

Versões comparadas

Versão antiga 1

Nova versão Atual

Chave