From 834ff3a647770058a1108ce90ba69b0bdf1d721c Mon Sep 17 00:00:00 2001 From: Guillermo Marel Date: Tue, 21 Nov 2017 11:42:10 -0300 Subject: [PATCH] Reorden --- PrototipoAfip/Form1.vb | 25 +++++++++++-------------- 1 file changed, 11 insertions(+), 14 deletions(-) diff --git a/PrototipoAfip/Form1.vb b/PrototipoAfip/Form1.vb index f564fa8..66f5faa 100644 --- a/PrototipoAfip/Form1.vb +++ b/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