Reorden

PrototipoAfip/Form1.vb

@@ -5,6 +5,17 @@
         End If
     End Sub
 
+    Private l As LoginClass
+    Private url As String = "https://wsaahomo.afip.gov.ar/ws/services/LoginCms"
+    Private Sub LoginBtn_Click(sender As Object, e As EventArgs) Handles LoginBtn.Click
+        l = New LoginClass(ServicioTX.Text, url, CertificadoTX.Text, ClaveTX.Text)
+        l.hacerLogin()
+        guardar_params()
+    End Sub
+
+    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        cargar_params()
+    End Sub
     Private Sub guardar_params()
         My.Settings.def_cert = CertificadoTX.Text
         My.Settings.def_pass = ClaveTX.Text
@@ -21,14 +32,6 @@
         url = My.Settings.def_url
     End Sub
 
-    Private l As LoginClass
-    Private Sub LoginBtn_Click(sender As Object, e As EventArgs) Handles LoginBtn.Click
-        l = New LoginClass(ServicioTX.Text, url, CertificadoTX.Text, ClaveTX.Text)
-        l.hacerLogin()
-        guardar_params()
-    End Sub
-
-
     Private Sub VerTokenBtn_Click(sender As Object, e As EventArgs) Handles VerTokenBtn.Click
         LargeText.mostrarMensaje(l.Token)
     End Sub
@@ -47,17 +50,11 @@
         LargeText.mostrarMensaje(l.XDocResponse.ToString)
     End Sub
 
-    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
-        cargar_params()
-    End Sub
-
     Private Sub WSFE_BTN_Click(sender As Object, e As EventArgs) Handles WSFE_BTN.Click
         FacturaForm.Login = l
         FacturaForm.Show()
     End Sub
 
-    Private url As String
-
     Private Sub testing_rb_CheckedChanged(sender As Object, e As EventArgs) Handles testing_rb.CheckedChanged
         url = "https://wsaahomo.afip.gov.ar/ws/services/LoginCms"
     End Sub