Merge branch 'master' of http://jperez@192.168.10.111:8383/SIG.git

Ventas/Ventas.aspx.vb

@@ -4345,6 +4345,11 @@ Partial Class Ventas
         DdlFormaPago33.DataSource = dtt
         DdlFormaPago33.SelectedValue = dtt.FiltroPrimeroValor("CveFormaPago", "")
         DdlFormaPago33.DataBind()
+
+        DdlFormaCliente.DataSource = GlobalDTVtaFormaPago
+        DdlFormaCliente.DataBind()
+        DdlMetodoCliente.DataSource = GlobalDTVtaMetodoPago
+        DdlMetodoCliente.DataBind()
         'End If
     End Sub
     Private Sub CargaUsoCFDI()
@@ -4500,6 +4505,8 @@ Partial Class Ventas
                 EnviarCorreoCliente = ObjCliente.EnviarFactura
                 EstatusCliente = ObjCliente.Estatus
 
+                LnkAgregarCliente.Visible = False
+
                 ClienteEsDistribuidor = Boolean.Parse(ObjCliente.DtResultados.Rows(0)("EsDistribuidor").ToString)
 
                 If EstatusCliente = False And Not DdlTipoComprobante.SelectedValue.Contiene("Cot", "DPe") And (CveVenta <= 0 Or EsCreaApartirDe) Then
@@ -16398,6 +16405,97 @@ Partial Class Ventas
         VerificarContrato()
     End Sub
 
+    Private Sub LnkAgregarCliente_Click(sender As Object, e As EventArgs) Handles LnkAgregarCliente.Click
+        DivNombreCliente.Visible = False
+        DivDireccionCliente.Visible = False
+        DivNumeroCPCliente.Visible = False
+        DivColoniaTelefonoCliente.Visible = False
+        DivCiudadLocalidadCliente.Visible = False
+        DivEstadoPaisCliente.Visible = False
+        DivCorreoCuentaCliente.Visible = False
+        DivBotonesAgregarCliente.Visible = False
+        DivFormaCliente.Visible = False
+        UpAgregarCliente.Update()
+
+        RegistraScript("showDivEC();")
+    End Sub
+
+    Private Sub BtnValidarRFC_Click(sender As Object, e As EventArgs) Handles BtnValidarRFC.Click
+
+        If TxtRFCCliente.Text = "XAXX010101000" Then
+            DivNombreCliente.Visible = True
+            DivDireccionCliente.Visible = True
+            DivNumeroCPCliente.Visible = True
+            DivColoniaTelefonoCliente.Visible = True
+            DivCiudadLocalidadCliente.Visible = True
+            DivEstadoPaisCliente.Visible = True
+            DivCorreoCuentaCliente.Visible = True
+            DivBotonesAgregarCliente.Visible = True
+            DivFormaCliente.Visible = True
+
+            RFVDireccionC.Visible = False
+            RFVNoEC.Visible = False
+            RFVColoniaC.Visible = False
+            RFVCiudadC.Visible = False
+            RFVLocalidadC.Visible = False
+            RFVEstadoC.Visible = False
+            RFVPaisC.Visible = False
+
+            DdlMetodoCliente.SelectedValueExist(1)
+            DdlFormaCliente.SelectedValueExist(1)
+        Else
+            Dim ObjCliente As New ClsClientes
+            If ObjCliente.ValidaClienteRFC(TxtRFCCliente.Text, UsuarioActual.CveEmpresa) Then
+                If ObjCliente.DtResultados.Rows.Count > 0 Then
+                    RegistraScript("hideDivEC();")
+                    ViewState("CveCliente") = ObjCliente.DtResultados(0)("CveCliente").ToString.ToEntero
+                    HdnCveCliente.Value = ObjCliente.DtResultados(0)("CveCliente").ToString
+                    CargaCliente(CveCliente)
+                    UpCliente.Update()
+                Else
+                    DivNombreCliente.Visible = True
+                    DivDireccionCliente.Visible = True
+                    DivNumeroCPCliente.Visible = True
+                    DivColoniaTelefonoCliente.Visible = True
+                    DivCiudadLocalidadCliente.Visible = True
+                    DivEstadoPaisCliente.Visible = True
+                    DivCorreoCuentaCliente.Visible = True
+                    DivBotonesAgregarCliente.Visible = True
+                    DivFormaCliente.Visible = True
+                End If
+            End If
+            ObjCliente.Dispose()
+
+            RFVDireccionC.Visible = True
+            RFVNoEC.Visible = True
+            RFVColoniaC.Visible = True
+            RFVCiudadC.Visible = True
+            RFVLocalidadC.Visible = True
+            RFVEstadoC.Visible = True
+            RFVPaisC.Visible = True
+
+            DdlMetodoCliente.SelectedValueExist(-1)
+            DdlFormaCliente.SelectedValueExist(-1)
+
+        End If
+
+    End Sub
+
+    Private Sub BtnAgregarCliente_Click(sender As Object, e As EventArgs) Handles BtnAgregarCliente.Click
+        Dim ObjCliente As New ClsClientes
+
+        If ObjCliente.AgregarClienteNoFrecuente(TxtNombreCliente.Text.Trim, TxtDireccionCliente.Text.Trim, TxtNumExtCliente.Text.Trim, TxtNumIntCliente.Text.Trim, TxtColoniaCliente.Text.Trim, TxtLocalidadCliente.Text.Trim, TxtCiudadCliente.Text.Trim, TxtEstadoCliente.Text.Trim, TxtPaisCliente.Text.Trim, TxtRFCCliente.Text.Trim, TxtCPCliente.Text.Trim, TxtTelefonoCliente.Text.Trim, TxtCorreoCliente.Text.Trim, DdlSubProyectoDatos.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, "") Then
+            If ObjCliente.DtResultados.Rows.Count > 0 Then
+                RegistraScript("hideDivEC();")
+                ViewState("CveCliente") = ObjCliente.DtResultados(0)("CveCliente").ToString.ToEntero
+                HdnCveCliente.Value = ObjCliente.DtResultados(0)("CveCliente").ToString
+                CargaCliente(CveCliente)
+                UpCliente.Update()
+            End If
+        End If
+
+        ObjCliente.Dispose()
+    End Sub
 
 #End Region