Linha Microsiga Protheus

Árvore de páginas

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:
NomeTipoDescrição
lDelLógicoInforma se a parcela (linha) está deletada ou retirando a deleção - ".t.-Deletada" / ".f.-Retirando a Deleção".
nLinNuméricoNúmero da linha selecionada da getdados.

Retorno:

NomeTipoDescrição
lRetLógico

Retorna .t. se deve continuar e seguir com a deleção da linha ou .f. para parar imediatamente.

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