Ponto de Entrada
Descrição: | Este Ponto de Entrada está localizado na rotina Cad Consórcios (VEICA650), executado após gravação de um registro, tem como finalidade possibilitar customizações. | |||||||||
Localização: | Atualizações \ Cad Financeiro \ Cad Consórcios (VEICA650) | |||||||||
Eventos: | Function VCA650DEP() Local ni := 0 Local lAlt := .f. Local cAnt := "" Local cDep := "" Local cQuery := "" If Inclui .or. Altera // MSMM(VQ7->VQ7_OBSMEM,TamSx3("VQ7_OBSERV")[1],,&(aMemos[1][2]),1,,,"VQ7","VQ7_OBSMEM") If Altera M->VQ7_OBSERA += left(UPPER(UsrRetName(__CUSERID)),15)+" - "+STR0004+" "+Transform(dDataBase,"@D")+" "+STR0005+" "+left(Time(),5)+"h"+CHR(13)+CHR(10) // Alterações: / as For ni := 1 to len(aCpoAlt) If aCpoAlt[ni,2] <> &("M->"+aCpoAlt[ni,1]) SX3->(DbSetOrder(2)) SX3->(DbSeek(aCpoAlt[ni,1])) If SX3->X3_TIPO $ "D/N" cAnt := Transform(aCpoAlt[ni,2],VQ7->(X3PICTURE(aCpoAlt[ni,1]))) cDep := Transform(&("M->"+aCpoAlt[ni,1]),VQ7->(X3PICTURE(aCpoAlt[ni,1]))) Else If !Empty(SX3->X3_CBOX) cAnt := X3CBOXDESC(aCpoAlt[ni,1],aCpoAlt[ni,2]) cDep := X3CBOXDESC(aCpoAlt[ni,1],&("M->"+aCpoAlt[ni,1])) Else cAnt := aCpoAlt[ni,2] cDep := &("M->"+aCpoAlt[ni,1]) EndIf EndIf lAlt := .t. M->VQ7_OBSERA += AllTrim(RetTitle(aCpoAlt[ni,1]))+" - "+STR0006+" "+cAnt+" - "+STR0007+" "+cDep+CHR(13)+CHR(10) // De: / Para: EndIf Next M->VQ7_OBSERA += repl("_",47)+CHR(13)+CHR(10) If lAlt MSMM(VQ7->VQ7_OBSMEA,TamSx3("VQ7_OBSERA")[1],,&(aMemoA[1][2]),1,,,"VQ7","VQ7_OBSMEA") EndIf EndIf // cQuery := "SELECT SUM(VQ9.VQ9_VALCOM) FROM "+RetSQLName("VQ9")+" VQ9 WHERE VQ9.VQ9_FILIAL='"+xFilial("VQ9")+"' AND " cQuery += "VQ9.VQ9_TIPO='2' AND VQ9.VQ9_CODIGO='"+VQ7->VQ7_CODIGO+"' AND VQ9.VQ9_NUMNFI<>' ' AND VQ9.D_E_L_E_T_=' ' " // RecLock("VQ7",.f.) VQ7->VQ7_SALDO := VQ7->VQ7_COMTOT - FM_SQL(cQuery) MsUnLock() // // Ponto de Entrada para verificações customizadas após Gravação realizada com sucesso If ExistBlock("VCA650DGR") ExecBlock("VCA650DGR", .f., .f., {Inclui, VQ7->(RecNo())}) EndIf EndIf Return() | |||||||||
Programa Fonte: | VEICA650.PRW | |||||||||
Função: | VCA650DEP() | |||||||||
Parâmetros: |
| |||||||||
Retorno: | N/A |
Exemplo:
Include totvs.ch
/*
ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
±±ÉÍÍÍÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍ»±±
±±ºPrograma ³ VCA650DGR º Autor ³ MIL º Data ³ 16/06/2020 º±±
±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍ͹±±
±±ºDescricao ³ PE executado na rotina Cad Consórcios (VEICA650) para º±±
±±º ³ verificações customizadas após gravação da VQ7 º±±
±±ÈÍÍÍÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ±±
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß
*/
User Function VCA650DGR()
Local lIncluir := ParamIXB[01] // Tipo: .t. - Inclusão / .f. - Alteração
Local nRecNoVQ7 := ParamIXB[02] // RecNo da tabela VQ7 - Cadastro Consorcios
MsgAlert("Ponto de Entrada VCA650DGR executado com sucesso!", "Atenção")
Return .t.