تحديث نقل البيانات من النموذج الى صفحة الانترنت برنامج الكهرباء

[محمد احمد لطفى]

السلام عليكم ورحمة الله و بركاته

تم تحديث موقع  الكهرباء ابلاغ القراءة و معرفة الفاتورة و لم يعد ينقل البرنامج البيانات الى النموذج الفاتورة و ابلاغ اللقراءة كما كان فهل من مساعدة 

نقل الاسم
الرقم القومى 
البريد الاليكترونى
المنطقة 
اليومية
الحساب
فرعى
القراءة الحالية

 

وجزاكم الله خيراً
 

 

كهرباء 2022.rar

تم تعديل نوفمبر 11, 2022 بواسطه محمد احمد لطفى

[محمد احمد لطفى]

للتوضيح نقل البيانات تتم عن طريق زرار F و 2
 

[أبو إبراهيم الغامدي]

وعليكم السلام ورحمة الله وبركاته

أهلا @محمد احمد لطفى

Sub FillWebData()
On Error Resume Next

  Dim F As HTMLFormElement
   
  Set F = WD.Forms("aspnetform")
  F("ctl00$Main$txtMain").Value = Me.Parent("حساب")
  F("ctl00$Main$txtName").Value = Me.Parent("الاسم")
  If WD.querySelectorAll("#ctl00_HeadContent_handasa > option").Length = 0 Then
    F("ctl00_HeadContent_governmentCMB").Value = "1"
    F("ctl00_HeadContent_governmentCMB").OnChange
  End If

  F("ctl00$Main$txtCurrentRead").Value = Me("حالية")
  F("ctl00$Main$txtDay").Value = Me.Parent("يومية")
  F("ctl00$Main$txtNationalID").Value = Me.Parent("IDPerson")
  F("ctl00$Main$txtManteka").Value = Me.Parent("منطقة")
  F("ctl00$Main$txtFary").Value = Me.Parent("فرعى")
  F("ctl00$Main$txtPhone").Value = Me.Parent("mobile")
  F("ctl00$Main$txtEmail").Value = Me.Parent("email")
  
  
  ' ctl00$HeadContent$tel
  '-- Solution of handasa field
  Do Until SetValue(WD, "461"): DoEvents: Loop
  '-----------------------------
  
End Sub


Sub DisplayFatorah()
On Error Resume Next
  Dim F As HTMLFormElement
   
  Set F = WD1.Forms("aspnetform")
    F("ctl00_HeadContent_DropDownList2").Value = "1"
  If WD1.querySelectorAll("#ctl00_HeadContent_DropDownList1 > option").Length = 0 Then
    
    F("ctl00_HeadContent_governmentCMB").Value = "1"
    F("ctl00_HeadContent_governmentCMB").OnChange
  End If
  F("ctl00$Main$txtManteka").Value = Me.Parent("منطقة")
  F("ctl00$Main$txtDay").Value = Me.Parent("يومية")
  F("ctl00$Main$txtMain").Value = Me.Parent("حساب")
  F("ctl00$Main$txtFary").Value = Me.Parent("فرعى")
    
  '-- Solution of handasa field
  Do Until SetValue(WD1, "461"): DoEvents: Loop
  '-----------------------------
End Sub

غير اسم النموذج في كلا الإجرائين إلى Forms("form1") بدلا من Forms("aspnetform")

[محمد احمد لطفى]

جزاك الله خيراُ أستاذى @أبو إبراهيم الغامدي