Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Comentário: Migration of unmigrated content due to installation of a new plugin

Ponto de Entrada

Descrição:

Este Ponto de Entrada está localizado na rotina Cad Seguros (VEICA660), executado após gravação de um registro, tem como finalidade possibilitar customizações.

Localização:

Atualizações \ Cad Financeiro \ Cad Seguros (VEICA660)

Eventos:

Function VCA660071_GravacaoAposPadrao(oModel)

Local nCntFor := 0

Local lAlt := .f.

Local cAnt := ""

Local cDep := ""

Local cQuery := ""

Local cObsAlt := ""

Local nObsTam := 0

Local lInclui := .t.

If oModel:GetOperation() == MODEL_OPERATION_INSERT .or. oModel:GetOperation() == MODEL_OPERATION_UPDATE

//

cQuery := "SELECT SUM(VQ9_VALCOM)"

cQuery += " FROM "+RetSQLName("VQ9")

cQuery += " WHERE VQ9_FILIAL='"+xFilial("VQ9")+"'"

cQuery += " AND VQ9_TIPO='3'"

cQuery += " AND VQ9_CODIGO='"+VQ8->VQ8_CODIGO+"'"

cQuery += " AND VQ9_NUMNFI<>' '"

cQuery += " AND D_E_L_E_T_=' '"

//

DbSelectArea("VQ8")

RecLock("VQ8",.f.)

VQ8->VQ8_SALDO := VQ8->VQ8_COMTOT - FM_SQL(cQuery)

MsUnLock()

//

If oModel:GetOperation() == MODEL_OPERATION_UPDATE

////////////////////////////////////////

// MEMO com o Historico de Alteracoes //

////////////////////////////////////////

lInclui := .f.

nObsTam := TamSx3("VQ8_OBSERA")[1]

cObsAlt := E_MSMM(VQ8->VQ8_OBSMEA,nObsTam) // Buscar MEMO

cObsAlt += left(UPPER(UsrRetName(__CUSERID)),15)+" - "+STR0004+" "+Transform(dDataBase,"@D")+" "+STR0005+" "+left(Time(),5)+"h"+CHR(13)+CHR(10) // Alteracoes: / as

For nCntFor := 1 to len(aCpoAltVQ8)

If aCpoAltVQ8[nCntFor,2] <> &("VQ8->"+aCpoAltVQ8[nCntFor,1])

If aCpoAltVQ8[nCntFor,4] == "G" // Get

cAnt := Transform(aCpoAltVQ8[nCntFor,2],aCpoAltVQ8[nCntFor,3])

cDep := Transform(&("VQ8->"+aCpoAltVQ8[nCntFor,1]),aCpoAltVQ8[nCntFor,3])

ElseIf aCpoAltVQ8[nCntFor,4] == "C" // Combo

cAnt := X3CBOXDESC(aCpoAltVQ8[nCntFor,1],aCpoAltVQ8[nCntFor,2])

cDep := X3CBOXDESC(aCpoAltVQ8[nCntFor,1],&("VQ8->"+aCpoAltVQ8[nCntFor,1]))

EndIf

lAlt := .t.

cObsAlt += AllTrim(RetTitle(aCpoAltVQ8[nCntFor,1]))+" - "+STR0006+" "+cAnt+" - "+STR0007+" "+cDep+CHR(13)+CHR(10) // De: / Para:

EndIf

Next

If lAlt

cObsAlt += repl("_",47)+CHR(13)+CHR(10)

MSMM(VQ8->VQ8_OBSMEA,nObsTam,,cObsAlt,1,,,"VQ8","VQ8_OBSMEA") // Gravar MEMO

EndIf

EndIf

//

// Ponto de Entrada para verificações customizadas após Gravação realizada com sucesso

If ExistBlock("VCA660DGR")

ExecBlock("VCA660DGR", .f., .f., {lInclui, VQ8->(RecNo())})

EndIf

EndIf

Return()

Programa Fonte:

VEICA660.PRW

Função:

VCA660071_GravacaoAposPadrao()

Parâmetros:
NomeTipoDescrição

lIncluir

Lógico

Tipo: .t. - Inclusão / .f. - Alteração

nRecNoVQ8

Numérico

RecNo da tabela VQ8 - Cadastro Seguros

Retorno:

N/A

Exemplo:

Include totvs.ch

/*

ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ

±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±

±±ÉÍÍÍÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍ»±±

±±ºPrograma ³ VCA650DGR º Autor ³ MIL º Data ³ 16/06/2020 º±±

±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍ͹±±

±±ºDescricao ³ PE executado na rotina Rotina Cad Seguros (VEICA660) para º±±

±±º ³ verificações customizadas após gravação da VQ8 º±±

±±ÈÍÍÍÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ±±

±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±

ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß

*/

User Function VCA660DGR()

Local lIncluir := ParamIXB[01] // Tipo: .t. - Inclusão / .f. - Alteração

Local nRecNoVQ8 := ParamIXB[02] // RecNo da tabela VQ8 - Cadastro Seguros


MsgAlert("Ponto de Entrada VCA660DGR executado com sucesso!", "Atenção")

Return .t.