From c44c8b201046324024ded69038f2bacd8f430af4 Mon Sep 17 00:00:00 2001
From: rakcsle <rakcsle.rakcsle@gmail.com>
Date: Wed, 3 Jan 2024 17:29:01 -0700
Subject: [PATCH 1/4] SMS Agregar OS link desde ventas, de ventas a OS

---
 OS/OrdenesServicios.aspx.vb | 91 +++++++++++++++++++++++++++----------
 Ventas/Ventas.aspx          |  4 ++
 Ventas/Ventas.aspx.vb       |  5 ++
 3 files changed, 76 insertions(+), 24 deletions(-)

diff --git a/OS/OrdenesServicios.aspx.vb b/OS/OrdenesServicios.aspx.vb
index c6b9bed20..a6f85520c 100644
--- a/OS/OrdenesServicios.aspx.vb
+++ b/OS/OrdenesServicios.aspx.vb
@@ -718,39 +718,82 @@ Partial Class OS_OrdenesServicios
     Private Sub CargaVenta()
         Dim ObjVentas As New ClsVentas
         If ObjVentas.GetVenta(CveCotizacion, UsuarioActual.CveEmpresa) Then
+
             If ObjVentas.DtResultados IsNot Nothing AndAlso ObjVentas.DtResultados.Rows.Count > 0 Then
-                'Carga Cliente
+
                 ViewState("CveCliente") = ObjVentas.DtResultados.Rows(0)("CveCliente").ToString.ToEntero
                 CargaCliente(CveCliente)
-            End If
-            If ObjVentas.GetVentaDetalle(CveCotizacion) Then
-                Dim Cons As Integer = 1
-                For Each dr As DataRow In ObjVentas.DtResultados.Rows
+
+
+                Dim Drow As DataRow = ObjVentas.DtResultados.Rows(0)
+                If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then
+                    TxtDescripcion.Text = Drow("SerieFolio").ToString
+                    TxtSolicito.Text = UsuarioActual.Nombre
+                    DdlMedico.SelectedValueExist(Drow("CveMedico").ToString)
+                    DdlProcedimiento.SelectedValueExist(Drow("CveProcedimiento").ToString)
+                    DdlTipoVenta.SelectedValueExist(Drow("CveTipoVenta").ToString)
+                    DdlSubProyecto.SelectedValueExist(Drow("CveSubProyecto").ToString)
+
+                    'If dr("CveTipoPS").ToString.ToEntero = 2 Then
+
+                    Dim CvePSDetalle As Integer = UsuarioActual.Empresa.Funcionalidad(708).ToEntero
+                    Dim CodigoPS As String = GlobalDTPS(UsuarioActual.CveEmpresa).FiltroPrimeroValor("PSCodigo", $"CvePS={CvePSDetalle}")
+
+                    TxtFechaCita.Text = NowADS.ToString("yyyy-MM-dd HH:mm:ss").Replace(" ", "T")
+
                     Dim drt As DataRow = TmpDT.NewRow
+                    drt("Consecutivo") = 1
+                    drt("CveOSDetalle") = -1
+                    drt("CvePS") = CvePSDetalle
+                    drt("PS") = CodigoPS
+                    drt("Cantidad") = 1
+                    drt("Observaciones") = $"Venta: {Drow("SerieFolio").ToString}"
 
-                    If dr("CveTipoPS").ToString.ToEntero = 2 Then
-                        drt("Consecutivo") = Cons
-                        drt("CveOSDetalle") = -1
-                        drt("CvePS") = dr("CvePS")
-                        drt("PS") = dr("PS")
-                        drt("Cantidad") = dr("Cantidad")
-                        drt("Observaciones") = dr("Obs")
-                        drt("SeFacturara") = True
-                        drt("SeSuperviso") = False
-                        drt("Archivo") = -1
-                        drt("CveCuentaEquipo") = "-1"
-                        drt("CuentaEquipoMostrar") = "Cuentas y/o Equipos"
-                        drt("Especificaciones") = "-1"
+                    drt("SeFacturara") = True
+                    drt("SeSuperviso") = False
+                    drt("Archivo") = -1
+                    drt("CveCuentaEquipo") = "-1"
+                    drt("CuentaEquipoMostrar") = ""
+                    drt("Especificaciones") = "-1"
 
-                        TmpDT.Rows.Add(drt)
-                        Cons = Cons + 1
-                    Else
+                    TmpDT.Rows.Add(drt)
 
+                    GvPS.DataSource = TmpDT
+                    GvPS.DataBind()
+
+                Else
+                    If ObjVentas.GetVentaDetalle(CveCotizacion) Then
+
+                        Dim Cons As Integer = 1
+                        For Each dr As DataRow In ObjVentas.DtResultados.Rows
+                            Dim drt As DataRow = TmpDT.NewRow
+
+                            If dr("CveTipoPS").ToString.ToEntero = 2 Then
+                                drt("Consecutivo") = Cons
+                                drt("CveOSDetalle") = -1
+                                drt("CvePS") = dr("CvePS")
+                                drt("PS") = dr("PS")
+                                drt("Cantidad") = dr("Cantidad")
+                                drt("Observaciones") = dr("Obs")
+                                drt("SeFacturara") = True
+                                drt("SeSuperviso") = False
+                                drt("Archivo") = -1
+                                drt("CveCuentaEquipo") = "-1"
+                                drt("CuentaEquipoMostrar") = "Cuentas y/o Equipos"
+                                drt("Especificaciones") = "-1"
+
+                                TmpDT.Rows.Add(drt)
+                                Cons = Cons + 1
+
+
+                            End If
+
+                        Next
+                        GvPS.DataSource = TmpDT
+                        GvPS.DataBind()
                     End If
+                End If
 
-                Next
-                GvPS.DataSource = TmpDT
-                GvPS.DataBind()
             End If
             'CargaDetalle
         End If
diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx
index 9230532b8..23cd3a4d6 100644
--- a/Ventas/Ventas.aspx
+++ b/Ventas/Ventas.aspx
@@ -380,6 +380,10 @@
 <%--            <li>
                 <asp:LinkButton ID="LnkCancelarSoloCFDI" Visible="false" runat="server" data-toggle="confirmation" data-popout="true" data-original-title="¿Seguro que desea cancelar el CFDI?" data-btn-ok-label="si" OnClick="LnkCancelarSoloCFDI_Click"><i class="fa fa-plus"></i>Cancelar solo CFDI</asp:LinkButton>
             </li>--%>
+
+             <li>
+                <asp:HyperLink ID="HLFAgregarOS" Target="_blank" runat="server" Visible="false"> <i class="fa fa-plus"></i> Agregar Orden de Servicio</asp:HyperLink>
+            </li>
         </ContentTemplate>
         <Triggers>
             <asp:AsyncPostBackTrigger ControlID="LnkImprimir" EventName="Click" />
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 21e92a0b3..6ebec172b 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -3397,6 +3397,11 @@ Partial Class Ventas
                 End If
             End If
 
+            If CveVenta >= 0 AndAlso UsuarioActual.Empresa.Funcionalidad(578).ToEntero = 1 Then
+                HLFAgregarOS.Visible = True
+                HLFAgregarOS.NavigateUrl = $"/OS/OrdenesServicios.aspx?CveVenta={CveVenta}"
+            End If
+
         End If
 
 

From dc3cf90302bfe5a672002afaa71563a8247e4b8e Mon Sep 17 00:00:00 2001
From: rakcsle <rakcsle.rakcsle@gmail.com>
Date: Wed, 3 Jan 2024 20:32:57 -0700
Subject: [PATCH 2/4] SMS Clientes Suscursales agregar DdlAlamcen

---
 Ventas/Clientes.aspx    | 14 +++++------
 Ventas/Clientes.aspx.vb | 56 +++++++++++++++++++++++++++--------------
 2 files changed, 43 insertions(+), 27 deletions(-)

diff --git a/Ventas/Clientes.aspx b/Ventas/Clientes.aspx
index 893ba9fe4..902d3a21a 100644
--- a/Ventas/Clientes.aspx
+++ b/Ventas/Clientes.aspx
@@ -1751,6 +1751,7 @@
                                                         <asp:Button ID="BtnCargaCxC" runat="server" ClientIDMode="Static" Text="CargaCxC" Style="display: none;" OnClick="BtnCargaCxC_Click" />
                                                         <div class="row">
                                                             <div class="col-md-6">
+
                                                                 <div class="row">
                                                                     <div class="col-md-6">
                                                                         <div class="form-group form-md-line-input input-iconright">
@@ -1867,7 +1868,6 @@
                                                             </div>
 
                                                             <div class="col-md-6">
-
                                                                 <div class="form-group form-md-line-input">
                                                                     <asp:TextBox ID="TxtCobranzaContacto" CssClass="form-control" runat="server" MaxLength="50"></asp:TextBox>
                                                                     <label for="<%= TxtCobranzaContacto.ClientID.ToString()%>">Nombre Contacto de Pagos: </label>
@@ -1906,10 +1906,6 @@
                                                                     </div>
                                                                 </div>
 
-
-
-
-
                                                                 <div class="row">
                                                                     <div class="col-md-6">
                                                                         <div class="form-group form-md-line-input">
@@ -5200,7 +5196,7 @@
                                     </div>
                                 </div>
 
-                                <div class="row" >
+                                <div class="row"  style="padding-left: 16px;">
                                     <div class="form-group form-md-line-input input-iconright col-xs-6">
                                         <asp:TextBox ID="TxtCorreoSucursal" CssClass="form-control" runat="server" MaxLength="300" CausesValidation="true"></asp:TextBox>
                                         <asp:RegularExpressionValidator ID="RegularExpressionValidator1" runat="server" CssClass="help-block errorimput" ValidationExpression="(([a-zA-Z0-9_\-\.]+)@((\[[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.)|(([a-zA-Z0-9\-]+\.)+))([a-zA-Z]{2,4}|[0-9]{1,3})(\]?)(\s*;\s*|\s*$))*" ControlToValidate="TxtCorreoSucursal" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Email''</b> no es válido, por favor ingrése uno correcto." ValidationGroup="GrpGuardarSucursal"></asp:RegularExpressionValidator>
@@ -5215,7 +5211,7 @@
                                         <i></i>
                                     </div>
                                 </div>
-                                 <div class="row" >
+                                 <div class="row"  style="padding-left: 16px;" >
                                     <div class="form-group form-md-line-input input-iconright col-xs-6">
                                         <asp:TextBox ID="TxtContactoSucursal" CssClass="form-control" runat="server" MaxLength="300" CausesValidation="true"></asp:TextBox>
                                         <label for="<%= TxtContactoSucursal.ClientID.ToString()%>">Contacto:</label>
@@ -5283,7 +5279,9 @@
                                 </div>
 
                                 <div class="row" style="padding-left: 16px">
-                                     <div class="form-group form-md-line-input input-iconright col-xs-6">
+                                     <div class="form-group form-md-line-input input-iconright col-xs-6" runat="server" id="DvAlmacenSucursal" visible="false">
+                                         <asp:DropDownList runat="server" ID="ddlAlmacenSucursal" DataTextField="Almacen" DataValueField="CveAlmacen" CssClass="form-control select2me" Width="100%"></asp:DropDownList>
+                                         <label for="<%=ddlAlmacenSucursal.ClientID.ToString()%>">Almacén:</label>
                                     </div>
                                     <div class="form-group form-md-line-input input-iconright col-xs-6">
                                         <div id="DivEstatusSucursal" visible="false" runat="server" class="form-group form-md-line-input input-iconright col-xs-12">
diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb
index 9a6b8334a..d6b1fc0c8 100644
--- a/Ventas/Clientes.aspx.vb
+++ b/Ventas/Clientes.aspx.vb
@@ -661,17 +661,7 @@ Partial Class Clientes
     End Property
 
 
-    Property CveAlmacenAsignadoSucursal As Integer
-        Get
-            If ViewState("CveAlmacenAsignadoSucursal") Is Nothing Then
-                ViewState("CveAlmacenAsignadoSucursal") = -1
-            End If
-            Return ViewState("CveAlmacenAsignadoSucursal").ToString().ToEntero()
-        End Get
-        Set(value As Integer)
-            ViewState("CveAlmacenAsignadoSucursal") = value
-        End Set
-    End Property
+
 
 
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
@@ -2583,8 +2573,9 @@ Partial Class Clientes
                             For Each Row As DataRow In TempDTSucursales.Rows
                                 If Not CveCliente > 0 Then
 
-                                    Dim CveAlmacenAsignadoSucursal As Integer = -1
-                                    If DdlTipoCliente.SelectedValue.ToEntero = 1 AndAlso UsuarioActual.Empresa.Funcionalidad(404) = "30" AndAlso UsuarioActual.Empresa.Funcionalidad(578) = "1" Then
+                                    Dim CveAlmacenAsignadoSucursal As Integer = If(Row("CveAlmacenAsignado").ToString().ToEntero <= 0, -1, Row("CveAlmacenAsignado").ToString().ToEntero)
+
+                                    If DdlTipoCliente.SelectedValue.ToEntero = 1 AndAlso UsuarioActual.Empresa.Funcionalidad(404) = "30" AndAlso UsuarioActual.Empresa.Funcionalidad(578) = "1" AndAlso CveAlmacenAsignadoSucursal <= -1 Then
                                         CveAlmacenAsignadoSucursal = GeneraGuardaAlmacenAsignadoSucursal(Row("SucursalCliente").ToString(), ObjClientes.IniciaTransacSQL())
                                         If Not CveAlmacenAsignadoSucursal > 0 Then
                                             ErrorProceso = True
@@ -3005,14 +2996,26 @@ Partial Class Clientes
         DivEstatusSucursal.Visible = False
         TxtNumeroCuenta.Text = ""
         DdlMetodoPagoSucursal.SelectedIndex = 0
-        CveAlmacenAsignadoSucursal = -1
+        ddlAlmacenSucursal.SelectedValueExist("-1")
         UpAgregarSucursal.Update()
         Me.CveClienteSuc = -1
         Me.Actualizar = False
         txtLg.Text = ""
         txtLt.Text = ""
-        HDMAPOP.Value = "2"
-
+        HDMAPOP.Value = "2"
+
+        If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then
+            DvAlmacenSucursal.Visible = True
+            ddlAlmacenSucursal.Items.Clear()
+            ddlAlmacenSucursal.ClearSelection()
+            ddlAlmacenSucursal.SelectedValue = Nothing
+            ddlAlmacenSucursal.DataSource = GlobalDTAlmacen(UsuarioActual.CveEmpresa)
+            ddlAlmacenSucursal.DataBind()
+        End If
+
+        ddlAlmacenSucursal.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
+        ddlAlmacenSucursal.SelectedValueExist("-1")
+
         UpModalDivMapa.Update()
 
 
@@ -3053,7 +3056,7 @@ Partial Class Clientes
             Dim ObjCliente As New ClsClientes
             ObjCliente.IniciaTransacSQL()
 
-            If CveAlmacenAsignadoSucursal <= 0 AndAlso DdlTipoCliente.SelectedValue.ToEntero = 1 AndAlso UsuarioActual.Empresa.Funcionalidad(404) = "30" AndAlso UsuarioActual.Empresa.Funcionalidad(578) = "1" Then
+            If ddlAlmacenSucursal.SelectedValue.ToEntero <= 0 AndAlso DdlTipoCliente.SelectedValue.ToEntero = 1 AndAlso UsuarioActual.Empresa.Funcionalidad(404) = "30" AndAlso UsuarioActual.Empresa.Funcionalidad(578) = "1" Then
                 CveAlmacenAgregadoSucursal = GeneraGuardaAlmacenAsignadoSucursal(TxtNombreSucursal.Text.Trim, ObjCliente.IniciaTransacSQL())
                 If Not CveAlmacenAgregadoSucursal > 0 Then
                     ProcesoOK = False
@@ -3214,7 +3217,7 @@ Partial Class Clientes
         Me.Actualizar = True
         'Me.DivRFCSucursal.Visible = False
         Me.CveClienteSuc = GVSucursales.DataKeys(e.NewEditIndex).Value.ToString().ToEntero()
-        CveAlmacenAsignadoSucursal = -1
+        ddlAlmacenSucursal.SelectedValueExist("-1")
 
         Dim ObjCliente As New ClsClientes
 
@@ -3254,7 +3257,20 @@ Partial Class Clientes
             txtLt.Text = ObjCliente.DtResultados.Rows(0)("LT").ToString()
             HDMAPOP.Value = "2"
 
-            CveAlmacenAsignadoSucursal = ObjCliente.DtResultados.Rows(0)("CveAlmacenAsignado").ToString().ToEntero
+            If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then
+                DvAlmacenSucursal.Visible = True
+                ddlAlmacenSucursal.Items.Clear()
+                ddlAlmacenSucursal.ClearSelection()
+                ddlAlmacenSucursal.SelectedValue = Nothing
+                ddlAlmacenSucursal.DataSource = GlobalDTAlmacen(UsuarioActual.CveEmpresa)
+                ddlAlmacenSucursal.DataBind()
+                ddlAlmacenSucursal.Items.Add(New ListItem("Seleccione uno", "-1"))
+                ddlAlmacenSucursal.SelectedValueExist(ObjCliente.DtResultados.Rows(0)("CveAlmacenAsignado").ToString())
+            End If
+
+
+
+
 
 
             UpAgregarSucursal.Update()
@@ -5537,6 +5553,8 @@ Partial Class Clientes
         RowSucursal("LT") = If(txtLt.Text.ToDouble <> 0, txtLt.Text, "0")
         RowSucursal("LG") = If(txtLg.Text.ToDouble <> 0, txtLg.Text, "0")
 
+        RowSucursal("CveAlmacenAsignado") = ddlAlmacenSucursal.SelectedValue.ToEntero
+
         TempDTSucursales.Rows.Add(RowSucursal)
 
         GVSucursales.DataSource = TempDTSucursales

From 5cee00fde0a1a72609a46ee4c87cfa0bba255d7f Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Thu, 4 Jan 2024 07:32:35 -0700
Subject: [PATCH 3/4] -

---
 App_Code/ClsClientes.vb  |  2 +-
 App_Code/ClsGenerales.vb | 11 ++---------
 2 files changed, 3 insertions(+), 10 deletions(-)

diff --git a/App_Code/ClsClientes.vb b/App_Code/ClsClientes.vb
index 1722b4293..60f56f1b0 100644
--- a/App_Code/ClsClientes.vb
+++ b/App_Code/ClsClientes.vb
@@ -1830,7 +1830,7 @@ Public Class ClsClientes
             SqlAdapter.Fill(Data)
             Retorno = True
         Catch ex As Exception
-            OnError("Ocurrió un error al obtener las diferencias.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+            OnError("Ocurrió un error al obtener nombre de corporativos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
         End Try
 
         Return Retorno
diff --git a/App_Code/ClsGenerales.vb b/App_Code/ClsGenerales.vb
index e1eb9a7be..b287f64dc 100644
--- a/App_Code/ClsGenerales.vb
+++ b/App_Code/ClsGenerales.vb
@@ -3824,7 +3824,6 @@ Public Class ClsGenerales
         End Try
         Return Retorno
     End Function
-
     Public Function CancelarTimbreTimbrado(CveTimbre As Integer, FechaCancelacion As DateTime, CvePACCancelacion As Integer, SelloCancelacion As String, CveUsuario As Integer, CveEmpresa As Integer) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Gral_TimbreTimbradoCancelar")
@@ -3846,10 +3845,7 @@ Public Class ClsGenerales
             OnError("Ocurrió un error al actualizar el timbrado", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
         End Try
         Return Retorno
-    End Function
-
-
-
+    End Function
     Public Function RemoveGralTimbre(CveTimbre As Integer, CveEmpresa As Integer) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Gral_TimbreRemove")
@@ -3868,9 +3864,7 @@ Public Class ClsGenerales
         Return Retorno
     End Function
 
-    Public Function GetGralMovimientosDetalleTimbre(CveTimbre As Integer, CveEmpresa As Integer) As Boolean
-
-
+    Public Function GetGralMovimientosDetalleTimbre(CveTimbre As Integer, CveEmpresa As Integer) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Gral_MovimientosDetalleTimbreGet")
 
@@ -3887,7 +3881,6 @@ Public Class ClsGenerales
         End Try
 
         Return Retorno
-
     End Function
 
     Public Function AddInvEntregaAlmacenRuta(CveSubProyecto As Integer, CveDireccionOrigen As Integer, CveDireccionDestino As Integer, CveMovimientoAlmacen As Integer, CveChofer As Integer, CveCamion As Integer, FechaEntrega As Date, FechaLlegada As DateTime, Tipo As String,

From 79cf13882999b7df126cbf91cb10b7540bc9dd23 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Thu, 4 Jan 2024 07:33:48 -0700
Subject: [PATCH 4/4] -mejora

---
 Ventas/Clientes.aspx    | 2 +-
 Ventas/Clientes.aspx.vb | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/Ventas/Clientes.aspx b/Ventas/Clientes.aspx
index 893ba9fe4..d4bab2030 100644
--- a/Ventas/Clientes.aspx
+++ b/Ventas/Clientes.aspx
@@ -473,7 +473,7 @@
                                             </div>
                                             <div class="col-md-6 ">
                                                 <div class="form-group form-md-line-input">
-                                                    <asp:TextBox ID="TxtNombreCorto" runat="server" CssClass="form-control" MaxLength="10"></asp:TextBox>
+                                                    <asp:TextBox ID="TxtNombreCorto" runat="server" CssClass="form-control" MaxLength="30"></asp:TextBox>
                                                     <label for="<%= TxtNombreCorto.ClientID.ToString()%>">Nombre Corto: </label>
 
                                                 </div>
diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb
index 9a6b8334a..33a9c419b 100644
--- a/Ventas/Clientes.aspx.vb
+++ b/Ventas/Clientes.aspx.vb
@@ -10526,7 +10526,7 @@ Partial Class Clientes
         Dim CveAlmacenAgregado As Integer = -1
         Dim ObjInv As New ClsInventarios(transaccionSQL)
         Dim nombreAlamacenLibre As Boolean = True
-        Dim ProcesoValidaAlamcenOF = True
+        Dim ProcesoValidaAlamcenOF As Boolean = True
 
         If ObjInv.GetAlmacenes(-1, -1, UsuarioActual.CveEmpresa, -1) Then
             nombreAlamacenLibre = If(ObjInv.DtResultados.FiltraParametros($" Almacen = '{NombreAlmacen}'").Rows.Count > 0, False, True)