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

Correciones CatProcedmientos Detalles

Browse Source
This commit is contained in:
rakcsle
2023-12-06 18:42:47 -07:00
parent 8e49cdfd2a
commit ee59eb1d7d
8 changed files with 52 additions and 29 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
App_Code/ClsVentas.vb
View File

@@ -6100,22 +6100,25 @@ Public Class ClsVentas
End Function End Function
Public Function AddProcedimiento(Procedimiento As String, Estatus As Boolean, CveUsuario As Integer, CveEmpresa As Integer) As Boolean Public Function AddProcedimiento(Procedimiento As String, Estatus As Boolean, CveUsuario As Integer, CveEmpresa As Integer) As Integer
Dim Retorno As Boolean = False Dim Retorno As Integer = -1
DataAdapter("PA_Vta_ProcedimientosAdd") DataAdapter("PA_Vta_ProcedimientosAdd")
With SqlAdapter.SelectCommand.Parameters With SqlAdapter.SelectCommand.Parameters
.Add("@Procedimiento", SqlDbType.VarChar).Value = Procedimiento .Add("@Procedimiento", SqlDbType.VarChar).Value = Procedimiento
.Add("@Estatus", SqlDbType.Int).Value = Estatus .Add("@Estatus", SqlDbType.Int).Value = Estatus
.Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
.Add("@CveProcedimiento", SqlDbType.Int).Direction = ParameterDirection.Output
End With End With
Try Try
SqlAdapter.Fill(Data) SqlAdapter.Fill(Data)
Retorno = True Retorno = SqlAdapter.SelectCommand.Parameters("@CveProcedimiento").Value.ToString.ToEntero
Catch ex As Exception Catch ex As Exception
OnError("Ocurrió un error al guardar el Procedimiento.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) OnError("Ocurrió un error al guardar el Procedimiento.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End Try End Try
Return Retorno Return Retorno
End Function End Function

3
Inventarios/EntradasSalidas.aspx.vb
View File

@@ -5528,6 +5528,9 @@ Partial Class Inventarios_EntradasSalidas
End If End If
End If End If
End If
End If
Catch ex As Exception Catch ex As Exception
ErrorMovInv = True ErrorMovInv = True
End Try End Try

10
Ventas/CatProcedimientoDetalle.aspx
View File

@@ -11,11 +11,11 @@
</asp:Content> </asp:Content>
<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server"> <asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
<asp:UpdatePanel runat="server" > <asp:UpdatePanel runat="server" ID="UpAcciones">
<ContentTemplate> <ContentTemplate>
<li> <li>
<asp:LinkButton runat="server" ID="LnkAgregarProducto" CssClass="" data-toggle="tooltip" data-placement="left" Text="<i class='fa fa-plus'></i> Agregar Producto"></asp:LinkButton> <asp:LinkButton runat="server" ID="LnkAgregarProducto" CssClass="" data-toggle="tooltip" data-placement="left" Text="<i class='fa fa-plus'></i> Agregar Producto" Visible="false"></asp:LinkButton>
</li> </li>
</ContentTemplate> </ContentTemplate>
@@ -61,7 +61,7 @@
</div> </div>
<div class="form-group form-md-line-input input-iconright" id="Div1" runat="server"> <div class="form-group form-md-line-input input-iconright" id="Div1" runat="server">
<label for="<%= ChkEstatus.ClientID.ToString()%>">Activo:</label> <label for="<%= ChkEstatus.ClientID.ToString()%>">Activo:</label>
<asp:CheckBox ID="ChkEstatus" runat="server" CssClass="form-control make-switchsd"></asp:CheckBox> <asp:CheckBox ID="ChkEstatus" runat="server" CssClass="form-control make-switchsd" data-size="small"></asp:CheckBox>
</div> </div>
<div class="form-group form-md-line-input input-iconright" id="LblFechaAlta" runat="server"> <div class="form-group form-md-line-input input-iconright" id="LblFechaAlta" runat="server">
<label for="<%= LblFecha.ClientID.ToString()%>">Fecha:</label> <label for="<%= LblFecha.ClientID.ToString()%>">Fecha:</label>
@@ -81,7 +81,7 @@
</ajax:TabPanel> </ajax:TabPanel>
<ajax:TabPanel ID="TabProductos" runat="server" HeaderText="Productos Relacionados"> <ajax:TabPanel ID="TabProductos" runat="server" HeaderText="Productos Relacionados" Visible="false">
<ContentTemplate> <ContentTemplate>
<asp:UpdatePanel ID="UpTabProductos" runat="server" UpdateMode="Conditional"> <asp:UpdatePanel ID="UpTabProductos" runat="server" UpdateMode="Conditional">
<ContentTemplate> <ContentTemplate>
@@ -148,7 +148,7 @@
</ajax:TabPanel> </ajax:TabPanel>
<ajax:TabPanel ID="TabVentas" runat="server" HeaderText="Ventas Relacionadas"> <ajax:TabPanel ID="TabVentas" runat="server" HeaderText="Ventas Relacionadas" Visible="false">
<ContentTemplate> <ContentTemplate>
<asp:UpdatePanel ID="UpTabVentas" runat="server" UpdateMode="Conditional"> <asp:UpdatePanel ID="UpTabVentas" runat="server" UpdateMode="Conditional">
<ContentTemplate> <ContentTemplate>

28
Ventas/CatProcedimientoDetalle.aspx.vb
View File

@@ -44,12 +44,17 @@ Partial Class Ventas_CatProcedimientoDetalle
CveProcedimiento = If(Request("CveProcedimiento") <> "", Request("CveProcedimiento").ToString.ToEntero, "-1".ToEntero) CveProcedimiento = If(Request("CveProcedimiento") <> "", Request("CveProcedimiento").ToString.ToEntero, "-1".ToEntero)
If CveProcedimiento > 0 Then If CveProcedimiento > 0 Then
CargaDatos() CargaDatos()
CargaProductos() CargaProductos()
CargaVentas() CargaVentas()
TabProductos.Visible = True
TabVentas.Visible = True
LnkAgregarProducto.Visible = True
Else
ChkEstatus.Checked = True
End If End If
DdlProducto.setEsWebService(UsuarioActual.Empresa.Funcionalidad(105) = "1") DdlProducto.setEsWebService(UsuarioActual.Empresa.Funcionalidad(105) = "1")
If Not DdlProducto.UsaWebService AndAlso CType(DdlProducto.DataSource, DataTable) Is Nothing Then If Not DdlProducto.UsaWebService AndAlso CType(DdlProducto.DataSource, DataTable) Is Nothing Then
@@ -124,19 +129,28 @@ Partial Class Ventas_CatProcedimientoDetalle
If CveProcedimiento > 0 Then If CveProcedimiento > 0 Then
If ObjVentas.UpdateProcedimiento(CveProcedimiento, TxtProcedimiento.Text.Trim, ChkEstatus.Checked, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then If ObjVentas.UpdateProcedimiento(CveProcedimiento, TxtProcedimiento.Text.Trim, ChkEstatus.Checked, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
Alert($"Procedimiento Actualizado Correctamente.")
ProcesoOK = True ProcesoOK = True
End If End If
'Else Else
' If ObjVentas.AddProcedimiento(TxtProcedimiento.Text.Trim, ChkEstatus.Checked, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
' ProcesoOK = True CveProcedimiento = ObjVentas.AddProcedimiento(TxtProcedimiento.Text.Trim, ChkEstatus.Checked, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
' End If If CveProcedimiento > 0 Then
ProcesoOK = True
TabProductos.Visible = True
TabVentas.Visible = True
LnkAgregarProducto.Visible = True
UpDatos.Update()
Alert($"Procedimiento Guardado Correctamente.")
End If
End If End If
ObjVentas.Dispose() ObjVentas.Dispose()
If ProcesoOK Then If ProcesoOK Then
Alert($"Procedimiento {If(CveProcedimiento > 0, "Actualizado", "Guardado")} Correctamente.")
RegistraScript("$('#DVAgregarProcedimiento').modal('hide');") 'RegistraScript("$('#DVAgregarProcedimiento').modal('hide');")
CargaDatos() CargaDatos()
CargaGlobal() CargaGlobal()
UpDatos.Update() UpDatos.Update()

3
Ventas/CatProcedimientos.aspx
View File

@@ -17,7 +17,8 @@
<asp:UpdatePanel runat="server" ID="UpAgregar"> <asp:UpdatePanel runat="server" ID="UpAgregar">
<ContentTemplate> <ContentTemplate>
<li> <li>
<asp:LinkButton runat="server" ID="LnkAgregarProcedimiento" OnClick="LnkAgregarProcedimiento_Click" data-toggle="tooltip" data-placement="left" title="Agregar Procedimiento" Text="<i class='fa fa-plus'></i> Agregar Procedimiento"></asp:LinkButton> <a runat="server" href="~/Ventas/CatProcedimientoDetalle.aspx?CveProcedimiento=-1" target="_blank"
data-toggle="tooltip" data-placement="left" title="Agregar Procedimiento" ><i class='fa fa-plus'></i> Agregar Procedimiento</a>
</li> </li>
</ContentTemplate> </ContentTemplate>
</asp:UpdatePanel> </asp:UpdatePanel>

2
Ventas/CatProcedimientos.aspx.vb
View File

@@ -56,7 +56,7 @@ Partial Class Ventas_CatProcedimientos
ProcesoOK = True ProcesoOK = True
End If End If
Else Else
If ObjVentas.AddProcedimiento(TxtProcedimiento.Text.Trim, ChkEstatus.Checked, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then If ObjVentas.AddProcedimiento(TxtProcedimiento.Text.Trim, ChkEstatus.Checked, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) > 0 Then
ProcesoOK = True ProcesoOK = True
End If End If
End If End If

20
Ventas/Ventas.aspx
View File

@@ -8428,7 +8428,7 @@
<div class="col-md-4" > <div class="col-md-4" >
</div> </div>
<div class="col-md-4" style="text-align:left!important" > <div class="col-md-4" style="text-align:left!important" >
<asp:RadioButtonList ID="RBLTipoVenta" DataTextField="TipoVenta" RepeatDirection="Vertical" DataValueField="CveTipoVenta" runat="server" AutoPostBack="true" OnSelectedIndexChanged="RBLTipoVenta_SelectedIndexChanged"> <asp:RadioButtonList ID="RBLTipoVenta" DataTextField="TipoVenta" RepeatDirection="Vertical" DataValueField="CveTipoVenta" runat="server" AutoPostBack="true" OnSelectedIndexChanged="RBLTipoVenta_SelectedIndexChanged" Style="margin-top:10px!important">
</asp:RadioButtonList> </asp:RadioButtonList>
</div> </div>
<div class="col-md-4" > <div class="col-md-4" >
@@ -8449,24 +8449,26 @@
<%--Medico Procedimiento--%> <%--Medico Procedimiento--%>
<div runat="server" visible="False" id="DvModalTipoVentaPasoMedicoProcedimiento"> <div runat="server" visible="False" id="DvModalTipoVentaPasoMedicoProcedimiento">
<div class="row"> <div class="row">
<div class="form-group col-md-6 form-md-line-input input-iconright ">
<asp:Label runat="server" Style="width: 90%; color: #888888;" AssociatedControlID="DdlMedicoModal">Médico:</asp:Label> <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: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:ListItem Value="-1">Seleccione uno</asp:ListItem>
</asp:DropDownList> </asp:DropDownList>
<asp:RequiredFieldValidator ID="RfvDdlMedicoModal" runat="server" CssClass="help-block errorimput" Display="None" InitialValue="-1" <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> 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> <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>
<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:Label runat="server" Style="width: 90%; color: #888888;" AssociatedControlID="DdlProcedimientoModal">Procedimiento:</asp:Label>
<asp:DropDownList ID="DdlProcedimientoModal" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" CausesValidation="true" DataTextField="Procedimiento" DataValueField="CveProcedimiento" <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"> OnSelectedIndexChanged="DdlProcedimientoModal_SelectedIndexChanged" AutoPostBack="true">
<asp:ListItem Value="-1">Seleccione uno</asp:ListItem> <asp:ListItem Value="-1">Seleccione uno</asp:ListItem>
</asp:DropDownList> </asp:DropDownList>
<asp:RequiredFieldValidator ID="RfvDdlProcedimientoModal" runat="server" CssClass="help-block errorimput" Display="None" InitialValue="-1" <asp:RequiredFieldValidator ID="RfvDdlProcedimientoModal" runat="server" CssClass="" Display="None" InitialValue="-1"
ControlToValidate="DdlProcedimientoModal" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Procedimiento''</b> es necesario, por favor ingréselo." ValidationGroup="GrpModalVentaMedica"></asp:RequiredFieldValidator> 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>
</div> </div>

6
Ventas/Ventas.aspx.vb
View File

@@ -13508,8 +13508,8 @@ Partial Class Ventas
End If End If
End If End If
If ObjVentas.SincronizacionProcedimientoProducto(DdlProcedimiento.SelectedValue.ToEntero, factura.CveVenta, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then If Not ObjVentas.SincronizacionProcedimientoProducto(DdlProcedimiento.SelectedValue.ToEntero, factura.CveVenta, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
ErrorList.Add("Ocurrió un error al guardar la los productos al procedimiento") ErrorList.Add("Ocurrió un error al guardar los productos al procedimiento")
End If End If
End If End If
@@ -35734,7 +35734,7 @@ Partial Class Ventas
If DdlProcedimientoModal.SelectedValue.ToEntero > 0 Then If DdlProcedimientoModal.SelectedValue.ToEntero > 0 Then
Dim objVenta As New ClsVentas Dim objVenta As New ClsVentas
If objVenta.GetProcedimientoProducto(DdlProcedimientoModal.SelectedValue.ToEntero, -1, UsuarioActual.CveEmpresa) Then If objVenta.GetProcedimientoProducto(DdlProcedimientoModal.SelectedValue.ToEntero, 1, UsuarioActual.CveEmpresa) Then
GvProductosProcedimiento.DataSource = objVenta.DtResultados GvProductosProcedimiento.DataSource = objVenta.DtResultados
End If End If