- conheça também:
acronsoft
acrondesign
DeveloperFlex - Soluções para Desenvolvedores Visual DataFlex
contato@developerflex.com.br | (55 11) 4378-1115
A classe cMFDbCJGridMultiSelect está definida no pacote cMFDbCJGridMultiSelect.pkg.
A classe cMFDbCJGridMultiSelect é uma subclasse da classe cMFDbCJGrid e herda todas as propriedades, eventos e métodos existentes nesta classe.
A classe cMFDbCJGridMultiSelect é uma subclasse da classe cMFDbCJGrid e foi especializada para ser usada em Grids onde se deseja disponibilizar o recurso de seleção múltipla de registros para um processamento.
Object oLancamentosDbCJGrid is a cMFDbCJGridMultiSelect
Set Ordering to 4
Set Size to 57 551
Set Location to 119 5
Set peAnchors to anAll
Object oGridSelectColumn is a cMFDbCJGridSelectColumn
Set piWidth to 18
Set pbResizable to False
Set pbEditable to True
End_Object
Object oLancto_Recid is a cMFDbCJGridColumn
Entry_Item Lancto.Recid
Set piWidth to 44
Set psCaption to "Cód."
End_Object
Object oLancto_Nr_Nota_Fiscal is a cMFDbCJGridColumn
Entry_Item Lancto.Nr_Nota_Fiscal
Set piWidth to 49
Set psCaption to "N.F."
End_Object
Object oLancto_Nr_Parcela is a cMFDbCJGridColumn
Entry_Item Lancto.Nr_Parcela
Set piWidth to 28
Set psCaption to "Par."
Set pbResizable to False
End_Object
Object oLancto_Dt_Fato_Gerador is a cMFDbCJGridColumn
Entry_Item Lancto.Dt_Fato_Gerador
Set piWidth to 79
Set psCaption to "Dt. fato ger."
Set pbResizable to False
End_Object
Object oLancto_Dt_Vencimento is a cMFDbCJGridColumn
Entry_Item Lancto.Dt_Vencimento
Set piWidth to 79
Set psCaption to "Dt. vencto."
Set pbResizable to False
End_Object
Object oLancto_Dt_Pagto is a cMFDbCJGridColumn
Entry_Item Lancto.Dt_Pagto
Set piWidth to 79
Set psCaption to "Dt. pagto."
Set pbResizable to False
End_Object
Object oLancto_Sg_Posicao is a cMFDbCJGridColumn
Entry_Item Lancto.Sg_Posicao
Set piWidth to 30
Set psCaption to "Pos."
Set pbResizable to False
On_Key Key_F4 Send None // Desabilitando Prompt via tecla
End_Object
Object oClasse_Codigo1 is a cMFDbCJGridColumn
Entry_Item Classe.Codigo
Set piWidth to 45
Set psCaption to "Classe"
Set pbResizable to False
End_Object
Object oLancto_Ds_Historico is a cMFDbCJGridColumn
Entry_Item Lancto.Ds_Historico
Set piWidth to 276
Set psCaption to "Histórico"
End_Object
Object oLancto_Vl_Total is a cMFDbCJGridColumn
Entry_Item Lancto.Vl_Total
Set piWidth to 96
Set psCaption to "Vlr. total"
End_Object
Procedure ProcessaItens String sFormaPagto
Integer iContador // Conta o número de registros processados
RowID[] rwSelected // Recebe o RowId dos registros selecionados
Get SelectedRecords to rwSelected
// Verificando se há ao menos um item selecionado
If (SizeOfArray(rwSelected) = 0) Begin
Error Dferr_Operator "Não há lançamentos selecionados.\n\nA baixa não será efetuada."
Procedure_Return
End
// Inicializar Status Panel
Send Initialize_StatusPanel of ghoStatusPanel "Baixando lançamentos..." "*** Aguarde ***" "Processando..."
Set Allow_Cancel_State of ghoStatusPanel to False
Send Start_StatusPanel of ghoStatusPanel
Send Update_StatusPanel of ghoStatusPanel "Inciando..."
Set Dynamic_Update_State to False
// Configurando DD para permitir alteração
Set Read_Only_State of (Server(Self)) to False
For iContador from 0 to (SizeOfArray(rwSelected)-1)
: // Processamento
:
Loop
Set Read_Only_State of (Server(Self)) to True
Send DoSelectNone
Send Stop_StatusPanel of ghoStatusPanel
Send Reset of (phoDataSource(Self))
Send MoveToFirstRow
End_Procedure // ProcessaItens
End_Object // oLancamentosDbCJGrid