AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
JORGE LUIS CAUDILLO ESPARZA
2024-01-07 13:31:50 -07:00
parent b01f85b071 bf40e1c70e
commit 25a01ee0f3
44 changed files with 1380 additions and 3957 deletions
Download Patch File Download Diff File Expand all files Collapse all files

37
App_Code/ClsClientes.vb
View File

@@ -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

11
App_Code/ClsGenerales.vb
View File

@@ -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,

6
App_Code/ClsInventarios.vb
View File

@@ -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

6
App_Code/ClsOS.vb
View File

@@ -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("@FechaF", SqlDbType.VarChar).Value = FechaF
.Add("@FechaI", SqlDbType.Date).Value = FechaI
.Add("@FechaF", SqlDbType.Date).Value = FechaF
.Add("@FechaTerminado", SqlDbType.VarChar).Value = FechaTerminado
.Add("@CveCliente", SqlDbType.Int).Value = CveCliente
.Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto

6
App_Code/ClsPaginas.vb
View File

@@ -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)

4
App_Code/ClsVentas.vb
View File

@@ -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

2
App_Code/Modelos.vb
View File

@@ -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

6
Compras/PopUpVerFactura.aspx.vb
View File

@@ -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}")}")

24
Compras/RepCxP.aspx
View File

@@ -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>

2
Compras/RepCxP.aspx.vb
View File

@@ -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

27
Compras/RepCxPDetalle.aspx
View File

@@ -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>

5
Compras/RepCxPDetalle.aspx.vb
View File

@@ -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

3314
Empresas/186/Formatos/Cotizacion.mrt
View File

File diff suppressed because it is too large Load Diff

3
Empresas/186/Formatos/Entradas.rdlc
View File

@@ -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>

12
Empresas/186/Formatos/Factura.mrt
View File

@@ -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>
<ReportGuid>fce72c3004184545a030083d08713120</ReportGuid>
<ReportFile>F:\Proyectos\Empresas\186\Formatos\Factura.mrt</ReportFile>
<ReportGuid>5697d1e820c04b44b4aba72597e3ca27</ReportGuid>
<ReportName>Factura</ReportName>
<ReportUnit>Centimeters</ReportUnit>
<ReportVersion>2022.4.5.0</ReportVersion>

2
Empresas/186/Formatos/NotaDevolucion.mrt
View File

@@ -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">

16
Empresas/186/Formatos/Pedido.mrt
View File

@@ -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>

2
Empresas/186/Formatos/Salidas.rdlc
View File

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

2
Empresas/186/Formatos/Traslado.rdlc
View File

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

5
Inventarios/EntradasSalidas.aspx.vb
View File

@@ -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,
CveUsuarioModifico:=UsuarioActual.CveUsuario, CveCultivoCuadroDetalle:=DdlModalCultivosCuadro.SelectedValue.ToEntero) Then
CveMovimientoDetalleEdit, DdlSeccionAlmacen.SelectedValue.ToEntero, TxtnSerie.Text, TxtObservacionesdetalle.Text,
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

18
Inventarios/TraspasoAlmacen.aspx
View File

@@ -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" />

21
OS/Asignaciones.aspx
View File

@@ -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:TemplateField>
<asp:BoundField DataField="FechaIng" HeaderText="Fecha Ingreso" DataFormatString="{0:d}" ItemStyle-Width="130px" />
<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>

67
OS/Asignaciones.aspx.vb
View File

@@ -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
Dim TecnicosSubProyectoAux As DataTable = TecnicosSubProyectos.FiltraParametros(String.Format("SubProyecto = '{0}'", SubProyecto.Item("SubProyecto")))
If TecnicosSubProyectoAux.Rows.Count > 0 Then
Dim EstatusDeTipoProcesoMenor As Integer = TecnicosSubProyectoAux.Rows(0).Item("CveEstatusOrdenServicio").ToString.ToEntero
Dim dtAuxiliar As New DataTable
dtAuxiliar = TecnicosSubProyectos.FiltraParametros(String.Format("SubProyecto = '{0}' AND CveEstatusOrdenServicio = {1}", SubProyecto.Item("SubProyecto"), EstatusDeTipoProcesoMenor), "", {"CveUsuario", "Nombre"})
TecnicosResultado.Merge(dtAuxiliar)
End If
Next
If DtOSSubProyectos IsNot Nothing Then
For Each SubProyecto As DataRow In DtOSSubProyectos.Rows
Dim TecnicosSubProyectoAux As DataTable = TecnicosSubProyectos.FiltraParametros(String.Format("SubProyecto = '{0}'", SubProyecto.Item("SubProyecto")))
If TecnicosSubProyectoAux.Rows.Count > 0 Then
Dim EstatusDeTipoProcesoMenor As Integer = TecnicosSubProyectoAux.Rows(0).Item("CveEstatusOrdenServicio").ToString.ToEntero
Dim dtAuxiliar As New DataTable
dtAuxiliar = TecnicosSubProyectos.FiltraParametros(String.Format("SubProyecto = '{0}' AND CveEstatusOrdenServicio = {1}", SubProyecto.Item("SubProyecto"), EstatusDeTipoProcesoMenor), "", {"CveUsuario", "Nombre"})
TecnicosResultado.Merge(dtAuxiliar)
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 CveEstatusOS = GlobalDTEstatusOrdenServicios(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveEstatusOrdenServicio", "TipoEstatus = 2", "CveEstatusOrdenServicio ASC")
Dim TieneError As Boolean = False
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 = 0, Frecuencia = -1, DiasSemana = "-1", Dias = -1, Mes = -1, RecurrenciaFin = "-1"
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 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

5
OS/CatEstatusOrdenServicio.aspx
View File

@@ -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">
<label for="TxtBusquedaEstatus">Buscar: </label>
<div class="row" style="margin-right: 10px; " align="right">
<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" />

13
OS/CatEstatusOrdenServicio.aspx.vb
View File

@@ -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

16
OS/OrdenesServicios.aspx
View File

@@ -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>
<ajax:FilteredTextBoxExtender runat="server" FilterType="Custom" TargetControlID="TxtDev" ValidChars="123456789." />
<asp:TextBox ID="TxtUtilizado" runat="server" Width="50px" ></asp:TextBox>
<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>

406
OS/OrdenesServicios.aspx.vb
View File

@@ -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
For Each dr As DataRow In ObjVentas.DtResultados.Rows
Dim Drow As DataRow = ObjVentas.DtResultados.Rows(0)
If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then
TxtDescripcion.Text = Drow("SerieFolio").ToString
TxtSolicito.Text = UsuarioActual.Nombre
DdlMedico.SelectedValueExist(Drow("CveMedico").ToString)
DdlProcedimiento.SelectedValueExist(Drow("CveProcedimiento").ToString)
DdlTipoVenta.SelectedValueExist(Drow("CveTipoVenta").ToString)
DdlSubProyecto.SelectedValueExist(Drow("CveSubProyecto").ToString)
'If dr("CveTipoPS").ToString.ToEntero = 2 Then
Dim CvePSDetalle As Integer = UsuarioActual.Empresa.Funcionalidad(708).ToEntero
Dim CodigoPS As String = GlobalDTPS(UsuarioActual.CveEmpresa).FiltroPrimeroValor("PSCodigo", $"CvePS={CvePSDetalle}")
TxtFechaCita.Text = NowADS.ToString("yyyy-MM-dd HH:mm:ss").Replace(" ", "T")
Dim drt As DataRow = TmpDT.NewRow
drt("Consecutivo") = 1
drt("CveOSDetalle") = -1
drt("CvePS") = CvePSDetalle
drt("PS") = CodigoPS
drt("Cantidad") = 1
drt("Observaciones") = $"Venta: {Drow("SerieFolio").ToString}"
If dr("CveTipoPS").ToString.ToEntero = 2 Then
drt("Consecutivo") = Cons
drt("CveOSDetalle") = -1
drt("CvePS") = dr("CvePS")
drt("PS") = dr("PS")
drt("Cantidad") = dr("Cantidad")
drt("Observaciones") = dr("Obs")
drt("SeFacturara") = True
drt("SeSuperviso") = False
drt("Archivo") = -1
drt("CveCuentaEquipo") = "-1"
drt("CuentaEquipoMostrar") = "Cuentas y/o Equipos"
drt("Especificaciones") = "-1"
drt("SeFacturara") = True
drt("SeSuperviso") = False
drt("Archivo") = -1
drt("CveCuentaEquipo") = "-1"
drt("CuentaEquipoMostrar") = ""
drt("Especificaciones") = "-1"
TmpDT.Rows.Add(drt)
Cons = Cons + 1
Else
TmpDT.Rows.Add(drt)
GvPS.DataSource = TmpDT
GvPS.DataBind()
Else
If ObjVentas.GetVentaDetalle(CveCotizacion) Then
Dim Cons As Integer = 1
For Each dr As DataRow In ObjVentas.DtResultados.Rows
Dim drt As DataRow = TmpDT.NewRow
If dr("CveTipoPS").ToString.ToEntero = 2 Then
drt("Consecutivo") = Cons
drt("CveOSDetalle") = -1
drt("CvePS") = dr("CvePS")
drt("PS") = dr("PS")
drt("Cantidad") = dr("Cantidad")
drt("Observaciones") = dr("Obs")
drt("SeFacturara") = True
drt("SeSuperviso") = False
drt("Archivo") = -1
drt("CveCuentaEquipo") = "-1"
drt("CuentaEquipoMostrar") = "Cuentas y/o Equipos"
drt("Especificaciones") = "-1"
TmpDT.Rows.Add(drt)
Cons = Cons + 1
End If
Next
GvPS.DataSource = TmpDT
GvPS.DataBind()
End If
End If
Next
GvPS.DataSource = TmpDT
GvPS.DataBind()
End If
'CargaDetalle
End If
@@ -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)
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")
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)
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")
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
GvMaterialUtilizado.Columns(3).Visible = DTSolicitudDev.MIN("Serie") <> ""
GvMaterialUtilizado.Columns(4).Visible = DTSolicitudDev.MIN("Lote") <> ""
GvMaterialUtilizado.Columns(5).Visible = DTSolicitudDev.MIN("FechaCaducidad") <> ""
GvMU.DataSource = DTSolicitudDev
GvMU.Columns(3).Visible = DTSolicitudDev.MIN("Serie") <> ""
GvMU.Columns(4).Visible = DTSolicitudDev.MIN("Lote") <> ""
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()
If Not ObjV.UpdateVentasDevolucionAlmacen(1, CveVenta) Then
ProcesoOK = False
End If
Dim ClsOS As New ClsOS(ObjV.IniciaTransacSQL())
Dim ObjInventario As New ClsInventarios(ObjV.IniciaTransacSQL())
Dim ObjConta As New ClsContabilidad(ObjV.IniciaTransacSQL())
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())
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)
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 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)
If ObjInventario.GetMovimientosDetalle(CveMovimiento, UsuarioActual.CveEmpresa) AndAlso ObjInventario.DtResultados.Rows.Count > 0 Then
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(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 CveRemiocionGenerada As Integer = -1
Dim CveRemisionGenerada 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 CantidadDev As Decimal = GvRow.FCTextBox("TxtDev").Text.ToDecimal
Dim CantidadRegistro As Decimal = Cantidad - CantidadDev
Dim CantidadRegistro As Decimal = GvRow.FCTextBox("TxtUtilizado").Text.ToDecimal
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
Alert("Error al agregar producto", TipoMensaje.MsgAdvertencia)
ProcesoOK = False
Exit For
If CantidadRegistro > 0 Then
If Not ObjFactura.AgregarPS(CvePS, CantidadRegistro, PU, Descuento, Obs, CveSubProyecto:=CveSubProyectoPedido) Then
Alert("Error al agregar producto", TipoMensaje.MsgAdvertencia)
ProcesoOK = False
Exit For
End If
End If
Next
If ProcesoOK Then
ObjFactura.CalculaTotales()
Dim Resp As New Modelos.Factura.MMensajeFactura

12
OS/RepOSMedicas.aspx
View File

@@ -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>

24
OS/RepOSMedicas.aspx.vb
View File

@@ -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 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 DTTecnicos As DataTable = Nothing
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

12
OS/RepOrdenesServicios.aspx.vb
View File

@@ -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
FechaI = If(IsDate(txtFechaI.Text.Trim()), txtFechaI.Text.Trim(), "-1")
FechaF = If(IsDate(txtFechaF.Text.Trim()), txtFechaF.Text.Trim(), "-1")
Dim FechaI, FechaF As Date
Dim FechaTerminado As String
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)

10
Sistemas/EmpresasModulos.aspx
View File

@@ -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>

242
Ventas/ActualizarPrecios.aspx
View File

@@ -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>

26
Ventas/ActualizarPrecios.aspx.vb
View File

@@ -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 = "Código CPK"
DtExcel.Columns("Codigo2").ColumnName = "Número de parte"
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)))

3
Ventas/CatMedicos.aspx
View File

@@ -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">

4
Ventas/CatPreciosLista.aspx
View File

@@ -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>

6
Ventas/CatPreciosLista.aspx.vb
View File

@@ -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

2
Ventas/CatProcedimientos.aspx
View File

@@ -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>

131
Ventas/Clientes.aspx
View File

@@ -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>
<%-- 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>
<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="0" Text="Sin Registrar" />
<asp:ListItem Selected="True" Value="1" Text="Activos" />
<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">
<asp:TextBox ID="TxtCorreoSucursal" CssClass="form-control" runat="server" MaxLength="300" CausesValidation="true"></asp:TextBox>
<asp:RegularExpressionValidator ID="RegularExpressionValidator1" runat="server" CssClass="help-block errorimput" ValidationExpression="(([a-zA-Z0-9_\-\.]+)@((\[[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.)|(([a-zA-Z0-9\-]+\.)+))([a-zA-Z]{2,4}|[0-9]{1,3})(\]?)(\s*;\s*|\s*$))*" ControlToValidate="TxtCorreoSucursal" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Email''</b> no es válido, por favor ingrése uno correcto." ValidationGroup="GrpGuardarSucursal"></asp:RegularExpressionValidator>
<label for="<%= TxtCorreoSucursal.ClientID.ToString()%>">Correo Envio Factura:(xml/pdf) </label>
<i></i>
<div class="row" style="padding-left: 16px;">
<div class="form-group form-md-line-input input-iconright col-xs-6">
<asp:TextBox ID="TxtCorreoSucursal" CssClass="form-control" runat="server" MaxLength="300" CausesValidation="true"></asp:TextBox>
<asp:RegularExpressionValidator ID="RegularExpressionValidator1" runat="server" CssClass="help-block errorimput" ValidationExpression="(([a-zA-Z0-9_\-\.]+)@((\[[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.)|(([a-zA-Z0-9\-]+\.)+))([a-zA-Z]{2,4}|[0-9]{1,3})(\]?)(\s*;\s*|\s*$))*" ControlToValidate="TxtCorreoSucursal" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Email''</b> no es válido, por favor ingrése uno correcto." ValidationGroup="GrpGuardarSucursal"></asp:RegularExpressionValidator>
<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="form-group form-md-line-input input-iconright">
<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 class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtContactoSucursal" CssClass="form-control" runat="server" MaxLength="300" CausesValidation="true"></asp:TextBox>
<label for="<%= TxtContactoSucursal.ClientID.ToString()%>">Contacto:</label>
<i></i>
</div>
<div class="row" style="padding-left: 16px;" >
<div class="form-group form-md-line-input input-iconright col-xs-6">
<asp:TextBox ID="TxtContactoSucursal" CssClass="form-control" runat="server" MaxLength="300" CausesValidation="true"></asp:TextBox>
<label for="<%= TxtContactoSucursal.ClientID.ToString()%>">Contacto:</label>
<i></i>
</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">
</asp:DropDownList>
<label for="<%= DdlResponsableSucursal.ClientID.ToString()%>">Responsable: </label>
</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">
<asp:DropDownList ID="DdlResponsableSucursal" DataValueField="CveUsuario" DataTextField="Nombre" Width="150px" runat="server" CssClass="form-control select2me">
</asp:DropDownList>
<label for="<%= DdlResponsableSucursal.ClientID.ToString()%>">Responsable: </label>
<div class="form-group form-md-line-input input-iconright col-xs-6" runat="server" id="DvAlmacenSucursal" visible="false">
<asp:DropDownList runat="server" ID="ddlAlmacenSucursal" DataTextField="Almacen" DataValueField="CveAlmacen" CssClass="form-control select2me" Width="100%"></asp:DropDownList>
<label for="<%=ddlAlmacenSucursal.ClientID.ToString()%>">Almacén:</label>
</div>
<div class="form-group form-md-line-input input-iconright col-xs-6">
<div id="DivEstatusSucursal" visible="false" runat="server" class="form-group form-md-line-input input-iconright col-xs-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">
<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>
<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>
</div>
<div class="col-md-6">
<div class="form-group form-md-line-input input-iconright">
<asp:DropDownList ID="DdlLAEstatus" Width="250px" runat="server" CssClass="form-control select2me">
<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>

129
Ventas/Clientes.aspx.vb
View File

@@ -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
If DdlTipoCliente.SelectedValue.ToEntero = 1 AndAlso UsuarioActual.Empresa.Funcionalidad(404) = "30" AndAlso UsuarioActual.Empresa.Funcionalidad(578) = "1" Then
Dim CveAlmacenAsignadoSucursal As Integer = If(Row("CveAlmacenAsignado").ToString().ToEntero <= 0, -1, Row("CveAlmacenAsignado").ToString().ToEntero)
If DdlTipoCliente.SelectedValue.ToEntero = 1 AndAlso UsuarioActual.Empresa.Funcionalidad(404) = "30" AndAlso UsuarioActual.Empresa.Funcionalidad(578) = "1" AndAlso CveAlmacenAsignadoSucursal <= -1 Then
CveAlmacenAsignadoSucursal = GeneraGuardaAlmacenAsignadoSucursal(Row("SucursalCliente").ToString(), ObjClientes.IniciaTransacSQL())
If Not CveAlmacenAsignadoSucursal > 0 Then
ErrorProceso = True
@@ -3005,14 +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
CveAlmacenAgregado = ObjInv.CveAlmacenAgregado
GlobalDTAlmacen(UsuarioActual.CveEmpresa) = Nothing
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 = $"{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

12
Ventas/ProductosServicios.aspx
View File

@@ -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">

11
Ventas/ProductosServicios.aspx.vb
View File

@@ -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,

6
Ventas/RepProductosServicios.aspx
View File

@@ -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 Text="Dólares en Tipo Cambio de la Fecha Compra" Value="2"></asp:ListItem>
<asp:ListItem Text="Tipo Cambio Especifico" Value="3"></asp:ListItem>
<asp:ListItem Selected="true" Text="Moneda original" Value="1"></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:RadioButtonList>
<div class="row" style="margin-left: 10px;" runat="server" id="LiEspecifico" visible="false">

255
Ventas/Ventas.aspx
View File

@@ -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">
<asp:TextBox ID="TxtFechaOS" type="datetime-local" runat="server" CssClass="make-switchsd" CausesValidation="true" Style="width: 130px" step="1"></asp:TextBox>
</td>
<td runat="server" id="TdFechaOS2" visible="false">
<asp:TextBox ID="TxtFechaOS" type="datetime-local" runat="server" CssClass="make-switchsd" CausesValidation="true" Style="width: 130px" ></asp:TextBox>
</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">
<asp:Literal Text="" runat="server" ID="LtlClienteMsg"></asp:Literal>
</p>
</div>
<p style="font-size: 7pt">
<asp:Literal Text="" runat="server" ID="LtlClienteMsg"></asp:Literal>
</p>
</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="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="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="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: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: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>
<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="col-md-4" >
<div class="row" runat="server" visible="True" id="DvModalTipoVentaPasoTipo">
<div class="col-md-4">
</div>
<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">
<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>
</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>
<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>
<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>
</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 ">
<asp:DropDownList ID="DdlMedicoModal" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" CausesValidation="true" DataTextField="Medico" DataValueField="CveMedico" >
<div class="form-group col-md-12 form-md-line-input input-iconright ">
<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"
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="DdlSucursalClienteModal">Sucursal:</asp:Label>
</div>
</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"
ControlToValidate="DdlProcedimientoModal" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Procedimiento''</b> es necesario, por favor ingréselo."
<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."
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
<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">
<Columns>
<asp:TemplateField ItemStyle-HorizontalAlign="Right" HeaderText="Cant." ItemStyle-Width="40px">
<ItemTemplate>
<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="." />
</ItemTemplate>
</asp:TemplateField>
<asp:BoundField DataField="Cantidad" HeaderText="Cant." DataFormatString="{0:#,###.##}" ItemStyle-Width="30px" >
<ItemStyle HorizontalAlign="Right" />
</asp:BoundField>
<asp:BoundField DataField="CodigoPS" HeaderText="Producto">
<ItemStyle HorizontalAlign="Left" />
</asp:BoundField>
<asp:BoundField DataField="Abreviatura" HeaderText="UM">
<ItemStyle HorizontalAlign="Left" />
</asp:BoundField>
<asp:BoundField DataField="Precio" HeaderText="Precio" DataFormatString="{0:#,##0.###}" HtmlEncode="False" />
</Columns>
<HeaderStyle CssClass="Titulos" Height="15px"></HeaderStyle>
</asp:GridView>
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"
DataKeyNames="CveProcedimientoProducto,CveProcedimiento,Cantidad,CvePS,CodigoPS,Autogenerado,Estatus,CveVenta,CveUnidadMedida,Abreviatura,CveClasificacion,Clasificacion,Precio" GridLines="None">
<Columns>
<asp:TemplateField ItemStyle-HorizontalAlign="Right" HeaderText="Cant." ItemStyle-Width="40px">
<ItemTemplate>
<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="." />
</ItemTemplate>
</asp:TemplateField>
<asp:BoundField DataField="Cantidad" HeaderText="Cant." DataFormatString="{0:#,###.##}" ItemStyle-Width="30px">
<ItemStyle HorizontalAlign="Right" />
</asp:BoundField>
<asp:BoundField DataField="CodigoPS" HeaderText="Producto">
<ItemStyle HorizontalAlign="Left" />
</asp:BoundField>
<asp:BoundField DataField="Abreviatura" HeaderText="UM">
<ItemStyle HorizontalAlign="Left" />
</asp:BoundField>
<asp:BoundField DataField="Precio" HeaderText="Precio" DataFormatString="{0:#,##0.###}" HtmlEncode="False" />
</Columns>
<HeaderStyle CssClass="Titulos" Height="15px"></HeaderStyle>
</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() {
$('#divAgregarSucursal').modal('hide');
}
function hideDivAgregarSucursal() {
$('#divAgregarSucursal').modal('hide');
}

414
Ventas/Ventas.aspx.vb
View File

@@ -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
DdlClientesWS.txtText.Value = LblCliente.Text
DdlClientesWS.SelectedValue = CveCliente.ToString
SeleccionarClienteSucursal(CveCliente:=CveCliente)
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")
DdlPS_SelectedIndexChanged(Nothing, Nothing)
DdlUnidadMedida.SelectedValue = GvRow.DataKey("CveUM")
TxtObsPS.Text = GvRow.FCLiteral("LtlObsPS").Text
If (GvRow.RowState = DataControlRowState.Edit OrElse GvRow.RowState = 5) Then
TxtCantidad.Text = GvRow.FCTextBox("TxtCantidad").Text
DdlClasificacion.SelectedValue = GvRow.FCDropDownList("DdlClasificacion").SelectedValue
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)
CargaPSProcedimiento(DdlProcedimiento.SelectedValue.ToEntero, DdlClientesWS.SelectedValue.ToEntero, DdlSubProyectoDatos.SelectedValue.ToEntero)
'Protected Sub DdlClientesWS_selectedindexchange(sender As Object, e As EventArgs)
' 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.txtValue.Value = ""
DdlClientesWS.ddl.SelectedValueExist(-1)
'DdlClientesWS.txtText.Value = ""
'DdlClientesWS.txtValue.Value = ""
'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
ViewState("CveCliente") = DdlClientesWS.SelectedValue.ToEntero
If DdlClienteSucursalCliente() > 0 Then
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