DEFFI2

/*/
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
±±ÚÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄ¿±±
±±³Fun‡„o ³DEFFI2 ³ Autor ³ ³ Data ³16.08.13 ³±±
±±ÃÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄ´±±
±±³Descri‡„o ³Ocorrencias Defaults conforme a alteracao efetuada no titulo³±±
±±ÃÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´±±
±±³ Uso ³ FINANCEIRO ³±±
±±ÀÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ±±
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±± ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß /*/
User Function DEFFI2
Local aCampos := ParamIxb[2]
Local aDados := ParamIxb[3]
Local lAbatim := ParamIxb[4]
Local lProtesto := ParamIxb[5]
Local lCancProt := ParamIxb[6]
Local aRet := {}
Local nX
Local cMsg := "A alteração do Titulo incluiu Ocorrencias Bancárias de :"
If !lAbatim .And. !lProtesto .And. !lCancProt For nX := 1 To Len(aCampos) If AllTrim(aCampos[nX]) == "E1_VENCREA" .And.((ValType(aDados) == "A" .And. aDados[nX] != SE1->&(aCampos[nX])) .Or. (M->&(aCampos[nX]) != SE1->&(aCampos[nX]))) If SE1->E1_PORTADO == "001" Aadd(aRet, { "E1_VENCREA", { || "06" }, { || .T. } } ) //cMsg += "Data de Vencimento." Endif ElseIf AllTrim(aCampos[nX]) == "E1_DECRESC" .And. ((ValType(aDados) == "A" .And. aDados[nX] != SE1->&(aCampos[nX])) .Or. (M->&(aCampos[nX]) != SE1->&(aCampos[nX]))) If SE1->E1_PORTADO == "001" .And. M->E1_DECRESC != 0 Aadd(aRet, { aCampos[nX], { || "04" }, { || .T. } } ) //cMsg += "Abatimento." Else If SE1->E1_PORTADO == "001" .And. M->E1_DECRESC == 0 .And. SE1->E1_DECRESC > 0 Aadd(aRet, { aCampos[nX], { || "05" }, { || .T. } } ) //cMsg += "Cancelamento Abatimento." Endif Endif Else //validar para gravar algum valor quando