LibreOffice-Forum

Code: Alles auswählen

Sub S_INSERT_VALUES
    oFormFILTER = ThisComponent.Drawpage.Forms.getbyName("FILTER")
    nBARCODEFROM = oFormFILTER.columns.F_BARCODEFROM.getint
    nBARCODETO = oFormFILTER.columns.F_BARCODETO.getint
    nCODE_PEL = oFormFILTER.columns.F_CODE_PEL.getint
    nCODE_DEL = oFormFILTER.columns.F_CODE_DEL.getint
    sHMEROM  = oFormFILTER.columns.F_HMEROM.getstring
    oConnection = oFormFILTER.ActiveConnection
    oStatement = oConnection.createStatement
    sSQL = "UPDATE BARCOC SET CODE_PEL = "+nCODE_PEL+" WHERE BARCODE BETWEEN "+nBARCODEFROM+" AND "+nBARCODETO
    oStatement.ExecuteUpdate(sSQL)
    sSQL = "UPDATE BARCOC SET CODE_DEL = "+nCODE_DEL+" WHERE BARCODE BETWEEN "+nBARCODEFROM+" AND "+nBARCODETO
    oStatement.ExecuteUpdate(sSQL)
    sSQL = "UPDATE BARCOC SET HMEROM = '"+sHMEROM+"' WHERE BARCODE BETWEEN "+nBARCODEFROM+" AND "+nBARCODETO
    oStatement.ExecuteUpdate(sSQL)
    oFormFILTER.reload
End Sub