Merge branch 'master' of http://192.168.10.111:8383/SIG

App_Code/ClsClientes.vb

@@ -444,23 +444,6 @@ Public Class ClsClientes
     End Function
 
 
-    Public Function RegistrarCliente(CveCliente As Integer) As Boolean
-        Dim Retorno As Boolean = False
-
-        DataAdapter("PA_ClientesRegistrar")
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
-        End With
-
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al Registrar el Cliente.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-        End Try
-
-        Return Retorno
-    End Function
     'Public Function VincularCuentasContables(Id0CtaContClientes As Integer, Id0CtaContAnticipos As Integer, Id0CtaContRetIVA As Integer, Id0CtaContRetISR As Integer, CveCliente As Integer, Optional Id0CtaContComplementaria As Integer = -1, Optional Id0CtaContMonedaExtranjera As Integer = -1, Optional Id0CtaContMonedaExtranjeraAnticipos As Integer = -1, Optional Id0CtaContCompAnticipos As Integer = -1) As Boolean
 
     '    Dim Retorno As Boolean = False
@@ -954,6 +937,24 @@ Public Class ClsClientes
         End Try
         Return Retorno
     End Function
+    Public Function GetClienteSucursales(CveCliente As Integer, CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_Vta_ClienteSucursalesGet")
+        SqlAdapter.SelectCommand.Parameters.Add("@CveCliente", SqlDbType.Int).Value = CveCliente
+        SqlAdapter.SelectCommand.Parameters.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener el las Sucursales del Cliente.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+
+
     Public Function GetSucursales(CveCliente As Integer, Optional CveClienteSucursal As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
 
@@ -1830,7 +1831,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

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,

App_Code/ClsInventarios.vb

@@ -4,6 +4,7 @@ Imports System.Data
 Imports System.Data.SqlClient
 Imports Extensiones
 Imports Microsoft.Web.XmlTransform
+Imports Telerik.Web.UI.ComboBox.ComboBoxStyles
 
 Public Class ClsInventarios
     Implements IDisposable
@@ -1375,7 +1376,8 @@ Public Class ClsInventarios
         Return Retorno
     End Function
     Public Function UpdateMovimientoDetalle(Cantidad As Decimal, CveUM As Integer, CvePS As Integer, PU As Decimal, CveAF As Integer, CveMovimientoDetalle As Integer, Optional CveSeccionAlmacen As Integer = -1, Optional Serie As String = "",
-                                            Optional Observaciones As String = "-1", Optional PUTC As Decimal = -1, Optional CveUsuarioModifico As Integer = -1, Optional CveCultivoCuadroDetalle As Integer = -1) As Boolean
+                                            Optional Observaciones As String = "-1", Optional PUTC As Decimal = -1, Optional CveUsuarioModifico As Integer = -1, Optional CveCultivoCuadroDetalle As Integer = -1,
+                                            Optional Lote As String = "", Optional FechaCaducidad As Date = MinFecha) As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_Inv_MovimientosDetalleUpdate")
@@ -1393,6 +1395,8 @@ Public Class ClsInventarios
             .Add("@Observaciones", SqlDbType.VarChar).Value = Observaciones
             .Add("@CveUsuarioModifico", SqlDbType.Int).Value = CveUsuarioModifico
             .Add("@CveCultivoCuadroDetalle", SqlDbType.Int).Value = CveCultivoCuadroDetalle
+            .Add("@Lote", SqlDbType.VarChar).Value = Lote
+            .Add("@FechaCaducidad", SqlDbType.Date).Value = FechaCaducidad
         End With
 
         Try

App_Code/ClsOS.vb

@@ -464,7 +464,7 @@ Public Class ClsOS
 
 #Region "ClsOSOrdenesServicios"
     'Reporte de Ventas
-    Public Function GetRepOrdenesServicio(FechaI As String, FechaF As String, FechaTerminado As String, CveCliente As Integer, CveSubProyecto As Integer, CveUsuarioRecibio As Integer, CveTecnico As Integer,
+    Public Function GetRepOrdenesServicio(FechaI As Date, FechaF As Date, FechaTerminado As String, CveCliente As Integer, CveSubProyecto As Integer, CveUsuarioRecibio As Integer, CveTecnico As Integer,
                                           CveEstatusOrdenServicio As Integer, CveEmpresa As Integer, Optional Opcion As Integer = -1, Optional CveUsuarioAsignado As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
 
@@ -472,8 +472,8 @@ Public Class ClsOS
 
         With SqlAdapter.SelectCommand.Parameters
             '.Add("@CveVenta", SqlDbType.Int).Value = CveVenta
-            .Add("@FechaI", SqlDbType.VarChar).Value = FechaI
+            .Add("@FechaI", SqlDbType.Date).Value = FechaI
-            .Add("@FechaF", SqlDbType.VarChar).Value = FechaF
+            .Add("@FechaF", SqlDbType.Date).Value = FechaF
             .Add("@FechaTerminado", SqlDbType.VarChar).Value = FechaTerminado
             .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
             .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto

App_Code/ClsPaginas.vb

@@ -5883,6 +5883,9 @@ Public Class ClsPaginas
 
                     If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then
                         params.Add(New ReportParameter("Documentacion", Vta.Cliente.Documentacion))
+                        params.Add(New ReportParameter("Medico", Vta.Medico))
+                        params.Add(New ReportParameter("Procedimiento", Vta.Procedimiento))
+                        params.Add(New ReportParameter("FechaCirugia", Vta.FechaEjecucion.ToString("dd/MM/yyyy hh:mm")))
                     End If
 
                     RutaFormato = String.Format("{0}Formatos\{1}.rdlc", UsuarioActual.Empresa.Ruta, NombreArchivo)
@@ -5988,6 +5991,9 @@ Public Class ClsPaginas
 
                     If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then
                         params.Add(New ReportParameter("Documentacion", Vta.Cliente.Documentacion))
+                        params.Add(New ReportParameter("Medico", Vta.Medico))
+                        params.Add(New ReportParameter("Procedimiento", Vta.Procedimiento))
+                        params.Add(New ReportParameter("FechaCirugia", Vta.Alfa1.ToDateTime.ToString("dd/MM/yyyy hh:mm")))
                     End If
 
                     RutaFormato = String.Format("{0}Formatos\{1}.rdlc", UsuarioActual.Empresa.Ruta, NombreArchivo)

App_Code/ClsVentas.vb

@@ -406,7 +406,7 @@ Public Class ClsVentas
     End Function
 
     Public Function AddVenta(TipoDocto As String, FolioFact As Integer, CveCliente As Integer, CveClienteSucursal As Integer, SubTotal As Double, Descuento As Double, Amortizacion As Double, IVA As Double, RetIVA As Double, RetISR As Double, Total As Double,
-                             CveMoneda As Integer, TipoCambio As Double, CveMetodoPago As Integer, CondicionesPago As Integer, FormaPago As Integer, FechaVencimiento As DateTime, Fecha As DateTime, MotivoDescuento As String, Observaciones As String, FechaEjecucion As Date,
+                             CveMoneda As Integer, TipoCambio As Double, CveMetodoPago As Integer, CondicionesPago As Integer, FormaPago As Integer, FechaVencimiento As DateTime, Fecha As DateTime, MotivoDescuento As String, Observaciones As String, FechaEjecucion As DateTime,
                              CveVendedor As Integer, Alfa1 As String, Alfa2 As String, Alfa3 As String, Num1 As Double, Num2 As Double, Num3 As Double,
                              Fech1 As Date, Fech2 As Date, Fech3 As Date, CveCorte As Integer, NumeroPersonas As Integer, CvePrePoliza As Integer, CveUsuario As Integer, CveEmpresa As Integer,
                              Optional Propina As Double = -1, Optional CveVentaTerminal As Integer = -1, Optional AtencionA As String = "-1", Optional CveContrato As Integer = -1,
@@ -448,7 +448,7 @@ Public Class ClsVentas
             .Add("@Fecha", SqlDbType.DateTime).Value = Fecha
             .Add("@MotivoDescuento", SqlDbType.VarChar).Value = MotivoDescuento
             .Add("@Observaciones", SqlDbType.VarChar).Value = Observaciones
-            .Add("@FechaEjecucion", SqlDbType.Date).Value = FechaEjecucion
+            .Add("@FechaEjecucion", SqlDbType.DateTime).Value = FechaEjecucion
             .Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor
             .Add("@Alfa1", SqlDbType.VarChar).Value = Alfa1
             .Add("@Alfa2", SqlDbType.VarChar).Value = Alfa2

App_Code/Modelos.vb

@@ -7671,7 +7671,9 @@ Namespace Modelos
         Public Property CveEstatus As Integer
         Public Property GenerarPDFFactura As Boolean = False
         Public Property CveMedico As Integer = -1
+        Public Property Medico As String = ""
         Public Property CveProcedimiento As Integer = -1
+        Public Property Procedimiento As String = ""
         Public Property CveTipoVenta As Integer = -1
 #End Region
 

Compras/PopUpVerFactura.aspx.vb

@@ -3084,12 +3084,16 @@ Partial Class PopUpVerFactura
                 Vta.Cliente.UsaProductoAlterno = CBool(dtVentas(0)("UsaProductoAlterno"))
                 Vta.Cliente.Documentacion = dtVentas(0)("Documentacion").ToString
 
+                Vta.Medico = dtVentas(0)("Medico").ToString
+                Vta.Procedimiento = dtVentas(0)("Procedimiento").ToString
+                Vta.Alfa1 = dtVentas(0)("Alfa1").ToString
+                Vta.FechaEjecucion = dtVentas(0)("FechaEjecucion").ToString.ToDateTime
+
                 Vta.RefDocto = dtVentas(0)("Ref").ToString
                 Vta.CveVenta = dtVentas(0)("CveVenta").ToString.ToEntero
                 Vta.NumeroCuenta = dtVentas(0)("NumCtaPago").ToString
                 Vta.Version = dtVentas(0)("CFDIVersion").ToString
 
-
                 Vta.NumeroContrato = dtVentas(0)("NumeroContrato").ToString
                 Vta.DescripcionContrato = dtVentas(0)("DescripcionContrato").ToString
                 Vta.NumeroDescripcionContrato = If($"{dtVentas(0)("NumeroContrato").ToString} - {dtVentas(0)("NumeroLicitacion").ToString}" = " - ", "", $"{dtVentas(0)("NumeroContrato").ToString} {If(dtVentas(0)("NumeroLicitacion").ToString = "", "", $" - Licitación: {dtVentas(0)("NumeroLicitacion").ToString}")}")

Compras/RepCxP.aspx

@@ -504,6 +504,24 @@
                      </ItemTemplate>
                      <ItemStyle HorizontalAlign="Right" />
                  </asp:TemplateField>
+                 <asp:TemplateField Visible="false">
+                     <HeaderTemplate>
+                         Ret IVA Pend
+                     </HeaderTemplate>
+                     <ItemTemplate>
+                         <asp:Label CssClass="TextoGris" ID="LtlRETIVA" runat="server" Text='<%# Eval("RetIVAPendiente", "{0:N2}") %>'></asp:Label>
+                     </ItemTemplate>
+                     <ItemStyle HorizontalAlign="Right" />
+                 </asp:TemplateField>
+                <asp:TemplateField Visible="false">
+                    <HeaderTemplate>
+                        Ret ISR Pend
+                    </HeaderTemplate>
+                    <ItemTemplate>
+                        <asp:Label CssClass="TextoGris" ID="LtlRETISR" runat="server" Text='<%# Eval("RetISRPendiente", "{0:N2}") %>'></asp:Label>
+                    </ItemTemplate>
+                    <ItemStyle HorizontalAlign="Right" />
+                </asp:TemplateField>
                 </Columns>
                 <RowStyle CssClass="Texto" />
                 <HeaderStyle CssClass="Titulos" />
@@ -532,7 +550,11 @@
                             <asp:CheckBox ID="ChkIVAP" runat="server" Text="" Checked="False" />
                             <label for="ChkIVAP">IVA Pendiente </label>
                             <br />
-                            <asp:CheckBox ID="ChkIEPSP" runat="server" Text="IEPS Pendiente" Checked="False" Visible="false" TextAlign="Right" />
+                            <asp:CheckBox ID="ChkIEPSP" runat="server" Text="&nbsp; IEPS Pendiente" Checked="False" Visible="false" TextAlign="Right" />
+                            <br />
+                            <asp:CheckBox ID="ChkRetIVAPendiente" runat="server" Text="&nbsp; Ret IVA Pendiente" Checked="False"  TextAlign="Right" />
+                            <br />
+                            <asp:CheckBox ID="ChkRetISRPendiente" runat="server" Text="&nbsp; Ret ISR Pendiente" Checked="False"   TextAlign="Right" />
                            
 
                         </div>

Compras/RepCxP.aspx.vb

@@ -1894,6 +1894,8 @@ Partial Class Compras_RepCxP
         ActivaColumna(23, ChkSubTotalP.Checked)
         ActivaColumna(24, ChkIVAP.Checked)
         ActivaColumna(25, ChkIEPSP.Checked)
+        ActivaColumna(26, ChkRetIVAPendiente.Checked)
+        ActivaColumna(27, ChkRetISRPendiente.Checked)
 
         If SePersonalizo = 1 Then
             ImgExcelPersonalizado.Visible = True

Compras/RepCxPDetalle.aspx

@@ -461,6 +461,24 @@
                          </ItemTemplate>
                          <ItemStyle HorizontalAlign="Right" />
                      </asp:TemplateField>
+                     <asp:TemplateField Visible="false">
+                         <HeaderTemplate>
+                             Ret IVA Pend
+                         </HeaderTemplate>
+                         <ItemTemplate>
+                             <asp:Label CssClass="TextoGris" ID="LtlRETIVA" runat="server" Text='<%# Eval("RetIVAPendiente", "{0:N2}") %>'></asp:Label>
+                         </ItemTemplate>
+                         <ItemStyle HorizontalAlign="Right" />
+                     </asp:TemplateField>
+                    <asp:TemplateField Visible="false">
+                        <HeaderTemplate>
+                            Ret ISR Pend
+                        </HeaderTemplate>
+                        <ItemTemplate>
+                            <asp:Label CssClass="TextoGris" ID="LtlRETISR" runat="server" Text='<%# Eval("RetISRPendiente", "{0:N2}") %>'></asp:Label>
+                        </ItemTemplate>
+                        <ItemStyle HorizontalAlign="Right" />
+                    </asp:TemplateField>
                 </Columns>
                 <RowStyle CssClass="Texto" /> 
             </asp:GridView>
@@ -527,6 +545,15 @@
                                                         <asp:CheckBox ID="ChkIEPSPend" runat="server" Text="&nbsp;IEPS Pendiente" Checked="false" Visible="false" /></td>                                           
                                                     <td style="text-align: left;"></td>
                                                 </tr>
+                                                 <tr>
+                                                        <td style="text-align: left;">
+                                                    <asp:CheckBox ID="ChkIEPSP" runat="server" Text="&nbsp; IEPS Pendiente" Checked="False" Visible="false" TextAlign="Right" />
+                                                        </td><td style="text-align: left;">
+                                                        <asp:CheckBox ID="ChkRetIVAPendiente" runat="server" Text="&nbsp; Ret IVA Pendiente" Checked="False"  TextAlign="Right" />
+                                                        </td><td style="text-align: left;">
+                                                        <asp:CheckBox ID="ChkRetISRPendiente" runat="server" Text="&nbsp; Ret ISR Pendiente" Checked="False"   TextAlign="Right" />
+                                                              </td>
+                                                 </tr>
                                             </table>
 
  

Compras/RepCxPDetalle.aspx.vb

@@ -325,7 +325,7 @@ Partial Class RepCxPDetalle
         CveTipoProveedor = IfNull(Request("CveTipoProveedor"), -1).ToString.ToEntero
         DdlTipoProveedor.SelectedValueExist(CveTipoProveedor)
 
-        Dim Comprobaciones = IfNull(Request("Comprobaciones"), -1).ToString.ToEntero
+        Dim Comprobaciones As Integer = IfNull(Request("Comprobaciones"), -1).ToString.ToEntero
         DdlComprobacion.SelectedValueExist(Comprobaciones)
 
 
@@ -565,6 +565,8 @@ Partial Class RepCxPDetalle
         ActivaColumna(17, ChkSubTotalPend.Checked)
         ActivaColumna(18, ChkIVAPend.Checked)
         ActivaColumna(19, ChkIEPSPend.Checked)
+        ActivaColumna(20, ChkRetIVAPendiente.Checked)
+        ActivaColumna(21, ChkRetISRPendiente.Checked)
 
         If SePersonalizo = 1 Then
             ImgExcelPersonalizado.Visible = True
@@ -590,7 +592,6 @@ Partial Class RepCxPDetalle
 #End Region
 
 #Region "IMPRESIONES"
-
     Protected Sub ImgExcel_Click(sender As Object, e As System.EventArgs) Handles ImgExcel.Click
         GenerarPDF("EXCEL")
     End Sub

Empresas/186/Formatos/Entradas.rdlc

@@ -402,7 +402,7 @@
                             <Paragraph>
                               <TextRuns>
                                 <TextRun>
-                                  <Value>Fecha Elaboración</Value>
+                                  <Value>Fecha Caducidad</Value>
                                   <Style>
                                     <FontSize>8pt</FontSize>
                                     <FontWeight>Bold</FontWeight>
@@ -437,6 +437,7 @@
                             <PaddingBottom>2pt</PaddingBottom>
                           </Style>
                         </Textbox>
+                        <rd:Selected>true</rd:Selected>
                       </CellContents>
                     </TablixCell>
                   </TablixCells>

Empresas/186/Formatos/Factura.mrt

@@ -647,11 +647,11 @@ AElFTkSuQmCC</ImageBytes>
                       <Name>PS</Name>
                       <Page isRef="7" />
                       <Parent isRef="26" />
-                      <Text>{DtDetalle.PSCalculado}</Text>
+                      <Text>{IIF(UsaProductoAlterno == "1",DtDetalle.CodigoPSAlterno,DtDetalle.PSCalculado)}</Text>
                       <TextBrush>Black</TextBrush>
                       <TextOptions>,,,,WordWrap=True,A=0</TextOptions>
                       <TextQuality>Wysiwyg</TextQuality>
-                      <Type>DataColumn</Type>
+                      <Type>Expression</Type>
                     </PS>
                     <PU Ref="32" type="Text" isKey="true">
                       <Brush>Transparent</Brush>
@@ -733,7 +733,7 @@ AElFTkSuQmCC</ImageBytes>
                     <Text20 Ref="40" type="Text" isKey="true">
                       <Brush>Transparent</Brush>
                       <CanGrow>True</CanGrow>
-                      <ClientRectangle>12.4,0,1.66,0.37</ClientRectangle>
+                      <ClientRectangle>12.6,0,1.46,0.37</ClientRectangle>
                       <Conditions isList="true" count="0" />
                       <Expressions isList="true" count="0" />
                       <Font>Myriad Pro,7.5,Regular,Point,False,0</Font>
@@ -1498,7 +1498,7 @@ Sello digital  del SAT:
         <Textbox20 Ref="91" type="Text" isKey="true">
           <Brush>Transparent</Brush>
           <CanGrow>True</CanGrow>
-          <ClientRectangle>-0.28,2,9.62,3.08</ClientRectangle>
+          <ClientRectangle>-0.25,2,9.62,3.08</ClientRectangle>
           <Conditions isList="true" count="0" />
           <Expressions isList="true" count="0" />
           <Font>Myriad Pro,9,Bold,Point,False,0</Font>
@@ -1542,8 +1542,8 @@ Regimen Fiscal Receptor: {ClienteRegimenFiscal}</Text>
   <ReportAlias>Factura</ReportAlias>
   <ReportChanged>12/22/2023 1:34:41 AM</ReportChanged>
   <ReportCreated>7/11/2022 2:49:19 PM</ReportCreated>
-  <ReportFile>Factura.mrt</ReportFile>
+  <ReportFile>F:\Proyectos\Empresas\186\Formatos\Factura.mrt</ReportFile>
-  <ReportGuid>fce72c3004184545a030083d08713120</ReportGuid>
+  <ReportGuid>5697d1e820c04b44b4aba72597e3ca27</ReportGuid>
   <ReportName>Factura</ReportName>
   <ReportUnit>Centimeters</ReportUnit>
   <ReportVersion>2022.4.5.0</ReportVersion>

Empresas/186/Formatos/NotaDevolucion.mrt

@@ -1030,7 +1030,7 @@ DESPUES DE 72 HORAS POSTERIORES A LA FECHA DE ELABORACIÓN"</Text>
                       <Type>Expression</Type>
                     </Textbox26>
                     <Panel7 Ref="61" type="Panel" isKey="true">
-                      <Border>Top, Bottom;[227:108:9];5;Solid;False;4;[227:108:9]</Border>
+                      <Border>Top, Bottom;[156:195:229];5;Solid;False;4;[227:108:9]</Border>
                       <Brush>Transparent</Brush>
                       <ClientRectangle>0.2,3.48,20.6,2.2</ClientRectangle>
                       <Components isList="true" count="6">

Empresas/186/Formatos/Pedido.mrt

@@ -54,7 +54,7 @@
     <Relations isList="true" count="0" />
     <Report isRef="0" />
     <Resources isList="true" count="0" />
-    <Variables isList="true" count="79">
+    <Variables isList="true" count="82">
       <value>ReportParameters,ClienteCodigo,ClienteCodigo,ReportParameter1,System.String,_x0030_2,False,False,True,False,_x003C__x003F_xml_x0020_version_x003D__x0022_1.0_x0022__x0020_encoding_x003D__x0022_utf-16_x0022__x0020_standalone_x003D__x0022_yes_x0022__x003F__x003E__x003C_StiSerializer_x0020_version_x003D__x0022_1.02_x0022__x0020_type_x003D__x0022_Net_x0022__x0020_application_x003D__x0022_State_x0022__x003E__x003C_SortDirection_x003E_None_x003C__x002F_SortDirection_x003E__x003C_BindingVariable_x0020_isNull_x003D__x0022_true_x0022__x0020__x002F__x003E__x003C_Keys_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C_Values_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C_CheckedStates_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C__x002F_StiSerializer_x003E_,_x0035_4a879e0a10d464ba2f01e0372efb9ca</value>
       <value>ReportParameters,ClienteTelefono,ClienteTelefono,ReportParameter1,System.String,,False,False,True,False,,_x0036_22a3a61b2f247a6ab5d7dc6c66568db</value>
       <value>ReportParameters,ClienteContacto,ClienteContacto,ReportParameter1,System.String,,False,False,True,False,,_x0035_c52eccfce4d4681a1c62017e690c7c1</value>
@@ -133,7 +133,10 @@
       <value>ReportParameters,TipoRelacionTexto,TipoRelacionTexto,ReportParameter1,System.String,,False,False,True,False,,_x0034_17b8382f8e448a5b21018e50590835b</value>
       <value>ReportParameters,FolioFiscalRelacionado,FolioFiscalRelacionado,ReportParameter1,System.String,,False,False,True,False,,_x0037_0c2d36e39d1464d821ac353ccaa2dcd</value>
       <value>ReportParameters,ClienteDireccion,ClienteDireccion,ReportParameter1,System.String,,False,False,True,False,,f18e5fd820754666994a9d3f995d50a7</value>
-      <value>ReportParameters,Documentacion,Documentacion,ReportParameter1,System.String,,False,False,True,False,_x003C__x003F_xml_x0020_version_x003D__x0022_1.0_x0022__x0020_encoding_x003D__x0022_utf-16_x0022__x0020_standalone_x003D__x0022_yes_x0022__x003F__x003E__x003C_StiSerializer_x0020_version_x003D__x0022_1.02_x0022__x0020_type_x003D__x0022_Net_x0022__x0020_application_x003D__x0022_State_x0022__x003E__x003C_DateTimeType_x003E_DateAndTime_x003C__x002F_DateTimeType_x003E__x003C_SortDirection_x003E_None_x003C__x002F_SortDirection_x003E__x003C_BindingVariable_x0020_isNull_x003D__x0022_true_x0022__x0020__x002F__x003E__x003C_Keys_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C_Values_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C_CheckedStates_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C__x002F_StiSerializer_x003E_</value>
+      <value>ReportParameters,Documentacion,Documentacion,ReportParameter1,System.String,,False,False,True,False,_x003C__x003F_xml_x0020_version_x003D__x0022_1.0_x0022__x0020_encoding_x003D__x0022_utf-16_x0022__x0020_standalone_x003D__x0022_yes_x0022__x003F__x003E__x003C_StiSerializer_x0020_version_x003D__x0022_1.02_x0022__x0020_type_x003D__x0022_Net_x0022__x0020_application_x003D__x0022_State_x0022__x003E__x003C_SortDirection_x003E_None_x003C__x002F_SortDirection_x003E__x003C_BindingVariable_x0020_isNull_x003D__x0022_true_x0022__x0020__x002F__x003E__x003C_Keys_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C_Values_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C_CheckedStates_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C_DateTimeType_x003E_DateAndTime_x003C__x002F_DateTimeType_x003E__x003C__x002F_StiSerializer_x003E_</value>
+      <value>ReportParameters,Medico,Medico,ReportParameter1,System.String,,False,False,True,False,_x003C__x003F_xml_x0020_version_x003D__x0022_1.0_x0022__x0020_encoding_x003D__x0022_utf-16_x0022__x0020_standalone_x003D__x0022_yes_x0022__x003F__x003E__x003C_StiSerializer_x0020_version_x003D__x0022_1.02_x0022__x0020_type_x003D__x0022_Net_x0022__x0020_application_x003D__x0022_State_x0022__x003E__x003C_SortDirection_x003E_None_x003C__x002F_SortDirection_x003E__x003C_BindingVariable_x0020_isNull_x003D__x0022_true_x0022__x0020__x002F__x003E__x003C_Keys_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C_Values_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C_CheckedStates_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C_DateTimeType_x003E_DateAndTime_x003C__x002F_DateTimeType_x003E__x003C_CheckedColumn_x003E_null_x003B__x003C__x002F_CheckedColumn_x003E__x003C__x002F_StiSerializer_x003E_</value>
+      <value>ReportParameters,Procedimiento,Procedimiento,ReportParameter1,System.String,,False,False,True,False,_x003C__x003F_xml_x0020_version_x003D__x0022_1.0_x0022__x0020_encoding_x003D__x0022_utf-16_x0022__x0020_standalone_x003D__x0022_yes_x0022__x003F__x003E__x003C_StiSerializer_x0020_version_x003D__x0022_1.02_x0022__x0020_type_x003D__x0022_Net_x0022__x0020_application_x003D__x0022_State_x0022__x003E__x003C_SortDirection_x003E_None_x003C__x002F_SortDirection_x003E__x003C_BindingVariable_x0020_isNull_x003D__x0022_true_x0022__x0020__x002F__x003E__x003C_Keys_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C_Values_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C_CheckedStates_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C_DateTimeType_x003E_DateAndTime_x003C__x002F_DateTimeType_x003E__x003C_CheckedColumn_x003E_null_x003B__x003C__x002F_CheckedColumn_x003E__x003C__x002F_StiSerializer_x003E_</value>
+      <value>ReportParameters,FechaCirugia,FechaCirugia,ReportParameter1,System.String,,False,False,True,False,_x003C__x003F_xml_x0020_version_x003D__x0022_1.0_x0022__x0020_encoding_x003D__x0022_utf-16_x0022__x0020_standalone_x003D__x0022_yes_x0022__x003F__x003E__x003C_StiSerializer_x0020_version_x003D__x0022_1.02_x0022__x0020_type_x003D__x0022_Net_x0022__x0020_application_x003D__x0022_State_x0022__x003E__x003C_SortDirection_x003E_None_x003C__x002F_SortDirection_x003E__x003C_BindingVariable_x0020_isNull_x003D__x0022_true_x0022__x0020__x002F__x003E__x003C_Keys_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C_Values_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C_CheckedStates_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C_DateTimeType_x003E_DateAndTime_x003C__x002F_DateTimeType_x003E__x003C_CheckedColumn_x003E_null_x003B__x003C__x002F_CheckedColumn_x003E__x003C__x002F_StiSerializer_x003E_</value>
     </Variables>
   </Dictionary>
   <EngineVersion>EngineV2</EngineVersion>
@@ -480,7 +483,7 @@ Vendedor: {VendedorNombre}</Text>
                 <Text7 Ref="19" type="Text" isKey="true">
                   <Brush>Transparent</Brush>
                   <CanGrow>True</CanGrow>
-                  <ClientRectangle>0,3.8,10.03,0.62</ClientRectangle>
+                  <ClientRectangle>0,3.8,10.03,1.22</ClientRectangle>
                   <Conditions isList="true" count="0" />
                   <Expressions isList="true" count="0" />
                   <Font>Myriad Pro,6.7,Bold,Point,False,0</Font>
@@ -490,7 +493,10 @@ Vendedor: {VendedorNombre}</Text>
                   <Name>Text7</Name>
                   <Page isRef="5" />
                   <Parent isRef="7" />
-                  <Text>Proveedor: {Documentacion}</Text>
+                  <Text>Proveedor: {Documentacion}
+Médico:  {Medico}
+Procedimiento:  {Procedimiento}
+Fecha Cirugia:  {FechaCirugia}</Text>
                   <TextBrush>Black</TextBrush>
                   <TextQuality>Wysiwyg</TextQuality>
                   <Type>Expression</Type>
@@ -1121,7 +1127,7 @@ Vendedor: {VendedorNombre}</Text>
   <ReportChanged>10/11/2022 8:18:55 PM</ReportChanged>
   <ReportCreated>7/11/2022 2:49:19 PM</ReportCreated>
   <ReportFile>Pedido.mrt</ReportFile>
-  <ReportGuid>1db7603a85b2437ca458bc10348aaf60</ReportGuid>
+  <ReportGuid>cb0c4a26c29e4eaea6e5fdce45abd03e</ReportGuid>
   <ReportName>Report</ReportName>
   <ReportUnit>Centimeters</ReportUnit>
   <ReportVersion>2022.4.5.0</ReportVersion>

Empresas/186/Formatos/Salidas.rdlc

@@ -337,7 +337,7 @@
                             <Paragraph>
                               <TextRuns>
                                 <TextRun>
-                                  <Value>Fecha Elaboracion</Value>
+                                  <Value>Fecha Caducidad</Value>
                                   <Style>
                                     <FontSize>8pt</FontSize>
                                     <FontWeight>Bold</FontWeight>

Empresas/186/Formatos/Traslado.rdlc

@@ -358,7 +358,7 @@
                             <Paragraph>
                               <TextRuns>
                                 <TextRun>
-                                  <Value>Fecha Elaboracion</Value>
+                                  <Value>Fecha Caducidad</Value>
                                   <Style>
                                     <FontSize>8pt</FontSize>
                                     <FontWeight>Bold</FontWeight>

Inventarios/EntradasSalidas.aspx.vb

@@ -5332,8 +5332,9 @@ Partial Class Inventarios_EntradasSalidas
 
             Dim ObjInventario As New ClsInventarios
             If Not ObjInventario.UpdateMovimientoDetalle(txtCantidad.Text.ToDecimal, DdlUnidad.SelectedValue.ToEntero, DdlProducto2.SelectedValue.ToEntero, txtPrecio.Text.ToDecimal, CveAFEdit,
-                                                         CveMovimientoDetalleEdit, DdlSeccionAlmacen.SelectedValue.ToEntero, TxtnSerie.Text, TxtObservacionesdetalle.Text,
+                                                        CveMovimientoDetalleEdit, DdlSeccionAlmacen.SelectedValue.ToEntero, TxtnSerie.Text, TxtObservacionesdetalle.Text,
-                                                         CveUsuarioModifico:=UsuarioActual.CveUsuario, CveCultivoCuadroDetalle:=DdlModalCultivosCuadro.SelectedValue.ToEntero) Then
+                                                        CveUsuarioModifico:=UsuarioActual.CveUsuario, CveCultivoCuadroDetalle:=DdlModalCultivosCuadro.SelectedValue.ToEntero,
+                                                        Lote:=TxtnLote.Text.Trim, FechaCaducidad:=TxtnFechaCaducidad.Text.ToDate) Then
                 Alert("Error al Actualizar los movimientos")
             Else
                 GvM.EditIndex = -1

Inventarios/TraspasoAlmacen.aspx

@@ -450,8 +450,22 @@
                                         <asp:TextBox ID="TxtnLote" CssClass="form-control input-sm" runat="server" Width="80px" Visible="false"></asp:TextBox>
                                     </td>
                                     <td runat="server" id="TdFechaCaducidad" visible="false">
-                                        <asp:CheckBox ID="ChkSugiereFechaCaducidad" runat="server" Text="Auto Sugiere" ToolTip="Auto Sugiere Fecha de caducidad" AutoPostBack="true" OnCheckedChanged="ChkSugiereFechaCaducidad_CheckedChanged" />
+
-                                        <asp:TextBox ID="TxtnFechaCaducidad" CssClass="form-control input-sm" runat="server" Width="80px" Visible="false"></asp:TextBox>
+                                        <table>
+                                            <tr>
+                                                <td>
+                                                    <asp:TextBox ID="TxtnFechaCaducidad" CssClass="form-control input-sm" runat="server" Width="80px" Visible="false"></asp:TextBox>
+                                                    <ajax:MaskedEditExtender ID="METxtnFechaCaducidad" runat="server" TargetControlID="TxtnFechaCaducidad" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                                                    <ajax:CalendarExtender runat="server" ID="CETxtnFechaCaducidad" TargetControlID="TxtnFechaCaducidad" PopupButtonID="TxtnFechaCaducidad" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
+                                                </td>
+                                                <td>
+                                                    <asp:CheckBox ID="ChkSugiereFechaCaducidad" runat="server" Text="Auto Sugiere" ToolTip="Auto Sugiere Fecha de caducidad" AutoPostBack="true" OnCheckedChanged="ChkSugiereFechaCaducidad_CheckedChanged" />
+                                                </td>
+                                            </tr>
+                                        </table>
+                                        
+                                        
+
                                     </td>
                                     <td align="center">
                                         <asp:LinkButton ID="LbAgregar" runat="server" CssClass="Texto" ValidationGroup="GrpAgregar" TabIndex="3" Text="Agregar" />

OS/Asignaciones.aspx

@@ -129,9 +129,16 @@
                                 <div class="row">
                                     <div class="col-md-4">
                                         <asp:GridView ID="GvA" runat="server" AutoGenerateColumns="false" EmptyDataText="No se encontraron Usuarios con Órdenes de Servicio Asignadas"
-                                            CssClass="table table-striped table-hover Widthall table-advance" GridLines="None">
+                                            CssClass="table table-striped table-hover Widthall table-advance" GridLines="None" OnRowDataBound="GvA_RowDataBound">
                                             <Columns>
-                                                <asp:HyperLinkField DataTextField="Nombre" HeaderText="Nombre" DataNavigateUrlFields="CveUsuarioAtendio" Target="_blank" DataNavigateUrlFormatString="~/OS/RepOrdenesServicios.aspx?CveUsuarioTecnico={0}" />
+                                                <asp:TemplateField>
+                                                    <HeaderTemplate>
+                                                        Nombre
+                                                    </HeaderTemplate>
+                                                    <ItemTemplate>
+                                                            <asp:HyperLink runat="server" ID="HplNombre" Text='<%#Eval("Nombre") %>' NavigateUrl='<%# Eval("CveUsuarioAtendio", "/OS/RepOrdenesServicios.aspx?CveUsuarioTecnico={0}") %>'></asp:HyperLink>
+                                                        </ItemTemplate>
+                                                   </asp:TemplateField>                                                
                                                 <asp:BoundField DataField="Cantidad" HeaderText="Cantidad" />
                                             </Columns>
                                         </asp:GridView>
@@ -181,7 +188,7 @@
                                 </div>
                             </div>
                             <div class="portlet-body">
-                                <asp:GridView ID="GvNA" runat="server" AutoGenerateColumns="false" EmptyDataText="No se encontraron Órdenes de Servicio No Asignadas" 
+                                <asp:GridView ID="GvNA" runat="server" AutoGenerateColumns="false" EmptyDataText="No se encontraron Órdenes de Servicio No Asignadas"  ClientIDMode="Static"
                                     DataKeyNames="CveOSDetalle, CveOS,CveUsuarioAtendio,TipoEstatus,EstatusOrdenServicio,CveSubProyecto,Folio,FechaCita,FechaCitaOS"
                                     CssClass="table table-striped table-hover Widthall table-advance" GridLines="None">
                                     <Columns>
@@ -195,8 +202,8 @@
                                         <asp:BoundField DataField="SubProyecto" HeaderText="SubProyecto" ItemStyle-HorizontalAlign="Left" />
                                         <asp:BoundField DataField="Concepto" HeaderText="Concepto" ItemStyle-HorizontalAlign="Left" />
                                         <asp:BoundField DataField="EstatusOrdenServicio" HeaderText="Estatus" ItemStyle-HorizontalAlign="Left" />
-                                        <asp:BoundField DataField="FechaIng" HeaderText="Fecha Ingreso" DataFormatString="{0:d}" />
+                                        <asp:BoundField DataField="FechaIng" HeaderText="Fecha Ingreso" DataFormatString="{0:d}" ItemStyle-Width="130px" />
-                                        <asp:TemplateField>
+                                        <asp:TemplateField ItemStyle-Width="120px">
                                             <HeaderTemplate>
                                                 Fecha Servicio
                                             </HeaderTemplate>
@@ -217,13 +224,13 @@
                                                 </div>
                                             </ItemTemplate>
                                         </asp:TemplateField>
-                                        <asp:TemplateField>
+                                        <asp:TemplateField ItemStyle-Width="60px">
                                             <HeaderTemplate>
                                                 Hora Servicio
                                             </HeaderTemplate>
                                             <ItemTemplate>
                                                  <asp:Literal ID="LtlHoraServicio" runat="server" Visible="false" Text='<%# Eval("HoraCita", "{0:t}")%>'> ></asp:Literal>
-                                                <cc1:TimeSelector ID="TimeSelector" runat="server" DisplaySeconds="false" DisplayButtons="false" Visible="false">
+                                                <cc1:TimeSelector ID="TimeSelector" runat="server" DisplaySeconds="false" DisplayButtons="false" Visible="false" SelectedTimeFormat="TwentyFour" Width="60px" Height="20px" CssClass="test" >
                                                 </cc1:TimeSelector>
                                             </ItemTemplate>
                                         </asp:TemplateField>

OS/Asignaciones.aspx.vb

@@ -2,6 +2,7 @@
 Option Strict On
 
 Imports System.Data
+Imports System.Data.Entity.Core.Metadata.Edm
 Imports Extensiones
 Imports Microsoft.Reporting.WebForms
 Imports MKB.TimePicker
@@ -68,10 +69,19 @@ Partial Class OS_Asignaciones
             End If
             ObjEstatusPermisos.Dispose()
 
-
-
-
         End If
+
+        RegistraScript("
+            $('#GvNA tr').each(function() {
+                $(this).find('td:eq(8) input').each(function() {		
+		            if($(this).val()!=':'){
+			            $(this).attr('style', 'width: 20px;');
+		            }else{
+			            $(this).attr('style', 'width: 10px;');
+		            }		
+                });
+            });
+        ")
     End Sub
 
 #Region "C A R G A S "
@@ -153,7 +163,7 @@ Partial Class OS_Asignaciones
         DdlEstatusOS.DataBind()
     End Sub
     Private Sub DdlEstatusOS_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlEstatusOS.SelectedIndexChanged
-        Dim TipoEstatus = GlobalDTEstatusOrdenServicios(UsuarioActual.CveEmpresa).FiltroPrimeroValor("TipoEstatus", String.Format("CveEstatusOrdenServicio = {0}", DdlEstatusOS.SelectedValue))
+        Dim TipoEstatus As String = GlobalDTEstatusOrdenServicios(UsuarioActual.CveEmpresa).FiltroPrimeroValor("TipoEstatus", String.Format("CveEstatusOrdenServicio = {0}", DdlEstatusOS.SelectedValue))
 
         If TipoEstatus.ToEntero = 1 Then
             DivTecnico.Visible = False
@@ -171,15 +181,18 @@ Partial Class OS_Asignaciones
             TecnicosSubProyectos = ObjOS.DtResultados
         End If
 
-        For Each SubProyecto As DataRow In DtOSSubProyectos.Rows
+        If DtOSSubProyectos IsNot Nothing Then
-            Dim TecnicosSubProyectoAux As DataTable = TecnicosSubProyectos.FiltraParametros(String.Format("SubProyecto = '{0}'", SubProyecto.Item("SubProyecto")))
+            For Each SubProyecto As DataRow In DtOSSubProyectos.Rows
-            If TecnicosSubProyectoAux.Rows.Count > 0 Then
+                Dim TecnicosSubProyectoAux As DataTable = TecnicosSubProyectos.FiltraParametros(String.Format("SubProyecto = '{0}'", SubProyecto.Item("SubProyecto")))
-                Dim EstatusDeTipoProcesoMenor As Integer = TecnicosSubProyectoAux.Rows(0).Item("CveEstatusOrdenServicio").ToString.ToEntero
+                If TecnicosSubProyectoAux.Rows.Count > 0 Then
-                Dim dtAuxiliar As New DataTable
+                    Dim EstatusDeTipoProcesoMenor As Integer = TecnicosSubProyectoAux.Rows(0).Item("CveEstatusOrdenServicio").ToString.ToEntero
-                dtAuxiliar = TecnicosSubProyectos.FiltraParametros(String.Format("SubProyecto = '{0}' AND CveEstatusOrdenServicio = {1}", SubProyecto.Item("SubProyecto"), EstatusDeTipoProcesoMenor), "", {"CveUsuario", "Nombre"})
+                    Dim dtAuxiliar As New DataTable
-                TecnicosResultado.Merge(dtAuxiliar)
+                    dtAuxiliar = TecnicosSubProyectos.FiltraParametros(String.Format("SubProyecto = '{0}' AND CveEstatusOrdenServicio = {1}", SubProyecto.Item("SubProyecto"), EstatusDeTipoProcesoMenor), "", {"CveUsuario", "Nombre"})
-            End If
+                    TecnicosResultado.Merge(dtAuxiliar)
-        Next
+                End If
+            Next
+        End If
+
         DtTecnicosSubProyectos = TecnicosResultado
         DdlTecnico.DataSource = TecnicosResultado
         DdlTecnico.DataBind()
@@ -191,12 +204,11 @@ Partial Class OS_Asignaciones
 #Region "BTN'S"
     Protected Sub BtnAsignar_Click(sender As Object, e As EventArgs) Handles BtnAsignar.Click
         Dim ObjOS As New ClsOS
-        Dim TieneError = False
+        Dim TieneError As Boolean = False
-        Dim CveEstatusOS = GlobalDTEstatusOrdenServicios(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveEstatusOrdenServicio", "TipoEstatus = 2", "CveEstatusOrdenServicio ASC")
+        Dim CveEstatusOS As Integer = GlobalDTEstatusOrdenServicios(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveEstatusOrdenServicio", "TipoEstatus = 2", "CveEstatusOrdenServicio ASC").ToEntero
         Dim time As DateTime
         Dim contadorOrdenesAsignadas As Integer = 0
 
-
         ObjOS.IniciaTransacSQL()
 
         For Each row As GridViewRow In GvNA.Rows
@@ -228,13 +240,9 @@ Partial Class OS_Asignaciones
                             TieneError = True
                         End If
 
-
                         If Not TieneError Then
-
+                            Dim RecurrenciaTipo As Integer = 0, Frecuencia As Integer = -1, DiasSemana As String = "-1", Dias As Integer = -1, Mes As Integer = -1, RecurrenciaFin As String = "-1"
-                            Dim RecurrenciaTipo = 0, Frecuencia = -1, DiasSemana = "-1", Dias = -1, Mes = -1, RecurrenciaFin = "-1"
                             Dim Fecha As DateTime = time
-
-
                             Dim OIDescripcion As String = $"{DdlTecnico.SelectedItem.Text}   <b><a href='/OS/OrdenesServicios.aspx?CveOS={row.DataKey("CveOS")}' target='_blank' class='Texto' >Orden de servicio {row.DataKey("Folio")} </a></b>"
 
                             Dim ObjEventos As New ClsOIEventos(ObjOS.IniciaTransacSQL())
@@ -285,9 +293,9 @@ Partial Class OS_Asignaciones
 
         Dim ObjOS As New ClsOS(TrasaccionSql)
         Dim params As New List(Of ReportParameter)
-        Dim CveFolio = ""
+        Dim CveFolio As String = ""
 
-        Dim TmpDTOS = New DataTable
+        Dim TmpDTOS As New DataTable
         TmpDTOS.Columns.Add("CveOSDetalle", GetType(Integer))
 
         TmpDTOS.Columns.Add("CveClasificacion", GetType(Integer))
@@ -315,7 +323,7 @@ Partial Class OS_Asignaciones
         TmpDTOS.Columns.Add("ComentarioTecnico", GetType(String))
 
 
-        Dim TmpDTMaterialesOS = New DataTable
+        Dim TmpDTMaterialesOS As New DataTable
         TmpDTMaterialesOS.Columns.Add("CveOSDetalle", GetType(Integer))
         TmpDTMaterialesOS.Columns.Add("CveConsecutivo", GetType(Integer))
         TmpDTMaterialesOS.Columns.Add("CveConsecutivoDetalle", GetType(Integer))
@@ -440,7 +448,7 @@ Partial Class OS_Asignaciones
     End Sub
 
     Private Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles BtnConsultar.Click
-        Dim TipoEstatus = GlobalDTEstatusOrdenServicios(UsuarioActual.CveEmpresa).FiltroPrimeroValor("TipoEstatus", String.Format("CveEstatusOrdenServicio = {0}", DdlEstatusOS.SelectedValue))
+        Dim TipoEstatus As String = GlobalDTEstatusOrdenServicios(UsuarioActual.CveEmpresa).FiltroPrimeroValor("TipoEstatus", String.Format("CveEstatusOrdenServicio = {0}", DdlEstatusOS.SelectedValue))
 
         If TipoEstatus.ToEntero <= 1 Then
             CargaOrdenesServiciosNoAsignadas()
@@ -512,4 +520,13 @@ Partial Class OS_Asignaciones
         ImprimirPDF("Empresas/Grales/Formatos/RepOSAsignacion.rdlc", dt, params, "OrdenesServicio")
     End Sub
 #End Region
+
+    Protected Sub GvA_RowDataBound(sender As Object, e As GridViewRowEventArgs)
+        If e.Row.RowType = DataControlRowType.DataRow Then
+            If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then
+                e.Row.FCHyperLink("HplNombre").NavigateUrl = $"/OS/RepOSMedicas.aspx?CveUsuarioTecnico={e.Row.DBCampo("CveUsuarioAtendio")}"
+            End If
+        End If
+
+    End Sub
 End Class

OS/CatEstatusOrdenServicio.aspx

@@ -93,8 +93,7 @@
     <ajax:TabContainer runat="server" ActiveTabIndex="0" Width="100%" CssClass="tabBodyOverride">
         <ajax:TabPanel runat="server" ID="TabCatalogo" HeaderText="Estatus">
             <ContentTemplate>
-                <div class="row" style="margin-right: 10px; margin-top: 18px;" align="right">
+                <div class="row" style="margin-right: 10px; " align="right">                   
-                    <label for="TxtBusquedaEstatus">Buscar: </label>
                     <input type="text" id="TxtBusquedaEstatus" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvDatos.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
                     <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvUsuariosEstatus.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
                 </div>
@@ -102,7 +101,7 @@
                     <ContentTemplate>
                         <asp:HiddenField ClientIDMode="Static" runat="server" ID="HdnCveEstatus" Value="-1" />
 
-                        <asp:GridView ID="GvDatos" runat="server" GridLines="None" DataKeyNames="CveEstatusOrdenServicio,TipoEstatus,TipoEstatusTexto,EstatusOrdenServicio,EstatusBool,Estado,Orden,BackgroundColor" CssClass="table table-striped table-advance table-hover Widthall" CellSpacing="0" Width="100%" AutoGenerateColumns="False" EmptyDataText="No se encontraron registros" ToolTip="Listado de Estatus de Ordenes de Servicios">
+                        <asp:GridView ID="GvDatos" runat="server" GridLines="None" DataKeyNames="CveEstatusOrdenServicio,TipoEstatus,TipoEstatusTexto,EstatusOrdenServicio,EstatusBool,Estado,Orden,BackgroundColor" CssClass="table table-striped table-advance table-hover Widthall mysmallbtn" CellSpacing="0" Width="100%" AutoGenerateColumns="False" EmptyDataText="No se encontraron registros" ToolTip="Listado de Estatus de Ordenes de Servicios">
                             <Columns>
                                 <asp:BoundField DataField="EstatusOrdenServicio" HeaderText="Estatus Orden Servicio" ItemStyle-HorizontalAlign="Left" />
                                 <asp:BoundField DataField="Estado" HeaderText="Estado" ItemStyle-HorizontalAlign="Left" />

OS/CatEstatusOrdenServicio.aspx.vb

@@ -80,9 +80,8 @@ Partial Class OS_CatEstatusOrdenServicio
         DTUsuarios = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa)
         Using ObjEstatusOrdenServicios As New ClsOS
             If ObjEstatusOrdenServicios.GetEstatusOrdenServicio(UsuarioActual.CveEmpresa) Then
-                DtEstatusOS = ObjEstatusOrdenServicios.DtResultados.FiltraParametros(String.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa))
+                DtEstatusOS = ObjEstatusOrdenServicios.DtResultados
                 GvDatos.DataSource = DtEstatusOS
-                GlobalDTEstatusOrdenServicios(UsuarioActual.CveEmpresa) = ObjEstatusOrdenServicios.DtResultados
             End If
 
             If ObjEstatusOrdenServicios.GetEstatusUsuarios(-1, -1, CveSubProyecto:=DdlSubProyecto.SelectedValue.ToEntero) Then
@@ -106,17 +105,19 @@ Partial Class OS_CatEstatusOrdenServicio
     End Sub
     Protected Sub BtnAgregarEstatusOS_Click(sender As Object, e As EventArgs) Handles BtnAgregarEstatusOS.Click
         Dim ObjEstatusOrdenServicios As New ClsOS
-        Dim TieneError = False
+        Dim TieneError As Boolean = False
 
         If HdnModalidad.Value = "I" Then
             If ObjEstatusOrdenServicios.AddEstatusOrdenServicio(TxtEstatusOS.Text.Trim, DdlTipoEstatus.SelectedValue.ToEntero, If(ChkEstatus.Checked, 1, 0), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, TxtBackgroundColor.Text.Replace("#", "")) Then
-                'CargaDatos()
+                GlobalDTEstatusOrdenServicios(UsuarioActual.CveEmpresa) = Nothing
                 Alert("Estatus agregado")
             End If
         Else
             If HdnID.Value.ToEntero <> -1 Then
                 If Not ObjEstatusOrdenServicios.UpdateEstatusOrdenServicio(TxtEstatusOS.Text.Trim, DdlTipoEstatus.SelectedValue.ToEntero, If(ChkEstatus.Checked, 1, 0), HdnID.Value.ToEntero, TxtBackgroundColor.Text.Replace("#", "")) Then
                     TieneError = True
+                Else
+                    GlobalDTEstatusOrdenServicios(UsuarioActual.CveEmpresa) = Nothing
                 End If
             End If
 
@@ -171,7 +172,7 @@ Partial Class OS_CatEstatusOrdenServicio
         If ObjEstatusOrdenServicios.RemoveEstatusOrdenServicio(CveEstatusOrdenServicio) Then
             GvDatos.EditIndex = -1
             DtEstatusOS = ObjEstatusOrdenServicios.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-            GlobalDTEstatusOrdenServicios(UsuarioActual.CveEmpresa) = ObjEstatusOrdenServicios.DtResultados
+            GlobalDTEstatusOrdenServicios(UsuarioActual.CveEmpresa) = Nothing
             Alert("El Estatus de Orden de Servicio se eliminó correctamente.", TipoMensaje.MsgInformacion)
         End If
 
@@ -262,7 +263,7 @@ Partial Class OS_CatEstatusOrdenServicio
 
             For Each Row As GridViewRow In GvUsuariosEstatus.Rows
                 Dim controles As Integer = Row.Controls.Count
-                For i = 1 To Row.Cells.Count - 1
+                For i As Integer = 1 To Row.Cells.Count - 1
                     Dim chk As CheckBox = CType(Row.Cells(i).Controls(0), CheckBox)
                     Dim CveEstatus As Integer = DtEstatusOS.FiltroPrimeroValor("CveEstatusOrdenServicio", String.Format("EstatusOrdenServicio = '{0}'", GvUsuariosEstatus.Columns(i).HeaderText)).ToEntero
                     If Not chk.Checked Then

OS/OrdenesServicios.aspx

@@ -1277,9 +1277,9 @@
                         <div class="row">
                             <div class="col-md-12">
 
-                                <asp:GridView ID="GvMaterialUtilizado" runat="server" AutoGenerateColumns="False" EmptyDataText="No se han capturado Historial" 
+                                <asp:GridView ID="GvMU" runat="server" AutoGenerateColumns="False" EmptyDataText="No se han capturado Historial" 
                                     DataKeyNames="CveVentaDetalle,Cantidad,CveAlmacenActual,CvePS,CveUM,PU,CveMovimientoDetalle,Lote,Serie,FechaCaducidad,AplicaSerie,AplicaLote,AplicaCaducidad,CodigoPS,Descuento,Observaciones"                                    
-                                    CssClass="table table-striped table-advance table-hover Widthall" GridLines="None" OnRowDataBound="GvMaterialUtilizado_RowDataBound">
+                                    CssClass="table table-striped table-advance table-hover Widthall" GridLines="None" OnRowDataBound="GvMU_RowDataBound">
                                     <Columns>
                                         <asp:TemplateField>
                                             <HeaderTemplate>Cant.</HeaderTemplate>
@@ -1290,8 +1290,8 @@
                                         <asp:TemplateField>
                                             <HeaderTemplate>Utilizado</HeaderTemplate>
                                             <ItemTemplate>
-                                                <asp:TextBox ID="TxtDev" runat="server" Width="50px"  ></asp:TextBox>
+                                                <asp:TextBox ID="TxtUtilizado" runat="server" Width="50px"  ></asp:TextBox>
-                                                <ajax:FilteredTextBoxExtender runat="server" FilterType="Custom" TargetControlID="TxtDev" ValidChars="123456789." />
+                                                <ajax:FilteredTextBoxExtender runat="server" FilterType="Custom" TargetControlID="TxtUtilizado" ValidChars="123456789." />
                                             </ItemTemplate>
                                         </asp:TemplateField>
                                         <asp:TemplateField>
@@ -1299,19 +1299,19 @@
                                             <ItemTemplate>
                                                 <asp:Literal ID="LtlcodigoPS" runat="server" Text='<%# Eval("CodigoPS") %>' ></asp:Literal>
                                             </ItemTemplate>
-                                        </asp:TemplateField>                                        
+                                        </asp:TemplateField>
                                          <asp:TemplateField>
                                             <HeaderTemplate>Serie</HeaderTemplate>
                                             <ItemTemplate>                                                
-                                                    <asp:Label ID="LblLote" runat="server"  Text='<%# Eval("Lote") %>'   ></asp:Label>                                                                                                
+                                                    <asp:Label ID="LblSerie" runat="server"  Text='<%# Eval("Serie") %>'></asp:Label>                                                                                                
                                             </ItemTemplate>
                                         </asp:TemplateField>
                                          <asp:TemplateField>
                                             <HeaderTemplate>Lote</HeaderTemplate>
                                             <ItemTemplate>                                                
-                                                    <asp:Label ID="LblSerie" runat="server"  Text='<%# Eval("Serie") %>'  ></asp:Label>                                                                                                
+                                                    <asp:Label ID="LblLote" runat="server"  Text='<%# Eval("Lote") %>'></asp:Label>                                                                                                
                                             </ItemTemplate>
-                                        </asp:TemplateField>
+                                        </asp:TemplateField>                                        
                                           <asp:TemplateField>
                                             <HeaderTemplate>Fecha Cad.</HeaderTemplate>
                                             <ItemTemplate>

OS/OrdenesServicios.aspx.vb

@@ -7,6 +7,7 @@ Imports System.Data
 Imports Telerik.Web.UI
 Imports System.Data.SqlClient
 Imports Stimulsoft.Report.StiOptions.Export
+Imports Modelos
 
 Partial Class OS_OrdenesServicios
     Inherits ClsPaginas
@@ -718,39 +719,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
+                Dim Drow As DataRow = ObjVentas.DtResultados.Rows(0)
-                For Each dr As DataRow In ObjVentas.DtResultados.Rows
+                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("SeFacturara") = True
-                        drt("Consecutivo") = Cons
+                    drt("SeSuperviso") = False
-                        drt("CveOSDetalle") = -1
+                    drt("Archivo") = -1
-                        drt("CvePS") = dr("CvePS")
+                    drt("CveCuentaEquipo") = "-1"
-                        drt("PS") = dr("PS")
+                    drt("CuentaEquipoMostrar") = ""
-                        drt("Cantidad") = dr("Cantidad")
+                    drt("Especificaciones") = "-1"
-                        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)
+                    TmpDT.Rows.Add(drt)
-                        Cons = Cons + 1
-                    Else
 
+                    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
@@ -846,8 +890,6 @@ Partial Class OS_OrdenesServicios
                 Dim Row As DataRow = Nothing
                 Row = TmpDTMaterialesDetalle.NewRow()
 
-
-
                 Row("CveConsecutivo") = Consecutivo
                 Row("CveConsecutivoDetalle") = CveConsecutivoDetalle
                 Row("CveOSDetalle") = CveOsDetalle
@@ -2685,17 +2727,14 @@ Partial Class OS_OrdenesServicios
                     'AGREGAMOS LA ENTRADA Movto 1
                     If Not TieneError Then
                         AlmacenEntrada = CveAlmacenOrigen
-
+                        CveMovimientoEntrada = ObjInventario.AddMovimiento(AlmacenEntrada, 8, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, CveAlmacenDestino:=CveAlmacenDestino, CveMovimientoRelacionado:=CveMovimientoSalida, CveOS:=CveOS, Modulo:="OS/MatUtil")
-                        CveMovimientoEntrada = ObjInventario.AddMovimiento(AlmacenEntrada, 8, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, CveAlmacenDestino:=CveAlmacenDestino, CveMovimientoRelacionado:=CveMovimientoSalida, CveOS:=CveOS)
                         FolioEntrada = ObjInventario.Folio
 
                         If CveMovimientoEntrada <= 0 Then
                             TextoError = "No se pudo generar el movimiento de entrada correctamente"
                             TieneError = True
                         Else
-
                             If ObjInventario.GetMovimientosDetalle(CveMovimiento, UsuarioActual.CveEmpresa) Then
-
                                 For Each Dr As DataRow In ObjInventario.DtResultados.Rows
                                     If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, Dr("Cantidad").ToString.ToDecimal, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, -1, -1) Then
                                         TieneError = True
@@ -2703,26 +2742,20 @@ Partial Class OS_OrdenesServicios
                                         Exit For
                                     End If
                                 Next
-
                             End If
-
                         End If
                     End If
 
                     'AGREGAMOS LA ENTRADA Movto 2
                     If Not TieneError Then
                         AlmacenEntrada = CveAlmacenDestino
-
+                        CveMovimientoEntrada2 = ObjInventario.AddMovimiento(AlmacenEntrada, 9, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, CveAlmacenDestino:=-1, CveMovimientoRelacionado:=CveMovimientoEntrada, CveOS:=CveOS, Modulo:="OS/MatUtil2")
-                        CveMovimientoEntrada2 = ObjInventario.AddMovimiento(AlmacenEntrada, 9, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, CveAlmacenDestino:=-1, CveMovimientoRelacionado:=CveMovimientoEntrada, CveOS:=CveOS)
                         FolioEntrada = ObjInventario.Folio
-
                         If CveMovimientoEntrada2 <= 0 Then
                             TextoError = "No se pudo generar el movimiento de entrada correctamente"
                             TieneError = True
                         Else
-
                             If ObjInventario.GetMovimientosDetalle(CveMovimientoEntrada, UsuarioActual.CveEmpresa) Then
-
                                 For Each Dr As DataRow In ObjInventario.DtResultados.Rows
                                     If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada2, Dr("Cantidad").ToString.ToDecimal, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, -1, -1) Then
                                         TieneError = True
@@ -2730,13 +2763,10 @@ Partial Class OS_OrdenesServicios
                                         Exit For
                                     End If
                                 Next
-
                             End If
-
                         End If
                     End If
 
-
                     If Not TieneError Then
                         If ObjMateriales.RemoveDetalleMateriales(CveMaterial, CveOSDetalle) Then
                             GvMaterialesModal.EditIndex = -1
@@ -2748,10 +2778,8 @@ Partial Class OS_OrdenesServicios
                         Alert(TextoError, TipoMensaje.MsgError)
                         RegistraScript("playsonidito(''142608__autistic-lucario__error.wav'')")
                     End If
-
                 End If
             End If
-
         End If
 
         If Not TieneError Then
@@ -2832,127 +2860,6 @@ Partial Class OS_OrdenesServicios
         Objeto.Items.Insert(0, New ListItem("Seleccione el Producto", "-1"))
     End Sub
 
-    'Private Sub LbGuardaSolicitarMaterial_Click(sender As Object, e As EventArgs) Handles LbGuardaSolicitarMaterial.Click
-    '    'VALIDA ALMACEN ORIGEN Y DESTINO
-    '    If DdlAlmacenOrigen.SelectedValue = DdlAlmacenDestino.SelectedValue Then
-    '        Alert("No se puede realizar un traspaso entre el mismo almacén.", TipoMensaje.MsgAdvertencia)
-    '        Exit Sub
-    '    End If
-
-    '    If GvSolicitarMaterial.Rows.Count > 0 Then
-    '        Dim ObjInventario As New ClsInventarios
-
-    '        Dim CveMovimientoSalida = 0
-    '        Dim CveMovimientoEntrada = 0
-    '        Dim IDPoliza As Integer = 0
-    '        Dim FolioSalida = 0
-    '        Dim FolioEntrada = 0
-    '        Dim AlmacenEntrada = -1
-
-    '        Dim ErrorMovInv As Boolean = False
-    '        Dim ErrorAC As Boolean = False
-    '        Dim ErrorExistencia = False
-
-    '        Dim TextoError = ""
-    '        Dim TextoExistencia As StringBuilder = New StringBuilder
-
-    '        'VALIDA LA EXISTENCIA DEL ALMACEN DE ORIGEN
-    '        Dim Existencia As Double
-    '        TextoExistencia.Append("Los siguiente productos se ajustaron por falta de exitencia:<br/>")
-
-
-    '        For Each dr As DataRow In TmpDTSolicitarMaterial.Rows
-    '            Existencia = ObjInventario.GetExistenciasPS(dr("CvePS").ToString.ToEntero, dr("CveUM").ToString.ToEntero, UsuarioActual.CveEmpresa, DdlAlmacenOrigen.SelectedValue.ToEntero, -1, TxtFecha.Text.ToDate.ToString("yyyy/MM/dd 23:59"), "-1")
-    '            Existencia -= TmpDTSolicitarMaterial.SUM("Cantidad", $"CvePS = {dr("CvePS").ToString.ToEntero} AND CveUM = {dr("CveUM").ToString.ToEntero} ")
-
-    '            If Existencia < 0 Then
-    '                ErrorExistencia = True
-    '                dr("Cantidad") = Existencia
-    '                TextoExistencia.AppendFormat("- #{0}<br/>", dr("PS").ToString)
-    '            End If
-    '        Next
-
-    '        'REGISTRA LA SALIDA Y ENTRADA (TRASPASO)
-    '        If Not ErrorExistencia Then
-    '            ObjInventario.IniciaTransacSQL() 'Inicia la transacción
-    '            Dim Fecha As Date = TxtFecha.Text.ToDate
-
-    '            'AGREGAMOS LA SALIDA DEL ALMACEN ORIGEN
-    '            CveMovimientoSalida = ObjInventario.AddMovimiento(DdlAlmacenOrigen.SelectedValue.ToEntero, 8, 1, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, CveAlmacenDestino:=DdlAlmacenDestino.SelectedValue.ToEntero, CveOS:=CveOS)
-    '            FolioSalida = ObjInventario.Folio
-
-    '            If CveMovimientoSalida <= 0 Then
-    '                TextoError = "No se pudo generar el movimiento de salida correctamente"
-    '                ErrorMovInv = True
-    '            Else
-
-    '                For Each Dr As DataRow In TmpDTSolicitarMaterial.Rows
-    '                    If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalida, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, 0, -1, -1) Then
-    '                        ErrorMovInv = True
-    '                        TextoError = "Ocurrió un error al guardar los movimientos de salida"
-    '                        Exit For
-    '                    End If
-    '                Next
-    '            End If
-
-    '            'AGREGAMOS LA ENTRADA
-    '            If Not ErrorMovInv Then
-    '                AlmacenEntrada = DdlAlmacenDestino.SelectedValue.ToEntero
-
-    '                CveMovimientoEntrada = ObjInventario.AddMovimiento(AlmacenEntrada, 9, 1, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, CveAlmacenDestino:=-1, CveMovimientoRelacionado:=CveMovimientoSalida, CveOS:=CveOS)
-    '                FolioEntrada = ObjInventario.Folio
-
-    '                If CveMovimientoEntrada <= 0 Then
-    '                    TextoError = "No se pudo generar el movimiento de entrada correctamente"
-    '                    ErrorMovInv = True
-    '                Else
-
-    '                    If ObjInventario.GetMovimientosDetalle(CveMovimientoSalida, UsuarioActual.CveEmpresa) Then
-
-    '                        For Each Dr As DataRow In ObjInventario.DtResultados.Rows
-    '                            If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDouble, -1, -1) Then
-    '                                ErrorMovInv = True
-    '                                TextoError = "Ocurrió un error al guardar los movimientos de entrada"
-    '                                Exit For
-    '                            End If
-    '                        Next
-
-    '                    End If
-
-    '                End If
-    '            End If
-
-
-    '            If Not ErrorMovInv Then
-    '                ObjInventario.Commit()
-    '                Dim Mensaje As StringBuilder = New StringBuilder
-
-    '                Mensaje.Append("Se realizó con éxito el traspaso.")
-
-    '                Mensaje.AppendFormat("<br/> Folio de Salida: <b><a href=""/Inventarios/EntradasSalidas.aspx?CveMovimiento={1}"" target=""_blank"">{0}</a></b>", FolioSalida, CveMovimientoSalida)
-    '                Mensaje.AppendFormat("<br/><a target='_blank' href='/Compras/PopUpVerFactura.aspx?P={0}'>Imprimir Reporte</a>", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimientoSalida)))
-
-    '                LimpiaMovimiento()
-    '                Alert(Mensaje.ToString, TipoMensaje.MsgInformacion)
-    '            Else
-    '                ObjInventario.RollBack()
-    '                Alert(TextoError, TipoMensaje.MsgError)
-    '                RegistraScript("playsonidito(''142608__autistic-lucario__error.wav'')")
-    '            End If
-    '        Else
-    '            Alert(TextoExistencia.ToString, TipoMensaje.MsgError)
-    '            RegistraScript("playsonidito(''142608__autistic-lucario__error.wav'')")
-    '        End If
-
-
-    '        'SI OCURRIO UN ERROR EN LA EXISTENCIA RECARGAMOS EL GRID PARA COLOREAR LOS DETALLES CON ERROR
-    '        If ErrorExistencia Then
-    '            Alert("Ocurrió un error en la existencia", TipoMensaje.MsgError)
-    '        End If
-
-    '        ObjInventario.Dispose()
-    '    End If
-    'End Sub
     Private Sub LimpiaMovimiento()
         CargaAlmacen()
         TxtFecha.Text = NowADS().ToShortDateString
@@ -3046,19 +2953,18 @@ Partial Class OS_OrdenesServicios
     Protected Sub LnkAccionesMaterialUtilizado_Click(sender As Object, e As EventArgs)
 
         LnkModalMaterialUtilizado.Visible = True
-        GvMaterialUtilizado.DataSource = Nothing
         DTSolicitudDev = New DataTable
         Dim Opcion As Integer = If(DdlTipoVenta.SelectedValue.Contiene("2", "3"), 2, 1)
         Dim ObjOS As New ClsOS
         If ObjOS.GetOrdenesServicioDevolucionMaterial(CveOS, CveVenta, Opcion, UsuarioActual.CveEmpresa) Then
             DTSolicitudDev = ObjOS.DtResultados
-            GvMaterialUtilizado.DataSource = DTSolicitudDev
+            GvMU.DataSource = DTSolicitudDev
-            GvMaterialUtilizado.Columns(3).Visible = DTSolicitudDev.MIN("Serie") <> ""
+            GvMU.Columns(3).Visible = DTSolicitudDev.MIN("Serie") <> ""
-            GvMaterialUtilizado.Columns(4).Visible = DTSolicitudDev.MIN("Lote") <> ""
+            GvMU.Columns(4).Visible = DTSolicitudDev.MIN("Lote") <> ""
-            GvMaterialUtilizado.Columns(5).Visible = DTSolicitudDev.MIN("FechaCaducidad") <> ""
+            GvMU.Columns(5).Visible = DTSolicitudDev.MIN("FechaCaducidad") <> ""
         End If
         ObjOS.Dispose()
-        GvMaterialUtilizado.DataBind()
+        GvMU.DataBind()
 
         Dim EsDevolucionVenta As Boolean = (DTSolicitudDev.FiltroPrimeroValor("EsDevolucionVenta", "").ToEntero > 0)
 
@@ -3073,11 +2979,11 @@ Partial Class OS_OrdenesServicios
 
     End Sub
 
-    Protected Sub GvMaterialUtilizado_RowDataBound(sender As Object, e As GridViewRowEventArgs)
+    Protected Sub GvMU_RowDataBound(sender As Object, e As GridViewRowEventArgs)
 
         If e.Row.RowType = DataControlRowType.DataRow Then
 
-            e.Row.FCTextBox("TxtDev").Attributes.Add("onblur", String.Format("ValidarCantidad(this, {0})", e.Row.DataKey("Cantidad")))
+            e.Row.FCTextBox("TxtUtilizado").Attributes.Add("onblur", String.Format("ValidarCantidad(this, {0})", e.Row.DataKey("Cantidad")))
 
         End If
     End Sub
@@ -3088,88 +2994,45 @@ Partial Class OS_OrdenesServicios
         Dim CveMoneda As Integer = DTSolicitudDev.FiltroPrimeroValor("CveMoneda").ToEntero
         Dim CveSubProyectoPedido As Integer = DTSolicitudDev.FiltroPrimeroValor("CveSubProyecto").ToEntero
         Dim CveVentaPedido As Integer = DTSolicitudDev.FiltroPrimeroValor("CveVenta").ToEntero
-
-
-
         Dim CveAlmacenDestino As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa, 10).FiltroPrimeroValor("CveAlmacen", $"CveSubProyecto = {CveSubProyectoPedido}").ToEntero
 
         If Not CveAlmacenDestino > 0 Then
-            Alert("No se encontro almacen de entrega por adelantado")
+            Alert("No se encontró almacen de entrega por adelantado", TipoMensaje.MsgAdvertencia)
             Exit Sub
         End If
 
-
-        Dim SbErroresDev As New StringBuilder
-
-        For Each GvRow As GridViewRow In GvMaterialUtilizado.Rows
-
-            If GvRow.DataKey("Cantidad").ToDecimal > 0 Then
-
-                Dim sbTemperror As New StringBuilder
-                Dim ErrorCountDev As Integer = 0
-                'sbTemperror.Append($"Producto: {GvRow.DataKey("CodigoPS") } requiere: ")
-                'If Boolean.Parse(GvRow.DataKey("AplicaSerie")) Then
-                '    If GvRow.FCTextBox("TxtSerie").Text.Trim = String.Empty Then
-                '        sbTemperror.Append($" Serie, ")
-                '        ErrorCountDev = ErrorCountDev + 1
-                '    End If
-                'End If
-
-                'If Boolean.Parse(GvRow.DataKey("AplicaLote")) Then
-                '    If GvRow.FCTextBox("TxtLote").Text = String.Empty Then
-                '        sbTemperror.Append($" Lote, ")
-                '        ErrorCountDev = ErrorCountDev + 1
-                '    End If
-                'End If
-
-                'If Boolean.Parse(GvRow.DataKey("AplicaCaducidad")) Then
-                '    If Not IsDate(GvRow.FCTextBox("TxtFechaCaducidad").Text) Then
-                '        sbTemperror.Append($" Fecha de caducidad")
-                '        ErrorCountDev = ErrorCountDev + 1
-                '    End If
-                'End If
-
-                'If ErrorCountDev > 0 Then
-                '    sbTemperror.Append($"<br/>")
-                '    SbErroresDev.AppendLine(sbTemperror.ToString)
-                'End If
-            End If
-        Next
-
-        'If SbErroresDev.ToString.Length > 0 Then
-        '    Alert($"Se encontraron los siguientes errores: <br> {SbErroresDev.ToString}", TipoMensaje.MsgAdvertencia)
-        '    Exit Sub
-        'End If
-
         Dim ProcesoOK As Boolean = True
         Dim ObjV As New ClsVentas
-        ObjV.IniciaTransacSQL()
+        Dim ClsOS As New ClsOS(ObjV.IniciaTransacSQL())
-
+        Dim ObjInventario As New ClsInventarios(ObjV.IniciaTransacSQL())
-        If Not ObjV.UpdateVentasDevolucionAlmacen(1, CveVenta) Then
+        Dim ObjConta As New ClsContabilidad(ObjV.IniciaTransacSQL())
-            ProcesoOK = False
-        End If
 
         If ProcesoOK Then
-            For Each GvRow As GridViewRow In GvMaterialUtilizado.Rows
+            Dim AplicaDevolucion As Boolean = False
-
+            For Each GvRow As GridViewRow In GvMU.Rows
                 Dim CveVentaDetalle As Integer = GvRow.DataKey("CveVentaDetalle").ToEntero
-                Dim CantidadDev As Decimal = GvRow.DataKey("Cantidad").ToDecimal - GvRow.FCTextBox("TxtDev").Text.ToDecimal
+                Dim CantidadDev As Decimal = GvRow.DataKey("Cantidad").ToDecimal - GvRow.FCTextBox("TxtUtilizado").Text.ToDecimal
-
                 If CantidadDev > 0 Then
+                    AplicaDevolucion = True
                     If Not ObjV.UpdateVentasDetalleCantidadDevolucion(CveVentaDetalle, CantidadDev) Then
                         ProcesoOK = False
                         Exit For
                     End If
                 End If
             Next
+            If AplicaDevolucion Then
+                If Not ObjV.UpdateVentasDevolucionAlmacen(1, CveVenta) Then
+                    ProcesoOK = False
+                End If
+            End If
         End If
-
-
         Dim Respuesta As New RespuestaFacturacion()
         Dim DtVentaDetalle As New DataTable
+        Dim CveMovimientoSalida, CveMovimientoEntrada As Integer
+        Dim ImporteAlmacen As Decimal
+        Dim Fecha As DateTime = ClsPaginas.NowADS()
 
         If ProcesoOK Then
-
             Respuesta = GeneraRemision(CveVentaPedido, ObjV.IniciaTransacSQL())
 
             If Respuesta.CveVenta > 0 Then
@@ -3181,35 +3044,32 @@ Partial Class OS_OrdenesServicios
             Else
                 ProcesoOK = False
             End If
-
         End If
 
         If ProcesoOK Then
 
-            Dim ObjInventario As New ClsInventarios(ObjV.IniciaTransacSQL())
+            CveMovimientoSalida = ObjInventario.AddMovimiento(CveAlmacenActual, 8, CveMoneda, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, Respuesta.CveVenta, CveSubProyectoPedido, -1, CveOS:=CveOS, CveAlmacenDestino:=CveAlmacenDestino, Modulo:="OS/MatUtil")
-
-            Dim CveMovimiento As Integer = ObjInventario.AddMovimiento(CveAlmacenActual, 8, CveMoneda, ClsPaginas.NowADS(), -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, Respuesta.CveVenta, CveSubProyectoPedido, -1, CveOS:=CveOS, CveAlmacenDestino:=CveAlmacenDestino)
             Dim Folio As Integer = ObjInventario.Folio
 
-            If CveMovimiento > 0 Then
+            If CveMovimientoSalida > 0 Then
 
                 Dim IndexMov1 As Integer = 0
-                For Each GvRow As GridViewRow In GvMaterialUtilizado.Rows
+                For Each GvRow As GridViewRow In GvMU.Rows
 
                     Dim Cantidad As Decimal = GvRow.DataKey("Cantidad").ToDecimal
-                    Dim CantidadRegistro As Decimal = GvRow.FCTextBox("TxtDev").Text.ToDecimal
+                    Dim CantidadRegistro As Decimal = GvRow.FCTextBox("TxtUtilizado").Text.ToDecimal
                     Dim CvePS As Integer = GvRow.DataKey("CvePS").ToEntero
                     Dim CveUM As Integer = GvRow.DataKey("CveUM").ToEntero
                     Dim PU As Decimal = GvRow.DataKey("PU").ToDecimal
-                    Dim CveVentaDetalle As Integer = DtVentaDetalle.Rows(IndexMov1)("CveVentaDetalle").ToString.ToEntero
-                    Dim CveMovimientoDetalle As Integer = GvRow.DataKey("CveMovimientoDetalle").ToEntero
-
-                    Dim Serie As String = GvRow.DataKey("Serie")
-                    Dim Lote As String = GvRow.DataKey("Lote")
-                    Dim FechaCaducidad As DateTime = GvRow.DataKey("FechaCaducidad").ToDate
 
                     If CantidadRegistro > 0 Then
-                        If Not ObjInventario.AddMovimientoDetalle(CveMovimiento, CantidadRegistro, CveUM, CvePS, PU, CveVentaDetalle:=CveVentaDetalle, CveMovimientoDetalleEntrada:=CveMovimientoDetalle, Lote:=Lote, Serie:=Serie, FechaCaducidad:=FechaCaducidad) Then
+                        Dim CveVentaDetalle As Integer = DtVentaDetalle.Rows(IndexMov1)("CveVentaDetalle").ToString.ToEntero
+                        Dim CveMovimientoDetalle As Integer = GvRow.DataKey("CveMovimientoDetalle").ToEntero
+
+                        Dim Serie As String = GvRow.DataKey("Serie")
+                        Dim Lote As String = GvRow.DataKey("Lote")
+                        Dim FechaCaducidad As DateTime = GvRow.DataKey("FechaCaducidad").ToDate
+                        If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalida, CantidadRegistro, CveUM, CvePS, PU, CveVentaDetalle:=CveVentaDetalle, CveMovimientoDetalleEntrada:=CveMovimientoDetalle, Lote:=Lote, Serie:=Serie, FechaCaducidad:=FechaCaducidad) Then
                             Alert("Error al agregar detalle de movimiento.", TipoMensaje.MsgAdvertencia)
                             ProcesoOK = False
                             Exit For
@@ -3220,10 +3080,10 @@ Partial Class OS_OrdenesServicios
 
                 If ProcesoOK Then
 
-                    Dim CveMovimientoSalida As Integer = ObjInventario.AddMovimiento(CveAlmacenDestino, 9, CveMoneda, ClsPaginas.NowADS(), -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, Respuesta.CveVenta, CveSubProyectoPedido, -1, CveOS:=CveOS, CveMovimientoRelacionado:=CveMovimiento)
+                    CveMovimientoEntrada = ObjInventario.AddMovimiento(CveAlmacenDestino, 9, CveMoneda, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, Respuesta.CveVenta, CveSubProyectoPedido, -1, CveOS:=CveOS, CveMovimientoRelacionado:=CveMovimientoSalida, Modulo:="OS/MatUtil2")
-
-                    If ObjInventario.GetMovimientosDetalle(CveMovimiento, UsuarioActual.CveEmpresa) AndAlso ObjInventario.DtResultados.Rows.Count > 0 Then
 
+                    If ObjInventario.GetMovimientosDetalle(CveMovimientoSalida, UsuarioActual.CveEmpresa) AndAlso ObjInventario.DtResultados.Rows.Count > 0 Then
+                        ImporteAlmacen = ObjInventario.DtResultados.SUM("Total")
                         Dim IndexMov2 As Integer = 0
                         For Each dRow As DataRow In ObjInventario.DtResultados.Rows
 
@@ -3231,14 +3091,14 @@ Partial Class OS_OrdenesServicios
                             Dim CvePS As Integer = dRow("CvePS").ToString.ToEntero
                             Dim CveUM As Integer = dRow("CveUM").ToString.ToEntero
                             Dim PU As Decimal = dRow("PU").ToString.ToDecimal
-                            Dim CveVentaDetalle As Integer = DtVentaDetalle.Rows(IndexMov2)("CveVentaDetalle").ToString.ToEntero
+                            Dim CveVentaDetalle As Integer = dRow("CveVentaDetalle").ToString.ToEntero
                             Dim CveMovimientoDetalle As Integer = dRow("CveMovimientoDetalle").ToString.ToEntero
 
                             Dim Lote As String = dRow("Lote").ToString
                             Dim Serie As String = dRow("Serie").ToString
                             Dim FechaCaducidad As DateTime = dRow("FechaCaducidad").ToString.ToDateTime
 
-                            If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalida, Cantidad, CveUM, CvePS, PU, CveVentaDetalle:=CveVentaDetalle, CveMovimientoDetalleEntrada:=CveMovimientoDetalle, Lote:=Lote, Serie:=Serie, FechaCaducidad:=FechaCaducidad) Then
+                            If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, Cantidad, CveUM, CvePS, PU, CveVentaDetalle:=CveVentaDetalle, CveMovimientoDetalleEntrada:=CveMovimientoDetalle, Lote:=Lote, Serie:=Serie, FechaCaducidad:=FechaCaducidad) Then
                                 Alert("Error al agregar detalle de movimiento.", TipoMensaje.MsgAdvertencia)
                                 ProcesoOK = False
                                 Exit For
@@ -3247,7 +3107,7 @@ Partial Class OS_OrdenesServicios
                         Next
                         If ProcesoOK Then
                             Dim ObjEventos As New ClsOIEventos(ObjInventario.IniciaTransacSQL)
-                            Dim LigaVenta As String = String.Format("Venta {2} en Folio: <a href=""/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}"" target=""_blank"">{1}</a>", CveMovimiento, Folio, "Material utilizado")
+                            Dim LigaVenta As String = String.Format("Venta {2} en Folio: <a href=""/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}"" target=""_blank"">{1}</a>", CveMovimientoEntrada, Folio, "Material utilizado")
 
                             If Not ObjEventos.AddEventoBitacora(LigaVenta, "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveVenta:=Respuesta.CveVenta, CveOS:=CveOS) Then
                                 ProcesoOK = False
@@ -3257,6 +3117,27 @@ Partial Class OS_OrdenesServicios
                         ProcesoOK = False
                     End If
                 End If
+                If ProcesoOK Then
+                    If Not ClsOS.UpdateOrdenesServiciosFinaliza(CveOS, -1, -1, UsuarioActual.CveEmpresa) Then
+                        ProcesoOK = False
+                    End If
+                End If
+                If ProcesoOK Then
+                    Dim Contabilizable As Boolean = False
+                    Dim Concepto As String = "Material utilizado"
+                    Dim CvePrePoliza As Integer = ObjConta.AddPrePolizas("OS-MatUtil", 53, 0, 0, 1, Fecha, Concepto, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+                    If CveMovimientoSalida > 0 Then
+                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteAlmacen, ImporteAlmacen, 68, "", Concepto, CveMovimientoAlmacen:=CveMovimientoSalida, Contabilizable:=Contabilizable) Then
+                            ProcesoOK = False
+                        End If
+                    End If
+                    If CveMovimientoEntrada > 0 Then
+                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteAlmacen, ImporteAlmacen, 68, "", Concepto, CveMovimientoAlmacen:=CveMovimientoEntrada, Contabilizable:=Contabilizable) Then
+                            ProcesoOK = False
+                        End If
+                    End If
+
+                End If
             Else
                 ProcesoOK = False
             End If
@@ -3269,6 +3150,7 @@ Partial Class OS_OrdenesServicios
             RegistraScript("$('#DivModalMaterialUtilizado').modal('hide');")
         Else
             ObjV.RollBack()
+            Alert("El material utilizado no se guardó correctamente", TipoMensaje.MsgAdvertencia)
         End If
 
         ObjV.Dispose()
@@ -3278,12 +3160,9 @@ Partial Class OS_OrdenesServicios
     Private Function GeneraRemision(CveVentaPedido As Integer, ByRef TransaccionSQL As SqlTransaction) As RespuestaFacturacion
 
         Dim Respuesta As New RespuestaFacturacion()
-
+        Dim CveRemisionGenerada As Integer = -1
-        Dim CveRemiocionGenerada As Integer = -1
-
         Dim ObjVentas As New ClsVentas(TransaccionSQL)
         Dim ProcesoOK As Boolean = True
-
         Dim CveSubProyectoPedido As Integer = -1
         Dim CveMoneda As Integer = -1
 
@@ -3297,30 +3176,27 @@ Partial Class OS_OrdenesServicios
 
         If ObjFactura IsNot Nothing AndAlso ProcesoOK Then
 
-
-
             ObjFactura.CveMedico = DdlMedico.SelectedValue.ToEntero
             ObjFactura.CveProcedimiento = DdlProcedimiento.SelectedValue.ToEntero
             ObjFactura.CveTipoVenta = DdlTipoVenta.SelectedValue.ToEntero
 
-            For Each GvRow As GridViewRow In GvMaterialUtilizado.Rows
+            For Each GvRow As GridViewRow In GvMU.Rows
 
                 Dim CvePS As Integer = GvRow.DataKey("CvePS").ToEntero
-                Dim Cantidad As Decimal = GvRow.DataKey("Cantidad").ToDecimal
+                Dim CantidadRegistro As Decimal = GvRow.FCTextBox("TxtUtilizado").Text.ToDecimal
-                Dim CantidadDev As Decimal = GvRow.FCTextBox("TxtDev").Text.ToDecimal
-                Dim CantidadRegistro As Decimal = Cantidad - CantidadDev
                 Dim PU As Decimal = GvRow.DataKey("PU").ToDecimal
                 Dim Descuento As Decimal = GvRow.DataKey("Descuento").ToDecimal
                 Dim Obs As String = GvRow.DataKey("Observaciones")
 
-                If Not ObjFactura.AgregarPS(CvePS, CantidadRegistro, PU, Descuento, Obs, CveSubProyecto:=CveSubProyectoPedido) Then
+                If CantidadRegistro > 0 Then
-                    Alert("Error al agregar producto", TipoMensaje.MsgAdvertencia)
+                    If Not ObjFactura.AgregarPS(CvePS, CantidadRegistro, PU, Descuento, Obs, CveSubProyecto:=CveSubProyectoPedido) Then
-                    ProcesoOK = False
+                        Alert("Error al agregar producto", TipoMensaje.MsgAdvertencia)
-                    Exit For
+                        ProcesoOK = False
+                        Exit For
+                    End If
                 End If
             Next
 
-
             If ProcesoOK Then
                 ObjFactura.CalculaTotales()
                 Dim Resp As New Modelos.Factura.MMensajeFactura

OS/RepOSMedicas.aspx

@@ -169,9 +169,9 @@
                     <asp:HyperLinkField HeaderText="Folio" DataNavigateUrlFields="CveOS" DataNavigateUrlFormatString="/OS/OrdenesServicios.aspx?CveOS={0}" DataTextField="Folio" Target="_blank" />
                     <%--<asp:BoundField HeaderText="Folio" DataField="Folio"   ItemStyle-HorizontalAlign="Left" />--%>
                     <%--1--%>                   
-                    <asp:BoundField DataField="FechaCita" HeaderText="Fecha Cita" DataFormatString="{0:dd/MM/yyyy HH:mm}" HtmlEncode="False" />
+                    <asp:BoundField DataField="FechaCita"  HeaderText="Fecha Cirugía" ItemStyle-Width="100px" DataFormatString="{0:dd/MM/yyyy HH:mm}" HtmlEncode="False" />
                     <%--2--%>
-                    <asp:BoundField HeaderText="Cliente" DataField="Nombre"   ItemStyle-HorizontalAlign="Left" />                    
+                    <asp:BoundField HeaderText="Hospital" DataField="Nombre"   ItemStyle-HorizontalAlign="Left" />                    
                     <%--3--%>
                     <asp:BoundField HeaderText="Médico" DataField="Medico"   ItemStyle-HorizontalAlign="Left" />
                     <%--4--%>                    
@@ -181,7 +181,7 @@
                     <%--6--%>
                     <asp:BoundField HeaderText="Estatus" DataField="EstatusOrdenServicio"   ItemStyle-HorizontalAlign="Left" />
                     <%--7--%>
-                    <asp:BoundField HeaderText="Técnico" DataField="Usuario"   ItemStyle-HorizontalAlign="Left" /> 
+                    <asp:BoundField HeaderText="Técnico" DataField="NombreUsuario"   ItemStyle-HorizontalAlign="Left" /> 
                     <%--8--%>
                     <asp:BoundField HeaderText="Paciente" DataField="Paciente"   ItemStyle-HorizontalAlign="Left" /> 
                     <%--9--%>
@@ -196,10 +196,4 @@
 
 </asp:Content>
 <asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
-
- 
-
-
-
-
 </asp:Content>

OS/RepOSMedicas.aspx.vb

@@ -29,24 +29,26 @@ Partial Class OS_RepOSMedicas
         DdlEstatusOS.DataSource = GlobalDTEstatusOrdenServicios(UsuarioActual.CveEmpresa)
         DdlEstatusOS.DataBind()
         DdlEstatusOS.Items.Insert(0, New ListItem("Todos", "-1"))
-        Dim DTTecnicos As New DataTable
+        Dim DTTecnicos As DataTable = Nothing
-        Dim ObjUsuarios As New ClsSisUsuarios
-
-        If ObjUsuarios.GetPermisosPorUsuarioProcesos(-1, -1, -1, -1, 351, UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa) Then
-            If UsuarioActual.CveRol = 1 Then
-                DTTecnicos = ObjUsuarios.DtResultados.FiltraParametros(" CveProcesoUsuarioAcceso > 0")
-            Else
-                DTTecnicos = ObjUsuarios.DtResultados.FiltraParametros(" CveProcesoUsuarioAcceso > 0 and CveUsuario <>  100")
-            End If
 
+        Dim ObjOS As New ClsOS
+        If ObjOS.GetSubProyectosEstatusInicial(-1, 3, UsuarioActual.CveEmpresa) Then
+            DTTecnicos = ObjOS.DtResultados
         End If
-        ObjUsuarios.Dispose()
+        ObjOS.Dispose()
 
-        DdlTecnico.DataSource = DTTecnicos 'GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros("Estatus = 'True'")
+        DdlTecnico.DataSource = DTTecnicos
         DdlTecnico.DataBind()
         DdlTecnico.Items.Insert(0, New ListItem("Todos", "-1"))
         DdlTecnico.Items.Insert(1, New ListItem("Sin Asignar", "-2"))
 
+
+        If IfNull(Request("CveUsuarioTecnico"), 0).ToString.ToEntero > 0 Then
+            DdlTecnico.SelectedValueExist(Request("CveUsuarioTecnico").ToString)
+        Else
+            ViewState("CveUsuarioTecnico") = -1
+        End If
+
         'CargaClientes
         Dim EsWS As Boolean = If(UsuarioActual.Empresa.Funcionalidad(105) = "1" Or UsuarioActual.Empresa.Funcionalidad(141) = "1", True, False)
         If EsWS Then

OS/RepOrdenesServicios.aspx.vb

@@ -1,7 +1,6 @@
 Option Explicit On
 Option Strict On
 
-Imports System.Data
 Imports Extensiones
 
 Partial Class OS_RepOrdenesServicios
@@ -30,9 +29,6 @@ Partial Class OS_RepOrdenesServicios
     Private Sub CargaCombos()
         'CargaClientes
         DdlClientes.setEsWebService(True)
-        'DdlClientes.DataSource() = GlobalDTCliente(UsuarioActual.CveEmpresa)
-        'DdlClientes.DataBind()
-        'DdlClientes.Items.Insert(0, New ListItem("Todos", "-1"))
 
         'CargaSubProyectos
         DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa, Estatus:=1)
@@ -57,9 +53,10 @@ Partial Class OS_RepOrdenesServicios
     Public Sub CargaDatos()
         Dim ObjOrdenesServicios As New ClsOS()
 
-        Dim FechaI, FechaF, FechaTerminado As String
+        Dim FechaI, FechaF As Date
-        FechaI = If(IsDate(txtFechaI.Text.Trim()), txtFechaI.Text.Trim(), "-1")
+        Dim FechaTerminado As String
-        FechaF = If(IsDate(txtFechaF.Text.Trim()), txtFechaF.Text.Trim(), "-1")
+        FechaI = If(IsDate(txtFechaI.Text.Trim()), txtFechaI.Text.Trim().ToDate, MinFecha)
+        FechaF = If(IsDate(txtFechaF.Text.Trim()), txtFechaF.Text.Trim().ToDate, MaxFecha)
         FechaTerminado = If(IsDate(TxtFechaTerminado.Text.Trim()), TxtFechaTerminado.Text.Trim(), "-1")
 
         Dim Opcion As Integer = 1
@@ -68,7 +65,6 @@ Partial Class OS_RepOrdenesServicios
         If UsuarioActual.TienePermisoProceso(348) Then
             Opcion = 2
             CveUsuarioAsignado = -1
-
         End If
 
         Dim CveCliente As Integer = If(DdlClientes.SelectedValue.ToEntero <= 0, -1, DdlClientes.SelectedValue.ToEntero)

Sistemas/EmpresasModulos.aspx

@@ -34,13 +34,9 @@
         </ContentTemplate>
     </asp:UpdatePanel>
 
-    <br />
-
     <asp:UpdatePanel runat="server" ID="UpDatos" UpdateMode="Conditional">
         <ContentTemplate>
-
+             
-           
-
             <div class="row" id="DvGeneral">
                 <div class="col-md-4" id="Dv1" >
 
@@ -49,7 +45,7 @@
                         <a href="javascript:;" onclick="<%= String.Format("filtraListBox( this,'{0}')", ListModulosDisponible.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
                     </div>
 
-                    <asp:ListBox runat="server" ID="ListModulosDisponible" DataTextField="Padres" DataValueField="CveModulo" Height="300px"   SelectionMode="Multiple" ClientIDMode="Static"></asp:ListBox>
+                    <asp:ListBox runat="server" ID="ListModulosDisponible" DataTextField="Padres" DataValueField="CveModulo" Height="400px" Width="500px"  SelectionMode="Multiple" ClientIDMode="Static"></asp:ListBox>
 
                 </div>
                 <div class="col-md-1" style="text-align:center!important;max-width:100px;vertical-align:central!important"  id="Dv2">                    
@@ -71,7 +67,7 @@
                         <input type="text" id="TxtBusquedaModulosEmpresas" class="form-control input-sm" onkeyup="<%= String.Format("filtraListBox(this,'{0}')", ListModulosEmpresa.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
                         <a href="javascript:;" onclick="<%= String.Format("filtraListBox( this,'{0}')", ListModulosEmpresa.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
                     </div>
-                    <asp:ListBox runat="server" ID="ListModulosEmpresa" DataTextField="Padres" DataValueField="CveModulo" Height="300px"  SelectionMode="Multiple" ClientIDMode="Static" ></asp:ListBox>
+                    <asp:ListBox runat="server" ID="ListModulosEmpresa" DataTextField="Padres" DataValueField="CveModulo" Height="400px"  Width="500px" SelectionMode="Multiple" ClientIDMode="Static" ></asp:ListBox>
 
                 </div>
 

Ventas/ActualizarPrecios.aspx

@@ -216,13 +216,21 @@
                             </ItemTemplate>
                         </asp:TemplateField>
                         <asp:BoundField DataField="Codigo" ItemStyle-Width="5%" HeaderText="Código" />
-                        <asp:BoundField DataField="Codigo2" ItemStyle-Width="5%" HeaderText="Código CPK" Visible="false" />
+                        <%--<asp:BoundField DataField="Codigo2" ItemStyle-Width="5%" HeaderText="Código CPK"/>--%>
+                        <asp:TemplateField ItemStyle-Width="5%" Visible="false" >
+                            <HeaderTemplate>
+                                <asp:Literal ID="LtlCodigo2" runat="server" Text='<%# If(UsuarioActual.Empresa.Funcionalidad(531) = "1", "Código CPK", "Numero de parte") %>'></asp:Literal>
+                            </HeaderTemplate>
+                            <ItemTemplate>
+                                <asp:Literal ID="LtlCodigo2" runat="server" Text='<%# Eval("Codigo2", "{0}")%>'></asp:Literal>
+                            </ItemTemplate>
+                        </asp:TemplateField>
                         <asp:BoundField DataField="PS" HeaderText="Producto/Servicio" />
                         <asp:BoundField DataField="Clasificacion" ItemStyle-Width="15%" HeaderText="Clasificación" />
                         <asp:BoundField DataField="PrecioLista" NullDisplayText="N/A" ItemStyle-Width="10%" HeaderText="Importe" DataFormatString="$ {0:N2}" ItemStyle-HorizontalAlign="right" />
                         <asp:TemplateField HeaderText="">
                             <ItemTemplate>
-                                <asp:TextBox ID="TxtPrecio" runat="server" Text='<%# Eval("PrecioLista", "{0:0.######}")%>' CssClass="CssCamviaPrecio" MaxLength="39" Width="60px" onkeypress="return onlyNumberKey(event)"></asp:TextBox>
+                                <asp:TextBox ID="TxtPrecio" runat="server" Text='<%# Eval("PrecioLista", "{0:0.######}")%>' CssClass="CssCamviaPrecio" MaxLength="39" Width="90px" onkeypress="return onlyNumberKey(event)"></asp:TextBox>
                                 <%--<ajax:FilteredTextBoxExtender runat="server" TargetControlID="TxtPrecio" FilterType="Numbers,Custom" ValidChars="." />
                                 <asp:RegularExpressionValidator ID="REVTxtPrecio" runat="server" ControlToValidate="TxtPrecio" Display="None" EnableClientScript="True" ErrorMessage="El campo <b>''PrecioLista''</b> no tiene el formato correcto, por favor corrija e intente de nuevo (Solo formato numérico)." ValidationGroup="GrpGuardar" ValidationExpression="^[0-9]{1,15}(?:\.[0-9]{1,4})?$" />
                                 <ajax:ValidatorCalloutExtender ID="VCPrecio" runat="server" HighlightCssClass="vco" TargetControlID="REVTxtPrecio" Width="300px"></ajax:ValidatorCalloutExtender>--%>
@@ -291,7 +299,7 @@
                                         <asp:Label ID="LtlLista_1" runat="server"></asp:Label>
                                     </HeaderTemplate>
                                     <ItemTemplate>
-                                        <asp:TextBox ID="TxtPrecio_1" runat="server" CssClass="CssCamviaPrecio" MaxLength="39" Width="90%" onkeypress="return onlyNumberKey(event)" Style="text-align: right !important;"></asp:TextBox>
+                                        <asp:TextBox ID="TxtPrecio_1" runat="server" CssClass="CssCamviaPrecio" MaxLength="39" Width="80px" onkeypress="return onlyNumberKey(event)" Style="text-align: right !important;"></asp:TextBox>
                                     </ItemTemplate>
                                 </asp:TemplateField>
                                 <asp:TemplateField Visible="false" ItemStyle-Width="100px">
@@ -299,7 +307,7 @@
                                         <asp:Label ID="LtlLista_2" runat="server"></asp:Label>
                                     </HeaderTemplate>
                                     <ItemTemplate>
-                                        <asp:TextBox ID="TxtPrecio_2" runat="server" CssClass="CssCamviaPrecio" MaxLength="39" Width="90%" onkeypress="return onlyNumberKey(event)" Style="text-align: right !important;"></asp:TextBox>
+                                        <asp:TextBox ID="TxtPrecio_2" runat="server" CssClass="CssCamviaPrecio" MaxLength="39" Width="80px" onkeypress="return onlyNumberKey(event)" Style="text-align: right !important;"></asp:TextBox>
                                     </ItemTemplate>
                                 </asp:TemplateField>
                                 <asp:TemplateField Visible="false" ItemStyle-Width="100px">
@@ -307,7 +315,7 @@
                                         <asp:Label ID="LtlLista_3" runat="server"></asp:Label>
                                     </HeaderTemplate>
                                     <ItemTemplate>
-                                        <asp:TextBox ID="TxtPrecio_3" runat="server" CssClass="CssCamviaPrecio" MaxLength="39" Width="90%" onkeypress="return onlyNumberKey(event)" Style="text-align: right !important;"></asp:TextBox>
+                                        <asp:TextBox ID="TxtPrecio_3" runat="server" CssClass="CssCamviaPrecio" MaxLength="39" Width="80px" onkeypress="return onlyNumberKey(event)" Style="text-align: right !important;"></asp:TextBox>
                                     </ItemTemplate>
                                 </asp:TemplateField>
                                 <asp:TemplateField Visible="false" ItemStyle-Width="100px">
@@ -315,7 +323,7 @@
                                         <asp:Label ID="LtlLista_4" runat="server"></asp:Label>
                                     </HeaderTemplate>
                                     <ItemTemplate>
-                                        <asp:TextBox ID="TxtPrecio_4" runat="server" CssClass="CssCamviaPrecio" MaxLength="39" Width="90%" onkeypress="return onlyNumberKey(event)" Style="text-align: right !important;"></asp:TextBox>
+                                        <asp:TextBox ID="TxtPrecio_4" runat="server" CssClass="CssCamviaPrecio" MaxLength="39" Width="80px" onkeypress="return onlyNumberKey(event)" Style="text-align: right !important;"></asp:TextBox>
                                     </ItemTemplate>
                                 </asp:TemplateField>
                                 <asp:TemplateField Visible="false" ItemStyle-Width="100px">
@@ -323,7 +331,7 @@
                                         <asp:Label ID="LtlLista_5" runat="server"></asp:Label>
                                     </HeaderTemplate>
                                     <ItemTemplate>
-                                        <asp:TextBox ID="TxtPrecio_5" runat="server" CssClass="CssCamviaPrecio" MaxLength="39" Width="90%" onkeypress="return onlyNumberKey(event)" Style="text-align: right !important;"></asp:TextBox>
+                                        <asp:TextBox ID="TxtPrecio_5" runat="server" CssClass="CssCamviaPrecio" MaxLength="39" Width="80px" onkeypress="return onlyNumberKey(event)" Style="text-align: right !important;"></asp:TextBox>
                                     </ItemTemplate>
                                 </asp:TemplateField>
                                 <asp:TemplateField Visible="false" ItemStyle-Width="100px">
@@ -331,7 +339,7 @@
                                         <asp:Label ID="LtlLista_6" runat="server"></asp:Label>
                                     </HeaderTemplate>
                                     <ItemTemplate>
-                                        <asp:TextBox ID="TxtPrecio_6" runat="server" CssClass="CssCamviaPrecio" MaxLength="39" Width="90%" onkeypress="return onlyNumberKey(event)" Style="text-align: right !important;"></asp:TextBox>
+                                        <asp:TextBox ID="TxtPrecio_6" runat="server" CssClass="CssCamviaPrecio" MaxLength="39" Width="80px" onkeypress="return onlyNumberKey(event)" Style="text-align: right !important;"></asp:TextBox>
                                     </ItemTemplate>
                                 </asp:TemplateField>
                                 <asp:TemplateField Visible="false" ItemStyle-Width="100px">
@@ -339,7 +347,7 @@
                                         <asp:Label ID="LtlLista_7" runat="server"></asp:Label>
                                     </HeaderTemplate>
                                     <ItemTemplate>
-                                        <asp:TextBox ID="TxtPrecio_7" runat="server" CssClass="CssCamviaPrecio" MaxLength="39" Width="90%" onkeypress="return onlyNumberKey(event)" Style="text-align: right !important;"></asp:TextBox>
+                                        <asp:TextBox ID="TxtPrecio_7" runat="server" CssClass="CssCamviaPrecio" MaxLength="39" Width="80px" onkeypress="return onlyNumberKey(event)" Style="text-align: right !important;"></asp:TextBox>
                                     </ItemTemplate>
                                 </asp:TemplateField>
                                 <asp:TemplateField Visible="false" ItemStyle-Width="100px">
@@ -347,7 +355,7 @@
                                         <asp:Label ID="LtlLista_8" runat="server"></asp:Label>
                                     </HeaderTemplate>
                                     <ItemTemplate>
-                                        <asp:TextBox ID="TxtPrecio_8" runat="server" CssClass="CssCamviaPrecio" MaxLength="39" Width="90%" onkeypress="return onlyNumberKey(event)" Style="text-align: right !important;"></asp:TextBox>
+                                        <asp:TextBox ID="TxtPrecio_8" runat="server" CssClass="CssCamviaPrecio" MaxLength="39" Width="80px" onkeypress="return onlyNumberKey(event)" Style="text-align: right !important;"></asp:TextBox>
                                     </ItemTemplate>
                                 </asp:TemplateField>
                                 <asp:TemplateField Visible="false" ItemStyle-Width="100px">
@@ -355,7 +363,7 @@
                                         <asp:Label ID="LtlLista_9" runat="server"></asp:Label>
                                     </HeaderTemplate>
                                     <ItemTemplate>
-                                        <asp:TextBox ID="TxtPrecio_9" runat="server" CssClass="CssCamviaPrecio" MaxLength="39" Width="90%" onkeypress="return onlyNumberKey(event)" Style="text-align: right !important;"></asp:TextBox>
+                                        <asp:TextBox ID="TxtPrecio_9" runat="server" CssClass="CssCamviaPrecio" MaxLength="39" Width="80px" onkeypress="return onlyNumberKey(event)" Style="text-align: right !important;"></asp:TextBox>
                                     </ItemTemplate>
                                 </asp:TemplateField>
                                 <asp:TemplateField Visible="false" ItemStyle-Width="100px">
@@ -363,7 +371,7 @@
                                         <asp:Label ID="LtlLista_10" runat="server"></asp:Label>
                                     </HeaderTemplate>
                                     <ItemTemplate>
-                                        <asp:TextBox ID="TxtPrecio_10" runat="server" CssClass="CssCamviaPrecio" MaxLength="39" Width="90%" onkeypress="return onlyNumberKey(event)" Style="text-align: right !important;"></asp:TextBox>
+                                        <asp:TextBox ID="TxtPrecio_10" runat="server" CssClass="CssCamviaPrecio" MaxLength="39" Width="80px" onkeypress="return onlyNumberKey(event)" Style="text-align: right !important;"></asp:TextBox>
                                     </ItemTemplate>
                                 </asp:TemplateField>
                                 <asp:TemplateField Visible="false" ItemStyle-Width="100px">
@@ -371,7 +379,7 @@
                                         <asp:Label ID="LtlLista_11" runat="server"></asp:Label>
                                     </HeaderTemplate>
                                     <ItemTemplate>
-                                        <asp:TextBox ID="TxtPrecio_11" runat="server" CssClass="CssCamviaPrecio" MaxLength="39" Width="90%" onkeypress="return onlyNumberKey(event)" Style="text-align: right !important;"></asp:TextBox>
+                                        <asp:TextBox ID="TxtPrecio_11" runat="server" CssClass="CssCamviaPrecio" MaxLength="39" Width="80px" onkeypress="return onlyNumberKey(event)" Style="text-align: right !important;"></asp:TextBox>
                                     </ItemTemplate>
                                 </asp:TemplateField>
                                 <asp:TemplateField Visible="false" ItemStyle-Width="100px">
@@ -379,7 +387,7 @@
                                         <asp:Label ID="LtlLista_12" runat="server"></asp:Label>
                                     </HeaderTemplate>
                                     <ItemTemplate>
-                                        <asp:TextBox ID="TxtPrecio_12" runat="server" CssClass="CssCamviaPrecio" MaxLength="39" Width="90%" onkeypress="return onlyNumberKey(event)" Style="text-align: right !important;"></asp:TextBox>
+                                        <asp:TextBox ID="TxtPrecio_12" runat="server" CssClass="CssCamviaPrecio" MaxLength="39" Width="80px" onkeypress="return onlyNumberKey(event)" Style="text-align: right !important;"></asp:TextBox>
                                     </ItemTemplate>
                                 </asp:TemplateField>
                                 <asp:TemplateField Visible="false" ItemStyle-Width="100px">
@@ -387,7 +395,7 @@
                                         <asp:Label ID="LtlLista_13" runat="server"></asp:Label>
                                     </HeaderTemplate>
                                     <ItemTemplate>
-                                        <asp:TextBox ID="TxtPrecio_13" runat="server" CssClass="CssCamviaPrecio" MaxLength="39" Width="90%" onkeypress="return onlyNumberKey(event)" Style="text-align: right !important;"></asp:TextBox>
+                                        <asp:TextBox ID="TxtPrecio_13" runat="server" CssClass="CssCamviaPrecio" MaxLength="39" Width="80px" onkeypress="return onlyNumberKey(event)" Style="text-align: right !important;"></asp:TextBox>
                                     </ItemTemplate>
                                 </asp:TemplateField>
                                 <asp:TemplateField Visible="false" ItemStyle-Width="100px">
@@ -395,7 +403,7 @@
                                         <asp:Label ID="LtlLista_14" runat="server"></asp:Label>
                                     </HeaderTemplate>
                                     <ItemTemplate>
-                                        <asp:TextBox ID="TxtPrecio_14" runat="server" CssClass="CssCamviaPrecio" MaxLength="39" Width="90%" onkeypress="return onlyNumberKey(event)" Style="text-align: right !important;"></asp:TextBox>
+                                        <asp:TextBox ID="TxtPrecio_14" runat="server" CssClass="CssCamviaPrecio" MaxLength="39" Width="80px" onkeypress="return onlyNumberKey(event)" Style="text-align: right !important;"></asp:TextBox>
                                     </ItemTemplate>
                                 </asp:TemplateField>
                                 <asp:TemplateField Visible="false" ItemStyle-Width="100px">
@@ -403,9 +411,209 @@
                                         <asp:Label ID="LtlLista_15" runat="server"></asp:Label>
                                     </HeaderTemplate>
                                     <ItemTemplate>
-                                        <asp:TextBox ID="TxtPrecio_15" runat="server" CssClass="CssCamviaPrecio" MaxLength="39" Width="90%" onkeypress="return onlyNumberKey(event)" Style="text-align: right !important;"></asp:TextBox>
+                                        <asp:TextBox ID="TxtPrecio_15" runat="server" CssClass="CssCamviaPrecio" MaxLength="39" Width="80px" onkeypress="return onlyNumberKey(event)" Style="text-align: right !important;"></asp:TextBox>
                                     </ItemTemplate>
                                 </asp:TemplateField>
+                                <asp:TemplateField Visible="false" ItemStyle-Width="100px">
+                                    <HeaderTemplate>
+                                        <asp:Label ID="LtlLista_16" runat="server"></asp:Label>
+                                    </HeaderTemplate>
+                                    <ItemTemplate>
+                                        <asp:TextBox ID="TxtPrecio_16" runat="server" CssClass="CssCamviaPrecio" MaxLength="39" Width="80px" onkeypress="return onlyNumberKey(event)" Style="text-align: right !important;"></asp:TextBox>
+                                    </ItemTemplate>
+                                </asp:TemplateField>
+                                <asp:TemplateField Visible="false" ItemStyle-Width="100px">
+                                    <HeaderTemplate>
+                                        <asp:Label ID="LtlLista_17" runat="server"></asp:Label>
+                                    </HeaderTemplate>
+                                    <ItemTemplate>
+                                        <asp:TextBox ID="TxtPrecio_17" runat="server" CssClass="CssCamviaPrecio" MaxLength="39" Width="80px" onkeypress="return onlyNumberKey(event)" Style="text-align: right !important;"></asp:TextBox>
+                                    </ItemTemplate>
+                                </asp:TemplateField>
+                                                                <asp:TemplateField Visible="false" ItemStyle-Width="100px">
+                                    <HeaderTemplate>
+                                        <asp:Label ID="LtlLista_18" runat="server"></asp:Label>
+                                    </HeaderTemplate>
+                                    <ItemTemplate>
+                                        <asp:TextBox ID="TxtPrecio_18" runat="server" CssClass="CssCamviaPrecio" MaxLength="39" Width="80px" onkeypress="return onlyNumberKey(event)" Style="text-align: right !important;"></asp:TextBox>
+                                    </ItemTemplate>
+                                </asp:TemplateField>
+                                                                <asp:TemplateField Visible="false" ItemStyle-Width="100px">
+                                    <HeaderTemplate>
+                                        <asp:Label ID="LtlLista_19" runat="server"></asp:Label>
+                                    </HeaderTemplate>
+                                    <ItemTemplate>
+                                        <asp:TextBox ID="TxtPrecio_19" runat="server" CssClass="CssCamviaPrecio" MaxLength="39" Width="80px" onkeypress="return onlyNumberKey(event)" Style="text-align: right !important;"></asp:TextBox>
+                                    </ItemTemplate>
+                                </asp:TemplateField>
+                                                                <asp:TemplateField Visible="false" ItemStyle-Width="100px">
+                                    <HeaderTemplate>
+                                        <asp:Label ID="LtlLista_20" runat="server"></asp:Label>
+                                    </HeaderTemplate>
+                                    <ItemTemplate>
+                                        <asp:TextBox ID="TxtPrecio_20" runat="server" CssClass="CssCamviaPrecio" MaxLength="39" Width="80px" onkeypress="return onlyNumberKey(event)" Style="text-align: right !important;"></asp:TextBox>
+                                    </ItemTemplate>
+                                </asp:TemplateField>
+                                <asp:TemplateField Visible="false" ItemStyle-Width="100px">
+                                    <HeaderTemplate>
+                                        <asp:Label ID="LtlLista_21" runat="server"></asp:Label>
+                                    </HeaderTemplate>
+                                    <ItemTemplate>
+                                        <asp:TextBox ID="TxtPrecio_21" runat="server" CssClass="CssCamviaPrecio" MaxLength="39" Width="80px" onkeypress="return onlyNumberKey(event)" Style="text-align: right !important;"></asp:TextBox>
+                                    </ItemTemplate>
+                                </asp:TemplateField>
+                                <asp:TemplateField Visible="false" ItemStyle-Width="100px">
+                                    <HeaderTemplate>
+                                        <asp:Label ID="LtlLista_22" runat="server"></asp:Label>
+                                    </HeaderTemplate>
+                                    <ItemTemplate>
+                                        <asp:TextBox ID="TxtPrecio_22" runat="server" CssClass="CssCamviaPrecio" MaxLength="39" Width="80px" onkeypress="return onlyNumberKey(event)" Style="text-align: right !important;"></asp:TextBox>
+                                    </ItemTemplate>
+                                </asp:TemplateField>
+                                   <asp:TemplateField Visible="false" ItemStyle-Width="100px">
+                                    <HeaderTemplate>
+                                        <asp:Label ID="LtlLista_23" runat="server"></asp:Label>
+                                    </HeaderTemplate>
+                                    <ItemTemplate>
+                                        <asp:TextBox ID="TxtPrecio_23" runat="server" CssClass="CssCamviaPrecio" MaxLength="39" Width="80px" onkeypress="return onlyNumberKey(event)" Style="text-align: right !important;"></asp:TextBox>
+                                    </ItemTemplate>
+                                </asp:TemplateField>
+                                    <asp:TemplateField Visible="false" ItemStyle-Width="100px">
+                                    <HeaderTemplate>
+                                        <asp:Label ID="LtlLista_24" runat="server"></asp:Label>
+                                    </HeaderTemplate>
+                                    <ItemTemplate>
+                                        <asp:TextBox ID="TxtPrecio_24" runat="server" CssClass="CssCamviaPrecio" MaxLength="39" Width="80px" onkeypress="return onlyNumberKey(event)" Style="text-align: right !important;"></asp:TextBox>
+                                    </ItemTemplate>
+                                </asp:TemplateField>
+                                 <asp:TemplateField Visible="false" ItemStyle-Width="100px">
+                                    <HeaderTemplate>
+                                        <asp:Label ID="LtlLista_25" runat="server"></asp:Label>
+                                    </HeaderTemplate>
+                                    <ItemTemplate>
+                                        <asp:TextBox ID="TxtPrecio_25" runat="server" CssClass="CssCamviaPrecio" MaxLength="39" Width="80px" onkeypress="return onlyNumberKey(event)" Style="text-align: right !important;"></asp:TextBox>
+                                    </ItemTemplate>
+                                </asp:TemplateField>
+                                 <asp:TemplateField Visible="false" ItemStyle-Width="100px">
+                                     <HeaderTemplate>
+                                         <asp:Label ID="LtlLista_26" runat="server"></asp:Label>
+                                     </HeaderTemplate>
+                                     <ItemTemplate>
+                                         <asp:TextBox ID="TxtPrecio_26" runat="server" CssClass="CssCamviaPrecio" MaxLength="39" Width="80px" onkeypress="return onlyNumberKey(event)" Style="text-align: right !important;"></asp:TextBox>
+                                     </ItemTemplate>
+                                 </asp:TemplateField>
+                                 <asp:TemplateField Visible="false" ItemStyle-Width="100px">
+                                     <HeaderTemplate>
+                                         <asp:Label ID="LtlLista_27" runat="server"></asp:Label>
+                                     </HeaderTemplate>
+                                     <ItemTemplate>
+                                         <asp:TextBox ID="TxtPrecio_27" runat="server" CssClass="CssCamviaPrecio" MaxLength="39" Width="80px" onkeypress="return onlyNumberKey(event)" Style="text-align: right !important;"></asp:TextBox>
+                                     </ItemTemplate>
+                                 </asp:TemplateField>
+                                    <asp:TemplateField Visible="false" ItemStyle-Width="100px">
+                                     <HeaderTemplate>
+                                         <asp:Label ID="LtlLista_28" runat="server"></asp:Label>
+                                     </HeaderTemplate>
+                                     <ItemTemplate>
+                                         <asp:TextBox ID="TxtPrecio_28" runat="server" CssClass="CssCamviaPrecio" MaxLength="39" Width="80px" onkeypress="return onlyNumberKey(event)" Style="text-align: right !important;"></asp:TextBox>
+                                     </ItemTemplate>
+                                 </asp:TemplateField>
+                                     <asp:TemplateField Visible="false" ItemStyle-Width="100px">
+                                     <HeaderTemplate>
+                                         <asp:Label ID="LtlLista_29" runat="server"></asp:Label>
+                                     </HeaderTemplate>
+                                     <ItemTemplate>
+                                         <asp:TextBox ID="TxtPrecio_29" runat="server" CssClass="CssCamviaPrecio" MaxLength="39" Width="80px" onkeypress="return onlyNumberKey(event)" Style="text-align: right !important;"></asp:TextBox>
+                                     </ItemTemplate>
+                                 </asp:TemplateField>
+                                  <asp:TemplateField Visible="false" ItemStyle-Width="100px">
+                                     <HeaderTemplate>
+                                         <asp:Label ID="LtlLista_30" runat="server"></asp:Label>
+                                     </HeaderTemplate>
+                                     <ItemTemplate>
+                                         <asp:TextBox ID="TxtPrecio_30" runat="server" CssClass="CssCamviaPrecio" MaxLength="39" Width="80px" onkeypress="return onlyNumberKey(event)" Style="text-align: right !important;"></asp:TextBox>
+                                     </ItemTemplate>
+                                 </asp:TemplateField>
+                                <asp:TemplateField Visible="false" ItemStyle-Width="100px">
+                                    <HeaderTemplate>
+                                        <asp:Label ID="LtlLista_31" runat="server"></asp:Label>
+                                    </HeaderTemplate>
+                                    <ItemTemplate>
+                                        <asp:TextBox ID="TxtPrecio_31" runat="server" CssClass="CssCamviaPrecio" MaxLength="39" Width="80px" onkeypress="return onlyNumberKey(event)" Style="text-align: right !important;"></asp:TextBox>
+                                    </ItemTemplate>
+                                </asp:TemplateField>
+                                <asp:TemplateField Visible="false" ItemStyle-Width="100px">
+                                    <HeaderTemplate>
+                                        <asp:Label ID="LtlLista_32" runat="server"></asp:Label>
+                                    </HeaderTemplate>
+                                    <ItemTemplate>
+                                        <asp:TextBox ID="TxtPrecio_32" runat="server" CssClass="CssCamviaPrecio" MaxLength="39" Width="80px" onkeypress="return onlyNumberKey(event)" Style="text-align: right !important;"></asp:TextBox>
+                                    </ItemTemplate>
+                                </asp:TemplateField>
+                                   <asp:TemplateField Visible="false" ItemStyle-Width="100px">
+                                    <HeaderTemplate>
+                                        <asp:Label ID="LtlLista_33" runat="server"></asp:Label>
+                                    </HeaderTemplate>
+                                    <ItemTemplate>
+                                        <asp:TextBox ID="TxtPrecio_33" runat="server" CssClass="CssCamviaPrecio" MaxLength="39" Width="80px" onkeypress="return onlyNumberKey(event)" Style="text-align: right !important;"></asp:TextBox>
+                                    </ItemTemplate>
+                                </asp:TemplateField>
+                                    <asp:TemplateField Visible="false" ItemStyle-Width="100px">
+                                    <HeaderTemplate>
+                                        <asp:Label ID="LtlLista_34" runat="server"></asp:Label>
+                                    </HeaderTemplate>
+                                    <ItemTemplate>
+                                        <asp:TextBox ID="TxtPrecio_34" runat="server" CssClass="CssCamviaPrecio" MaxLength="39" Width="80px" onkeypress="return onlyNumberKey(event)" Style="text-align: right !important;"></asp:TextBox>
+                                    </ItemTemplate>
+                                </asp:TemplateField>
+                                 <asp:TemplateField Visible="false" ItemStyle-Width="100px">
+                                    <HeaderTemplate>
+                                        <asp:Label ID="LtlLista_35" runat="server"></asp:Label>
+                                    </HeaderTemplate>
+                                    <ItemTemplate>
+                                        <asp:TextBox ID="TxtPrecio_35" runat="server" CssClass="CssCamviaPrecio" MaxLength="39" Width="80px" onkeypress="return onlyNumberKey(event)" Style="text-align: right !important;"></asp:TextBox>
+                                    </ItemTemplate>
+                                </asp:TemplateField>
+                                 <asp:TemplateField Visible="false" ItemStyle-Width="100px">
+                                     <HeaderTemplate>
+                                         <asp:Label ID="LtlLista_36" runat="server"></asp:Label>
+                                     </HeaderTemplate>
+                                     <ItemTemplate>
+                                         <asp:TextBox ID="TxtPrecio_36" runat="server" CssClass="CssCamviaPrecio" MaxLength="39" Width="80px" onkeypress="return onlyNumberKey(event)" Style="text-align: right !important;"></asp:TextBox>
+                                     </ItemTemplate>
+                                 </asp:TemplateField>
+                                 <asp:TemplateField Visible="false" ItemStyle-Width="100px">
+                                     <HeaderTemplate>
+                                         <asp:Label ID="LtlLista_37" runat="server"></asp:Label>
+                                     </HeaderTemplate>
+                                     <ItemTemplate>
+                                         <asp:TextBox ID="TxtPrecio_37" runat="server" CssClass="CssCamviaPrecio" MaxLength="39" Width="80px" onkeypress="return onlyNumberKey(event)" Style="text-align: right !important;"></asp:TextBox>
+                                     </ItemTemplate>
+                                 </asp:TemplateField>
+                                    <asp:TemplateField Visible="false" ItemStyle-Width="100px">
+                                     <HeaderTemplate>
+                                         <asp:Label ID="LtlLista_38" runat="server"></asp:Label>
+                                     </HeaderTemplate>
+                                     <ItemTemplate>
+                                         <asp:TextBox ID="TxtPrecio_38" runat="server" CssClass="CssCamviaPrecio" MaxLength="39" Width="80px" onkeypress="return onlyNumberKey(event)" Style="text-align: right !important;"></asp:TextBox>
+                                     </ItemTemplate>
+                                 </asp:TemplateField>
+                                     <asp:TemplateField Visible="false" ItemStyle-Width="100px">
+                                     <HeaderTemplate>
+                                         <asp:Label ID="LtlLista_39" runat="server"></asp:Label>
+                                     </HeaderTemplate>
+                                     <ItemTemplate>
+                                         <asp:TextBox ID="TxtPrecio_39" runat="server" CssClass="CssCamviaPrecio" MaxLength="39" Width="80px" onkeypress="return onlyNumberKey(event)" Style="text-align: right !important;"></asp:TextBox>
+                                     </ItemTemplate>
+                                 </asp:TemplateField>
+                                  <asp:TemplateField Visible="false" ItemStyle-Width="100px">
+                                     <HeaderTemplate>
+                                         <asp:Label ID="LtlLista_40" runat="server"></asp:Label>
+                                     </HeaderTemplate>
+                                     <ItemTemplate>
+                                         <asp:TextBox ID="TxtPrecio_40" runat="server" CssClass="CssCamviaPrecio" MaxLength="39" Width="80px" onkeypress="return onlyNumberKey(event)" Style="text-align: right !important;"></asp:TextBox>
+                                     </ItemTemplate>
+                                 </asp:TemplateField>
                             </Columns>
                         </asp:GridView>
                     </div>

Ventas/ActualizarPrecios.aspx.vb

@@ -436,11 +436,16 @@ Partial Class Ventas_ActualizarPrecios
 
         DtExcel.Columns("Codigo").ColumnName = "Código"
         DtExcel.Columns("PS").ColumnName = "Producto / Servicio"
-        If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then 'Empresa Acumuladores
+        DtExcel.Columns("Codigo2").ColumnName = "Número de parte"
-            DtExcel.Columns("Codigo2").ColumnName = "Código CPK"
+
+        If UsuarioActual.Empresa.Funcionalidad(531) = "1" OrElse UsuarioActual.Empresa.Funcionalidad(578) = "1" Then 'Empresa Acumuladores
+            If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
+                DtExcel.Columns("Número de parte").ColumnName = "Código CPK"
+            End If
         Else
-            DtExcel.Columns.Remove("Codigo2")
+            DtExcel.Columns.Remove("Número de parte")
         End If
+
         SpreadsheetInfo.SetLicense(ModExtensiones.SerialGemBoxSpreadsheet)
 
         Dim FileExcel As New ExcelFile()
@@ -504,7 +509,16 @@ Partial Class Ventas_ActualizarPrecios
             'SI ES EMPRESA DE ACUMULADORES SE AGREGA LA COLUMNA "Código CPK"
             If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
                 If Not dt.Columns(IndiceActualColExcel).ColumnName = "Código CPK" Then
-                    Alert("El nombre de la segunda columna debe ser 'Precio'. Favor de corregirlo", TipoMensaje.MsgError)
+                    Alert("El nombre de la segunda columna debe ser 'Código CPK'. Favor de corregirlo", TipoMensaje.MsgError)
+                    Exit Sub
+                End If
+
+                IndiceActualColExcel += 1
+            End If
+
+            If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then
+                If Not dt.Columns(IndiceActualColExcel).ColumnName = "Número de parte" Then
+                    Alert("El nombre de la segunda columna debe ser 'Número de parte'. Favor de corregirlo", TipoMensaje.MsgError)
                     Exit Sub
                 End If
 
@@ -641,6 +655,10 @@ Partial Class Ventas_ActualizarPrecios
             DtExcel.Columns.Add(New DataColumn("Código CPK", GetType(String)))
         End If
 
+        If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then 'Empresa Acumuladores
+            DtExcel.Columns.Add(New DataColumn("Número de parte", GetType(String)))
+        End If
+
         DtExcel.Columns.Add(New DataColumn("Producto/Servicio", GetType(String)))
         DtExcel.Columns.Add(New DataColumn("Clasificación", GetType(String)))
         DtExcel.Columns.Add(New DataColumn("Importe", GetType(Decimal)))

Ventas/CatMedicos.aspx

@@ -149,7 +149,7 @@
                                     <div class="col-md-12" style="max-width:900px">
 
                                         <asp:GridView ID="GvIndicadores" runat="server" AutoGenerateColumns="False"
-                                            DataKeyNames=""
+                                            DataKeyNames="" data-sort="true"
                                             EmptyDataText="No se encontraron registros" ToolTip="Listado de Medicos" CssClass="table table-striped table-advance table-hover Widthall ScrollAD mysmallbtn" GridLines="None">
                                             <Columns>                                                
                                                 
@@ -226,6 +226,7 @@
 
                                 <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False"
                                     DataKeyNames="CveMedico,Medico,CedulaProfesional,FechaNacimiento,Notas,DiasAtencion,Horario,Lugar,Estatus,CveUsuario,FechaIng,CveEmpresa,Telefono,Mail,CveMedicoEspecialidad,CveMedicoSubEspecialidad,Celular,Consultorio,Torre"
+                                    data-sort="true"
                                     EmptyDataText="No se encontraron Medicos Registrados" ToolTip="Listado de Medicos" CssClass="table table-striped table-advance table-hover Widthall ScrollAD mysmallbtn" GridLines="None">
                                     <Columns>
                                         <asp:TemplateField HeaderText="Médico" ItemStyle-HorizontalAlign="Left">

Ventas/CatPreciosLista.aspx

@@ -27,7 +27,7 @@
     </div>
         <asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
         <ContentTemplate>
-            <asp:GridView ID="GvDatos" runat="server" GridLines="None" DataKeyNames="CvePrecioLista, PrecioLista, Estatus,Predeterminada" CssClass="table table-striped table-advance table-hover Widthall ScrollAD mysmallbtn" data-sort="true" CellSpacing="0" Width="100%" AutoGenerateColumns="False" EmptyDataText="No se encontraron registros" ToolTip="Listado de Compuestos Activos">
+            <asp:GridView ID="GvDatos" runat="server" GridLines="None" DataKeyNames="CvePrecioLista, PrecioLista, Estatus,Predeterminada" CssClass="table table-striped table-advance table-hover Widthall ScrollAD mysmallbtn" data-sort="true" CellSpacing="0" Width="100%" AutoGenerateColumns="False" EmptyDataText="No se encontraron registros">
                 <Columns>
                     <asp:BoundField DataField="PrecioLista" ItemStyle-Width="50%" HeaderText="Precio de lista" ItemStyle-HorizontalAlign="Left" />
                      <asp:TemplateField HeaderText="Predeterminada" ItemStyle-Width="20%" ItemStyle-HorizontalAlign="Center">
@@ -67,7 +67,7 @@
                         <h4 class="modal-title" id="myModalLabel">Guardar Precio de Lista</h4>
                     </div>
                     <div class="modal-body">
-                        <asp:UpdatePanel ID="UpBodyCompuesto" UpdateMode="Conditional" runat="server">
+                        <asp:UpdatePanel ID="UpBodyCo" UpdateMode="Conditional" runat="server">
                             <ContentTemplate>
                                 <div class="form-group form-md-line-input input-iconright">
                                     <asp:TextBox ID="TxtPrecioLista" runat="server" CssClass="form-control" CausesValidation="true"></asp:TextBox>

Ventas/CatPreciosLista.aspx.vb

@@ -59,7 +59,7 @@ Partial Class Ventas_CatPreciosLista
         EsEditar = 1
         BtnAgregarCatalogo.Text = "Actualizar"
         dvEstatus.Visible = True
-        UpBodyCompuesto.Update()
+        UpBodyCo.Update()
         UpFooter.Update()
         RegistraScript("$('#divAgregar').modal()")
     End Sub
@@ -92,7 +92,7 @@ Partial Class Ventas_CatPreciosLista
 
         CargaDatos()
         UpDatos.Update()
-        UpBodyCompuesto.Update()
+        UpBodyCo.Update()
 
     End Sub
 
@@ -129,7 +129,7 @@ Partial Class Ventas_CatPreciosLista
         BtnAgregarCatalogo.Text = "Agregar"
         TxtPrecioLista.Text = ""
         dvEstatus.Visible = False
-        UpBodyCompuesto.Update()
+        UpBodyCo.Update()
         UpFooter.Update()
     End Sub
 

Ventas/CatProcedimientos.aspx

@@ -149,6 +149,7 @@
 
                                         <asp:GridView ID="GvIndicadores" runat="server" AutoGenerateColumns="False"
                                             DataKeyNames=""
+                                            data-sort="true"
                                             EmptyDataText="No se encontraron registros" ToolTip="Listado de Medicos" CssClass="table table-striped table-advance table-hover Widthall ScrollAD mysmallbtn" GridLines="None">
                                             <Columns>                                                
                                                 <%--CveClave	Grupo	Total	nVentas	Utilidad	SerieFolio	Fecha--%>
@@ -230,6 +231,7 @@
                                                 <div style="max-width: 800px">
                                                     <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False"
                                                         DataKeyNames="CveProcedimiento, Procedimiento, Estatus, FechaIng, CveUsuario, CveEmpresa, Usuario, EstatusStr"
+                                                        data-sort="true"
                                                         EmptyDataText="No se encontraron Procedimientos Registrados" ToolTip="Listado de Procedimientos" CssClass="table table-striped table-advance table-hover Widthall ScrollAD" GridLines="None">
                                                         <Columns>
 

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>
@@ -817,35 +817,7 @@
                                          </div>
                                     </div>
                                 </div>
-                            </div>
+                            </div>                           
-
-                            <%-- Marcar el Cliente como Frecuente --%>
-                            <div class="col-md-6 " id="DivProtletRegistrar" visible="false" runat="server">
-                                <div class="portlet light xspadding bordered">
-                                    <div class="portlet-title">
-                                        <div class="caption font-green">
-                                            <i class="icon-pin font-green"></i>
-                                            <span class="caption-subject bold uppercase">Registrar</span>
-                                        </div>
-                                        <div class="actions">
-                                            <div class="btn-group">
-                                            </div>
-                                        </div>
-                                    </div>
-                                    <div class="portlet-body form">
-                                        <div class="table-responsive">
-                                            <table class="table table-striped table-advance table-hover" style="width: 100%">
-                                                <tr>
-                                                    <td style="text-align: center;">
-                                                        <asp:Button ID="BtnRegistrarCliente" runat="server" CssClass="btn btn-success" Text="Registrar" ValidationGroup="GrpGuardar" />
-                                                    </td>
-                                                </tr>
-                                            </table>
-                                        </div>
-                                    </div>
-                                </div>
-                            </div>
-
                             <div class="col-md-6 " id="DivPortletSucursales" runat="server">
                                 <div class="portlet light xspadding bordered">
                                     <div class="portlet-title">
@@ -1751,6 +1723,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 +1840,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 +1878,6 @@
                                                                     </div>
                                                                 </div>
 
-
-
-
-
                                                                 <div class="row">
                                                                     <div class="col-md-6">
                                                                         <div class="form-group form-md-line-input">
@@ -4620,8 +4588,8 @@
                                                 <div class="col-md-2" style="width: 120px">
                                                     <asp:DropDownList ID="DdlEstatusLineaAdicional" runat="server" CssClass="table-group-action-input form-control select2me">
                                                         <asp:ListItem Value="-1" Text="Todos" />
-                                                        <asp:ListItem Value="1" Text="Vinculado" />
+                                                        <asp:ListItem Selected="True" Value="1" Text="Activos" />
-                                                        <asp:ListItem Selected="True" Value="0" Text="Sin Registrar" />
+                                                        <asp:ListItem Value="0" Text="Cerrados" />
                                                     </asp:DropDownList>
                                                 </div>
                                             </div>
@@ -4647,7 +4615,7 @@
                                             <ContentTemplate>
 
                                                 <asp:GridView ID="GvLineasAdicionales" Width="100%" runat="server" GridLines="None"
-                                                    DataKeyNames="CveLineaAdicional,LineaAdicional,CveCliente,CveProveedor,TipoLinea,Importe,CveMoneda,FechaVencimiento,CveUsuario,CveCategoria,FechaIng,CveLineaAdicionalEstatus,Proveedor,DiasVencimiento"
+                                                    DataKeyNames="CveLineaAdicional,LineaAdicional,CveCliente,CveProveedor,TipoLinea,Importe,CveMoneda,FechaVencimiento,CveUsuario,CveCategoria,FechaIng,CveEstatus,Proveedor,DiasVencimiento"
                                                     CssClass="table table-striped table-advance table-hover mysmallbtn ScrollAD " ShowHeader="True" EmptyDataText="No se encontraron resultados." ShowHeaderWhenEmpty="true"
                                                     AutoGenerateColumns="False" AllowPaging="False" ShowFooter="False">
                                                     <Columns>
@@ -5200,27 +5168,33 @@
                                     </div>
                                 </div>
 
-                                <div class="form-group form-md-line-input input-iconright">
+                                <div class="row"  style="padding-left: 16px;">
-                                    <asp:TextBox ID="TxtCorreoSucursal" CssClass="form-control" runat="server" MaxLength="300" CausesValidation="true"></asp:TextBox>
+                                    <div class="form-group form-md-line-input input-iconright col-xs-6">
-                                    <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>
+                                        <asp:TextBox ID="TxtCorreoSucursal" CssClass="form-control" runat="server" MaxLength="300" CausesValidation="true"></asp:TextBox>
-                                    <label for="<%= TxtCorreoSucursal.ClientID.ToString()%>">Correo Envio Factura:(xml/pdf) </label>
+                                        <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>
-                                    <i></i>
+                                        <label for="<%= TxtCorreoSucursal.ClientID.ToString()%>">Correo Envio Factura:(xml/pdf) </label>
+                                        <i></i>
+                                    </div>
+
+                                    <div class="form-group form-md-line-input input-iconright col-xs-6">
+                                        <asp:TextBox ID="TxtCorreoSucursalCotizacion" CssClass="form-control" runat="server" MaxLength="300" CausesValidation="true"></asp:TextBox>
+                                        <asp:RegularExpressionValidator ID="RegularExpressionValidator3" runat="server" CssClass="help-block" 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="TxtCorreoSucursalCotizacion" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Email Cotización''</b> no es válido, por favor ingrése uno correcto." ValidationGroup="GrpGuardarSucursal"></asp:RegularExpressionValidator>
+                                        <label for="<%= TxtCorreoSucursal.ClientID.ToString()%>">Correo Envio Cotización: </label>
+                                        <i></i>
+                                    </div>
                                 </div>
-
+                                 <div class="row"  style="padding-left: 16px;" >
-                                <div class="form-group form-md-line-input input-iconright">
+                                    <div class="form-group form-md-line-input input-iconright col-xs-6">
-                                    <asp:TextBox ID="TxtCorreoSucursalCotizacion" CssClass="form-control" runat="server" MaxLength="300" CausesValidation="true"></asp:TextBox>
+                                        <asp:TextBox ID="TxtContactoSucursal" CssClass="form-control" runat="server" MaxLength="300" CausesValidation="true"></asp:TextBox>
-                                    <asp:RegularExpressionValidator ID="RegularExpressionValidator3" runat="server" CssClass="help-block" 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="TxtCorreoSucursalCotizacion" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Email Cotización''</b> no es válido, por favor ingrése uno correcto." ValidationGroup="GrpGuardarSucursal"></asp:RegularExpressionValidator>
+                                        <label for="<%= TxtContactoSucursal.ClientID.ToString()%>">Contacto:</label>
-                                    <label for="<%= TxtCorreoSucursal.ClientID.ToString()%>">Correo Envio Cotización: </label>
+                                        <i></i>
-                                    <i></i>
+                                    </div>
-                                </div>
+                                     <div class="form-group form-md-line-input input-iconright col-xs-6">
-
+                                        <asp:DropDownList ID="DdlResponsableSucursal" DataValueField="CveUsuario" DataTextField="Nombre" Width="150px" runat="server" CssClass="form-control  select2me">
-                                <div class="form-group form-md-line-input input-iconright">
+                                        </asp:DropDownList>
-                                    <asp:TextBox ID="TxtContactoSucursal" CssClass="form-control" runat="server" MaxLength="300" CausesValidation="true"></asp:TextBox>
+                                        <label for="<%= DdlResponsableSucursal.ClientID.ToString()%>">Responsable: </label>
-                                    <label for="<%= TxtContactoSucursal.ClientID.ToString()%>">Contacto:</label>
+                                    </div>
-                                    <i></i>
+                                 </div>
-                                </div>
-
-
 
                                 <div class="row" style="padding-left: 16px">
                                     <div class="form-group form-md-line-input input-iconright col-xs-6">
@@ -5256,7 +5230,7 @@
                                 </div>
 
 
-                                <div class="row" style="padding-left: 16px">
+                                <div class="row" style="display:none;" >
                                     <div class="form-group form-md-line-input input-iconright col-xs-6">
                                         <asp:DropDownList ID="DdlMetodoPagoSucursal" CssClass="form-control  select2me" runat="server" Width="250px" AppendDataBoundItems="true" CausesValidation="true" DataTextField="MetodoPago" DataValueField="CveMetodoPago" ValidationGroup="GrpGuardarSucursal">
                                             <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
@@ -5272,18 +5246,17 @@
                                     </div>
                                     <div class="form-group form-md-line-input input-iconright col-xs-6">
                                         <asp:TextBox ID="TxtLimiteCreditoSucursal" CssClass="form-control" runat="server" Enabled="false" MaxLength="50" CausesValidation="true"></asp:TextBox>
-                                        <label for="<%= TxtLimiteCreditoSucursal.ClientID.ToString()%>">Limite Crédito:</label>
+                                        <label for="<%= TxtLimiteCreditoSucursal.ClientID.ToString()%>">Límite Crédito:</label>
                                     </div>
                                 </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 ID="DdlResponsableSucursal" DataValueField="CveUsuario" DataTextField="Nombre" Width="150px" runat="server" CssClass="form-control  select2me">
+                                         <asp:DropDownList runat="server" ID="ddlAlmacenSucursal" DataTextField="Almacen" DataValueField="CveAlmacen" CssClass="form-control select2me" Width="100%"></asp:DropDownList>
-                                        </asp:DropDownList>
+                                         <label for="<%=ddlAlmacenSucursal.ClientID.ToString()%>">Almacén:</label>
-                                        <label for="<%= DdlResponsableSucursal.ClientID.ToString()%>">Responsable: </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-3">
+                                        <div id="DivEstatusSucursal" visible="false" runat="server" class="form-group form-md-line-input input-iconright col-xs-12">
                                             <asp:CheckBox runat="server" ID="ChkEstatusSucursal" Checked="true" AutoPostBack="false" />
                                             <label for="<%= ChkEstatusSucursal.ClientID.ToString()%>">Estatus Sucursal</label>
                                         </div>
@@ -6928,16 +6901,26 @@
                             </div>
 
                         </div>
+                         
+                          <div class="row">
+                            <div class="col-md-6">
+                                <div class="form-group form-md-line-input input-iconright">
 
-
+                                    <asp:DropDownList ID="DdlCategoriaLineaAdicionalModal" DataValueField="CveCategoria" DataTextField="Categoria" Width="250px" runat="server" CssClass="form-control  select2me">
-
+                                    </asp:DropDownList>
-
+                                    <label for="<%= DdlClasificacion.ClientID.ToString()%>">Categoria:</label>
-                        <div class="form-group form-md-line-input input-iconright">
+                                </div>
-
+                            </div>
-                            <asp:DropDownList ID="DdlCategoriaLineaAdicionalModal" DataValueField="CveCategoria" DataTextField="Categoria" Width="250px" runat="server" CssClass="form-control  select2me">
+                              <div class="col-md-6">
-                            </asp:DropDownList>
+                                  <div class="form-group form-md-line-input input-iconright">
-                            <label for="<%= DdlClasificacion.ClientID.ToString()%>">Categoria:</label>
+                                    <asp:DropDownList ID="DdlLAEstatus"   Width="250px" runat="server" CssClass="form-control  select2me">
-                        </div>
+                                        <asp:ListItem Text="Activo" Value="1"></asp:ListItem>
+                                        <asp:ListItem Text="Cerrado" Value="0"></asp:ListItem>
+                                  </asp:DropDownList>
+                                  <label for="<%= DdlLAEstatus.ClientID.ToString()%>">Estatus:</label>
+                                    </div
+                                 </div>
+                            </div>
 
 
 

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
@@ -1205,7 +1195,7 @@ Partial Class Clientes
         CargaVendedores()
 
 
-        CargaCorporativo()
+        'CargaCorporativo()
 
         CargaMetodosPago33()
         CargaFormaPago33()
@@ -1763,7 +1753,6 @@ Partial Class Clientes
                     'DivPortletBitacora.Visible = False
                     BtnEliminar.Visible = False
 
-                    DivProtletRegistrar.Visible = True
                 End If
 
                 TxtCorreoEntregaCompras.Text = ObjClientes.DtResultados(0)("CorreoEntregaCompras").ToString()
@@ -2583,8 +2572,9 @@ Partial Class Clientes
                             For Each Row As DataRow In TempDTSucursales.Rows
                                 If Not CveCliente > 0 Then
 
-                                    Dim CveAlmacenAsignadoSucursal As Integer = -1
+                                    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" Then
+
+                                    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 +2995,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()
 
 
@@ -3044,8 +3046,7 @@ Partial Class Clientes
         Dim LT As String = If(txtLt.Text.ToDouble <> 0, txtLt.Text, "0")
         Dim LG As String = If(txtLg.Text.ToDouble <> 0, txtLg.Text, "0")
         Dim RFC As String = If(String.IsNullOrEmpty(TxtRFCSucursal.Text), "-1", TxtRFCSucursal.Text)
-        Dim CveAlmacenAgregadoSucursal As Integer = -1
+        Dim CveAlmacenAgregadoSucursal As Integer = ddlAlmacenSucursal.SelectedValue.ToEntero
-
 
         If CveCliente > 0 Then
 
@@ -3053,7 +3054,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
@@ -3072,7 +3073,7 @@ Partial Class Clientes
                     Else
                         ProcesoOK = False
                     End If
-                    ObjCliente.Dispose()
+
 
                 Else
                     If ObjCliente.AddSucursal(CveCliente, TxtNombreSucursal.Text.Trim, UsuarioActual.CveUsuario, TxtCiudadSucursal.Text.Trim, TxtColoniaSucursal.Text.Trim, TxtCPSucursal.Text.Trim, TxtDireccionSucursal.Text.Trim, TxtEstadoSucursal.Text.Trim, TxtLocalidadSucursal.Text.Trim, TxtPaisSucursal.Text.Trim, TxtNumExtSucursal.Text.Trim, TxtNumIntSucursal.Text.Trim, TxtTelefonoSucursal.Text.Trim.Replace(" ", "").Replace("(", "").Replace(")", "").Replace("-", ""), TxtCorreoSucursal.Text.Trim, TxtCorreoSucursalCotizacion.Text.Trim, TxtContactoSucursal.Text.Trim,
@@ -3214,7 +3215,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 +3255,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 +5551,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
@@ -5830,19 +5846,8 @@ Partial Class Clientes
         Catch ex As Exception
             OnError("Ocurrió error al mandar MAIL", ex)
         End Try
-    End Sub
-
-    Private Sub BtnRegistrarCliente_Click(sender As Object, e As EventArgs) Handles BtnRegistrarCliente.Click
-        Dim ObjClientes As New ClsClientes
-
-        If ObjClientes.RegistrarCliente(CveCliente) Then
-            RegistraScript("location.reload();")
-        End If
-
-        ObjClientes.Dispose()
     End Sub
 
-
 #End Region
 
 #Region "C O N T R A T O S"
@@ -7447,7 +7452,7 @@ Partial Class Clientes
             Dim ciudad As String = ""
             Dim estado As String = ""
             Dim Telefono As String = ""
-            Dim mesArray = New String() {"enero", "febrero", "marzo", "abril", "mayo", "junio", "julio", "agosto", "septiembre", "octubre", "noviembre", "diciembre"}
+            Dim mesArray As String() = New String() {"enero", "febrero", "marzo", "abril", "mayo", "junio", "julio", "agosto", "septiembre", "octubre", "noviembre", "diciembre"}
             Dim hoy As DateTime = NowADS()
             Dim fechaConFormato As String = String.Format("{0} de {1} del {2}", hoy.Day, mesArray(hoy.Month), hoy.Year)
             Dim cpCliente As String = ""
@@ -9812,7 +9817,7 @@ Partial Class Clientes
         If CveFuncionalidad404.Contiene(30) And DdlTipoCliente.SelectedValue.ToEntero = 1 Then
             DivCrearPrecioLista.Visible = True
         Else
-            DivCrearPrecioLista.Visible = True
+            DivCrearPrecioLista.Visible = False
         End If
 
 
@@ -10276,7 +10281,7 @@ Partial Class Clientes
 
             If Not ObjVentas.UpdateLineasAdicionales(CveLineaAdicional, TxtLineaAdicionalModal.Text, CveCliente, DdlProveedorLineaAdicionalModal.SelectedValue.ToEntero, DdlTipoLineaAdicionalModal.SelectedValue.ToEntero, TxtImporteLineaAdicionalModal.Text.ToDecimal,
                                            DdlMonedaLineAdicionalModal.SelectedValue.ToEntero, TxtFechaVencimientoLineaAdicionalModal.Text.ToDate, UsuarioActual.CveUsuario, DdlCategoriaLineaAdicionalModal.SelectedValue.ToEntero, UsuarioActual.CveEmpresa,
-                                           DiasVencimiento:=TxtDiasVencimientoLineaAdicionalModal.Text.ToEntero) Then
+                                           DiasVencimiento:=TxtDiasVencimientoLineaAdicionalModal.Text.ToEntero, CveLineaAdicionalEstatus:=DdlLAEstatus.SelectedValue.ToEntero) Then
                 ErrorAgregar = True
             Else
                 Alert("Linea Adicional Actualizada Correctamente")
@@ -10322,6 +10327,7 @@ Partial Class Clientes
         TxtImporteLineaAdicionalModal.Text = GvRow.DataKey("Importe").ToDecimal.ToString("###,###,###.00")
         DdlMonedaLineAdicionalModal.SelectedValueExist(GvRow.DataKey("CveMoneda").ToEntero)
         TxtDiasVencimientoLineaAdicionalModal.Text = GvRow.DataKey("DiasVencimiento").ToEntero.ToString
+        DdlLAEstatus.SelectedValueExist(GvRow.DataKey("CveEstatus"))
         DdlTipoLineaAdicionalModal_SelectedIndexChanged(Nothing, Nothing)
         RegistraScript("$('#DVLineasAdicionales').modal('show')")
 
@@ -10353,7 +10359,7 @@ Partial Class Clientes
     Protected Sub DdlTipoLineaAdicionalModal_SelectedIndexChanged(sender As Object, e As EventArgs)
 
         DvLineaAdicionalDiasVenciemientoModal.Visible = If(DdlTipoLineaAdicionalModal.SelectedValue.ToEntero = 2, True, False)
-        DvFechaVencimiento.Visible = If(DdlTipoLineaAdicionalModal.SelectedValue.ToEntero = 2, False, True)
+        'DvFechaVencimiento.Visible = If(DdlTipoLineaAdicionalModal.SelectedValue.ToEntero = 2, False, True)
         UpLineaAdicionalmodal.Update()
 
     End Sub
@@ -10524,10 +10530,49 @@ Partial Class Clientes
 
         Dim CveAlmacenAgregado As Integer = -1
         Dim ObjInv As New ClsInventarios(transaccionSQL)
+        Dim nombreAlamacenLibre As Boolean = True
+        Dim ProcesoValidaAlamcenOF As Boolean = True
 
-        If ObjInv.AddAlmacen(NombreAlmacen, 1, 1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, DdlSubProyecto.SelectedValue.ToEntero) Then
+        If ObjInv.GetAlmacenes(-1, -1, UsuarioActual.CveEmpresa, -1) Then
-            CveAlmacenAgregado = ObjInv.CveAlmacenAgregado
+            nombreAlamacenLibre = If(ObjInv.DtResultados.FiltraParametros($" Almacen = '{NombreAlmacen}'").Rows.Count > 0, False, True)
-            GlobalDTAlmacen(UsuarioActual.CveEmpresa) = Nothing
+
+            If Not nombreAlamacenLibre Then
+
+                NombreAlmacen = $"{TxtNombreCorto.Text} {NombreAlmacen}".Trim
+                If ObjInv.GetAlmacenes(-1, -1, UsuarioActual.CveEmpresa, -1) Then
+
+                    nombreAlamacenLibre = If(ObjInv.DtResultados.FiltraParametros($" Almacen = '{NombreAlmacen}'").Rows.Count > 0, False, True)
+                    If Not nombreAlamacenLibre Then
+
+                        NombreAlmacen = $"{TxtNombre.Text} {NombreAlmacen}".Trim
+                        If ObjInv.GetAlmacenes(-1, -1, UsuarioActual.CveEmpresa, -1) Then
+
+                            nombreAlamacenLibre = If(ObjInv.DtResultados.FiltraParametros($" Almacen = '{NombreAlmacen}'").Rows.Count > 0, False, True)
+
+                        Else
+                            ProcesoValidaAlamcenOF = False
+                        End If
+                    End If
+                Else
+                    ProcesoValidaAlamcenOF = False
+                End If
+            End If
+
+        Else
+            ProcesoValidaAlamcenOF = False
+        End If
+
+        If ProcesoValidaAlamcenOF Then
+            If nombreAlamacenLibre Then
+                If ObjInv.AddAlmacen(NombreAlmacen, 1, 1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, DdlSubProyecto.SelectedValue.ToEntero) Then
+                    CveAlmacenAgregado = ObjInv.CveAlmacenAgregado
+                    GlobalDTAlmacen(UsuarioActual.CveEmpresa) = Nothing
+                End If
+            Else
+                Alert($"El almacén {NombreAlmacen} ya existe.", TipoMensaje.MsgAdvertencia)
+            End If
+        Else
+            Alert($"No se pudo validar el almacén {NombreAlmacen}.", TipoMensaje.MsgAdvertencia)
         End If
 
         Return CveAlmacenAgregado

Ventas/ProductosServicios.aspx

@@ -105,17 +105,17 @@
                                                 <label class="truncate" style="padding-left: 16px;" for="<%= TxtCodigo.ClientID.ToString()%>">Número de Parte / Código:</label>
                                                 <i></i>
                                             </div>                                            
-
+                                            <div class="form-group form-md-line-input input-iconright col-xs-4">
+                                                <asp:TextBox ID="TxtNumeroParte" CssClass="form-control " runat="server" MaxLength="50" ></asp:TextBox>
+                                                <label class="truncate" style="padding-left: 16px;" for="<%= TxtNumeroParte.ClientID.ToString()%>"><asp:Literal ID="LtlNumberParte" runat="server" Text="Código CPK"></asp:Literal>:</label>
+                                                <i></i>
+                                            </div>
                                             <div class="form-group form-md-line-input input-iconright col-xs-4">
                                                 <asp:TextBox ID="TxtCodigoBarras" CssClass="form-control " runat="server" MaxLength="50"></asp:TextBox>
                                                 <label class="truncate" style="padding-left: 16px;" for="<%= TxtCodigoBarras.ClientID.ToString()%>">Código Barras:</label>
                                                 <i></i>
                                             </div>
-                                            <div class="form-group form-md-line-input input-iconright col-xs-4" id="divCodigo2" runat="server" visible ="false">
+                                            
-                                                <asp:TextBox ID="TxtCodigo2" CssClass="form-control " runat="server" MaxLength="50" ></asp:TextBox>
-                                                <label class="truncate" style="padding-left: 16px;" for="<%= TxtCodigo2.ClientID.ToString()%>">Código CPK:</label>
-                                                <i></i>
-                                            </div>
 
                                             <%--<div class="form-group form-md-line-input input-iconright col-xs-1">
                                                 <asp:LinkButton ID="LnkModalCodigoBarrasQr" runat="server">

Ventas/ProductosServicios.aspx.vb

@@ -376,15 +376,20 @@ Partial Class ProductosyServicios
 
         If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
             DivPSAdicionalVigencia.Visible = True
-            divCodigo2.Visible = True
             divLitraje.Visible = True
             DivClasificacion2.Visible = True
             CargaPSAdicionalesVigencias()
 
             DdlTamanio.DataSource = GlobalDTAcumTamaños(UsuarioActual.CveEmpresa)
             DdlTamanio.DataBind()
+
+            LtlNumberParte.Text = "Código CPK"
+        Else
+            LtlNumberParte.Text = "Número de parte"
         End If
 
+
+
         divPrecio.Visible = UsuarioActual.Empresa.Funcionalidad(404) = "" ' si tiene lista de precio, se oculta el precio por ps
 
         If UsuarioActual.CveEmpresa = 1 Then
@@ -943,7 +948,7 @@ Partial Class ProductosyServicios
                 DdlMarca.SelectedValue = ObjProductosServicios.CveMarca.ToString
                 DdlMarcaPSDes.SelectedValue = ObjProductosServicios.CveMarca.ToString
                 TxtCodigo.Text = ObjProductosServicios.Codigo
-                TxtCodigo2.Text = ObjProductosServicios.Codigo2
+                TxtNumeroParte.Text = ObjProductosServicios.Codigo2
                 TxtCodigoBarras.Text = ObjProductosServicios.CodigoBarras
                 CodigoBarrasCargado = ObjProductosServicios.CodigoBarras
                 TxtLitraje.Text = ObjProductosServicios.DtResultados.Rows(0)("Litraje").ToString
@@ -1567,7 +1572,7 @@ Partial Class ProductosyServicios
                 Dim PSS As String = TxtPS.Text.Trim.Replace("|", "")
                 If UsuarioActual.CveEmpresa.Contiene(1, 72, 80) Then PSS = PSS.ToUpper
 
-                If ObjProductosServicios.UpdatePS(DdlClasificacion.SelectedValue.ToEntero, -1, DdlUnidadMedida.SelectedValue.ToEntero, TxtCodigo.Text.Trim, TxtCodigo2.Text.Trim, TxtCodigoBarras.Text.Trim, PSS,
+                If ObjProductosServicios.UpdatePS(DdlClasificacion.SelectedValue.ToEntero, -1, DdlUnidadMedida.SelectedValue.ToEntero, TxtCodigo.Text.Trim, TxtNumeroParte.Text.Trim, TxtCodigoBarras.Text.Trim, PSS,
                                                   TxtPrecio.Text.Trim.ToDouble, DdlIVA.SelectedValue.ToDouble, (TxtRetIVA.Text.Trim.ToDouble / 100), ChkInventariable.Checked, CveProveedor, True,
                                                   ChkAplicaParaVenta.Checked, ChkEstado.Checked, UsuarioActual.CveUsuario, CvePS, CveMetodoInv, EsPaquete, DdlSATPS.SelectedValue.ToEntero, UsuarioActual.CveEmpresa,
                                                   CveTipoPS:=DdlTipoPS.SelectedValue.ToEntero, TipoServicio:=-1, CveClasificacion2:=CveClasificacion2, CveMarca:=CveMarca, AlmacenSeccion:=TxtAlmacenSeccion.Text.Trim,

Ventas/RepProductosServicios.aspx

@@ -472,9 +472,9 @@
                             <asp:UpdatePanel runat="server" ID="UpBodyTipoCambio" UpdateMode="Conditional">
                                 <ContentTemplate>
                                     <asp:RadioButtonList runat="server" ID="RblTipoCambio" AutoPostBack="true">
-                                        <asp:ListItem Selected="true" Text="Moneda Original" Value="1"></asp:ListItem>
+                                        <asp:ListItem Selected="true" Text="Moneda original" Value="1"></asp:ListItem>
-                                        <asp:ListItem Text="Dólares en Tipo Cambio de la Fecha Compra" Value="2"></asp:ListItem>
+                                        <asp:ListItem Text="Dólares en tipo cambio de la venta" Value="2"></asp:ListItem>
-                                        <asp:ListItem Text="Tipo Cambio Especifico" Value="3"></asp:ListItem>
+                                        <asp:ListItem Text="Tipo cambio especifico" Value="3"></asp:ListItem>
                                     </asp:RadioButtonList>
 
                                     <div class="row" style="margin-left: 10px;" runat="server" id="LiEspecifico" visible="false">

Ventas/Ventas.aspx

@@ -377,9 +377,13 @@
             <li>
                 <asp:LinkButton ID="LnkSolicitarCredito" Visible="false" runat="server"><i class="fa fa-plus"></i>Solicitar autorización de crédito</asp:LinkButton>
             </li>
-<%--            <li>
+            <%--            <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" />
@@ -564,17 +568,17 @@
 
 
 
-                             <tr runat="server" id="TrVentasMedicas1" visible="false">
+                            <tr runat="server" id="TrVentasMedicas1" visible="false">
                                 <td><b>Médico:</b></td>
                                 <td>
                                     <asp:DropDownList ID="DdlMedico" CssClass="form-control  select2me" runat="server" AppendDataBoundItems="true" CausesValidation="true" DataTextField="Medico" DataValueField="CveMedico">
-                                        <asp:ListItem Value="-1">Seleccione uno</asp:ListItem>
+                                        <asp:ListItem Value="-1">-</asp:ListItem>
                                     </asp:DropDownList>
                                 </td>
                                 <td><b>Procedimiento:</b></td>
                                 <td>
                                     <asp:DropDownList ID="DdlProcedimiento" CssClass="form-control  select2me" runat="server" AppendDataBoundItems="true" CausesValidation="true" DataTextField="Procedimiento" DataValueField="CveProcedimiento" Width="130px">
-                                        <asp:ListItem Value="-1">Seleccione uno</asp:ListItem>
+                                        <asp:ListItem Value="-1">-</asp:ListItem>
                                     </asp:DropDownList>
                                 </td>
                             </tr>
@@ -584,14 +588,14 @@
                                     <b>Requiere Técnico:</b>
                                 </td>
                                 <td runat="server" id="TdRequiereTecnico2" visible="false">
-                                    <asp:CheckBox ID="ChkRequiereTecnico" runat="server"   CssClass="chksino"  OnCheckedChanged="ChkRequiereTecnico_CheckedChanged" AutoPostBack="true" Text="Requiere Técnico:" />
+                                    <asp:CheckBox ID="ChkRequiereTecnico" runat="server" CssClass="chksino" OnCheckedChanged="ChkRequiereTecnico_CheckedChanged" AutoPostBack="true" Text="Requiere Técnico:" />
                                 </td>
-                                <td  runat="server" id="TdFechaOS1" visible ="false">
+                                <td runat="server" id="TdFechaOS1" visible="false">
                                     <b>Fecha de Cirugia:</b>
                                 </td>
-                                <td runat="server" id="TdFechaOS2" visible ="false"> 
+                                <td runat="server" id="TdFechaOS2" visible="false">
-                                    <asp:TextBox ID="TxtFechaOS" type="datetime-local" runat="server"  CssClass="make-switchsd"   CausesValidation="true" Style="width: 130px" step="1"></asp:TextBox>
+                                    <asp:TextBox ID="TxtFechaOS" type="datetime-local" runat="server" CssClass="make-switchsd" CausesValidation="true" Style="width: 130px" ></asp:TextBox>
-                                </td>                                
+                                </td>
                             </tr>
                         </table>
                     </div>
@@ -1019,10 +1023,10 @@
                                                 <th>Total&nbsp;<asp:LinkButton ID="ImgDescConcepto" runat="server" Text="<i class='fa fa-comment-o'></i>" Style="cursor: pointer;" AlternateText="Agregar Descuento" /></th>
                                                 <th style="width: 100px;" colspan="3">Comandos
                                                      <div id="DivClienteMsg" visible="false" clientidmode="Static" runat="server" class="alert alert-warning" style="width: 155px; padding: 5px; margin-bottom: 5px; padding-right: 15px;">
-                                                        <p style="font-size: 7pt">
+                                                         <p style="font-size: 7pt">
-                                                            <asp:Literal Text="" runat="server" ID="LtlClienteMsg"></asp:Literal>
+                                                             <asp:Literal Text="" runat="server" ID="LtlClienteMsg"></asp:Literal>
-                                                        </p>
+                                                         </p>
-                                                    </div>
+                                                     </div>
                                                 </th>
                                                 <th></th>
                                                 <th runat="server" visible="false" id="nomostrar2"></th>
@@ -1069,7 +1073,7 @@
                                                                 <asp:HiddenField ID="HdnPS" runat="server" Value="-1" />
                                                                 <asp:HiddenField ID="HdnCodigoPS" runat="server" Value="-1" />
                                                                 <asp:HiddenField ID="HdnTipoPS" runat="server" Value="-1" />
-                                                                <asp:HiddenField ID="HdnTipoInv" runat="server" Value="-1" />  
+                                                                <asp:HiddenField ID="HdnTipoInv" runat="server" Value="-1" />
                                                                 <asp:HiddenField ID="HdnCodigo" runat="server" Value="-1" />
                                                                 <asp:HiddenField ID="HdnAplicaIEPS" runat="server" Value="-1" />
                                                                 <asp:HiddenField ID="HdnPorcentajeIEPS" runat="server" Value="-1" />
@@ -1099,7 +1103,7 @@
                                                 </th>
                                                 <th id="ThCantidadFacturada2" runat="server" visible="false"></th>
                                                 <th id="ThCantidadFacturadaRem2" runat="server" visible="false"></th>
-                                                 <th id="ThProyecto2" runat="server">
+                                                <th id="ThProyecto2" runat="server">
                                                     <asp:UpdatePanel ID="UPPProy" runat="server" UpdateMode="Conditional">
                                                         <ContentTemplate>
                                                             <asp:DropDownList ID="DdlProyecto" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="Proyecto" DataValueField="CveProyecto" Width="100%">
@@ -1142,7 +1146,7 @@
                                                     <asp:Label ID="LblTotalPS" runat="server" ClientIDMode="Static" Text="0.00"></asp:Label></th>
                                                 <th align="center" colspan="3">
                                                     <asp:LinkButton ID="LbAgregar" ClientIDMode="Static" runat="server" CssClass="btn btn-default " Enabled="false" Text="Agregar" ValidationGroup="GprAgregaPS" />
-                                                   
+
                                                 </th>
                                                 <%--<th style="text-align: center;">
                                                     <asp:LinkButton ID="LbVerInventario" ClientIDMode="Static" runat="server" CssClass="btn btn-circle btn-sm purple" Text="<i class='icon-magnifier'></i>"></asp:LinkButton>
@@ -1155,7 +1159,7 @@
                                         <%--</asp:Panel>--%>
 
                                         <asp:GridView ID="GvPS" GridLines="None" runat="server" data-tableheader="#tbps" ShowHeader="true" AutoGenerateColumns="False"
-                                            DataKeyNames="Consec,CvePS,Total, IEPS, CveClasificacion,CveUM,CveProyecto,CveSubProyecto,TipoDocto,PS,Obs,Cantidad,PU,Descuento,IVA,CantidadInventario,CantidadFacturadaRem,CveVentaDetalle,CvePromocionDetalle"
+                                            DataKeyNames="Consec,CvePS,Total, IEPS, CveClasificacion,Clasificacion,CveUM,UM,CveProyecto,CveSubProyecto,TipoDocto,PS,Obs,Cantidad,PU,Descuento,IVA,CantidadInventario,CantidadFacturadaRem,CveVentaDetalle,CvePromocionDetalle"
                                             CssClass="table table-striped table-advance table-hover Widthall Sortable mysmallbtn ScrollAD" Style="min-width: 980px;">
                                             <Columns>
                                                 <%--0--%>
@@ -2389,14 +2393,14 @@
 
                                                         <div class="tools">
                                                             Emitir:                                                             
-                                                            <asp:CheckBox ID="ChkEmitirCartaPorte" runat="server" CssClass="chksino" Text=" " OnCheckedChanged="ChkEmitirCartaPorte_CheckedChanged" AutoPostBack="true" />                                                                
+                                                            <asp:CheckBox ID="ChkEmitirCartaPorte" runat="server" CssClass="chksino" Text=" " OnCheckedChanged="ChkEmitirCartaPorte_CheckedChanged" AutoPostBack="true" />
                                                             <a href="javascript:;" class="collapse"></a>
                                                         </div>
                                                     </div>
                                                     <div class="portlet-body ">
                                                         <div class="rowpadding">
                                                             <asp:UpdatePanel ID="UpEmitirTransitorio" runat="server" UpdateMode="Conditional">
-                                                                <ContentTemplate>                                                                    
+                                                                <ContentTemplate>
                                                                     <div class="row">
                                                                         <label class="col-md-2">Origen:</label>
                                                                         <div class="col-md-10">
@@ -2404,7 +2408,7 @@
                                                                                 <asp:ListItem Selected="true" Text="Seleccione" Value="-1"></asp:ListItem>
                                                                             </asp:DropDownList>
                                                                         </div>
-                                                                    </div>                                                                  
+                                                                    </div>
                                                                     <div class="row">
                                                                         <label class="col-md-2">Destino:</label>
                                                                         <div class="col-md-10">
@@ -2412,7 +2416,7 @@
                                                                                 <asp:ListItem Selected="true" Text="Seleccione" Value="-1"></asp:ListItem>
                                                                             </asp:DropDownList>
                                                                         </div>
-                                                                    </div>                                                                   
+                                                                    </div>
                                                                     <div class="row">
                                                                         <label class="col-md-2">F. Salida:</label>
                                                                         <div class="col-md-4">
@@ -2434,7 +2438,7 @@
                                                                                 </li>
                                                                             </ul>
                                                                         </div>
-                                                                    </div>                                                                   
+                                                                    </div>
                                                                     <div class="row">
                                                                         <div class="col-md-6">
                                                                             <div class="row rowpadding">
@@ -3486,7 +3490,7 @@
                     </ContentTemplate>
                 </ajax:TabPanel>
 
-                <ajax:TabPanel ID="TabAuxiliarConta" ClientIDMode="Static"  Enabled="true" runat="server" HeaderText="Contabilidad" Visible="false">                     
+                <ajax:TabPanel ID="TabAuxiliarConta" ClientIDMode="Static" Enabled="true" runat="server" HeaderText="Contabilidad" Visible="false">
                     <ContentTemplate>
                         <asp:Literal ID="LtlTipo1" runat="server"></asp:Literal>
                         <asp:Button ID="BtnCargaAuxiliarConta" runat="server" ClientIDMode="Static" Text="" Style="display: none;" OnClick="BtnCargaAuxiliarConta_Click" />
@@ -4093,7 +4097,7 @@
                             </tr>
                             <tr align="left" id="TrObsMedico2" visible="false" runat="server">
                                 <td>
-                                     <asp:DropDownList ID="DdlMedicoObservaciones" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" CausesValidation="true" DataTextField="Medico" DataValueField="CveMedico"  Enabled="false" >
+                                    <asp:DropDownList ID="DdlMedicoObservaciones" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" CausesValidation="true" DataTextField="Medico" DataValueField="CveMedico" Enabled="false">
                                         <asp:ListItem Value="-1">Seleccione uno</asp:ListItem>
                                     </asp:DropDownList>
                                 </td>
@@ -4105,7 +4109,7 @@
                             </tr>
                             <tr align="left" id="TrObsProcedimiento2" visible="false" runat="server">
                                 <td>
-                                     <asp:DropDownList ID="DdlProcedimientoObservaciones" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" CausesValidation="true" DataTextField="Procedimiento" DataValueField="CveProcedimiento" Enabled="false" >
+                                    <asp:DropDownList ID="DdlProcedimientoObservaciones" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" CausesValidation="true" DataTextField="Procedimiento" DataValueField="CveProcedimiento" Enabled="false">
                                         <asp:ListItem Value="-1">Seleccione uno</asp:ListItem>
                                     </asp:DropDownList>
                                 </td>
@@ -4121,7 +4125,7 @@
         <div class="col-md-3" align="right">
             <div class="row">
                 <div class="col-md-12" align="right" style="padding-bottom: 15px;">
-                    <asp:UpdatePanel ID="UpFacturar" runat="server" class="portlet light xspadding bordered " style=" max-width: 300px;" align="right" UpdateMode="Conditional">
+                    <asp:UpdatePanel ID="UpFacturar" runat="server" class="portlet light xspadding bordered " style="max-width: 300px;" align="right" UpdateMode="Conditional">
                         <Triggers>
                             <asp:PostBackTrigger ControlID="BtnVistaPrevia" />
                         </Triggers>
@@ -4196,18 +4200,18 @@
                                             <asp:Button ID="BtnCrearApartirDe" runat="server" Text="Crear a partir de" CssClass="btn myventasbutton btn-primary" Visible="false" />
 
                                             <asp:Button ID="BtnEditar" runat="server" Text="Editar" CssClass="btn myventasbutton btn-primary" Visible="false" />
-                                            
+
-                                                <asp:LinkButton ID="BtnAdjuntar" runat="server" Visible="false" Text="<i class='fa-upload fa' style=' color: white;'></i>  Adjuntar" data-toggle="modal" data-target="#ModalAdjuntar" CssClass="btn myventasbutton btn-primary" />
+                                            <asp:LinkButton ID="BtnAdjuntar" runat="server" Visible="false" Text="<i class='fa-upload fa' style=' color: white;'></i>  Adjuntar" data-toggle="modal" data-target="#ModalAdjuntar" CssClass="btn myventasbutton btn-primary" />
-                                                <asp:LinkButton ID="BtnArchivoAdjunto" runat="server"  Visible="false" Text="" Font-Size="14px" />
+                                            <asp:LinkButton ID="BtnArchivoAdjunto" runat="server" Visible="false" Text="" Font-Size="14px" />
-                                                <asp:LinkButton ID="BtnEliminarAdjunto" runat="server"  Visible="false" AlternateText="Eliminar" CausesValidation="False" CommandName="Delete" CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="confirmar" data-btn-ok-label="si"  />
+                                            <asp:LinkButton ID="BtnEliminarAdjunto" runat="server" Visible="false" AlternateText="Eliminar" CausesValidation="False" CommandName="Delete" CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="confirmar" data-btn-ok-label="si" />
-                                                   
+
                                         </td>
                                     </tr>
                                 </table>
                             </div>
                         </ContentTemplate>
                     </asp:UpdatePanel>
-                </div>               
+                </div>
             </div>
         </div>
     </div>
@@ -5377,8 +5381,8 @@
                                                         Cantidad
                                                     </HeaderTemplate>
                                                     <ItemTemplate>
-                                                        <asp:TextBox ID="TxtCantidadRem" runat="server" style="text-align:right;" Text='<%#Eval("Cantidad", "{0:#,###.#####}").ToString%>' MaxLength="12" Width="46px" Height="24px"></asp:TextBox>
+                                                        <asp:TextBox ID="TxtCantidadRem" runat="server" Style="text-align: right;" Text='<%#Eval("Cantidad", "{0:#,###.#####}").ToString%>' MaxLength="12" Width="46px" Height="24px"></asp:TextBox>
-                                                        <asp:RangeValidator ID="RVCantRem" runat="server" Type="Double" MinimumValue="0" MaximumValue='<%#Eval("Cantidad", "{0:####.#####}").ToString%>' ErrorMessage="Cantidad Excedida" ControlToValidate="TxtCantidadRem"  ValidationGroup="GprGvRemPS" Display="Dynamic" SetFocusOnError="True"></asp:RangeValidator>
+                                                        <asp:RangeValidator ID="RVCantRem" runat="server" Type="Double" MinimumValue="0" MaximumValue='<%#Eval("Cantidad", "{0:####.#####}").ToString%>' ErrorMessage="Cantidad Excedida" ControlToValidate="TxtCantidadRem" ValidationGroup="GprGvRemPS" Display="Dynamic" SetFocusOnError="True"></asp:RangeValidator>
                                                         <ajax:ValidatorCalloutExtender ID="VCECantidad3" runat="server" HighlightCssClass="vco" TargetControlID="RVCantRem" Width="300px"></ajax:ValidatorCalloutExtender>
                                                     </ItemTemplate>
                                                 </asp:TemplateField>
@@ -7003,17 +7007,17 @@
                                                 <asp:Literal ID="LtlIVA" runat="server" Text='<%# Eval("IVA", "{0:N2}") %>'></asp:Literal>
                                             </ItemTemplate>
                                         </asp:TemplateField>
-                                        <asp:TemplateField HeaderText="IEPS" ItemStyle-HorizontalAlign="Right" visible="false">
+                                        <asp:TemplateField HeaderText="IEPS" ItemStyle-HorizontalAlign="Right" Visible="false">
                                             <ItemTemplate>
                                                 <asp:Literal ID="LtlIEPS" runat="server" Text='<%# Eval("IEPS", "{0:N2}") %>'></asp:Literal>
                                             </ItemTemplate>
                                         </asp:TemplateField>
-                                        <asp:TemplateField HeaderText="RetIVA" ItemStyle-HorizontalAlign="Right" visible="false">
+                                        <asp:TemplateField HeaderText="RetIVA" ItemStyle-HorizontalAlign="Right" Visible="false">
                                             <ItemTemplate>
                                                 <asp:Literal ID="LtlRetIVA" runat="server" Text='<%# Eval("RetIVA", "{0:N2}") %>'></asp:Literal>
                                             </ItemTemplate>
                                         </asp:TemplateField>
-                                        <asp:TemplateField HeaderText="RetISR" ItemStyle-HorizontalAlign="Right" visible="false">
+                                        <asp:TemplateField HeaderText="RetISR" ItemStyle-HorizontalAlign="Right" Visible="false">
                                             <ItemTemplate>
                                                 <asp:Literal ID="LtlRetISR" runat="server" Text='<%# Eval("RetISR", "{0:N2}") %>'></asp:Literal>
                                             </ItemTemplate>
@@ -8389,7 +8393,7 @@
     <div id="DvModalTipoVenta" class="modal ADS fade" role="dialog">
 
         <asp:UpdatePanel class="modal-dialog" runat="server" ID="UpDvModalTipoVenta" UpdateMode="Conditional">
-            <ContentTemplate> 
+            <ContentTemplate>
                 <div class="modal-content">
                     <div class="modal-header ">
                         <h4 class="modal-title">
@@ -8399,50 +8403,81 @@
                     <div class="modal-body" style="min-height: 233.45px">
 
                         <%--Tipo Venta--%>
-                        <div class="row" runat="server" visible="True" id="DvModalTipoVentaPasoTipo" >
+                        <div class="row" runat="server" visible="True" id="DvModalTipoVentaPasoTipo">
-                            <div class="col-md-4" >
+                            <div class="col-md-4">
                             </div>
-                            <div class="col-md-4"  style="text-align:left!important" >
+                            <div class="col-md-4" style="text-align: left!important">
-                                <asp:RadioButtonList ID="RBLTipoVenta" DataTextField="TipoVenta" RepeatDirection="Vertical" DataValueField="CveTipoVenta" runat="server" AutoPostBack="true" OnSelectedIndexChanged="RBLTipoVenta_SelectedIndexChanged" Style="margin-top:10px!important">
+                                <asp:RadioButtonList ID="RBLTipoVenta" DataTextField="TipoVenta" RepeatDirection="Vertical" DataValueField="CveTipoVenta" runat="server" AutoPostBack="true" OnSelectedIndexChanged="RBLTipoVenta_SelectedIndexChanged" Style="margin-top: 10px!important">
                                 </asp:RadioButtonList>
                             </div>
-                            <div class="col-md-4" >
+                            <div class="col-md-4">
                             </div>
                         </div>
-                        
 
-                        <%--Cliente--%>
+
+                        <%--Cliente Sucursales --%>
                         <div runat="server" visible="False" id="DvModalTipoVentaPasoCliente">
+                            <div class="row">
+                                <div class="form-group col-md-12 form-md-line-input input-iconright ">                                    
+                                    <asp:DropDownList ID="DdlClienteSucursal" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="Nombre" DataValueField="Clave" CausesValidation="true"
+                                        AutoPostBack="true" OnSelectedIndexChanged="DdlClienteSucursal_SelectedIndexChanged">                                        
+                                    </asp:DropDownList>
+                                    <asp:RequiredFieldValidator ID="RfvDdlClienteSucursal" runat="server" CssClass="" Display="None" InitialValue="-1"
+                                        ControlToValidate="DdlClienteSucursal" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Hospital''</b> es necesario, por favor ingréselo." ValidationGroup="GrpModalVentaMedica"></asp:RequiredFieldValidator>
+                                    <ajax:ValidatorCalloutExtender ID="VceRfvDdlClienteSucursal" runat="server" HighlightCssClass="vco" TargetControlID="RfvDdlClienteSucursal" Width="350px"></ajax:ValidatorCalloutExtender>
+                                    <asp:Label runat="server" Style="width: 90%; color: #888888;" AssociatedControlID="DdlClienteSucursal">Hospital:</asp:Label>
+                                </div>                                
+                            </div>
+                          </div>
+
+
+                        <%--Cliente--%>
+                     <%--   <div runat="server" visible="False" id="DvModalTipoVentaPasoClienteEliminar">
                             <div class="row">
                                 <div class="form-group col-md-12 form-md-line-input input-iconright ">
-                                    <asp:Label runat="server" Style="width: 90%; color: #888888;" AssociatedControlID="DdlClientesWS">Cliente:</asp:Label>
+                                    <asp:Label runat="server" Style="width: 90%; color: #888888;" AssociatedControlID="DdlClientesWS">Hospital:</asp:Label>
-                                    <ADS:Dropdownlost CssClassDdl="select2me" ID="DdlClientesWS" Width="100%" data-metodo="getcliente" runat="server" DataTextField="NombreComercial" DataValueField="CveCliente" CssStyle="width: 100%;" Onselectedindexchange="DdlClientesWS_selectedindexchange"  ></ADS:Dropdownlost>
+                                    <ADS:Dropdownlost CssClassDdl="select2me" ID="DdlClientesWS" Width="100%" data-metodo="getcliente" runat="server" DataTextField="NombreComercial" DataValueField="CveCliente" CssStyle="width: 100%;" Onselectedindexchange="DdlClientesWS_selectedindexchange"></ADS:Dropdownlost>
                                 </div>
                             </div>
-                        </div>
+                        </div>--%>
 
-                                                <%--Medico Procedimiento--%>
+
-                        <div runat="server" visible="False" id="DvModalTipoVentaPasoMedicoProcedimiento">
+                        <%--Sucursales--%>
+                        <%--  <div runat="server" visible="False" id="DvModalClientesucursal">
                             <div class="row">
-                                
+
-                                <div class="form-group col-md-6 form-md-line-input input-iconright ">                                    
+                                <div class="form-group col-md-12 form-md-line-input input-iconright ">
-                                    <asp:DropDownList ID="DdlMedicoModal" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" CausesValidation="true" DataTextField="Medico" DataValueField="CveMedico" >
+                                    <asp:DropDownList ID="DdlSucursalClienteModal" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="SucursalCliente" DataValueField="CveClienteSucursal">
                                         <asp:ListItem Value="-1">Seleccione uno</asp:ListItem>
                                     </asp:DropDownList>                                    
-                                    <asp:RequiredFieldValidator ID="RfvDdlMedicoModal" runat="server" CssClass="" Display="None" InitialValue="-1" 
+                                    <asp:Label runat="server" Style="width: 90%; color: #888888;" AssociatedControlID="DdlSucursalClienteModal">Sucursal:</asp:Label>
-                                            ControlToValidate="DdlMedicoModal" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Medico''</b> es necesario, por favor ingréselo." ValidationGroup="GrpModalVentaMedica"></asp:RequiredFieldValidator>
+                                </div>                                
-                                    <ajax:ValidatorCalloutExtender ID="VCRfvDdlMedicoModal" runat="server" HighlightCssClass="vco" TargetControlID="RfvDdlMedicoModal" Width="350px"></ajax:ValidatorCalloutExtender>                                    
+                            </div>
+                          </div>--%>
+                      
+
+                        <%--Medico Procedimiento--%>
+                        <div runat="server" visible="False" id="DvModalTipoVentaPasoMedicoProcedimiento">
+                            <div class="row">
+
+                                <div class="form-group col-md-6 form-md-line-input input-iconright ">
+                                    <asp:DropDownList ID="DdlMedicoModal" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" CausesValidation="true" DataTextField="Medico" DataValueField="CveMedico">
+                                        <asp:ListItem Value="-1">Seleccione uno</asp:ListItem>
+                                    </asp:DropDownList>
+                                    <asp:RequiredFieldValidator ID="RfvDdlMedicoModal" runat="server" CssClass="" Display="None" InitialValue="-1"
+                                        ControlToValidate="DdlMedicoModal" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Medico''</b> es necesario, por favor ingréselo." ValidationGroup="GrpModalVentaMedica"></asp:RequiredFieldValidator>
+                                    <ajax:ValidatorCalloutExtender ID="VCRfvDdlMedicoModal" runat="server" HighlightCssClass="vco" TargetControlID="RfvDdlMedicoModal" Width="350px"></ajax:ValidatorCalloutExtender>
                                     <asp:Label runat="server" Style="width: 90%; color: #888888;" AssociatedControlID="DdlMedicoModal">Médico:</asp:Label>
                                 </div>
-                                <div class="form-group col-md-6 form-md-line-input input-iconright ">                                    
+                                <div class="form-group col-md-6 form-md-line-input input-iconright ">
                                     <asp:DropDownList ID="DdlProcedimientoModal" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" CausesValidation="true" DataTextField="Procedimiento" DataValueField="CveProcedimiento"
                                         OnSelectedIndexChanged="DdlProcedimientoModal_SelectedIndexChanged" AutoPostBack="true">
                                         <asp:ListItem Value="-1">Seleccione uno</asp:ListItem>
                                     </asp:DropDownList>
-                                    <asp:RequiredFieldValidator ID="RfvDdlProcedimientoModal" runat="server" CssClass="" Display="None" InitialValue="-1" 
+                                    <asp:RequiredFieldValidator ID="RfvDdlProcedimientoModal" runat="server" CssClass="" Display="None" InitialValue="-1"
-                                        ControlToValidate="DdlProcedimientoModal" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Procedimiento''</b> es necesario, por favor ingréselo." 
+                                        ControlToValidate="DdlProcedimientoModal" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Procedimiento''</b> es necesario, por favor ingréselo."
                                         ValidationGroup="GrpModalVentaMedica"></asp:RequiredFieldValidator>
-                                    <ajax:ValidatorCalloutExtender ID="VCRfvDdlProcedimientoModal" runat="server" HighlightCssClass="vco" TargetControlID="RfvDdlProcedimientoModal" Width="350px"></ajax:ValidatorCalloutExtender>                                    
+                                    <ajax:ValidatorCalloutExtender ID="VCRfvDdlProcedimientoModal" runat="server" HighlightCssClass="vco" TargetControlID="RfvDdlProcedimientoModal" Width="350px"></ajax:ValidatorCalloutExtender>
                                     <asp:Label runat="server" Style="width: 90%; color: #888888;" AssociatedControlID="DdlProcedimientoModal">Procedimiento:</asp:Label>
                                 </div>
                             </div>
@@ -8458,44 +8493,39 @@
                                 </div>
                                 <div class="form-group col-md-6 form-md-line-input input-iconright " runat="server" id="DvModalRequiereOSFecha" visible="false">
                                     <asp:Label runat="server" Style="width: 90%; color: #888888;" AssociatedControlID="TxtFechaModal">Fecha de Cirugia:</asp:Label>
-                                    <asp:TextBox ID="TxtFechaModal" type="datetime-local" runat="server" CssClass="form-control" CausesValidation="true" Style="width: 100%" step="1"></asp:TextBox>
+                                    <asp:TextBox ID="TxtFechaModal" type="datetime-local" runat="server" CssClass="form-control" CausesValidation="true" Style="width: 100%" ></asp:TextBox>
                                 </div>
                             </div>
                         </div>
-                        
+
-                        <div class="row" runat="server" id="DVGvProductosProcedimiento" visible="false">                                
+                        <div class="row" runat="server" id="DVGvProductosProcedimiento" visible="false">
                             <div class="col-md-12">
-                                 Productos utilizados en el procedimiento
+                                Productos utilizados en el procedimiento
-                                 <asp:GridView ID="GvProductosProcedimiento" runat="server" CssClass="table table-hover table-striped ScrollAD mysmallbtn" data-sort="true" AutoGenerateColumns="False" Width="100%"  OnRowDataBound="GvProductosProcedimiento_RowDataBound"
+                                 <asp:GridView ID="GvProductosProcedimiento" runat="server" CssClass="table table-hover table-striped ScrollAD mysmallbtn" data-sort="true" AutoGenerateColumns="False" Width="100%" OnRowDataBound="GvProductosProcedimiento_RowDataBound"
-                                            DataKeyNames="CveProcedimientoProducto,CveProcedimiento,Cantidad,CvePS,CodigoPS,Autogenerado,Estatus,CveVenta,CveUnidadMedida,Abreviatura,CveClasificacion,Clasificacion,Precio" GridLines="None">
+                                     DataKeyNames="CveProcedimientoProducto,CveProcedimiento,Cantidad,CvePS,CodigoPS,Autogenerado,Estatus,CveVenta,CveUnidadMedida,Abreviatura,CveClasificacion,Clasificacion,Precio" GridLines="None">
-                                            <Columns>
+                                     <Columns>
-                                                <asp:TemplateField  ItemStyle-HorizontalAlign="Right" HeaderText="Cant." ItemStyle-Width="40px">
+                                         <asp:TemplateField ItemStyle-HorizontalAlign="Right" HeaderText="Cant." ItemStyle-Width="40px">
-                                                    <ItemTemplate>
+                                             <ItemTemplate>
-                                                        <asp:TextBox ID="TxtCantidad" runat="server" Text="" Width="40px" style="text-align:right!important"></asp:TextBox>
+                                                 <asp:TextBox ID="TxtCantidad" runat="server" Text="" Width="40px" Style="text-align: right!important"></asp:TextBox>
-                                                        <ajax:FilteredTextBoxExtender ID="FilTxtCantidad" runat="server" TargetControlID="TxtCantidad" FilterType="Custom, Numbers" ValidChars="." />
+                                                 <ajax:FilteredTextBoxExtender ID="FilTxtCantidad" runat="server" TargetControlID="TxtCantidad" FilterType="Custom, Numbers" ValidChars="." />
-                                                    </ItemTemplate>
+                                             </ItemTemplate>
-                                                </asp:TemplateField>                                             
+                                         </asp:TemplateField>
-                                                 <asp:BoundField DataField="Cantidad" HeaderText="Cant." DataFormatString="{0:#,###.##}" ItemStyle-Width="30px" >
+                                         <asp:BoundField DataField="Cantidad" HeaderText="Cant." DataFormatString="{0:#,###.##}" ItemStyle-Width="30px">
-                                                    <ItemStyle HorizontalAlign="Right" />
+                                             <ItemStyle HorizontalAlign="Right" />
-                                                </asp:BoundField>
+                                         </asp:BoundField>
-                                                <asp:BoundField DataField="CodigoPS" HeaderText="Producto">
+                                         <asp:BoundField DataField="CodigoPS" HeaderText="Producto">
-                                                    <ItemStyle HorizontalAlign="Left" />
+                                             <ItemStyle HorizontalAlign="Left" />
-                                                </asp:BoundField>
+                                         </asp:BoundField>
-                                                <asp:BoundField DataField="Abreviatura" HeaderText="UM">
+                                         <asp:BoundField DataField="Abreviatura" HeaderText="UM">
-                                                    <ItemStyle HorizontalAlign="Left" />
+                                             <ItemStyle HorizontalAlign="Left" />
-                                                </asp:BoundField>
+                                         </asp:BoundField>
-                                                <asp:BoundField DataField="Precio" HeaderText="Precio" DataFormatString="{0:#,##0.###}"   HtmlEncode="False" />  
+                                         <asp:BoundField DataField="Precio" HeaderText="Precio" DataFormatString="{0:#,##0.###}" HtmlEncode="False" />
-                                            </Columns>
+                                     </Columns>
-                                            <HeaderStyle CssClass="Titulos" Height="15px"></HeaderStyle>
+                                     <HeaderStyle CssClass="Titulos" Height="15px"></HeaderStyle>
-                                        </asp:GridView>
+                                 </asp:GridView>
-                                
+
                             </div>
                         </div>
-
-
-
-
-
                     </div>
                     <div class="modal-footer">
                         <asp:LinkButton ID="LnkDvModalTipoVentaAceptar" ClientIDMode="Static" runat="server" CssClass="btn btn-primary" OnClick="LnkDvModalTipoVentaAceptar_Click" Text="Aceptar" Visible="false" ValidationGroup="GrpModalVentaMedica" />
@@ -8508,12 +8538,40 @@
 
     </div>
 
-   
+
 </asp:Content>
 <asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
     <script src="/Metronic/assets/global/scripts/jquery-sortable.js"></script>
     <script type="text/javascript">
 
+        function pageLoad() 
+        { 
+            //ABRIR EL DROPDOWN DE PS DESPUES DE ASIGNAR CANTIDAD
+            if ('<%= UsuarioActual.Empresa.Funcionalidad(109) %>' == '1') {
+                $('#TxtCantidad').on('keydown', function (e) {                                            
+                    if (e.which == 13 || e.which == 9 ) { 
+                        let valorNumericoCantidad = parseFloat($('#TxtCantidad').val());
+                        e.preventDefault();                                                  
+                        if(valorNumericoCantidad > 0){                                                
+                            $('#C_Tab_TabGenerales_DdlPS > select').select2('open').next().find(':input.select2-search__field').focus();
+                        }
+                                                
+                                                
+                    }
+                });
+
+                $('#TxtPrecio').on('keydown', function (e) {
+                    if (e.which == 13 || e.which == 9 ) { 
+                        let valorNumericoPrecio = parseFloat($('#TxtCantidad').val());
+                        e.preventDefault();                                                  
+                        if(valorNumericoPrecio > 0){ 
+                            $('#LbAgregar').focus();
+                        }                                                
+                    }
+                });
+            }
+        } 
+
         function DirclienteValidaCodigoPostal() {
             $("#BtnDirClienteValidar").click();
         }
@@ -9236,7 +9294,10 @@
 
             var CellIndex = 0;
             if ($('#C_DdlNCNivelImporte').val() == "1") {
-                CellIndex = 9;
+                CellIndex = 8;
+                if ('<%= UsuarioActual.Empresa.Funcionalidad(713) %>' != '') {
+                    CellIndex = 9;
+                }
             } else if ($('#C_DdlNCNivelImporte').val() == "2") {
                 CellIndex = 3;
             }
@@ -10374,9 +10435,9 @@
                 $('#divAgregarSucursal').modal();
             }
 
-        function hideDivAgregarSucursal() {
+            function hideDivAgregarSucursal() {
-            $('#divAgregarSucursal').modal('hide');
+                $('#divAgregarSucursal').modal('hide');
-        }
+            }
 
 
         

Ventas/Ventas.aspx.vb

@@ -2425,13 +2425,6 @@ Partial Class Ventas
             If Not (UsuarioActual.Empresa.Funcionalidad(558) = "1") Then '
                 LnkAgregarCliente.Visible = False
             End If
-            If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then
-                LnkAgregarCliente.Visible = True
-                'ocultar la columna de subproyecto
-                GvPS.Columns(ColumnaSubProyecto).Visible = False
-                ThProyecto.Visible = False
-                ThProyecto2.Visible = False
-            End If
 
             DdlTipoComprobante.Items.Insert(DdlTipoComprobante.Items.Count, New ListItem("Pedido", "Ped"))
 
@@ -2560,7 +2553,7 @@ Partial Class Ventas
             If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then
                 CargaMedicos()
                 CargaProcedimientos()
-                CargaDdlClientes()
+                CargaDdlClientesSucursal()
             End If
 
 
@@ -2601,6 +2594,13 @@ Partial Class Ventas
             Else
                 ViewState("CveCliente") = -1
                 HdnCveCliente.Value = "-1"
+
+                'SI TIENE UN CLIENTE POR DEFECTO DEBE CARGARLO AL INICIAR
+                If UsuarioActual.Empresa.Funcionalidad(714).ToEntero() > 0 Then
+                    ViewState("CveCliente") = UsuarioActual.Empresa.Funcionalidad(714).ToEntero()
+                    HdnCveCliente.Value = UsuarioActual.Empresa.Funcionalidad(714)
+                    CargaCliente(CveCliente)
+                End If
             End If
 
             'Carga empresa CRM
@@ -2664,7 +2664,8 @@ Partial Class Ventas
                         TmpDT.Columns.Add("NumTurnos", GetType(Decimal))
                         TmpDT.Columns("NumTurnos").DefaultValue = 0D
                         TmpDT.Columns.Add("NumeroPedimento", GetType(String))
-
+                        TmpDT.Columns.Add("CodigoAlterno", GetType(String))
+                        TmpDT.Columns.Add("PSAlterno", GetType(String))
                         GvPS.DataSource = ObjVentas.DtResultados
                         GvPS.DataBind()
 
@@ -2713,7 +2714,8 @@ Partial Class Ventas
                         TmpDT.Columns.Add("NumTurnos", GetType(Decimal))
                         TmpDT.Columns("NumTurnos").DefaultValue = 0D
                         TmpDT.Columns.Add("NumeroPedimento", GetType(String))
-
+                        TmpDT.Columns.Add("CodigoAlterno", GetType(String))
+                        TmpDT.Columns.Add("PSAlterno", GetType(String))
                         GvPS.DataSource = ObjVentas.DtResultados
                         GvPS.DataBind()
 
@@ -3391,47 +3393,37 @@ Partial Class Ventas
                 CargaTiposVenta()
 
                 If CveCliente > 0 Then
-                    DdlClientesWS.txtValue.Value = CveCliente.ToString
+                    SeleccionarClienteSucursal(CveCliente:=CveCliente)
-                    DdlClientesWS.txtText.Value = LblCliente.Text
-                    DdlClientesWS.SelectedValue = CveCliente.ToString
                 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
+
+            If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then
+                LnkAgregarCliente.Visible = True
+                'ocultar la columna de subproyecto
+                GvPS.Columns(ColumnaSubProyecto).Visible = False
+                ThProyecto.Visible = False
+                ThProyecto2.Visible = False
+
+                TxtCantidad.Text = "1"
+                TxtCantidad.Focus()
+                TrDescripcionVenta.Visible = False
+
+                UpPS.Update()
+
+                RegistraScript("$('#TxtCantidad').focus();", "A1")
+            End If
+
         End If
 
-
-        If UsuarioActual.CveEmpresa.Contiene(186, 189) Then
-            Dim jsFocus As String = "$(document).ready(function () {
-                                        
-                                         $('#TxtCantidad').on('keydown', function (e) {                                            
-                                            if (e.which == 13 || e.which == 9 ) { 
-                                                let valorNumericoCantidad = parseFloat($('#TxtCantidad').val());
-                                                e.preventDefault();                                                  
-                                                if(valorNumericoCantidad > 0){                                                
-                                                    $('#C_Tab_TabGenerales_DdlPS > select').select2('open').next().find(':input.select2-search__field').focus();
-                                                }
-                                                
-                                                
-                                            }
-                                        });
-
-                                        $('#TxtPrecio').on('keydown', function (e) {
-                                            if (e.which == 13 || e.which == 9 ) { 
-                                                let valorNumericoPrecio = parseFloat($('#TxtCantidad').val());
-                                                e.preventDefault();                                                  
-                                                if(valorNumericoPrecio > 0){ 
-                                                    $('#LbAgregar').focus();
-                                                }                                                
-                                            }
-                                        });
-
-
-                                    });"
-            RegistraScript(jsFocus)
-        End If
-
     End Sub
 
+
+
     Private Sub CargaListasPrecios()
         DivPrecioLista.Visible = True
 
@@ -7754,64 +7746,6 @@ Partial Class Ventas
 
 
 
-
-    Private Sub CargaTiposVenta()
-
-        '&nbsp
-        'Dim Dttemp = GlobalDTTipoVenta().FiltraParametros("Estatus = 'True' ").FiltraParametros("", {"", ""})
-
-        RBLTipoVenta.DataSource = GlobalDTTipoVenta().FiltraParametros("Estatus = 'True' ")
-        RBLTipoVenta.DataBind()
-
-        TrVentasMedicas1.Visible = True
-        TrVentasMedicas2.Visible = True
-
-
-        For Each item As ListItem In RBLTipoVenta.Items
-            item.Text = $"&nbsp {item.Text}"
-        Next
-
-        RegistraScript("$('#DvModalTipoVenta').modal({ backdrop: 'static', keyboard: false });")
-    End Sub
-
-    Private Sub CargaProcedimientos()
-        DdlProcedimiento.DataSource = GlobalDTProcedimientos(UsuarioActual.CveEmpresa).FiltraParametros("Estatus = 'True' ")
-        DdlProcedimiento.DataBind()
-
-        DdlProcedimientoModal.DataSource = GlobalDTProcedimientos(UsuarioActual.CveEmpresa).FiltraParametros("Estatus = 'True' ")
-        DdlProcedimientoModal.DataBind()
-
-        DdlProcedimientoObservaciones.DataSource = GlobalDTProcedimientos(UsuarioActual.CveEmpresa)
-        DdlProcedimientoObservaciones.DataBind()
-
-    End Sub
-
-    Private Sub CargaMedicos()
-        DdlMedico.DataSource = GlobalDTMedicos(UsuarioActual.CveEmpresa).FiltraParametros("Estatus = 'True' ")
-        DdlMedico.DataBind()
-
-        DdlMedicoModal.DataSource = GlobalDTMedicos(UsuarioActual.CveEmpresa).FiltraParametros("Estatus = 'True' ")
-        DdlMedicoModal.DataBind()
-
-        DdlMedicoObservaciones.DataSource = GlobalDTMedicos(UsuarioActual.CveEmpresa)
-        DdlMedicoObservaciones.DataBind()
-
-    End Sub
-
-    Private Sub CargaDdlClientes()
-        If UsuarioActual.Empresa.Funcionalidad(105) = "1" Then
-            DdlClientesWS.setEsWebService(True)
-        Else
-            DdlClientesWS.setEsWebService(False)
-            If Not UsuarioActual.Empresa.Funcionalidad(105) = "1" Then
-                DdlClientesWS.ddl.Items.Clear()
-                DdlClientesWS.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa, -1)
-                DdlClientesWS.DataBind()
-                DdlClientesWS.ddl.Items.Insert(0, New ListItem("Todos", "-1"))
-            End If
-        End If
-    End Sub
-
     Private Sub CargaPS(CveClasificacion As Integer, Objeto As ADServerControl.Dropdownlost, Optional AplicaParaVenta As Boolean = True)
 
         Objeto.setEsWebService(UsuarioActual.Empresa.Funcionalidad(141).ToString() = "1")
@@ -10754,7 +10688,9 @@ Partial Class Ventas
         ObjFacturaDevolucion.Fech1 = TxtFech1.Text.Trim.ToDate
         ObjFacturaDevolucion.Fech2 = TxtFech2.Text.Trim.ToDate
         ObjFacturaDevolucion.Fech3 = TxtFech3.Text.Trim.ToDate
-        ObjFacturaDevolucion.Alfa1 = TxtAlfa1.Text.Trim
+
+
+
         ObjFacturaDevolucion.Alfa2 = TxtAlfa2.Text.Trim
         ObjFacturaDevolucion.Alfa3 = TxtAlfa3.Text.Trim
         ObjFacturaDevolucion.Num1 = TxtNum1.Text.Trim.ToDouble
@@ -10781,6 +10717,13 @@ Partial Class Ventas
         ObjFacturaDevolucion.CveSucursalEjecucion = DdlSucursalEjecucion.SelectedValue.ToEntero()
         ObjFacturaDevolucion.CveSucursalCobranza = DdlSucursalCobranza.SelectedValue.ToEntero()
 
+        If UsuarioActual.Empresa.Funcionalidad(578) = "1" AndAlso DvModalRequiereOSFecha.Visible Then
+            ObjFacturaDevolucion.Alfa1 = TxtFechaOS.Text.Trim
+            ObjFacturaDevolucion.FechaEjecucion = TxtFechaOS.Text.Trim.ToDateTime
+        Else
+            ObjFacturaDevolucion.Alfa1 = TxtAlfa1.Text.Trim
+        End If
+
         ObjFacturaDevolucion.AtencionA = If(ObjFacturaDevolucion.TipoDocto = "Cot" Or (ObjFacturaDevolucion.TipoDocto.Contiene("Ing", "Rem") AndAlso LblRFC.Text = "XAXX010101000"), TxtAtencionA.Text, "-1")
         ObjFacturaDevolucion.MotivoDescuento = TxtMotivoDescuento.Text.Trim
         ObjFacturaDevolucion.Observaciones = TxtObsFact.Text.Trim
@@ -11030,7 +10973,7 @@ Partial Class Ventas
         ObjFacturaBonificacion.Fech1 = TxtFech1.Text.Trim.ToDate
         ObjFacturaBonificacion.Fech2 = TxtFech2.Text.Trim.ToDate
         ObjFacturaBonificacion.Fech3 = TxtFech3.Text.Trim.ToDate
-        ObjFacturaBonificacion.Alfa1 = TxtAlfa1.Text.Trim
+
         ObjFacturaBonificacion.Alfa2 = TxtAlfa2.Text.Trim
         ObjFacturaBonificacion.Alfa3 = TxtAlfa3.Text.Trim
         ObjFacturaBonificacion.Num1 = TxtNum1.Text.Trim.ToDouble
@@ -11057,6 +11000,13 @@ Partial Class Ventas
         ObjFacturaBonificacion.CveSucursalEjecucion = DdlSucursalEjecucion.SelectedValue.ToEntero()
         ObjFacturaBonificacion.CveSucursalCobranza = DdlSucursalCobranza.SelectedValue.ToEntero()
 
+        If UsuarioActual.Empresa.Funcionalidad(578) = "1" AndAlso DvModalRequiereOSFecha.Visible Then
+            ObjFacturaBonificacion.Alfa1 = TxtFechaOS.Text.Trim
+            ObjFacturaBonificacion.FechaEjecucion = TxtFechaOS.Text.Trim.ToDateTime
+        Else
+            ObjFacturaBonificacion.Alfa1 = TxtAlfa1.Text.Trim
+        End If
+
         ObjFacturaBonificacion.AtencionA = If(ObjFacturaBonificacion.TipoDocto = "Cot" Or (ObjFacturaBonificacion.TipoDocto.Contiene("Ing", "Rem") AndAlso LblRFC.Text = "XAXX010101000"), TxtAtencionA.Text, "-1")
         ObjFacturaBonificacion.MotivoDescuento = TxtMotivoDescuento.Text.Trim
         ObjFacturaBonificacion.Observaciones = TxtObsFact.Text.Trim
@@ -11512,7 +11462,9 @@ Partial Class Ventas
         ObjFactura.Fech1 = TxtFech1.Text.Trim.ToDate
         ObjFactura.Fech2 = TxtFech2.Text.Trim.ToDate
         ObjFactura.Fech3 = TxtFech3.Text.Trim.ToDate
-        ObjFactura.Alfa1 = TxtAlfa1.Text.Trim
+
+
+
         ObjFactura.Alfa2 = TxtAlfa2.Text.Trim
         ObjFactura.Alfa3 = TxtAlfa3.Text.Trim
         ObjFactura.Num1 = TxtNum1.Text.Trim.ToDouble
@@ -11575,6 +11527,13 @@ Partial Class Ventas
         ObjFactura.Det_ContraRecibo = TxtDet_ContraRecibo.Text.Trim
         ObjFactura.MonedaAbreviatura = ""
 
+        If UsuarioActual.Empresa.Funcionalidad(578) = "1" AndAlso DvModalRequiereOSFecha.Visible Then
+            ObjFactura.Alfa1 = TxtFechaOS.Text.Trim
+            ObjFactura.FechaEjecucion = TxtFechaOS.Text.Trim.ToDateTime
+        Else
+            ObjFactura.Alfa1 = TxtAlfa1.Text.Trim
+        End If
+
         'CONVERTIR REMISION - TIPO MONEDA  -DOLARES A PESOS
         If (ObjFactura.CveMoneda = 2 AndAlso ObjFactura.ConvertirPesos = True AndAlso ObjFactura.TipodeComprobante = "Ingresos" AndAlso RemisionesLista.Count > 0) Then
             Dim TotalCalculableImpuestos, TotalCalculableImpuestosIVA As Decimal
@@ -12169,7 +12128,10 @@ Partial Class Ventas
         ObjFacturaDevolucion.Fech1 = TxtFech1.Text.Trim.ToDate
         ObjFacturaDevolucion.Fech2 = TxtFech2.Text.Trim.ToDate
         ObjFacturaDevolucion.Fech3 = TxtFech3.Text.Trim.ToDate
-        ObjFacturaDevolucion.Alfa1 = TxtAlfa1.Text.Trim
+
+
+
+
         ObjFacturaDevolucion.Alfa2 = TxtAlfa2.Text.Trim
         ObjFacturaDevolucion.Alfa3 = TxtAlfa3.Text.Trim
         ObjFacturaDevolucion.Num1 = TxtNum1.Text.Trim.ToDouble
@@ -12206,6 +12168,13 @@ Partial Class Ventas
         ObjFacturaDevolucion.Det_FechaOrdenCompra = TxtDet_FechaOrdenCompra.Text.Trim
         ObjFacturaDevolucion.MonedaAbreviatura = ""
 
+        If UsuarioActual.Empresa.Funcionalidad(578) = "1" AndAlso DvModalRequiereOSFecha.Visible Then
+            ObjFacturaDevolucion.Alfa1 = TxtFechaOS.Text.Trim
+            ObjFacturaDevolucion.FechaEjecucion = TxtFechaOS.Text.Trim.ToDateTime
+        Else
+            ObjFacturaDevolucion.Alfa1 = TxtAlfa1.Text.Trim
+        End If
+
         'Totales, Y se llena TmpDTImpuestos
         ObjFacturaDevolucion.SubTotal = TxtSubTotal.Text.ToDecimal
         ObjFacturaDevolucion.Descuento = LblDescuentos.Text.Trim.ToDecimal
@@ -18132,8 +18101,9 @@ Partial Class Ventas
                 End If
             End If
 
-            If UsuarioActual.CveEmpresa.Contiene(186, 189) Then
+            If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then
                 TxtCantidad.Focus()
+                TxtCantidad.Text = "1"
             End If
 
             UpPS.Update()
@@ -18155,7 +18125,7 @@ Partial Class Ventas
                     If ObjVentas.GetLineasAdicionalesSaldo(-1, CveCliente, -1, -1, UsuarioActual.CveEmpresa, TipoCambioConsulta:=TCConsulta, ConSaldo:=-1, FechaVencimientoConsulta:=MinFecha) Then
                         If ObjVentas.DtResultados.Rows.Count > 0 Then
                             TrLineaAdicional.Visible = True
-                            DdlLineaAdicional.DataSource = ObjVentas.DtResultados.FiltraParametros($"(Saldo > 0 AND FechaVencimiento >= '{NowADS().ToString("yyyy/MM/dd")}') OR CveLineaAdicional = {Me.CveLineaAdicionalVenta}")
+                            DdlLineaAdicional.DataSource = ObjVentas.DtResultados.FiltraParametros($"(Saldo > 0 AND CveEstatus = 1 AND FechaVencimiento >= '{NowADS().ToString("yyyy/MM/dd")}') OR CveLineaAdicional = {Me.CveLineaAdicionalVenta}")
                         End If
                     End If
                 Else
@@ -18521,6 +18491,9 @@ Partial Class Ventas
 
             Row("NumTurnos") = NumTurnos
 
+            Row("CodigoAlterno") = DrPS("CodigoAlterno")
+            Row("PSAlterno") = DrPS("PSAlterno")
+
             If UsuarioActual.CveEmpresa.Contiene(119, 13, 83) Then
                 If Not RemisionesLista.Count > 0 Then 'SI VIENE DE REMISION NO SE CONSIDERA
 
@@ -18765,6 +18738,9 @@ Partial Class Ventas
         TmpDT.Columns("NumTurnos").DefaultValue = 0
         TmpDT.Columns.Add("NumeroPedimento", GetType(String))
 
+        TmpDT.Columns.Add("CodigoAlterno", GetType(String))
+        TmpDT.Columns.Add("PSAlterno", GetType(String))
+
     End Sub
     Private Sub CreaDTmpC()
         DTmpC = New DataTable
@@ -23821,18 +23797,33 @@ Partial Class Ventas
         If e.CommandName = "Clonar" Then
             Dim RowNum As Integer = Convert.ToInt32(e.CommandArgument)
             Dim GvRow As GridViewRow = GvPS.Rows(RowNum)
-            TxtCantidad.Text = GvPS.Rows(RowNum).FCLiteral("LtlCantidad").Text
+
-            DdlClasificacion.SelectedValue = GvRow.DataKey("CveClasificacion")
+
-            DdlPS.SelectedValue = GvRow.DataKey("CvePS")
+            If (GvRow.RowState = DataControlRowState.Edit OrElse GvRow.RowState = 5) Then
-            DdlPS_SelectedIndexChanged(Nothing, Nothing)
+                TxtCantidad.Text = GvRow.FCTextBox("TxtCantidad").Text
-            DdlUnidadMedida.SelectedValue = GvRow.DataKey("CveUM")
+                DdlClasificacion.SelectedValue = GvRow.FCDropDownList("DdlClasificacion").SelectedValue
-            TxtObsPS.Text = GvRow.FCLiteral("LtlObsPS").Text
+                DdlPS.SelectedValue = GvRow.FCDropDownLost("DdlPS").SelectedValue
+                DdlPS_SelectedIndexChanged(Nothing, Nothing)
+                DdlUnidadMedida.SelectedValue = GvRow.FCDropDownList("DdlUnidadMedida").SelectedValue
+                TxtObsPS.Text = GvRow.FCTextBox("TxtObsPS").Text
+                TxtPrecio.Text = GvRow.FCTextBox("TxtPrecio").Text
+            Else
+                TxtCantidad.Text = GvPS.Rows(RowNum).FCLiteral("LtlCantidad").Text
+                DdlClasificacion.SelectedValueExistInsert(GvRow.DataKey("CveClasificacion"), GvRow.DataKey("Clasificacion"))
+                DdlPS.SelectedValue = GvRow.DataKey("CvePS")
+                DdlPS_SelectedIndexChanged(Nothing, Nothing)
+                DdlUnidadMedida.SelectedValueExistInsert(GvRow.DataKey("CveUM"), GvRow.DataKey("UM"))
+                TxtObsPS.Text = GvRow.FCLiteral("LtlObsPS").Text
+                TxtPrecio.Text = GvRow.FCLiteral("LtlPU").Text
+            End If
+
             DdlProyecto.SelectedValue = GvRow.DataKey("CveProyecto")
             DdlProyecto_SelectedIndexChanged(Nothing, Nothing)
             DdlSubProyecto.SelectedValue = GvRow.DataKey("CveSubProyecto")
-            TxtPrecio.Text = GvRow.FCLiteral("LtlPU").Text
+
             RegistraScript("Recalcula();")
             LbAgregar_Click(Nothing, Nothing)
+
         Else
             DdlPS_SelectedIndexChanged(Nothing, Nothing)
         End If
@@ -35955,6 +35946,93 @@ Partial Class Ventas
 
 #Region "VENTAS MEDICAS"
 
+
+    Private Sub CargaTiposVenta()
+
+        RBLTipoVenta.DataSource = GlobalDTTipoVenta().FiltraParametros("Estatus = 'True' ")
+        RBLTipoVenta.DataBind()
+        RBLTipoVenta.Items.Add(New ListItem("Otros", "5"))
+
+        TrVentasMedicas1.Visible = True
+        TrVentasMedicas2.Visible = True
+
+        For Each item As ListItem In RBLTipoVenta.Items
+            item.Text = $"&nbsp {item.Text}"
+        Next
+
+        RegistraScript("$('#DvModalTipoVenta').modal({ backdrop: 'static', keyboard: false });")
+    End Sub
+
+    Private Sub CargaProcedimientos()
+        DdlProcedimiento.DataSource = GlobalDTProcedimientos(UsuarioActual.CveEmpresa).FiltraParametros("Estatus = 'True' ")
+        DdlProcedimiento.DataBind()
+
+        DdlProcedimientoModal.DataSource = GlobalDTProcedimientos(UsuarioActual.CveEmpresa).FiltraParametros("Estatus = 'True' ")
+        DdlProcedimientoModal.DataBind()
+
+        DdlProcedimientoObservaciones.DataSource = GlobalDTProcedimientos(UsuarioActual.CveEmpresa)
+        DdlProcedimientoObservaciones.DataBind()
+
+    End Sub
+
+    Private Sub CargaMedicos()
+        DdlMedico.DataSource = GlobalDTMedicos(UsuarioActual.CveEmpresa).FiltraParametros("Estatus = 'True' ")
+        DdlMedico.DataBind()
+
+        DdlMedicoModal.DataSource = GlobalDTMedicos(UsuarioActual.CveEmpresa).FiltraParametros("Estatus = 'True' ")
+        DdlMedicoModal.DataBind()
+
+        DdlMedicoObservaciones.DataSource = GlobalDTMedicos(UsuarioActual.CveEmpresa)
+        DdlMedicoObservaciones.DataBind()
+
+    End Sub
+
+    'Private Sub CargaSucursalesModal(CveClienteSeleccionado As Integer)
+
+    '    DdlSucursalClienteModal.Items.Clear()
+    '    DdlSucursalClienteModal.ClearSelection()
+    '    DdlSucursalClienteModal.SelectedValue = Nothing
+
+    '    Dim ObjCliente As New ClsClientes
+    '    If ObjCliente.GetSucursales(CveClienteSeleccionado) Then
+    '        DdlSucursalClienteModal.DataSource = ObjCliente.DtResultados
+    '        If ObjCliente.DtResultados.Rows.Count > 0 Then
+    '            DvModalClientesucursal.Visible = True
+    '        Else
+    '            DvModalClientesucursal.Visible = False
+    '        End If
+    '    Else
+    '        DvModalClientesucursal.Visible = False
+    '        DdlSucursalClienteModal.DataSource = Nothing
+    '    End If
+    '    ObjCliente.Dispose()
+
+    '    DdlSucursalClienteModal.DataBind()
+    '    DdlSucursalClienteModal.Items.Insert(0, New ListItem("Matriz", "-1"))
+
+    '    UpDvModalTipoVenta.FindDataSourceControl
+
+    'End Sub
+
+
+
+    Private Sub CargaDdlClientesSucursal()
+
+        Dim objcliente As New ClsClientes
+
+        If objcliente.GetClienteSucursales(-1, UsuarioActual.CveEmpresa) Then
+            DdlClienteSucursal.DataSource = objcliente.DtResultados
+        Else
+            DdlClienteSucursal.DataSource = Nothing
+        End If
+
+        objcliente.Dispose()
+
+        DdlClienteSucursal.DataBind()
+        DdlClienteSucursal.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
+
+    End Sub
+
     Protected Sub ChkRequiereTecnico_CheckedChanged(sender As Object, e As EventArgs)
         TdFechaOS2.Visible = ChkRequiereTecnicoModal.Checked
         UpCliente.Update()
@@ -35968,14 +36046,24 @@ Partial Class Ventas
             DvModalTipoVentaPasoCliente.Visible = True
             DvModalTipoVentaPasoRequiereOS.Visible = True
             DvModalTipoVentaPasoMedicoProcedimiento.Visible = True
-            TxtFechaModal.Text = NowADS.ToString("yyyy-MM-dd HH:mm:ss").Replace(" ", "T")
+
+            ChkRequiereTecnicoModal.Checked = True
+            ChkRequiereTecnicoModal.Enabled = True
+            DvModalRequiereOSFecha.Visible = True
+
+            'If CveCliente > 0 Then
+            '    CargaSucursalesModal(CveCliente)
+            'End If
+
+            TxtFechaModal.Text = NowADS.AddHours(1).ToString("yyyy-MM-dd HH").Replace(" ", "T") + ":00" ' ToString("yyyy-MM-dd HH:mm:ss").Replace(" ", "T")
+
             LnkDvModalTipoVentaAceptar.Visible = True
 
 
             Select Case RBLTipoVenta.SelectedValue
                 Case "1" ' Fuera de linea
                     ChkRequiereTecnicoModal.Checked = True
-                    ChkRequiereTecnicoModal.Enabled = False
+                    ChkRequiereTecnicoModal.Enabled = True
                     DvModalRequiereOSFecha.Visible = True
                 Case "2" ' Pago Directo
                     ChkRequiereTecnicoModal.Checked = True
@@ -35993,17 +36081,61 @@ Partial Class Ventas
                     DvModalRequiereOSFecha.Visible = False
                     DvModalTipoVentaPasoMedicoProcedimiento.Visible = False
                     DVGvProductosProcedimiento.Visible = False
+                Case "5" ' Otros
+                    LnkDvModalTipoVentaAceptar.Visible = False
+                    UpDvModalTipoVenta.Update()
+                    RegistraScript("$('#DvModalTipoVenta').modal('hide');")
             End Select
 
         End If
         UpDvModalTipoVenta.Update()
     End Sub
 
-    Protected Sub DdlClientesWS_selectedindexchange(sender As Object, e As EventArgs)
+    'Protected Sub DdlClientesWS_selectedindexchange(sender As Object, e As EventArgs)
-        CargaPSProcedimiento(DdlProcedimiento.SelectedValue.ToEntero, DdlClientesWS.SelectedValue.ToEntero, DdlSubProyectoDatos.SelectedValue.ToEntero)
+
+    '    CargaPSProcedimiento(DdlProcedimiento.SelectedValue.ToEntero, DdlClientesWS.SelectedValue.ToEntero, DdlSubProyectoDatos.SelectedValue.ToEntero)
+    '    'CargaSucursalesModal(DdlClientesWS.SelectedValue.ToEntero)
+
+    'End Sub
+
+
+    Protected Sub DdlClienteSucursal_SelectedIndexChanged(sender As Object, e As EventArgs)
+        Dim CveClienteSplit As Integer = -1
+        CargaPSProcedimiento(DdlProcedimiento.SelectedValue.ToEntero, DdlClienteSucursalCliente, DdlSubProyectoDatos.SelectedValue.ToEntero)
     End Sub
 
+    Private Function DdlClienteSucursalCliente() As Integer
+        If DdlClienteSucursal.SelectedValue = "-1" Then
+            Return -1
+        Else
+            Dim array As String() = DdlClienteSucursal.SelectedValue.Split("|"c)
+            Return If(array(0).ToEntero > 0, array(0).ToEntero, -1)
+        End If
+    End Function
+    Private Function DdlClienteSucursalSucursal() As Integer
 
+        If DdlClienteSucursal.SelectedValue = "-1" Then
+            Return -1
+        Else
+            Dim array As String() = DdlClienteSucursal.SelectedValue.Split("|"c)
+            Return If(array(1).ToEntero > 0, array(1).ToEntero, -1)
+        End If
+
+    End Function
+
+    Private Sub SeleccionarClienteSucursal(CveCliente As Integer)
+
+        Dim IndexSeleccion As Integer = 0
+        For Each item As ListItem In DdlClienteSucursal.Items
+            Dim array As String() = item.Value.Split("|"c)
+            If CveCliente = array(0).ToEntero Then
+                DdlClienteSucursal.SelectedIndex = IndexSeleccion
+                Exit For
+            End If
+            IndexSeleccion = IndexSeleccion + 1
+        Next
+
+    End Sub
 
     Protected Sub ModalValidaMedicoProcedimiento()
 
@@ -36028,9 +36160,10 @@ Partial Class Ventas
 
         ChkRequiereTecnicoModal.Enabled = True
 
-        DdlClientesWS.txtText.Value = ""
+        'DdlClientesWS.txtText.Value = ""
-        DdlClientesWS.txtValue.Value = ""
+        'DdlClientesWS.txtValue.Value = ""
-        DdlClientesWS.ddl.SelectedValueExist(-1)
+        'DdlClientesWS.ddl.SelectedValueExist(-1)
+        DdlClienteSucursal.SelectedValueExist(-1)
 
         DvModalRequiereOSFecha.Visible = False
         ChkRequiereTecnicoModal.Checked = False
@@ -36051,8 +36184,8 @@ Partial Class Ventas
 
     Protected Sub LnkDvModalTipoVentaAceptar_Click(sender As Object, e As EventArgs)
 
-        If DdlClientesWS.SelectedValue.ToEntero > 0 Then
+        If DdlClienteSucursalCliente() > 0 Then
-            ViewState("CveCliente") = DdlClientesWS.SelectedValue.ToEntero
+            ViewState("CveCliente") = DdlClienteSucursalCliente()
         Else
             Alert("Debe de seleccionar un cliente.", TipoMensaje.MsgAdvertencia)
             Exit Sub
@@ -36079,6 +36212,7 @@ Partial Class Ventas
         DdlMedico.SelectedValueExist(DdlMedicoModal.SelectedValue)
         DdlProcedimiento.SelectedValueExist(DdlProcedimientoModal.SelectedValue)
 
+
         'si es  pago directo es factura
         If RBLTipoVenta.SelectedValue.Contiene("2") Then
             DdlTipoComprobante.SelectedValueExist("Ing")
@@ -36095,23 +36229,17 @@ Partial Class Ventas
         End If
         DdlTipoComprobante.Enabled = False
 
-
-
-
         CargaCliente(CveCliente)
 
+        DdlSucursalCliente.SelectedValueExist(DdlClienteSucursalSucursal)
+
         DdlTipoComprobante_SelectedIndexChanged(sender, Nothing)
 
-        RegistraScript("$('#DvModalTipoVenta').modal('hide');")
-
-
 
         Dim CountPsAgregados As Integer = 0
 
         For Each GvRow As GridViewRow In GvProductosProcedimiento.Rows
-
             Dim Cantidad As Decimal = GvRow.FCTextBox("TxtCantidad").Text.ToDecimal
-
             Dim CveUnidadMedida As Integer = GvRow.DataKey("CveUnidadMedida").ToEntero
             Dim Abreviatura As String = GvRow.DataKey("Abreviatura").ToString
             Dim PU As Decimal = GvRow.DataKey("Precio").ToDecimal
@@ -36130,15 +36258,18 @@ Partial Class Ventas
                     Exit For
                 End If
             End If
-
         Next
-
         If CountPsAgregados > 0 Then
             CalculaTotalesVenta()
         End If
 
-        UpCliente.Update()
+        If UsuarioActual.CveVendedor > 0 Then
+            DdlVendedor.SelectedValueExist(UsuarioActual.CveVendedor)
+            UpParametros.Update()
+        End If
 
+        RegistraScript("$('#DvModalTipoVenta').modal('hide');")
+        UpCliente.Update()
     End Sub
 
     Protected Sub GvProductosProcedimiento_RowDataBound(sender As Object, e As GridViewRowEventArgs)
@@ -36157,19 +36288,16 @@ Partial Class Ventas
     End Sub
 
     Protected Sub DdlProcedimientoModal_SelectedIndexChanged(sender As Object, e As EventArgs)
-        CargaPSProcedimiento(DdlProcedimiento.SelectedValue.ToEntero, DdlClientesWS.SelectedValue.ToEntero, DdlSubProyectoDatos.SelectedValue.ToEntero)
+        CargaPSProcedimiento(DdlProcedimientoModal.SelectedValue.ToEntero, DdlClienteSucursalCliente, DdlSubProyectoDatos.SelectedValue.ToEntero)
     End Sub
 
     Private Sub CargaPSProcedimiento(CveProcedimiento As Integer, CveClienteL As Integer, CveSubProyectoL As Integer)
-        If DdlProcedimientoModal.SelectedValue.ToEntero > 0 Then
+        If CveProcedimiento > 0 Then
             Dim objVenta As New ClsVentas
-
             If objVenta.GetProcedimientoProducto(CveProcedimiento, 1, UsuarioActual.CveEmpresa, CveClienteL, CveSubProyectoL) Then
                 GvProductosProcedimiento.DataSource = objVenta.DtResultados
             End If
-
             objVenta.Dispose()
-
         Else
             GvProductosProcedimiento.DataSource = Nothing
         End If
@@ -36183,7 +36311,6 @@ Partial Class Ventas
 
     Private Function GeneraOS(ByRef TransacSQL As SqlTransaction, ByRef errorList As List(Of String)) As Boolean
 
-
         Dim Errores As Boolean = False
 
         Dim ObjOrdenServicio As New ClsOS(TransacSQL)
@@ -36197,7 +36324,7 @@ Partial Class Ventas
         Dim EstatusOrdenServicio As Integer = GlobalDTEstatusOrdenServicios(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveEstatusOrdenServicio", "TipoEstatus = 1").ToEntero
 
         If ObjOrdenServicio.AddOrdenesServicios(CveCliente, DdlSubProyectoDatos.SelectedValue.ToEntero, UsuarioActual.Nombre, TxtFechaOS.Text.Replace(",", "").ToDateTime, $"Venta: {LblSerie.Text}-{TxtFolio.Text}", UsuarioActual.CveUsuario, EstatusOrdenServicio,
-                                                        UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, CveOSTipo, CveClienteSucursal:=DdlSubProyectoDatos.SelectedValue.ToEntero,
+                                                        UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, CveOSTipo, CveClienteSucursal:=DdlSucursalCliente.SelectedValue.ToEntero,
                                                         Direccion:="", Telefono:="", CveModeloAuto:=-1, Año:="", CveMedico:=DdlMedico.SelectedValue.ToEntero,
                                                         CveProcedimiento:=DdlProcedimiento.SelectedValue.ToEntero, CveTipoVenta:=RBLTipoVenta.SelectedValue.ToEntero, FechaCita:=TxtFechaOS.Text.Replace(",", "").ToDateTime) Then
             CveOSVentaMedica = ObjOrdenServicio.CveOS
@@ -36278,5 +36405,8 @@ Partial Class Ventas
     Protected Sub BtnCargaAuxiliarConta_Click(sender As Object, e As EventArgs)
         CargarSaldoAuxiliar(CveCliente)
     End Sub
+
+
+
 End Class