Histórico da Página
Descrição | Ponto de entrada FINA460A substitui os pontos de entrada |
---|
abaixo. |
|
|
|
|
|
|
|
|
| |
Localização | Contas a Receber / Liquidação |
---|
Exemplos
Preview
Veja também
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. |
---|
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
EndIf
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
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