...
| Bloco de código | ||||||
|---|---|---|---|---|---|---|
| ||||||
If ExistBlock('AF250TOK')
If !ExecBlock( 'AF250TOK', .f., .f., {@aAF250Imp,@aAF250Desc,@aAF250DOri} )
Return .F.
EndIf
EndIf |
| Bloco de código | ||||||
|---|---|---|---|---|---|---|
| ||||||
User Function AF250TOK()
// VariáveisVariables recebidasreceived via PARAMIXB
Local aAF250Imp := PARAMIXB[1] // Array comwith as informações de impostostax data
Local aAF250Desc := PARAMIXB[2] // Array comwith as descriçõesdescriptions
Local aAF250DOri := PARAMIXB[3] // Array comwith asoriginal descrições originaisdescriptions
Local i := 0
Local j := 0
Local lRet := .T.
// ExemploExample deof usouse
For i := 1 to Len(aAF250Imp)
// AquiHere vocêyou podecan implementarimplement athe lógicalogic quethat validavalidates asthe informaçõesdata doof array aAF250Imp
If Empty(aAF250Imp[i][1])
lRet := .F. // CasoIf algumany campofield estejais vazioblank, retornait returns falsofalse
EndIf
Next
// LógicaLogic parafor manipulaçãohandling deof aAF250Desc eand aAF250DOri, seif necessárioneeded
For j := 1 to Len(aAF250DOri)
// ExemploExample deof umaa possívelpossible validaçãovalidation
If aAF250DOri[j][7] == 0
lRet := .F. // RetornaReturn false falsoif seit encontrarfinds umaa descriçãodescription nãonot atribuídaattributed
EndIf
Next
Return lRet |
| Aviso | |||
|---|---|---|---|
| |||
|