The Capable 23.May.08 08:57 AM a Web browser LC LSXAll ReleasesWindows
Hi
My requirement is to pull all records from a SAP Table and create documents on the fly. For each SAP record a corresponding document is to be created then it should update a column in SAP with value as "Y". All this will be done in a While (Fetch) loop. But I'm getting an error message saying "12807: Error: Invalid datetime value, Connector 'SAP', Method -Update-. " for one of the column. I'm not at all updating any other column except update flag column then I don't understand where is the problem. When run in LS debugger I could see that it executes the source.update(lcfieldlist) line without any error for the first record encountered and then for the next record in the loop I get the above error message. And morever even the SAP record does NOT get updated for the first one!!! Please help me.
Option Public
Uselsx "*lsxlc"
On Error Goto errorhandler
Dim ses As New NotesSession
Dim session As New LCSession
Dim source As New LCConnection("SAP")
Dim pulleddoc As NotesDocument
Dim fieldlist As New LCFieldlist
Dim Updatefieldlist As New LCFieldlist
Dim db As NotesDatabase
Dim filteredview As NotesView
Dim srcdoc As NotesDocument
Dim key As String
Dim field1 As New LCField(LCTYPE_TEXT)
Dim field2 As LCField
Dim field3 As LCField
Dim field4 As LCField
Dim field5 As LCField
Dim field6 As LCField
Dim field7 As LCField
Dim field8 As LCField
Dim field9 As LCField
Dim field10 As LCField
Dim field11 As LCField
Dim field12 As LCField
Dim field13 As LCField
Dim field14 As LCField
Dim field15 As LCField
Dim field16 As LCField
Dim field17 As LCField
Dim field18 As LCField
Dim field19 As LCField
Dim field20 As LCField
Dim field21 As LCField
Dim field22 As LCField
Dim field23 As LCField
Dim field24 As LCField
Dim field25 As LCField
Dim field26 As LCField
Dim field27 As LCField
Dim field28 As LCField
Dim field29 As LCField
Dim field30 As LCField
Dim field31 As LCField
Dim field32 As LCField
Dim field33 As LCField
Dim field34 As LCField
Dim field35 As LCField
Dim field36 As LCField
Dim field37 As LCField
Dim field38 As LCField
Dim field39 As LCField
Dim field40 As LCField
Dim field41 As LCField
Dim field42 As LCField
Dim field43 As LCField
Dim field44 As LCField
Dim field45 As LCField
Dim field46 As LCField
Dim field47 As LCField
Dim field48 As LCField
Dim field49 As LCField
Dim field50 As LCField
Dim field51 As LCField
Dim field52 As LCField
Dim field53 As LCField
Dim field54 As LCField
Dim field55 As LCField
Dim field56 As LCField
Dim field57 As LCField
Dim field58 As LCField
Dim field59 As LCField
Dim field60 As LCField
Dim field61 As LCField
Dim field62 As LCField
Dim field63 As LCField
Dim field64 As LCField
Dim field65 As LCField
Dim field66 As LCField
Dim field67 As LCField
Dim field68 As LCField
Dim field69 As LCField
Dim field70 As LCField
Dim field71 As LCField
Dim field72 As LCField
Dim field73 As LCField
Dim field74 As LCField
Dim field75 As LCField
Dim field76 As LCField
Dim field77 As LCField
Dim counter As Integer
Dim selectstatement As String
' ************* Date part *********************************
Dim dateTime As New NotesDateTime("Today")
Dim x As String
Dim finaldate As String
Set db = ses.CurrentDatabase
x = Cstr(dateTime.LocalTime )
finaldate = Format$(x , "ddmmyyyy")
Dim profdoc As NotesDocument
Set profdoc = db.GetProfileDocument("SAPdatabaseprofile")
Dim id, pswd, clnt, dest, serv As String
id = profdoc.SAP_userid(0)
pswd = profdoc.Password(0)
clnt = profdoc.SAP_Client(0)
' dest = profdoc.SAP_dest(0)
serv = profdoc.SAP_Server(0)
Dim Updatesource As LCConnection
Set Updatesource=source.Copy
Updatesource.Connect
Updatesource.Metadata = "*"
Updatesource.writeback = True
'counter = source.Execute(Nothing, fieldlist)
counter = source.Select(Nothing,1, fieldlist)
Msgbox counter
Dim index As Long
If (counter = 0) Then
Messagebox ("No records returned by R/3")
Exit Sub
End If
' %%%%%%%%%%%%%%%%% Setting values in LN %%%%%%%%%%%%%%%%%
Set db = ses.CurrentDatabase
Set filteredview = db.GetView ("StaticDetailsViewLookup")
' Dim counter As Integer
counter=1
Dim SearchField As LCField
Dim UpdateField As LCField
While(source.Fetch(fieldlist)>0)
Set field1 = fieldlist.lookup("I_SITEDTLSITEID")
Set field2 = fieldlist.lookup("I_SITEDTLPROJPH")
Set field3 = fieldlist.lookup("I_SITEDTLCIRCLE")
Set field4 = fieldlist.lookup("I_SITEDTLSDCA")
Set field5 = fieldlist.lookup("I_SITEDTLLDCA")
Set field6 = fieldlist.lookup("I_SITEDTLLATI")
Set field7 = fieldlist.lookup("I_SITEDTLZLONG")
Set field8 = fieldlist.lookup("I_SITEDTLSIT_NAM")
Set field9 = fieldlist.lookup("I_SITEDTLDIST")
Set field10 = fieldlist.lookup("I_SITEDTLTOWN")
Set field11 = fieldlist.lookup("I_SITEDTLSIT_OWNR")
Set field12 = fieldlist.lookup("I_SITEDTLTWR_TYP")
Set field13 = fieldlist.lookup("I_SITEDTLTRP_TYP")
Set field14 = fieldlist.lookup("I_SITEDTLCITY_TYP")
Set field15 = fieldlist.lookup("I_SITEDTLSLTR_SIZE")
Set field16 = fieldlist.lookup("I_SITEDTLPROJ_CLSTR")
Set field17 = fieldlist.lookup("I_SITEDTLCTO_NAM")
Set field18 = fieldlist.lookup("I_SITEDTLCPL_NAM")
Set field19 = fieldlist.lookup("I_SITEDTLSUBPHASE")
Set field20 = fieldlist.lookup("I_SITEDTLTWR_CODE")
Set field21 = fieldlist.lookup("I_SITEDTLSHLTR_TYP")
Set field22 = fieldlist.lookup("I_SITEDTLDGCAP")
Set field23 = fieldlist.lookup("I_SITEDTLPACCAP")
Set field24 = fieldlist.lookup("I_SITEDTLSMPSR_CAP")
Set field25 = fieldlist.lookup("I_SITEDTLSMPSMDL_CAP")
Set field26 = fieldlist.lookup("I_SITEDTLBTRY_CAP")
Set field27 = fieldlist.lookup("I_SITEDTLBTRY_BNKS")
Set field28 = fieldlist.lookup("I_SITEDTLSEBPOWER")
Set field29 = fieldlist.lookup("I_SITEDTLBUSI_CLSTR")
Set field30 = fieldlist.lookup("I_SITEDTLCMM")
Set field31 = fieldlist.lookup("I_SITEDTLCIR_COMM_HD")
Set field32 = fieldlist.lookup("I_SITEDTLTWR_HT")
Set field33 = fieldlist.lookup("I_SITEDTLFS_DATE")
Set field34 = fieldlist.lookup("I_SITEDTLFAC_ID")
Set field35 = fieldlist.lookup("I_SITEDTLOPR_NAM")
Set field36 = fieldlist.lookup("I_SITEDTLVLDTFRM")
Set field37 = fieldlist.lookup("I_SITEDTLVLDTTO")
Set field38 = fieldlist.lookup("I_SITEDTLTRP_NAM")
Set field39 = fieldlist.lookup("I_SITEDTLSPC_USE1")
Set field40 = fieldlist.lookup("I_SITEDTLSPC_USE2")
Set field41 = fieldlist.lookup("I_SITEDTLWLS_TECH")
Set field42 = fieldlist.lookup("I_SITEDTLWLN_TECH")
Set field43 = fieldlist.lookup("I_SITEDTLBTSTYPE")
Set field44 = fieldlist.lookup("I_SITEDTLBTSLOAD")
Set field45 = fieldlist.lookup("I_SITEDTLBTS_MM")
Set field46 = fieldlist.lookup("I_SITEDTLBTS_U")
Set field47 = fieldlist.lookup("I_SITEDTLELCTRN_TYP")
Set field48 = fieldlist.lookup("I_SITEDTLELECTRN_LD")
Set field49 = fieldlist.lookup("I_SITEDTLELECN_MM")
Set field50 = fieldlist.lookup("I_SITEDTLELECN_U")
Set field51 = fieldlist.lookup("I_SITEDTLANT_TYP")
Set field52 = fieldlist.lookup("I_SITEDTLANT_MNT_HGT")
Set field53 = fieldlist.lookup("I_SITEDTLANT_PTN_TWR")
Set field54 = fieldlist.lookup("I_SITEDTLNO_ANT")
Set field55 = fieldlist.lookup("I_SITEDTLDG_CAP")
Set field56 = fieldlist.lookup("I_SITEDTLPAC_CAP")
Set field57 = fieldlist.lookup("I_SITEDTLSMPSM_CAP")
Set field58 = fieldlist.lookup("I_SITEDTLBAT_CAP")
Set field59 = fieldlist.lookup("I_SITEDTLBAT_BNK")
Set field60 = fieldlist.lookup("I_SITEDTLWHT_ANTE")
Set field61 = fieldlist.lookup("I_SITEDTLNO_PAC")
Set field62 = fieldlist.lookup("I_SITEDTLSEB_NAM")
Set field63 = fieldlist.lookup("I_SITEDTLTOT_LOAD")
Set field64 = fieldlist.lookup("I_SITEDTLAVG_CONS")
Set field65 = fieldlist.lookup("I_SITEDTLBTS_RFRQ")
Set field66 = fieldlist.lookup("I_SITEDTLSUP_CARR")
Set field67 = fieldlist.lookup("I_SITEDTLCARR_USED")
Set field68 = fieldlist.lookup("I_SITEDTLMAXC_BTS")
Set field69 = fieldlist.lookup("I_SITEDTLDGCAPAVAIL")
Set field70 = fieldlist.lookup("I_SITEDTLPACCAPAVAI")
Set field71 = fieldlist.lookup("I_SITEDTLSMPSCAPAVAIL")
Set field72 = fieldlist.lookup("I_SITEDTLBATTCAPAVAIL")
Set field73 = fieldlist.lookup("I_SITEDTLTOTLCAPAVAIL")
Set field74 = fieldlist.lookup("I_SITEDTLOPERATORCNT")
Set field75 = fieldlist.lookup("I_SITEDTLTOWERSTATUS")
Set field76 = fieldlist.lookup("I_SITEDTLCRFCOUNT")
Set field77 = fieldlist.lookup("I_SITEDTLUPD_FLG")
key = Ucase$(field1.Text (0))
'Msgbox key
Set srcdoc = filteredview.GetDocumentByKey (key)
If Not (srcdoc Is Nothing) Then
' If (field3.Text (0) <> srcdoc.field2(0) Or field4.Text (0) <> srcdoc.field3(0) Or field5.Text (0) <> srcdoc.field4(0) Or field6.Text (0) <> srcdoc.field5(0) Or field7.Text (0) <> srcdoc.field6(0) Or field8.Text (0) <> srcdoc.field7(0) Or field9.Text (0) <> srcdoc.field8(0) Or field10.Text (0) <> srcdoc.field9(0) Or field11.Text (0) <> srcdoc.field10(0) Or field12.Text (0) <> srcdoc.field11(0)) Then
If field2.Text(0) <> srcdoc.field2(0) Then
srcdoc.Phase = field2.Text(0)
End If
If field3.Text(0) <> srcdoc.field3(0) Then
srcdoc.Circle = field3.Text(0)
End If
If field4.Text(0) <> srcdoc.field2(0) Then
srcdoc.SDCA = field4.Text(0)
End If
If field5.Text(0) <> srcdoc.field2(0) Then
srcdoc.LDCA = field5.Text(0)
End If
If field6.Text(0) <> srcdoc.field2(0) Then
srcdoc.Lattitude = field6.Text(0)
End If
If field7.Text(0) <> srcdoc.field2(0) Then
srcdoc.Longitude = field7.Text(0)
End If
If field8.Text(0) <> srcdoc.field2(0) Then
srcdoc.SiteName = field8.Text(0)
End If
If field9.Text(0) <> srcdoc.field2(0) Then
srcdoc.District = field9.Text(0)
End If
If field10.Text(0) <> srcdoc.field2(0) Then
srcdoc.Town = field10.Text(0)
End If
If field11.Text(0) <> srcdoc.field2(0) Then
srcdoc.SiteOwner = field11.Text(0)
End If
If field12.Text(0) <> srcdoc.field2(0) Then
srcdoc.TowerType = field12.Text(0)
End If
If field13.Text(0) <> srcdoc.field2(0) Then
srcdoc.TransportType = field13.Text(0)
End If
If field14.Text(0) <> srcdoc.field2(0) Then
srcdoc.CityType = field14.Text(0)
End If
If field15.Text(0) <> srcdoc.field2(0) Then
srcdoc.ShelterSize = field15.Text(0)
End If
If field16.Text(0) <> srcdoc.field2(0) Then
srcdoc.TechnicalCluster = field16.Text(0)
End If
If field17.Text(0) <> srcdoc.field2(0) Then
srcdoc.CTOName = field17.Text(0)
End If
If field18.Text(0) <> srcdoc.field2(0) Then
srcdoc.CPLName = field18.Text(0)
End If
If field19.Text(0) <> srcdoc.field2(0) Then
srcdoc.SubPhase = field19.Text(0)
End If
If field20.Text(0) <> srcdoc.field2(0) Then
srcdoc.TowerCode = field20.Text(0)
End If
If field21.Text(0) <> srcdoc.field2(0) Then
srcdoc.ShelterType = field21.Text(0)
End If
If field22.Text(0) <> srcdoc.field2(0) Then
srcdoc.DGCapacity = field22.Text(0)
End If
If field23.Text(0) <> srcdoc.field2(0) Then
srcdoc.PACCapacity = field23.Text(0)
End If
If field24.Text(0) <> srcdoc.field2(0) Then
srcdoc.SMPSRackCapacity = field24.Text(0)
End If
If field25.Text(0) <> srcdoc.field2(0) Then
srcdoc.SMPSModuleCapacity = field25.Text(0)
End If
If field26.Text(0) <> srcdoc.field2(0) Then
srcdoc.BatteryAhCapacity = field26.Text(0)
End If
If field27.Text(0) <> srcdoc.field2(0) Then
srcdoc.BatteryNoOfBank = field27.Text(0)
End If
If field28.Text(0) <> srcdoc.field2(0) Then
srcdoc.SEBPower = field28.Text(0)
End If
If field29.Text(0) <> srcdoc.field2(0) Then
srcdoc.BusinessCluster = field29.Text(0)
End If
If field30.Text(0) <> srcdoc.field2(0) Then
srcdoc.CMM = field30.Text(0)
End If
If field31.Text(0) <> srcdoc.field2(0) Then
srcdoc.CircleCommercialHead = field31.Text(0)
End If
If field32.Text(0) <> srcdoc.field2(0) Then
srcdoc.TowerHeight = field32.Text(0)
End If
If field33.Text(0) <> srcdoc.field2(0) Then
srcdoc.ActFinDate = field33.Text(0)
End If
If field34.Text(0) <> srcdoc.field2(0) Then
srcdoc.FacilityID = field34.Text(0)
End If
If field35.Text(0) <> srcdoc.field2(0) Then
srcdoc.TenantName = field35.Text(0)
End If
If field36.Text(0) <> srcdoc.field2(0) Then
srcdoc.OpeValidFrom = field36.Text(0)
End If
If field37.Text(0) <> srcdoc.field2(0) Then
srcdoc.OpeValidTo = field37.Text(0)
End If
If field38.Text(0) <> srcdoc.field2(0) Then
srcdoc.CapTransSite = field38.Text(0)
End If
If field39.Text(0) <> srcdoc.field2(0) Then
srcdoc.OccuSpace6 = field39.Text(0)
End If
If field40.Text(0) <> srcdoc.field2(0) Then
srcdoc.OccuSpace7 = field40.Text(0)
End If
If field41.Text(0) <> srcdoc.field2(0) Then
srcdoc.TechbyWireless = field41.Text(0)
End If
If field42.Text(0) <> srcdoc.field2(0) Then
srcdoc.TechbyWireline = field42.Text(0)
End If
If field43.Text(0) <> srcdoc.field2(0) Then
srcdoc.TypeofBTS = field43.Text(0)
End If
If field44.Text(0) <> srcdoc.field2(0) Then
srcdoc.ElecLoadbyBTS = field44.Text(0)
End If
If field45.Text(0) <> srcdoc.field2(0) Then
srcdoc.FloorOccuBTSmm = field45.Text(0)
End If
If field46.Text(0) <> srcdoc.field2(0) Then
srcdoc.FloorOccuBTSu = field46.Text(0)
End If
If field47.Text(0) <> srcdoc.field2(0) Then
srcdoc.ElecEquip = field47.Text(0)
End If
If field48.Text(0) <> srcdoc.field2(0) Then
srcdoc.ElecLoadbyElectron = field48.Text(0)
End If
If field49.Text(0) <> srcdoc.field2(0) Then
srcdoc.FloorOccubyElecmm = field49.Text(0)
End If
If field50.Text(0) <> srcdoc.field2(0) Then
srcdoc.FloorOccubyElecu = field50.Text(0)
End If
If field51.Text(0) <> srcdoc.field2(0) Then
srcdoc.TowerAntennaType = field51.Text(0)
End If
If field52.Text(0) <> srcdoc.field2(0) Then
srcdoc.AntennaHeightmts = field52.Text(0)
End If
If field53.Text(0) <> srcdoc.field2(0) Then
srcdoc.AntennaMountSlot = field53.Text(0)
End If
If field54.Text(0) <> srcdoc.field2(0) Then
srcdoc.AntennaNoMountSlot = field54.Text(0)
End If
If field55.Text(0) <> srcdoc.field2(0) Then
srcdoc.DGCapbyOper = field55.Text(0)
End If
If field56.Text(0) <> srcdoc.field2(0) Then
srcdoc.ACCapbyOpe = field56.Text(0)
End If
If field57.Text(0) <> srcdoc.field2(0) Then
srcdoc.SMPSModCapbyOpe = field57.Text(0)
End If
If field58.Text(0) <> srcdoc.field2(0) Then
srcdoc.BatteryCapAh = field58.Text(0)
End If
If field59.Text(0) <> srcdoc.field2(0) Then
srcdoc.BatteryBankNo = field59.Text(0)
End If
If field60.Text(0) <> srcdoc.field2(0) Then
srcdoc.TotAntennaWgt = field60.Text(0)
End If
If field61.Text(0) <> srcdoc.field2(0) Then
srcdoc.PACTotNo = field61.Text(0)
End If
If field62.Text(0) <> srcdoc.field2(0) Then
srcdoc.SEBName = field62.Text(0)
End If
If field63.Text(0) <> srcdoc.field2(0) Then
srcdoc.TotSiteLoad = field63.Text(0)
End If
If field64.Text(0) <> srcdoc.field2(0) Then
srcdoc.MonthlyAvgCons = field64.Text(0)
End If
If field65.Text(0) <> srcdoc.field2(0) Then
srcdoc.BTSRadiateFreq = field65.Text(0)
End If
If field66.Text(0) <> srcdoc.field2(0) Then
srcdoc.CarrierSupBTS = field66.Text(0)
End If
If field67.Text(0) <> srcdoc.field2(0) Then
srcdoc.CarrierUsedBTS = field67.Text(0)
End If
If field68.Text(0) <> srcdoc.field2(0) Then
srcdoc.BTSMaxCap = field68.Text(0)
End If
If field69.Text(0) <> srcdoc.field2(0) Then
srcdoc.DGCapafterUtil = field69.Text(0)
End If
If field70.Text(0) <> srcdoc.field2(0) Then
srcdoc.PACCapafterUtil = field70.Text(0)
End If
If field71.Text(0) <> srcdoc.field2(0) Then
srcdoc.SMPSCapafterUtil = field71.Text(0)
End If
If field72.Text(0) <> srcdoc.field2(0) Then
srcdoc.BattCapafterUtil = field72.Text(0)
End If
If field73.Text(0) <> srcdoc.field2(0) Then
srcdoc.TotCapafterUtil = field73.Text(0)
End If
If field74.Text(0) <> srcdoc.field2(0) Then
srcdoc.OperatorCount = field74.Text(0)
End If
If field75.Text(0) <> srcdoc.field2(0) Then
srcdoc.TowerProgOrErect = field75.Text(0)
End If
If field76.Text(0) <> srcdoc.field2(0) Then
srcdoc.CRFUnderProcess = field76.Text(0)
End If
'If field77.Text(0) <> srcdoc.field2(0) Then
'srcdoc.UpdateFlag = field77.Text(0)
srcdoc.UpdateFlag = "Y"
'End If
'field1.Flags = LCFIELDF_KEY
'field77.Text="Y"
'Call source.Update(fieldlist)
'Call source.Update(fieldlist, counter,1)
Set SearchField=Updatefieldlist.Append("I_SITEDTLSITEID",LCTYPE_NUMERIC)
SearchField.Flags=LCFIELDF_KEY
SearchField.Value=field1.Text
Msgbox "Key to update is "+ Cstr(field1.Text(0))
Set UpdateField=Updatefieldlist.Append("I_SITEDTLUPD_FLG",LCTYPE_TEXT)
UpdateField.Value="Y"
Call Updatesource.Update(Updatefieldlist)
Call srcdoc.Save(True,False)
Else
Set pulleddoc = db.CreateDocument
pulleddoc.Form = "PreConstructionStaticDetails"
pulleddoc.SiteID = field1.Text(0)
pulleddoc.Phase = field2.Text(0)
pulleddoc.Circle = field3.Text(0)
pulleddoc.SDCA = field4.Text(0)
pulleddoc.LDCA = field5.Text(0)
pulleddoc.Lattitude = field6.Text(0)
pulleddoc.Longitude = field7.Text(0)
pulleddoc.SiteName = field8.Text(0)
pulleddoc.District = field9.Text(0)
pulleddoc.Town = field10.Text(0)
pulleddoc.SiteOwner = field11.Text(0)
pulleddoc.TowerType = field12.Text(0)
pulleddoc.TransportType = field13.Text(0)
pulleddoc.CityType = field14.Text(0)
pulleddoc.ShelterSize = field15.Text(0)
pulleddoc.TechnicalCluster = field16.Text(0)
pulleddoc.CTOName = field17.Text(0)
pulleddoc.CPLName = field18.Text(0)
pulleddoc.SubPhase = field19.Text(0)
pulleddoc.TowerCode = field20.Text(0)
pulleddoc.ShelterType = field21.Text(0)
pulleddoc.DGCapacity = field22.Text(0)
pulleddoc.PACCapacity = field23.Text(0)
pulleddoc.SMPSRackCapacity = field24.Text(0)
pulleddoc.SMPSModuleCapacity = field25.Text(0)
pulleddoc.BatteryAhCapacity = field26.Text(0)
pulleddoc.BatteryNoOfBank = field27.Text(0)
pulleddoc.SEBPower = field28.Text(0)
pulleddoc.BusinessCluster = field29.Text(0)
pulleddoc.CMM = field30.Text(0)
pulleddoc.CircleCommercialHead = field31.Text(0)
pulleddoc.TowerHeight = field32.Text(0)
pulleddoc.ActFinDate = field33.Text(0)
pulleddoc.FacilityID = field34.Text(0)
pulleddoc.TenantName = field35.Text(0)
pulleddoc.OpeValidFrom = field36.Text(0)
pulleddoc.OpeValidTo = field37.Text(0)
pulleddoc.CapTransSite = field38.Text(0)
pulleddoc.OccuSpace6 = field39.Text(0)
pulleddoc.OccuSpace7 = field40.Text(0)
pulleddoc.TechbyWireless = field41.Text(0)
pulleddoc.TechbyWireline = field42.Text(0)
pulleddoc.TypeofBTS = field43.Text(0)
pulleddoc.ElecLoadbyBTS = field44.Text(0)
pulleddoc.FloorOccuBTSmm = field45.Text(0)
pulleddoc.FloorOccuBTSu = field46.Text(0)
pulleddoc.ElecEquip = field47.Text(0)
pulleddoc.ElecLoadbyElectron = field48.Text(0)
pulleddoc.FloorOccubyElecmm = field49.Text(0)
pulleddoc.FloorOccubyElecu = field50.Text(0)
pulleddoc.TowerAntennaType = field51.Text(0)
pulleddoc.AntennaHeightmts = field52.Text(0)
pulleddoc.AntennaMountSlot = field53.Text(0)
pulleddoc.AntennaNoMountSlot = field54.Text(0)
pulleddoc.DGCapbyOper = field55.Text(0)
pulleddoc.ACCapbyOpe = field56.Text(0)
pulleddoc.SMPSModCapbyOpe = field57.Text(0)
pulleddoc.BatteryCapAh = field58.Text(0)
pulleddoc.BatteryBankNo = field59.Text(0)
pulleddoc.TotAntennaWgt = field60.Text(0)
pulleddoc.PACTotNo = field61.Text(0)
pulleddoc.SEBName = field62.Text(0)
pulleddoc.TotSiteLoad = field63.Text(0)
pulleddoc.MonthlyAvgCons = field64.Text(0)
pulleddoc.BTSRadiateFreq = field65.Text(0)
pulleddoc.CarrierSupBTS = field66.Text(0)
pulleddoc.CarrierUsedBTS = field67.Text(0)
pulleddoc.BTSMaxCap = field68.Text(0)
pulleddoc.DGCapafterUtil = field69.Text(0)
pulleddoc.PACCapafterUtil = field70.Text(0)
pulleddoc.SMPSCapafterUtil = field71.Text(0)
pulleddoc.BattCapafterUtil = field72.Text(0)
pulleddoc.TotCapafterUtil = field73.Text(0)
pulleddoc.OperatorCount = field74.Text(0)
pulleddoc.TowerProgOrErect = field75.Text(0)
pulleddoc.CRFUnderProcess = field76.Text(0)
'pulleddoc.UpdateFlag = field77.Text(0)
pulleddoc.UpdateFlag = "Y"
'End If
'field77.text="Y"
'Call source.Update(fieldlist, counter,1)
Set SearchField=Updatefieldlist.Append("I_SITEDTLSITEID",LCTYPE_NUMERIC)
SearchField.Flags=LCFIELDF_KEY
SearchField.Value=field1.Text
Msgbox "Key to update is "+ Cstr(field1.Text(0))
Set UpdateField=Updatefieldlist.Append("I_SITEDTLUPD_FLG",LCTYPE_TEXT)
UpdateField.Value="Y"
Call Updatesource.Update(Updatefieldlist)
'Updatesource.Action(LCACTION_COMMIT)
Call pulleddoc.Save(True,False)
End If
'Set Updatefieldlist=Nothing
Wend
'Call source.Update(fieldlist)
Updatesource.Action(LCACTION_COMMIT)
updatesource.Disconnect
source.Disconnect
Exit Sub
errorhandler:
Updatesource.Action(LCACTION_COMMIT)
updatesource.Disconnect
source.Disconnect
Print "Get SAP - " & Str(Err) & ": " & Error$ + ". (onLine " & Str(Erl) & ").",,"Error"
Msgbox "Get SAP - " & Str(Err) & ": " & Error$ + ". (onLine " & Str(Erl) & ").",,"Error"
If session.status <> LCSUCCESS Then
Messagebox Session.GetStatusText
End If
'Resume Next
Exit Sub
End Sub
Return to top
Update each record in LCfieldlist i... (The Capable 23.May.08)
. . 
Print this page
