✨ ADVPL - Marcação de array json, todos, Browser. Desmarcar todos ✨
Method MrcArray( nTipo, aArray, oBrw, nPosMrk, cProperty ) Class MCGENC01
Local nI := 0
Local nTamArray := 0
Default nTipo := 0
Default aArray := {}
Default oBrw := Nil
Default nPosMrk := 1
Default cProperty := ''
Begin Sequence
If Empty(cProperty)
If nTipo == 0
aArray[oBrw:nAt,nPosMrk] := Iif( aArray[oBrw:nAt, nPosMrk], .F., .T. )
Break
Endif
nTamArray := Len(aArray)
For nI := 1 to nTamArray
If nTipo == 1 //Marca todos
aArray[nI,nPosMrk] := .T.
ElseIf nTipo == 2 //Desmarca todos
aArray[nI,nPosMrk] := .F.
ElseIf nTipo == 3 //Inverte
aArray[nI,nPosMrk] := Iif( aArray[nI, nPosMrk], .F., .T. )
Endif
Next nI
Else
If nTipo == 0
aArray[oBrw:nAt,cProperty] := Iif( aArray[oBrw:nAt, cProperty], .F., .T. )
Break
Endif
nTamArray := Len(aArray)
For nI := 1 to nTamArray
If nTipo == 1 //Marca todos
aArray[nI,cProperty] := .T.
ElseIf nTipo == 2 //Desmarca todos
aArray[nI,cProperty] := .F.
ElseIf nTipo == 3 //Inverte
aArray[nI,cProperty] := Iif( aArray[nI, cProperty], .F., .T. )
Endif
Next nI
Endif
End Sequence
oBrw:Refresh()
Return( Nil )
Curtiu o conteúdo? 😎
Se este material te ajudou, compartilhe com a galera, salve nos favoritos e deixe seu comentário! Um grande abraço 🤝 e até a próxima!
