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

Browse Source
This commit is contained in:
JORGE LUIS CAUDILLO ESPARZA
2022-10-25 09:18:18 -07:00
parent 057820477a
commit 1fbd75f8e8
8 changed files with 220 additions and 46 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
App_Code/ClsVentas.vb
View File

@@ -195,7 +195,7 @@ Public Class ClsVentas
SqlAdapter.Fill(Data) SqlAdapter.Fill(Data)
retorno = True retorno = True
Catch ex As Exception Catch ex As Exception
OnError("Ocurrió un error al actualizar venta manifiesto.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) OnError("Ocurrió un error al actualizar venta Orden de Producción.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
End Try End Try
Return retorno Return retorno
End Function End Function

129
Nomina/Finiquito.aspx
View File

@@ -161,6 +161,12 @@
<asp:Label runat="server" Text="Tipo periodo" AssociatedControlID="DdlTipoPeriodo"></asp:Label> <asp:Label runat="server" Text="Tipo periodo" AssociatedControlID="DdlTipoPeriodo"></asp:Label>
</div> </div>
</div> </div>
<div class="col-md-5"></div>
<div class="col-sm-3">
<span class="bold">Salario Finiquito:</span>
<br />
<asp:LinkButton ID="LnkShowFfiniquito" OnClick="LnkShowFfiniquito_Click" runat="server">--</asp:LinkButton>
</div>
</div> </div>
<div class="row "> <div class="row ">
</div> </div>
@@ -523,6 +529,129 @@
</asp:UpdatePanel> </asp:UpdatePanel>
</div> </div>
<div id="ModalSueldoFiniquito" class="modal ADS fade " role="dialog" >
<asp:UpdatePanel class="modal-dialog" runat="server" ID="UpmodalFiniquito" UpdateMode="Conditional">
<ContentTemplate>
<div class="modal-dialog">
<div class="modal-content">
<div class="modal-header ">
<h4 class="modal-title">Salario Finiquito</h4>
</div>
<div class="modal-body">
<div class="row">
<div class="col-md-4" style="font-weight:bold; min-height:30px;">
Tipo de salario
</div>
<div class="col-md-8">
<asp:Literal ID="LtlSFTipoSalario" runat="server"></asp:Literal>
</div>
</div>
<div class="row">
<div class="col-md-4" style="font-weight:bold; min-height:30px;">
Días ultimo mes
</div>
<div class="col-md-8">
<asp:Literal ID="LtlSFDias" runat="server"></asp:Literal>
</div>
</div>
<div class="row">
<div class="col-md-4" style="font-weight:bold; min-height:30px;">
Percepciones ultimo mes
</div>
<div class="col-md-8">
<asp:Literal ID="LtlSFPercepciones" runat="server"></asp:Literal>
</div>
</div>
<div class="row">
<div class="col-md-4" style="font-weight:bold; min-height:30px;">
Salario Variable
</div>
<div class="col-md-8">
<asp:Literal ID="LtlSFVar" runat="server"></asp:Literal>
</div>
</div>
<div class="row">
<div class="col-md-4" style="font-weight:bold; min-height:30px;">
SDI
</div>
<div class="col-md-8">
<asp:Literal ID="LtlSFSDI" runat="server"></asp:Literal>
</div>
</div>
<div class="row">
<div class="col-md-12 text-center">
Salario Finiquito<br />
<asp:Literal ID="LtlSF" runat="server"></asp:Literal>
</div>
</div>
<div class="portlet light xspadding bordered" id="pnlFiniquitosalario">
<div class="portlet-title">
<div class="caption ">
<i class="fa fa-bookmark font-yellow-gold"></i>
<span class="caption-subject bold uppercase font-yellow-gold">Calculo salario finiquito</span>
</div>
<div class="tools">
<a href="javascript:;" class="collapse" data-original-title="" title=""></a>
<a href="javascript:;" class="fullscreen" data-original-title="" title=""></a>
</div>
<div class="actions">
<div class="btn-group">
<%--<a onclick="$('#C_BtnImprimirsobrerecibo').click()" class="btn btn-default">Imprimir</a>--%>
</div>
</div>
</div>
<div class="portlet-body ">
<asp:GridView ID="GVSDF" runat="server" AutoGenerateColumns="False" CssClass="table table-striped table-hover Widthall GvConceptosSDF"
Style="text-align: center;" GridLines="None" ShowHeaderWhenEmpty="true" >
<Columns>
<asp:TemplateField HeaderText="Periodo">
<ItemTemplate>
<asp:Label ID="LtlConcepto" runat="server" Text='<%# Eval("PeriodoTexto") %>' Style="white-space:nowrap "></asp:Label>
</ItemTemplate>
<ItemStyle HorizontalAlign="Left" Width="37%" />
</asp:TemplateField>
<asp:TemplateField HeaderText="Código">
<ItemTemplate>
<asp:Label ID="LtlConcepto" runat="server" Text='<%# Eval("Codigo") %>' Style="white-space:nowrap "></asp:Label>
</ItemTemplate>
<ItemStyle HorizontalAlign="Left" Width="37%" />
</asp:TemplateField>
<asp:TemplateField HeaderText="Concepto">
<ItemTemplate>
<asp:Label ID="LtlConcepto" runat="server" Text='<%# Eval("Concepto") %>' Style="white-space:nowrap"></asp:Label>
</ItemTemplate>
<ItemStyle HorizontalAlign="Left" Width="37%" />
</asp:TemplateField>
<asp:TemplateField HeaderText="Importe">
<ItemTemplate>
<asp:Label ID="LtlValorD" runat="server" Text='<%# Eval("Importe", "{0:##,###.##}") %>' Style="white-space:nowrap"></asp:Label>
</ItemTemplate>
<ItemStyle HorizontalAlign="Right" Width="13%" />
</asp:TemplateField>
</Columns>
<HeaderStyle CssClass="SearchADHeader" />
</asp:GridView>
</div>
</div>
</div>
<div class="modal-footer">
<asp:UpdatePanel runat="server" UpdateMode="Conditional">
<ContentTemplate>
<button type="button" class="btn btn-default" data-dismiss="modal">Cerrar</button></asp:Literal>
</ContentTemplate>
</asp:UpdatePanel>
</div>
</div>
</div>
</ContentTemplate>
</asp:UpdatePanel>
</div>
</ContentTemplate> </ContentTemplate>
</asp:UpdatePanel> </asp:UpdatePanel>
</asp:Content> </asp:Content>

20
Nomina/Finiquito.aspx.cs
View File

@@ -139,7 +139,7 @@ public partial class Nomina_Finiquito : ClsPaginas
DataRow drow = ObjPersonal.DtResultados.Rows[0]; DataRow drow = ObjPersonal.DtResultados.Rows[0];
HypCodigo.Text = drow["Codigo"].ToString(); HypCodigo.Text = drow["Codigo"].ToString();
HypEmpleado.Text = drow["NombreCompleto"].ToString(); HypEmpleado.Text = drow["NombreCompleto"].ToString();
LtlSFTipoSalario.Text = drow["TipodeSalario"].ToString();
HypCodigo.NavigateUrl = $"/RH/Personal.aspx?CvePersonal={drow["CvePersonal"]}"; HypCodigo.NavigateUrl = $"/RH/Personal.aspx?CvePersonal={drow["CvePersonal"]}";
LblPuesto.Text = drow["Puesto"].ToString(); LblPuesto.Text = drow["Puesto"].ToString();
LblSalario.Text = drow["SalarioDiario"].ToString(); LblSalario.Text = drow["SalarioDiario"].ToString();
@@ -1345,6 +1345,19 @@ public partial class Nomina_Finiquito : ClsPaginas
if (continuar) if (continuar)
{ {
continuar = onom.GetFiniquitosPersonal(CvePersonal, UsuarioActual.CveEmpresa, diasindemnizacion: Txtdiasindemnizacion.Text.ToEntero()); continuar = onom.GetFiniquitosPersonal(CvePersonal, UsuarioActual.CveEmpresa, diasindemnizacion: Txtdiasindemnizacion.Text.ToEntero());
if(onom.DtResultados.Rows.Count > 0)
{
DataRow drow = onom.DtResultados.Rows[0];
LnkShowFfiniquito.Text = string.Format("{0:##,###,###.00##}", drow["SalarioBC"]);
LtlSFSDI.Text = string.Format("<pre>{0:##,###,###.00##}</pre>", drow["SDI"]);
LtlSFDias.Text = string.Format("<pre>{0:##,###,###}</pre>", drow["diasMesAnterior"]);
LtlSFPercepciones.Text = string.Format("<pre>{0:##,###,###.00##}</pre>", drow["TotalPercepciones"]);
LtlSFVar.Text = string.Format("<pre>(Percepciones /días)\r\n{0:##,###,###.00##}</pre>", drow["TotalPercepciones"].ToString().ToDecimal() / drow["diasMesAnterior"].ToString().ToDecimal() );
LtlSF.Text = string.Format("<pre>Si((Tipo de salario ='Fijo'),SDI,(Salario Variable + SDI))\r\n{0:##,###,###.00##}</pre>", drow["SalarioBC"]);
}
GVSDF.DataSource = onom.DTSetResultados.Tables[1];
GVSDF.DataBind();
} }
if (continuar) if (continuar)
{ loadsobrerecibo(onom); } { loadsobrerecibo(onom); }
@@ -1458,4 +1471,9 @@ public partial class Nomina_Finiquito : ClsPaginas
} }
protected void LnkShowFfiniquito_Click(object sender, EventArgs e)
{
RegistraScript("$('#ModalSueldoFiniquito').modal('show');");
}
} }

10
Nomina/Nomina.aspx
View File

@@ -7,10 +7,12 @@
#pnlIncapacidade .form-group.form-md-line-input > .select2-container { #pnlIncapacidade .form-group.form-md-line-input > .select2-container {
margin-top: 20px; margin-top: 20px;
} }
.lnkMovotPermanente { .lnkMovotPermanente {
width: 100%; width: 100%;
color: #111; color: #111;
} }
#pnlIncapacidade .form-group.form-md-line-input label { #pnlIncapacidade .form-group.form-md-line-input label {
font-size: 13px; font-size: 13px;
color: #888888; color: #888888;
@@ -1622,10 +1624,16 @@
</div> </div>
</div> </div>
<div class="col-md-6"> <div class="col-md-6">
<div>
<asp:Label runat="server" AssociatedControlID="DdlVacPeriodo" Style="padding-bottom: 0px; margin-bottom: 0px; font-size: 12px; color: #888; font-weight: 400;">Periodo</asp:Label><br />
<asp:DropDownList ID="DdlVacPeriodo" DataValueField="Ejercicio" DataTextField="PeriodoText" Width="100%" CssClass="form-control select2me " runat="server"></asp:DropDownList>
</div>
<!--
<div class="form-group form-md-line-input input-iconright"> <div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtVacEjercicio" CssClass="form-control input-sm " Text="2021" runat="server"></asp:TextBox> <asp:TextBox ID="TxtVacEjercicio" CssClass="form-control input-sm " Text="2021" runat="server"></asp:TextBox>
<asp:Label runat="server" AssociatedControlID="TxtVacEjercicio">Ejercicio</asp:Label> <asp:Label runat="server" AssociatedControlID="TxtVacEjercicio">Ejercicio</asp:Label>
</div> </div>-->
</div> </div>
</div> </div>
<asp:Panel runat="server" ID="PnlVacfechas" CssClass="row"> <asp:Panel runat="server" ID="PnlVacfechas" CssClass="row">

16
Nomina/Nomina.aspx.cs
View File

@@ -2562,6 +2562,18 @@ public partial class Nomina_Nomina2 : ClsPaginas
DdlFormapagovacaciones_SelectedIndexChanged(null, null); DdlFormapagovacaciones_SelectedIndexChanged(null, null);
ChkVacPrimaVacacional.Checked = true; ChkVacPrimaVacacional.Checked = true;
ChkVacCobrarIMSS.Checked = true; ChkVacCobrarIMSS.Checked = true;
using(ClsNominas objnom = new ClsNominas())
{
if(objnom.GETPersonalVacResumen(UsuarioActual.Empresa.CveEmpresa, SRCvePersonal))
{
DataRow drow = objnom.DtResultados.FiltroPrimero("Selected =1");
if(drow != null)
{
DdlVacPeriodo.SelectedValueExist(drow["Ejercicio"].ToString());
}
}
}
RegistraScript("$('#ModalSRVacaciones').modal()"); RegistraScript("$('#ModalSRVacaciones').modal()");
} }
@@ -2654,7 +2666,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
// Dim continuar As Boolean = objRH.SolicitudVacacionesAdd(CvePersonal, fInicio, fFin, 0, UsuarioActual.CveUsuario, VacCveSupervisor, VacFolioActual, motivoVacaciones) // Dim continuar As Boolean = objRH.SolicitudVacacionesAdd(CvePersonal, fInicio, fFin, 0, UsuarioActual.CveUsuario, VacCveSupervisor, VacFolioActual, motivoVacaciones)
bool continuar = objRH.SolicitudVacacionesAdd(SRCvePersonal, fInicio, fFin, 0, UsuarioActual.CveUsuario, VacCveSupervisor, VacFolioActual, FechaPago: fechapago, bool continuar = objRH.SolicitudVacacionesAdd(SRCvePersonal, fInicio, fFin, 0, UsuarioActual.CveUsuario, VacCveSupervisor, VacFolioActual, FechaPago: fechapago,
diasinabiles: diasinhabil, CveTipoPago: DdlFormapagovacaciones.SelectedValue.ToEntero(), diasExtras: TxtVacDiasExtra.Text.ToEntero(), diasinabiles: diasinhabil, CveTipoPago: DdlFormapagovacaciones.SelectedValue.ToEntero(), diasExtras: TxtVacDiasExtra.Text.ToEntero(),
Ejercicio: TxtVacEjercicio.Text.ToEntero(), PrimaVacacional: (ChkVacPrimaVacacional.Checked ? 1 : 0), CobrarImss: (ChkVacCobrarIMSS.Checked ? 1 : 0), diasPago: TxtVacDiasPago.Text.ToEntero() Ejercicio: DdlVacPeriodo.SelectedValue.ToEntero(), PrimaVacacional: (ChkVacPrimaVacacional.Checked ? 1 : 0), CobrarImss: (ChkVacCobrarIMSS.Checked ? 1 : 0), diasPago: TxtVacDiasPago.Text.ToEntero()
); );
if (objRH.DtResultados.Rows.Count > 0) if (objRH.DtResultados.Rows.Count > 0)
{ {
@@ -4646,7 +4658,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
DataRow drh = dtpersonas.FiltroPrimero(string.Format("CvePersonal ={0}", CvePersonal)); DataRow drh = dtpersonas.FiltroPrimero(string.Format("CvePersonal ={0}", CvePersonal));
if (drh != null) if (drh != null)
{ {
paragraphh = new GemBox.Document.Paragraph(document, string.Format("CURP:{0} RFC:{1} Afiliación IMSS:{2}", drh["CURP"], drh["RFC"], drh["NumeroSS"])); cell.Blocks.Add(paragraphh); paragraphh = new GemBox.Document.Paragraph(document, string.Format("CURP:{0} RFC:{1} Afiliación IMSS:{2} Puesto: {3}", drh["CURP"], drh["RFC"], drh["NumeroSS"], drh["Puesto"])); cell.Blocks.Add(paragraphh);
paragraphh.ParagraphFormat.Style = styilo; paragraphh.ParagraphFormat.Style = styilo;
} }
paragraphh = new GemBox.Document.Paragraph(document, string.Format("Fecha Ingr:{0:dd/MM/yyyy}, S.D.:{1:N2}, S.D.I.:{2:N2}, S.B.C.:{3:N2} ", drow2["FechaIngreso"], drow2["SalarioDiario"], drow2["SalarioDiarioIntegrado"], drow2["SalarioDiarioIMSS"])); cell.Blocks.Add(paragraphh); paragraphh = new GemBox.Document.Paragraph(document, string.Format("Fecha Ingr:{0:dd/MM/yyyy}, S.D.:{1:N2}, S.D.I.:{2:N2}, S.B.C.:{3:N2} ", drow2["FechaIngreso"], drow2["SalarioDiario"], drow2["SalarioDiarioIntegrado"], drow2["SalarioDiarioIMSS"])); cell.Blocks.Add(paragraphh);

11
RH/Personal.aspx
View File

@@ -2886,7 +2886,6 @@
<asp:Repeater ID="RPTVacacionesResumen" runat="server" OnItemDataBound="RPTVacacionesResumen_ItemDataBound"> <asp:Repeater ID="RPTVacacionesResumen" runat="server" OnItemDataBound="RPTVacacionesResumen_ItemDataBound">
<HeaderTemplate> <HeaderTemplate>
<!-- CvePersonal,CveEmpresa,InicioPeriodo,FinPeriodo,Antiguedad,Ejercicio,FechaIngreso,Dias,DiasDisfrutados,DiasPrima,DiasVacaciones-->
<table class=" table table-striped table-advance table-hover Widthall" <table class=" table table-striped table-advance table-hover Widthall"
cellspacing="0" data-heighterror="330" data-freezecols="0" data-freezerows="1" cellspacing="0" data-heighterror="330" data-freezecols="0" data-freezerows="1"
id="C_Tab_TabVacaciones_GvVacacionesResumenx"> id="C_Tab_TabVacaciones_GvVacacionesResumenx">
@@ -3038,9 +3037,11 @@
</div> </div>
</div> </div>
<div class="col-md-6"> <div class="col-md-6">
<div class="form-group form-md-line-input input-iconright"> <div class="">
<asp:TextBox ID="TxtVacEjercicio" CssClass="form-control input-sm form-small" Text="2021" runat="server"></asp:TextBox> <asp:Label runat="server" AssociatedControlID="DdlVacPeriodo" Style="padding-bottom: 0px; margin-bottom: 0px; font-size: 12px; color: #888; font-weight: 400;">Periodo</asp:Label><br />
<asp:Label runat="server" AssociatedControlID="TxtVacEjercicio">Ejercicio</asp:Label> <asp:DropDownList ID="DdlVacPeriodo" DataValueField="Ejercicio" DataTextField="PeriodoText" Width="100%" CssClass="form-control select2me " runat="server"></asp:DropDownList>
<%-- <asp:TextBox ID="TxtVacEjercicio" CssClass="form-control input-sm form-small" Text="2021" runat="server"></asp:TextBox>
<asp:Label runat="server" AssociatedControlID="TxtVacEjercicio">Ejercicio</asp:Label>--%>
</div> </div>
</div> </div>
</div> </div>
@@ -3200,7 +3201,7 @@
OnRowDataBound="GvVacaciones_RowDataBound"> OnRowDataBound="GvVacaciones_RowDataBound">
<Columns> <Columns>
<asp:BoundField DataField="FechaIng" DataFormatString="{0:dd/MM/yyyy}" HeaderText="Fecha ingreso" /> <asp:BoundField DataField="FechaIng" DataFormatString="{0:dd/MM/yyyy}" HeaderText="Fecha ingreso" />
<asp:BoundField DataField="Ejercicio" HeaderText="Ejercicio" /> <asp:BoundField DataField="Ejercicio" HeaderText="Periodo" />
<asp:TemplateField HeaderText="Periodo"> <asp:TemplateField HeaderText="Periodo">
<ItemTemplate> <ItemTemplate>

8
RH/Personal.aspx.vb
View File

@@ -4790,6 +4790,12 @@ Partial Class RH_Personal
Using objnom As New ClsNominas Using objnom As New ClsNominas
If objnom.GETPersonalVacResumen(UsuarioActual.Empresa.CveEmpresa, CvePersonal) Then If objnom.GETPersonalVacResumen(UsuarioActual.Empresa.CveEmpresa, CvePersonal) Then
RPTVacacionesResumen.DataSource = objnom.DtResultados RPTVacacionesResumen.DataSource = objnom.DtResultados
DdlVacPeriodo.DataSource = objnom.DtResultados
DdlVacPeriodo.DataBind()
Dim drow As DataRow = objnom.DtResultados.FiltroPrimero("Selected =1")
If Not IsNothing(drow) Then
DdlVacPeriodo.SelectedValueExist(drow("Ejercicio"))
End If
End If End If
If objnom.GETPersonalVacaciones(UsuarioActual.Empresa.CveEmpresa, CvePersonal) Then If objnom.GETPersonalVacaciones(UsuarioActual.Empresa.CveEmpresa, CvePersonal) Then
dtosvac = objnom.DtResultados dtosvac = objnom.DtResultados
@@ -4860,7 +4866,7 @@ Partial Class RH_Personal
VacFolioActual = VacFolioActual + 1 VacFolioActual = VacFolioActual + 1
Dim objRH As New ClsRH Dim objRH As New ClsRH
'Dim continuar As Boolean = objRH.SolicitudVacacionesAdd(CvePersonal, fInicio, fFin, 0, UsuarioActual.CveUsuario, VacCveSupervisor, VacFolioActual, motivoVacaciones) 'Dim continuar As Boolean = objRH.SolicitudVacacionesAdd(CvePersonal, fInicio, fFin, 0, UsuarioActual.CveUsuario, VacCveSupervisor, VacFolioActual, motivoVacaciones)
Dim continuar As Boolean = objRH.SolicitudVacacionesAdd(CvePersonal, fInicio, fFin, 0, UsuarioActual.CveUsuario, VacCveSupervisor, VacFolioActual, FechaPago:=fechapago, diasinabiles:=diasinhabil, CveTipoPago:=DdlFormapagovacaciones.SelectedValue.ToEntero(), diasExtras:=TxtVacDiasExtra.Text.ToEntero(), Ejercicio:=TxtVacEjercicio.Text.ToEntero(), PrimaVacacional:=If(ChkVacPrimaVacacional.Checked, 1, 0), CobrarImss:=If(ChkVacCobrarIMSS.Checked, 1, 0), diasPago:=TxtVacDiasPago.Text.ToEntero()) Dim continuar As Boolean = objRH.SolicitudVacacionesAdd(CvePersonal, fInicio, fFin, 0, UsuarioActual.CveUsuario, VacCveSupervisor, VacFolioActual, FechaPago:=fechapago, diasinabiles:=diasinhabil, CveTipoPago:=DdlFormapagovacaciones.SelectedValue.ToEntero(), diasExtras:=TxtVacDiasExtra.Text.ToEntero(), Ejercicio:=DdlVacPeriodo.Text.ToEntero(), PrimaVacacional:=If(ChkVacPrimaVacacional.Checked, 1, 0), CobrarImss:=If(ChkVacCobrarIMSS.Checked, 1, 0), diasPago:=TxtVacDiasPago.Text.ToEntero())
If objRH.DtResultados.Rows.Count > 0 Then If objRH.DtResultados.Rows.Count > 0 Then
Dim ShowError As String = objRH.DtResultados.Rows(0)("ShowError").ToString() Dim ShowError As String = objRH.DtResultados.Rows(0)("ShowError").ToString()
If ShowError.Length > 0 Then If ShowError.Length > 0 Then

6
Ventas/Ventas.aspx.vb
View File

@@ -9696,7 +9696,7 @@ Partial Class Ventas
If Request("CveEmbarqueManifiesto") IsNot Nothing AndAlso IsNumeric(Request("CveEmbarqueManifiesto")) AndAlso Request("CveEmbarqueManifiesto").ToEntero() > 0 Then If Request("CveEmbarqueManifiesto") IsNot Nothing AndAlso IsNumeric(Request("CveEmbarqueManifiesto")) AndAlso Request("CveEmbarqueManifiesto").ToEntero() > 0 Then
If ObjVentas.Embarque_ManifiestoUpvta(ObjFactura.CveVenta, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario, Request("CveEmbarqueManifiesto").ToEntero()) Then If ObjVentas.Embarque_ManifiestoUpvta(ObjFactura.CveVenta, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Request("CveEmbarqueManifiesto").ToEntero()) Then
End If End If
End If End If
@@ -9708,12 +9708,12 @@ Partial Class Ventas
If Request("CveOrdenProduccion") IsNot Nothing AndAlso IsNumeric(Request("CveOrdenProduccion")) AndAlso Request("CveOrdenProduccion").ToEntero() > 0 Then If Request("CveOrdenProduccion") IsNot Nothing AndAlso IsNumeric(Request("CveOrdenProduccion")) AndAlso Request("CveOrdenProduccion").ToEntero() > 0 Then
If ObjVentas.AgroOrdenProduccionUpvta(ObjFactura.CveVenta, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario, Request("CveOrdenProduccion").ToEntero()) Then If ObjVentas.AgroOrdenProduccionUpvta(ObjFactura.CveVenta, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Request("CveOrdenProduccion").ToEntero()) Then
End If End If
End If End If
Catch ex As Exception Catch ex As Exception
OnError("Ocurrió un error al actualizar el embarque", ex) OnError("Ocurrió un error al actualizar la orden de producción", ex)
End Try End Try
Try Try