Histórico da Página
Ponto de Entrada
Descrição: | Este Ponto de Entrada será executado na rotina Atend. Modelo 2 (VEIXA018) ao ser executada a funcionalidade Incluir ou Alterar e em seguida ser selecionada a forma de pagamento Entradas. A mesma permite criar validações customizadas antes da exclusão da parcela (linha) da getdados. | |||||||||
Localização: | Atualizações \ Mov Atendimento \ Atend. Modelo 2 (VEIXA018) | |||||||||
Eventos: | Static Function VX0110016_ValidandoExclusaoDaLinha(nLinVS9) Local lRet := .t. Default nLinVS9 := oGetDadVS9:nAt // Ponto de Entrada para validações customizadas antes da exclusão da linha If ExistBlock("VXX11VEX") lRet := ExecBlock("VXX11VEX", .f., .f., {!oGetDadVS9:aCols[nLinVS9, Len(oGetDadVS9:aCols[nLinVS9])], nLinVS9}) // linha deletada (.t. ou .f.) e número da linha EndIf If lRet lRet := FS_BAIXADO(nLinVS9, .t.) If !(lRet) oGetDadVS9:aCols[oGetDadVS9:nAt, Len(aHeader) + 1] := !oGetDadVS9:aCols[oGetDadVS9:nAt, Len(aHeader) + 1] VX11VALTOT(1) FS_DELVSE(nLinVS9) EndIf EndIf Return lRet | |||||||||
Programa Fonte: | VEIXX011.PRW | |||||||||
Função: | VX0110016_ValidandoExclusaoDaLinha() | |||||||||
| Parâmetros: |
| |||||||||
Retorno: |
|
Exemplo:
Include totvs.ch
/*
===============================================================================
###############################################################################
##+----------+------------+-------+-----------------------+------+----------+##
##|Função | VXX11VEX | Autor | MIL | Data | 14/01/19 |##
##+----------+------------+-------+-----------------------+------+----------+##
##|Descrição | Customizar validações na exclusão de parcelas na rotina |##
##|----------|(Entradas - VEIXA018) |##
##+----------+--------------------------------------------------------------+##
##+----------+--------------------------------------------------------------+##
###############################################################################
===============================================================================
*/
User Function VXX11VEX()
Local lDel := ParamIxb[1] // .t. ou .f. (Linha deletada ou tirando a deleção)
Local nLin := ParamIxb[2] // Linha da GetDados
Local lRet := .t.
MsgInfo("Ponto de entrada VXX11VEX executado com sucesso!", "Atenção")
Return lRet
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas