cDoRecordSet_Samples

Esempio di inserimento nuovo record

dim rs as new cDoRecordSet(e.cDoConnect,TABLE_NAME)

dim seqOracle as integer=e.cDoConnect.OracleSequence("RCC_SEQ_GEST_BOX_DEP")

rs("NRO_REG").Value = seqOracle

rs("COD_MAGAZZINO").Value = e.cDoPage("FILTER")("MAG").Value

rs("TIPO_ARTICOLO").Value = _datarow("TIPO_ART")

rs("COD_ARTICOLO").Value = _datarow("COD_ART")

rs("STATO_MERCE").value = IIF (_datarow ("STATO_MERCE") is dbnull.value, "N",_datarow ("STATO_MERCE"))

rs("COD_PROGETTO").Value =_datarow("COD_PROGETTO")

rs("COD_SOTTOPROGETTO").Value =_datarow("COD_SOTTOPROGETTO")

rs("RIF_NRO_RIGA_PADRE").Value =_datarow("RIF_NRO_RIGA_PADRE")

rs("DESCR").Value =_datarow("DESCR")

rs("DESC_RIGA").Value =_datarow("DESC_RIGA")

'rs("BOX").Value ="?????"

'rs("NOTE").Value ="?????"

rs("QTA").Value = _datarow("QTA_ARRIVATA")

rs("SUORCE_ENTRY").Value =_datarow("TIPO_DOC") & "-" & _datarow("ANNO_DOC") & "-" & _datarow("NRO_DOC") & "-" & _datarow("RIGA_DOC")

dim recInsert as integer = rs.Insert

Esempio di aggiornamento nuovo record

Try

'-----------------------------------

e.cDoConnect.BeginTransaction

'--------------------------------------

Dim whereCond as String

whereCond = whereCond & " ANNO_ORD = " & e.cDoPage.OwnercDoPage("QUERY")("ANNOHID").QueryStringValue

whereCond = whereCond & " AND TIPO_ORD = " & e.cDoPage.OwnercDoPage("QUERY")("TIPOHID").QueryStringValue

whereCond = whereCond & " AND NRO_ORD = " & e.cDoPage.OwnercDoPage("QUERY")("NROHID").QueryStringValue

whereCond = whereCond & " AND RIGA_ORD = " & e.cDoPage.OwnercDoPage("QUERY")("RG").QueryStringValue

dim rs as new cDoRecordSet(e.cDoConnect,"ASS_ORD_CL_RIGA",whereCond )

dim seq as integer = e.CdoConnect.OracleSequence(TABLE_NAME)

rs("NRO_REG").Value = seq

rs("ANOM_TIPO_SEDE").Value = "S"

rs("ANOM_CODICE_SEDE").Value = e.cDoSection("ANOMALIA_SEDE").Value

rs("NOTE_SEDE").Value = e.cDoSection("NOTE_SEDE").Value

rs("AZIO_CODICE").Value = e.cDoSection("AZIONE").Value

rs("RESP_CODICE").Value = e.cDoSection("RESPONSABILITA").Value

rs("IMPORTO").Value = e.cDoPage("FILTER")("IMPORTO_MANUALE").Value

rs("IMPORTO_ADD").Value = e.cDoPage("FILTER")("IMPORTO_FORNITORE").Value

rs("USER_ID").CommandValue = "USER"

rs("DATA_AUTO").CommandValue = "SYSDATE"

dim recUpdate as integer = rs.Update

'domsgbox (recUpDate.ToString)

rs = new cDoRecordSet(e.cDoConnect,"VEW_ORD_CL_RIGA",whereCond )

rs("DESC_RIGA").Value = e.cDoPage("FILTER")("DESC").Value

rs("QTA_SPEDIBILE").CommandValue = "DECODE(" & e.cDoPage("FILTER")("AZIONE").QueryStringValue & ",4,QTA_ORDINATA,QTA_SPEDIBILE)"

recUpdate = rs.Update

'domsgbox (recUpDate.ToString)

e.cDoConnect.TransactionCommit

if Not e.cDoPage.OwnercDoPage is nothing andalso e.cDoPage.OwnercDoPage.Name="ASS120" Then

e.cDoPage.OwnercDoPage("QUERY").ExecuteQuery

end if

e.cDoPage.Close

Catch ex As Exception

DoMsgBox(Ex.Message)

e.cDoConnect.TransactionRollBack

End Try