Compras pago deudores otros egresos ingresos, correciones efacturas, correciones redireccion anexo auxiliar 119, inicio ver inconcistencias en acciones

OS/OrdenesServicios.aspx.vb

@@ -73,6 +73,10 @@ Partial Class OS_OrdenesServicios
     End Property
     Private Property CveOS As Integer
         Get
+            If ViewState("CveOS") Is Nothing Then
+                ViewState("CveOS") = -1
+            End If
+
             Return ViewState("CveOS").ToString.ToEntero
         End Get
         Set(value As Integer)
@@ -367,8 +371,14 @@ Partial Class OS_OrdenesServicios
                 DVDatosAdicionalesAcum1.Visible = True
                 DVDatosAdicionalesAcum2.Visible = True
                 DVDatosAdicionalesAcum3.Visible = True
+
+                If CveOS = -1 Then
+                    CargaCliente(-1, 1, True)
+                End If
+
+
             Else
-                LblCuentaEquipoTH.Visible = False
+                    LblCuentaEquipoTH.Visible = False
                 DdlCuentaEquipo.Visible = False
             End If
 
@@ -377,6 +387,8 @@ Partial Class OS_OrdenesServicios
 
     End Sub
 
+
+
 #Region "DDL'S "
     Protected Sub DdlPSDetalle_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlPSDetalle.SelectedIndexChanged
         If CveCliente > 0 OrElse DdlPSDetalle.SelectedValue = "-2" Then
@@ -759,12 +771,26 @@ Partial Class OS_OrdenesServicios
             DdlPS.ddl.Items.Insert(0, New ListItem("Seleccione el Producto", "-1"))
         End If
     End Sub
-    Private Sub CargaCliente(CveCliente As Integer, Optional Estatus As Integer = 1)
+    Private Sub CargaCliente(CveCliente As Integer, Optional Estatus As Integer = 1, Optional CargaPublicoGeneral As Boolean = False)
+
+
+
         Dim ObjCliente As New ClsClientes()
 
-        If ObjCliente.GetClientes(CveCliente, "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa, Estatus) Then
+        Dim NombreCliente As String = "-1"
+
+
+        If CargaPublicoGeneral Then
+            NombreCliente = "PUBLICO EN GENERAL"
+        End If
+
+        If ObjCliente.GetClientes(CveCliente, NombreCliente, "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa, Estatus) Then
             If ObjCliente.DtResultados.Rows.Count > 0 Then
 
+                If CargaPublicoGeneral Then
+                    CveCliente = ObjCliente.CveCliente
+                End If
+
                 TxtCodigo.Text = ObjCliente.Codigo
                 LblCliente.Text = String.Format("<a Class=""Texto"" href=""/Ventas/Clientes.aspx?CveCliente={0}"">{1}</a>", CveCliente, ObjCliente.Nombre)
                 NombreCliente = ObjCliente.Nombre
@@ -777,6 +803,8 @@ Partial Class OS_OrdenesServicios
                 ClienteRFC = ObjCliente.RFC
                 ClienteMail = ObjCliente.Mail
 
+
+
                 If ObjCliente.GetSucursales(CveCliente) Then
                     DdlSucursalCliente.DataSource = ObjCliente.DtResultados
                     DdlClienteSucursalCuenta.DataSource = ObjCliente.DtResultados