'****** UPLOAD PIECES JOINTES ************************
'insert une ligne vide
sql = "INSERT INTO BIC_SIGA_ORD_PJ (OPJ_ORD_ID, OPJ_DOC_NATURE1, OPJ_DOC_NAME1, OPJ_DOC_DOCUMENT1, OPJ_DOC_NATURE2, OPJ_DOC_NAME2, OPJ_DOC_DOCUMENT2, OPJ_DOC_NATURE3, OPJ_DOC_NAME3, OPJ_DOC_DOCUMENT3) "
sql = sql & " VALUES ('','','',empty_blob(),'','',empty_blob(),'','',empty_blob()) "
set RS1 = conn.execute(sql)
'récup l'ID
sql = "SELECT OPJ_ID_SEQ.CURRVAL as OPJ_ID FROM DUAL"
set RSID = conn.execute(sql)
if not RSID.EOF then
OPJ_ID = RSID("OPJ_ID")
end if
'ouverture de l'enreg. précédemment crée pour faire l'upload
Set RS = Server.CreateObject("ADODB.recordset")
RS.Open "SELECT * FROM BIC_SIGA_ORD_PJ WHERE OPJ_ID =" &OPJ_ID ,conn,adOpenStatic,adLockOptimistic
RS("OPJ_DOC_NAME1") = GsUploadFieldRead("PJInvent")
RS("OPJ_DOC_NATURE1") = "INVENTAIRE"
RS("OPJ_DOC_NAME2") = GsUploadFieldRead("PJConstat")
RS("OPJ_DOC_NATURE2") = "CONSTATDEPART"
RS("OPJ_DOC_NAME3") = GsUploadFieldRead("PJCertifResp")
RS("OPJ_DOC_NATURE3") = "CERTIFLIMITRESP"
bVar = GsUploadDBMultiple(RS,5,"OPJ_DOC_DOCUMENT1;OPJ_DOC_DOCUMENT2;OPJ_DOC_DOCUMENT3") 'upload ds la base - limite = 5Mo
RS.update()
Partager