Visual Basic

Dim processClass2 As ManagementClass = New ManagementClass("Win32_Process")
processClass2.Scope = scope
Dim inParams2 As ManagementBaseObject = processClass2.GetMethodParameters("Create")
Dim startup As ManagementClass = New ManagementClass("WIN32_ProcessStartup")
startup.Scope = scope
inParams2("CommandLine") = patchcommand
inParams2("ProcessStartupInformation") = startup
Dim outParams As ManagementBaseObject = processClass2.InvokeMethod("Create", inParams2, Nothing)


'Check for an error
If (outParams("ReturnValue").ToString) <> "0" Then
    'Add error to listview
    Dim itms1 As New Windows.Forms.ListViewItem.ListViewSubItem _
        (itmp, "Could not start process. Error code " & (outParams("ReturnValue").ToString))
    itmp.ForeColor = Color.Red
    itmp.SubItems.Add(itms1)
    itmp.Checked = True
    'Skip to next file
    GoTo skipfile
End If

INSERT INTO OrdHeader (Uniqueid,trantype,ledgerno,accountid,userno,entrydate,entrytime,lineno, trandate,periodno,batchno,internref,externref,hedgecode,logged,descriptn,payee,presented,held,previous,ositem,ledger2, account2,taxtype1,taxcode1,taxamount1,taxtype2,taxcode2,taxamount2,taxtype3,taxcode3,taxamount3,salescode,costcode,stage, branch,delivery,quantity1,quantity2,quantity3,amount1,amount2,amount3,amount4,amount5,cncycode,exchange,netvarnce,netgain, netloss,taxrebate,duedate,rateid,staffid,complqty,ppsrate,purchtype,isjobquote,rpsgross,recordno,temppres,changed,discperc, taxperiod,zcostproc,zpostatus) Values(5,49,2,'CNBPZF@CQU',1, CTOD('1/26/2009'),58694.616,0,CTOD('12/31/2008'),78, 356550,'PO-JAC01360         ','PO-JAC              ','N','F' ,'Purchase Order                                                                                                                                                                                                                                                 ','                                   ',0,'F','F' ,'F',2,'CNBPZF@CQU',' ',0,0 ,' ',0,-69.96,' ',0 ,0,0,'         0','         0',1 ,CTOD('12/31/2008'),0,0,0 ,-699.56,0,-699.56,0,0 ,0,1,0,0,0 ,0,CTOD('12/30/1899 12:00:00 AM'),'F          ','F          ',0 ,0,0,'F',0,0 ,0,'T',0,0,' ' ,' ')

Uniqueid            5	
trantype            49	
ledgerno            2	
accountid           'CNBPZF@CQU'	
userno              1	
entrydate           CTOD('1/26/2009')	
entrytime           58694.616	
lineno              0	
trandate            CTOD('12/31/2008')	
periodno            78	
batchno             356550	
internref           'PO-JAC01360         '	
externref           'PO-JAC              '
hedgecode           'N'
logged              'F' 
descriptn           'Purchase Order                                                                          
                                                                 
                                                  
                                                    '
payee               '                                   '
presented           0
held                'F'
previous            'F' 
ositem              'F'
ledger2             2
account2            'CNBPZF@CQU'
taxtype1            ' '
taxcode1            0
taxamount1          0
taxtype2            ' '
taxcode2            0
taxamount2          -69.96
taxtype3            ' '
taxcode3            0
taxamount3          0
salescode           0
costcode            '         0'
stage               '         0'
branch              1
delivery            CTOD('12/31/2008')
quantity1           0
quantity2           0
quantity3           0
amount1             -699.56
amount2             0
amount3             -699.56
amount4             0
amount5             0
cncycode            0
exchange            1
netvarnce           0
netgain             0
netloss             0
taxrebate           0
duedate             CTOD('12/30/1899 12:00:00 AM')
rateid              'F          '
staffid             'F          '
complqty            0
ppsrate             0
purchtype           0
isjobquote          'F'
rpsgross            0
recordno            0
temppres            0
changed             'T'
discperc            0
 taxperiod          0
zcostproc           ' ' 
zpostatus           ' '

karthick sampangi wrote:

I'm trying to create linear graph using C# in windows application

cr1.LogonInfo(0) = strLogin 'This will depend on how your report is setup.

cr1.ReportFileName = App.Path & "\rptCovLetToCommodityPmnts.rpt"

'I **think** the params are zero based and pass the param value only.
cr1.ParameterFields(0) = lstrBankCode
cr1.ParameterFields(1) = cmbPaymentDate
cr1.Destination = crptToWindow

cr1.Action = 1

Dim line As String
For Each line In My.Resources.mages.Split(System.Environment.NewLine)
    If line <> String.Empty Then
        My.Forms.Main.cbspells.Items.Add(line)
    End If
Next
For Each line In My.Resources.magea.Split(System.Environment.NewLine)
    If line <> String.Empty Then
        My.Forms.Main.cbabilities.Items.Add(line)
    End If
Next