cDoRecordDocs_Samples

Nella definizione General della cDoPage

Dim cDoRecordDocs as cDoRecordDocs ''' Definisce la classe visibile in tutta la pagina

''' Routine di caricamento e visualizzazione dei dati

Sub LoadcDoRecordDocs(e as Object)

cDoRecordDocs = New cDoRecordDocs

cDoRecordDocs.ModifyCommandString = "Modifica"''' Il testo della colonna 'Command' per la modifica

Call cDoRecordDocs.LoadcDoRecordDocs(e.CdoConnect.cDoDbTables("VEW_ORD_CL_TEST"), e.cDoPage.CdoStartValues("AnnoAss").Value, _

e.cDoPage.CdoStartValues("TipoAss").Value, e.cDoPage.CdoStartValues("NroAss").Value)

Dim DataTable as DataTable=cDoRecordDocs.DocumentsdataTable

''' DOCUMENTI è una sezione di query della pagina

e.cDoPage("DOCUMENTI").LoadDataTable(DataTable) ''' Carica la DataTable nella sezione di query

e.cDoPage("DOCUMENTI").RecordButtonAddRunTimeVisibility = True ''' Forza la visibilità del bottone 'Add' della sezione

e.cDoPage("DOCUMENTI").RecordButtonDeleteRunTimeVisibility = True ''' Forza la visibilità del bottone 'Delete' della sezione

end sub

Evento AfterShow della cDoPage

LoadcDoRecordDocs(e) ''' Caricamento dei documenti

Definire le colonne Commad, Description della sezione "DOCUMENTI" come LinkLabel, nascondere le altre colonne (Opzionale).

Evento Click dell'elemento 'Command' della sezione "DOCUMENTI"

''' Modifica documento

cDoRecordDocs.ShowDocument(e.cDoPage("DOCUMENTI")("PATHXMLDATAFILE").FormattedValue)

''' Ricarica i documenti

Call LoadcDoRecordDocs(e)

Evento OnToolBarButtonClick della sezione "DOCUMENTI"

Sub DOCUMENTI_OnToolBarButtonClick (cDoSection as cDoSection, e as cDoSectionEventArgs)