From 803dffd9608e9ba90cfac452f426a998af7499e2 Mon Sep 17 00:00:00 2001 From: JORGE LUIS CAUDILLO ESPARZA Date: Fri, 19 Jan 2024 16:33:51 -0700 Subject: [PATCH 01/31] --- Nomina/Nomina.aspx.cs | 4 +++- RH/CatPersonal.aspx | 5 +++-- RH/CatPersonal.aspx.vb | 1 + Scripts/custom.js | 10 +++++----- 4 files changed, 12 insertions(+), 8 deletions(-) diff --git a/Nomina/Nomina.aspx.cs b/Nomina/Nomina.aspx.cs index 1c4c15077..85ebb9a3a 100644 --- a/Nomina/Nomina.aspx.cs +++ b/Nomina/Nomina.aspx.cs @@ -489,6 +489,7 @@ public partial class Nomina_Nomina2 : ClsPaginas } private void CargaTiposPeriodo() { + set_GlobalDTTipoPeriodos(UsuarioActual.CveEmpresa, null); DdlTipoPeriodo.DataSource = get_GlobalDTTipoPeriodos(UsuarioActual.CveEmpresa); DdlTipoPeriodoCM.DataSource = DdlTipoPeriodo.DataSource; DdlTipoPeriodoSim.DataSource = DdlTipoPeriodo.DataSource; @@ -7541,7 +7542,8 @@ public partial class Nomina_Nomina2 : ClsPaginas GvConceptossimulador.DataSource = new DataTable(); LblSalarioDiarioSimula.Text = ""; GvConceptossimulador.DataBind(); - DdlTipoPeriodoSim.SelectedValue = "1"; + DdlTipoPeriodoSim.SelectedValueExist(4); + DdlTipoPeriodoSim.SelectedValueExist(1); RegistraScript("$('#DSimulador').modal()"); UpSimulador.Update(); } diff --git a/RH/CatPersonal.aspx b/RH/CatPersonal.aspx index 6b54a2926..943b7d063 100644 --- a/RH/CatPersonal.aspx +++ b/RH/CatPersonal.aspx @@ -347,7 +347,7 @@
- Personal () + Personal ()
@@ -1353,7 +1353,8 @@ Sys.Application.add_load(function (s, e) { - <%= String.Format("FiltrarTablaClass('TxtBusqueda','{0}','contaper');", GvDatos.ClientID) %> + + <%= String.Format("setTimeout(function(){{ FiltrarTablaClass('TxtBusqueda','{0}','contaper');}}, 1000)", GvDatos.ClientID) %> }); function OrdenarGV() { diff --git a/RH/CatPersonal.aspx.vb b/RH/CatPersonal.aspx.vb index 406889dd2..05de5de9c 100644 --- a/RH/CatPersonal.aspx.vb +++ b/RH/CatPersonal.aspx.vb @@ -89,6 +89,7 @@ Partial Class RH_CatPersonal End If + ltlContador.Text = String.Format("...{1}", If(GvDatos.Rows.Count > 0, "", " class='hidden' "), If(GvDatos.Rows.Count > 0, "", "0")) End Sub Public Sub CargaDatos() diff --git a/Scripts/custom.js b/Scripts/custom.js index fd6e9cf3d..bf0f194b8 100644 --- a/Scripts/custom.js +++ b/Scripts/custom.js @@ -85,7 +85,7 @@ function FiltrarTabla(idtxt, idtable, idcontador) { $('div.ADScroller .ADScroller-header table#' + idtable + ' tr:not(.ADtr)').css('display', ''); } if ($('#' + idcontador).length > 0) { - $('#' + idcontador).html($('#' + idtable + ' tr:visible').length); + $('#' + idcontador).html($('#' + idtable + ' tr:visible:not(.ADtr)').length); } } @@ -97,7 +97,7 @@ function FiltrarTablaStr(str, idtable, idcontador) { $('div.ADScroller .ADScroller-header table#' + idtable + ' tr:not(.ADtr)').css('display', ''); } if ($('#' + idcontador).length > 0) { - $('#' + idcontador).html($('#' + idtable + ' tr:visible').length); + $('#' + idcontador).html($('#' + idtable + ' tr:visible:not(.hidetrad):not(.ADtr)').length); } } @@ -115,7 +115,7 @@ function FiltrarTablaStrMulti(idtable, idcontador /*, str1, str2, str3...*/ ) { $('div.ADScroller .ADScroller-header table#' + idtable + ' tr:not(.ADtr)').css('display', ''); if (idcontador) { if ($('#' + idcontador).length > 0) { - $('#' + idcontador).html($('#' + idtable + ' tr:visible').length); + $('#' + idcontador).html($('#' + idtable + ' tr:visible:not(.hidetrad):not(.ADtr)').length); } } } @@ -130,7 +130,7 @@ function FiltrarTablaClass(idtxt, idtable, idcontador, resta) { $('div.ADScroller .ADScroller-header table#' + idtable + ' tr:not(.ADtr)').removeClass('hidetrad'); } if ($('#' + idcontador).length > 0) { - let numconta = $('#' + idtable + ' tr:not(.hidetrad):not(.ADtr)').length; + let numconta = $('#' + idtable + ' tr:visible:not(.hidetrad):not(.ADtr)').length; if (numconta > 0) { numconta - resta} $('#' + idcontador).html(numconta ); } @@ -144,7 +144,7 @@ function FiltrarTablaV2(idtxt, idtable, idcontador) { $('div.ADScroller .ADScroller-header ' + idtable + ' tr:not(.ADtr)').css('display', ''); } if ($('#' + idcontador).length > 0) { - $('#' + idcontador).html($(idtable + ' tr:visible').length); + $('#' + idcontador).html($(idtable + ' tr:visible:not(.hidetrad):not(.ADtr)').length); } } From 64915082012d93077abf0bf51b5e8182b18a6794 Mon Sep 17 00:00:00 2001 From: rrene Date: Sat, 20 Jan 2024 18:41:29 -0700 Subject: [PATCH 02/31] - --- General/SaldosIniciales.aspx.vb | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/General/SaldosIniciales.aspx.vb b/General/SaldosIniciales.aspx.vb index 428c5e9b5..1eacb145e 100644 --- a/General/SaldosIniciales.aspx.vb +++ b/General/SaldosIniciales.aspx.vb @@ -1455,7 +1455,7 @@ Partial Class General_SaldosIniciales Dim FechaVencimiento As Date = Row("Fecha Vencimiento").ToString().ToDate Dim CveMoneda As Integer = 1 Dim CveProveedorSucursal As Integer = If(dt.Columns.Contains("CveProveedorSucursal"), Row("CveProveedorSucursal").ToString(), "0").ToEntero - Dim PorcentajeIVA As String = If(dt.Columns.Contains("PorcentajeIVA"), Row("PorcentajeIVA").ToString(), "0") + Dim PorcentajeIVA As Decimal = If(dt.Columns.Contains("PorcentajeIVA"), Row("PorcentajeIVA").ToString(), "0").ToDecimal Dim ImpuestosLocales As Decimal = If(dt.Columns.Contains("ImpuestosLocales"), Row("ImpuestosLocales").ToString(), "0").ToDecimal Dim RetIVAPorcentaje As Decimal = If(dt.Columns.Contains("RetIVAPorcentaje"), Row("RetIVAPorcentaje").ToString(), "0").ToDecimal Dim RetISRPorcentaje As Decimal = If(dt.Columns.Contains("RetISRPorcentaje"), Row("RetISRPorcentaje").ToString(), "0").ToDecimal @@ -1499,14 +1499,14 @@ Partial Class General_SaldosIniciales End If If Not ObjCompras.AddCompra(TipoDocto, "", Serie, Folio, Folio2, CveProveedor.ToEntero(), SubTotal, 0, 0, IVA, RetIVA, RetISR, IEPS, 0, 0, Total, Fecha, CveMoneda, TipoCambio.ToDecimal, FechaVencimiento, False, CodProvee, 1, CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveProveedorSucursal:=CveProveedorSucursal, - NumeroReembolso:=Transaccion, PorcentajeIVA:=PorcentajeIVA.ToDecimal, TotalOriginal:=Total, CveSubProyecto:=CveSubProyecto) Then + NumeroReembolso:=Transaccion, PorcentajeIVA:=PorcentajeIVA, TotalOriginal:=Total, CveSubProyecto:=CveSubProyecto) Then ErrorCompras = True Exit For End If CveCompra = ObjCompras.CveCompra 'Compra Detalle - If Not ObjCompras.AddCompraDetalle(CveCompra, CveUnidadMedida, CvePS, Sucursal.ToEntero(), -1, 0, 1, SubTotal, 0.16D, SubTotal, 0, "Carga Inicial", -1, IVAPorcentaje:=PorcentajeIVA.ToDecimal, RetIVAPorcentaje:=RetIVAPorcentaje, RetISRPorcentaje:=RetISRPorcentaje) Then + If Not ObjCompras.AddCompraDetalle(CveCompra, CveUnidadMedida, CvePS, CveSubProyecto, -1, 0, 1, SubTotal, SubTotal * PorcentajeIVA, SubTotal, 0, "Carga Inicial", -1, IVAPorcentaje:=PorcentajeIVA, RetIVAPorcentaje:=RetIVAPorcentaje, RetISRPorcentaje:=RetISRPorcentaje) Then ErrorCompras = True Exit For End If @@ -1518,7 +1518,7 @@ Partial Class General_SaldosIniciales If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, SubTotal, SubTotal, 6, Folio, String.Format("{0}-{1}", Serie, Folio), CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveClasificacion:=CveClasificacion, CveSubProyecto:=Sucursal.ToEntero()) Then ErrorCompras = True : Exit For If IVA > 0 Then - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, IVA, IVA, 14, Folio, String.Format("{0}-{1}", Serie, Folio), CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveSubProyecto:=Sucursal.ToEntero(), CveClasificacion:=CveClasificacion, PorcentajeImpuesto:=PorcentajeIVA.ToDecimal) Then ErrorCompras = True : Exit For + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, IVA, IVA, 14, Folio, String.Format("{0}-{1}", Serie, Folio), CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveSubProyecto:=Sucursal.ToEntero(), CveClasificacion:=CveClasificacion, PorcentajeImpuesto:=PorcentajeIVA) Then ErrorCompras = True : Exit For End If If IEPS > 0 Then If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, IEPS, IEPS, 25, Folio, String.Format("{0}-{1}", Serie, Folio), CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveSubProyecto:=Sucursal.ToEntero()) Then ErrorCompras = True : Exit For From 8492e0e75bb84432b7fb4e3725ad0933e4642d40 Mon Sep 17 00:00:00 2001 From: rrene Date: Sat, 20 Jan 2024 18:41:49 -0700 Subject: [PATCH 03/31] -- mejora --- Ashx/E119.ashx | 16 +++++++++------- 1 file changed, 9 insertions(+), 7 deletions(-) diff --git a/Ashx/E119.ashx b/Ashx/E119.ashx index 36d4258df..d9fc7099f 100644 --- a/Ashx/E119.ashx +++ b/Ashx/E119.ashx @@ -129,11 +129,12 @@ Public Class E119 : Implements IHttpHandler End If If Metodo = "RegistraRemision" Then + context.Response.ContentType = "application/json" Dim Auth As AuthMessage = ValidarSolicitud(context) - + MsgLog.AppendLine("Validado:" & Auth.IsSuccess) If Auth.IsSuccess Then - retorno = RegistraRemision(context) + retorno = RegistraRemision(context, MsgLog) Else context.Response.StatusCode = Auth.StatusCode retorno = JsonConvert.SerializeObject(Auth.ErrorMessage) @@ -335,15 +336,14 @@ Public Class E119 : Implements IHttpHandler End If End Function - Private Function RegistraRemision(ByVal context As HttpContext) As String + Private Function RegistraRemision(ByVal context As HttpContext, ByRef MsgLog As StringBuilder) As String Dim TieneError As Boolean = False Dim JsonRequest As JObject = Nothing Dim Respuesta As New ResponseMsg Dim RespuestaError As New ResponseMsgError - Dim MsgLog As New StringBuilder - Try + Try MsgLog.AppendLine("1.0 Registra") If context.Request.InputStream IsNot Nothing Then Using reader As New StreamReader(context.Request.InputStream) @@ -355,6 +355,7 @@ Public Class E119 : Implements IHttpHandler TieneError = True End If Else + MsgLog.AppendLine("json:" & json) TieneError = True End If End Using @@ -362,7 +363,7 @@ Public Class E119 : Implements IHttpHandler MsgLog.AppendLine("1.1 accedido") If TieneError Then - RespuestaError.message = "No se pudo procesar la solicitud - Formato mal formado" + RespuestaError.message = "No se pudo procesar la solicitud - Formato mal formado (1.1)" context.Response.StatusCode = 200 Return JsonConvert.SerializeObject(RespuestaError) End If @@ -528,9 +529,10 @@ Public Class E119 : Implements IHttpHandler Catch ex As Exception TieneError = True + Finally + MsgLog.ToString.GuardaLogAD("LogE119") End Try - MsgLog.ToString.GuardaLogAD("LogE119") If TieneError Then context.Response.StatusCode = 200 Return JsonConvert.SerializeObject(RespuestaError) From ae08d4a52b64717b83c75907b350d14a273c37d0 Mon Sep 17 00:00:00 2001 From: rrene Date: Sat, 20 Jan 2024 18:42:18 -0700 Subject: [PATCH 04/31] -- option explicit --- Compras/RepComplementoPago.aspx.vb | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/Compras/RepComplementoPago.aspx.vb b/Compras/RepComplementoPago.aspx.vb index fe617bac8..eb4b41f15 100644 --- a/Compras/RepComplementoPago.aspx.vb +++ b/Compras/RepComplementoPago.aspx.vb @@ -63,10 +63,10 @@ Partial Class Compras_RepComplementoPago Private Sub CargaDatos() Dim CveProveedor As Integer = If(DdlProveedores.SelectedValue.ToEntero = 0, -1, DdlProveedores.SelectedValue.ToEntero) - Dim CveTipoProveedor = DdlTipoProveedor.SelectedValue.ToEntero - Dim FechaInicio = If(IsDate(TxtFiltrosFechaInicio.Text), TxtFiltrosFechaInicio.Text.ToDate, MinFecha) - Dim FechaFin = If(IsDate(TxtFiltrosFechaFin.Text), TxtFiltrosFechaFin.Text.ToDate, MaxFecha) - Dim TipoConsulta = If(ChkViculadas.Checked, 2, 1) + Dim CveTipoProveedor As Integer = DdlTipoProveedor.SelectedValue.ToEntero + Dim FechaInicio As Date = If(IsDate(TxtFiltrosFechaInicio.Text), TxtFiltrosFechaInicio.Text.ToDate, MinFecha) + Dim FechaFin As Date = If(IsDate(TxtFiltrosFechaFin.Text), TxtFiltrosFechaFin.Text.ToDate, MaxFecha) + Dim TipoConsulta As Integer = If(ChkViculadas.Checked, 2, 1) Dim Count As Integer = 0 Dim ObjCompras As New ClsCompras From 438a47936a4cb6f25c076c5f0fb6ec14f5b6f1a3 Mon Sep 17 00:00:00 2001 From: rrene Date: Sat, 20 Jan 2024 18:42:47 -0700 Subject: [PATCH 05/31] =?UTF-8?q?-=20correcci=C3=B3n?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Ventas/RepAnticipo-NC-IXCDetalle.aspx.cs | 9 ++++++--- Ventas/RepNCxAplicar.aspx.cs | 2 +- 2 files changed, 7 insertions(+), 4 deletions(-) diff --git a/Ventas/RepAnticipo-NC-IXCDetalle.aspx.cs b/Ventas/RepAnticipo-NC-IXCDetalle.aspx.cs index dd64174fe..cee168ffd 100644 --- a/Ventas/RepAnticipo-NC-IXCDetalle.aspx.cs +++ b/Ventas/RepAnticipo-NC-IXCDetalle.aspx.cs @@ -322,7 +322,8 @@ public partial class Ventas_RepAnticipo_NC_IXCDetalle : ClsPaginas ClsContabilidad ObjConta = new ClsContabilidad(); ObjConta.IniciaTransacSQL(); int CvePrePoliza = 0, CveVenta = -1, CveIE = -1; - decimal Saldo = 0; + decimal Saldo = 0; + decimal SaldoAdmin = 0; decimal ImporteTotalGasto = 0; string MsgError = ""; @@ -349,16 +350,18 @@ public partial class Ventas_RepAnticipo_NC_IXCDetalle : ClsPaginas { CveVenta = Gv.DataKey("CveVenta").ToEntero(); Saldo = -Gv.DataKey("Saldo").ToDecimal(); + SaldoAdmin = Saldo; } else if (Tipo == 3) { ConPreP.CveConcepto = 92; CveIE = Gv.DataKey("CveIE").ToEntero(); - Saldo = Gv.DataKey("Saldo").ToDecimal(); + Saldo = -Gv.DataKey("Saldo").ToDecimal(); + SaldoAdmin = -Saldo; } ImporteTotalGasto += Saldo; - if (!ObjConta.AddPrePolizasDetalle(CvePrePoliza, tMovto, Saldo, Saldo, ConPreP.CveConcepto, Gv.DataKey("SerieFolio").ToString(), TxtConcepto.Text, CveIE: CveIE, CveVenta, CveCliente: Gv.DataKey("CveCliente").ToEntero())) + if (!ObjConta.AddPrePolizasDetalle(CvePrePoliza, tMovto, SaldoAdmin, Saldo, ConPreP.CveConcepto, Gv.DataKey("SerieFolio").ToString(), TxtConcepto.Text, CveIE: CveIE, CveVenta, CveCliente: Gv.DataKey("CveCliente").ToEntero())) { MsgError = "Ocurrio un error al saldar el movimiento"; break; diff --git a/Ventas/RepNCxAplicar.aspx.cs b/Ventas/RepNCxAplicar.aspx.cs index b8153eccf..09e31362e 100644 --- a/Ventas/RepNCxAplicar.aspx.cs +++ b/Ventas/RepNCxAplicar.aspx.cs @@ -207,7 +207,7 @@ public partial class Ventas_RepNCxAplicar : ClsPaginas } } - if (!ObjConta.AddPrePolizasDetalle(CvePrePoliza, true, Gv.DataKey("Saldo").ToDecimal(), Gv.DataKey("Saldo").ToDecimal() * Gv.DataKey("TipoCambioValuacion").ToDecimal(), 78, Gv.DataKey("Folio").ToString(), TxtConcepto.Text, CveVenta: Gv.DataKey("CveVenta").ToEntero() )) + if (!ObjConta.AddPrePolizasDetalle(CvePrePoliza, true, Gv.DataKey("Saldo").ToDecimal(), Gv.DataKey("Saldo").ToDecimal() * Gv.DataKey("TipoCambioValuacion").ToDecimal(), 78, Gv.DataKey("Folio").ToString(), TxtConcepto.Text, CveVenta: Gv.DataKey("CveVenta").ToEntero() )) { MsgError = "Ocurrio un error al saldar el movimiento"; } From b903258124684ccc8cd70a1d38a4097d7a5b15b3 Mon Sep 17 00:00:00 2001 From: rrene Date: Sat, 20 Jan 2024 18:42:54 -0700 Subject: [PATCH 06/31] - --- Ventas/RepComisionesJAM.aspx.cs | 5 +---- 1 file changed, 1 insertion(+), 4 deletions(-) diff --git a/Ventas/RepComisionesJAM.aspx.cs b/Ventas/RepComisionesJAM.aspx.cs index 74dc3f6dd..cb31e79dd 100644 --- a/Ventas/RepComisionesJAM.aspx.cs +++ b/Ventas/RepComisionesJAM.aspx.cs @@ -54,12 +54,9 @@ public partial class Ventas_RepComisionesJAM : ClsPaginas DdlVendedor.SelectedValueExist(UsuarioActual.CveVendedor.ToString()); DdlVendedor.Attributes.Add("disabled", "disabled"); DdlVendedor.Enabled = false; - - } - + } GvDatos.Columns[15].Visible = UsuarioActual.TienePermisoProceso(201); - GvDatos.Columns[21].Visible = UsuarioActual.TienePermisoProceso(311); GvDatos.Columns[22].Visible = UsuarioActual.TienePermisoProceso(311); divProforma.Visible = UsuarioActual.TienePermisoProceso(311); From e6264b91e9ab71519ef6159a8f072178f43787e1 Mon Sep 17 00:00:00 2001 From: rrene Date: Sat, 20 Jan 2024 18:43:09 -0700 Subject: [PATCH 07/31] =?UTF-8?q?--=20liga=20en=20nueva=20pesta=C3=B1a?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Ventas/RepRemisiones.aspx | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Ventas/RepRemisiones.aspx b/Ventas/RepRemisiones.aspx index 2ad99df24..4eab2a885 100644 --- a/Ventas/RepRemisiones.aspx +++ b/Ventas/RepRemisiones.aspx @@ -222,8 +222,8 @@ CssClass="table table-striped table-advance table-hover Widthall ScrollAD" data-sort="true" GridLines="None"> - - + + From c6c3af1e9b23450bd33a1c5b1dde86f2ef569672 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Mon, 22 Jan 2024 11:40:39 -0700 Subject: [PATCH 08/31] --CITRUS. Fix recalculo de comercio exterior --- Ventas/Ventas.aspx.vb | 40 +++++++++++++++++++++++++++++++++++----- 1 file changed, 35 insertions(+), 5 deletions(-) diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 85697a98c..21b19e4b9 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -2722,7 +2722,7 @@ Partial Class Ventas If Request("CveManifiesto") IsNot Nothing AndAlso IsNumeric(Request("CveManifiesto")) AndAlso Request("CveManifiesto").ToEntero() > 0 Then Using ObjCGame As New ClsCGame() - If ObjCGame.ManifiestoGet(Request("CveManifiesto").ToEntero(), -1, -1, -1, -1, -1, -1, -1, -1, UsuarioActual.CveEmpresa, "-1", "-1") Then + If ObjCGame.ManifiestoGet(Request("CveManifiesto").ToEntero(), -1, -1, -1, -1, -1, -1, -1, -1, UsuarioActual.CveEmpresa, "-1", "-1") AndAlso ObjCGame.DtResultados.Rows.Count > 0 Then DdlSubProyectoDatos.SelectedValueExist(ObjCGame.DtResultados.Rows(0)("CveSubProyecto").ToString()) End If @@ -2733,6 +2733,10 @@ Partial Class Ventas End If End Using + + If AplicaComercioExterior Then + CargaGvComercioExterior() + End If End If If Request("CveEmbarqueManifiesto") IsNot Nothing AndAlso IsNumeric(Request("CveEmbarqueManifiesto")) AndAlso Request("CveEmbarqueManifiesto").ToEntero() > 0 Then @@ -8294,6 +8298,7 @@ Partial Class Ventas End Sub Protected Sub GvPS_RowUpdating(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewUpdateEventArgs) Handles GvPS.RowUpdating 'Dim TipoDescuento As Integer + Dim Cantidad, PU, CantidadInventario As Decimal Dim ObjDescuento As New Modelos.VentaDescuentos Dim CuentaPredial As String @@ -8326,6 +8331,7 @@ Partial Class Ventas End If Dim CantidadOriginal As Decimal = GvPS.Rows(e.RowIndex).DataKey("Cantidad").ToDecimal() + Dim TotalOriginal As Decimal = GvPS.Rows(e.RowIndex).DataKey("Total").ToDecimal() Dim DatarowPS As DataRow = Nothing DatarowPS = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=TmpDT.Rows(e.RowIndex)("CvePS").ToString().ToEntero()).FiltroPrimero("") ' Estado = -1 @@ -8631,6 +8637,30 @@ Partial Class Ventas ObjDescuento.Consec = TmpDT.Rows(e.RowIndex)("Consec").ToString().ToEntero() End If + 'RECALCULA LA CANTIDAD DE CONVERSION + If CantidadOriginal <> Cantidad Then + Dim CantidadConversion As Decimal = TmpDT.Rows(e.RowIndex)("CantidadConversion").ToString().ToDecimal() + If AplicaComercioExterior Then + 'SI NO VIENE DE MANIFIESTO UTILIZA EL PESO DEL PRODUCTO + If Request("CveManifiesto") Is Nothing Then + If DrPS("PesoKg").ToString().ToDecimal() > 0 Then + CantidadConversion = Cantidad * DrPS("PesoKg").ToString().ToDecimal() + Else + CantidadConversion = Cantidad + End If + Else + Dim TotalNuevo As Decimal = TmpDT.Rows(e.RowIndex)("Total").ToString().ToDecimal() + Dim PorcentajeConversion As Decimal = CantidadConversion / TotalOriginal + + CantidadConversion = TotalNuevo * PorcentajeConversion + End If + Else + CantidadConversion = Cantidad + End If + + TmpDT.Rows(e.RowIndex)("CantidadConversion") = CantidadConversion + End If + DrPS = Nothing @@ -18466,7 +18496,7 @@ Partial Class Ventas 'SI NO SE UTILIZA LA CONVERSION, UTILIZA LA CANTIDAD If CantidadConversion = 0 Then If DrPS("PesoKg").ToString().ToDecimal() > 0 Then - CantidadConversion = DrPS("PesoKg").ToString().ToDecimal() + CantidadConversion = Cantidad * DrPS("PesoKg").ToString().ToDecimal() Else CantidadConversion = Cantidad End If @@ -29688,9 +29718,9 @@ Partial Class Ventas Protected Sub GvComercioExterior_RowDataBound(sender As Object, e As GridViewRowEventArgs) If e.Row.RowType = DataControlRowType.DataRow Then - Dim CantidadConversion = CDbl(e.Row.DBCampo("CantidadConversion")) - Dim CantidadBase = CDbl(e.Row.DBCampo("Cantidad")) - Dim PUBase = CDbl(e.Row.DBCampo("PU")) + Dim CantidadConversion = e.Row.DBCampo("CantidadConversion").ToDecimal() + Dim CantidadBase = e.Row.DBCampo("Cantidad").ToDecimal() + Dim PUBase = e.Row.DBCampo("PU").ToDecimal() Dim TotalUSD = (CantidadBase * PUBase) From 47a6fc57553b552815daa0a7e9cb3eaf6b456008 Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 22 Jan 2024 15:18:51 -0700 Subject: [PATCH 09/31] -- candado timbrdo CEXT 2.0 --- App_Code/Timbrado.vb | 127 +++++++++++++++++++++++++++++++++++-------- 1 file changed, 103 insertions(+), 24 deletions(-) diff --git a/App_Code/Timbrado.vb b/App_Code/Timbrado.vb index 8012321c5..37405a912 100644 --- a/App_Code/Timbrado.vb +++ b/App_Code/Timbrado.vb @@ -2460,11 +2460,13 @@ Public Class Timbrado #Region "Comercio Exterior" - If Ventas.Cliente.AplicaComercioExterior And ObjCFDITimbre.Complementos.ComercioExterior.AplicaComercioExteriorSubProyecto Then - If ObjCFDITimbre.Complementos.ComercioExterior IsNot Nothing Then + If UsuarioActual.CveEmpresa = 172 Then - 'DATOS GENERALES - cfdi.ComercioExterior20(ObjCFDITimbre.Complementos.ComercioExterior.MotivoTraslado, + If Ventas.Cliente.AplicaComercioExterior And ObjCFDITimbre.Complementos.ComercioExterior.AplicaComercioExteriorSubProyecto Then + If ObjCFDITimbre.Complementos.ComercioExterior IsNot Nothing Then + + 'DATOS GENERALES + cfdi.ComercioExterior20(ObjCFDITimbre.Complementos.ComercioExterior.MotivoTraslado, ObjCFDITimbre.Complementos.ComercioExterior.ClavedePedimento, ObjCFDITimbre.Complementos.ComercioExterior.CertificadoOrigen, ObjCFDITimbre.Complementos.ComercioExterior.NumCertificadoOrigen, @@ -2473,9 +2475,9 @@ Public Class Timbrado ObjCFDITimbre.Complementos.ComercioExterior.Observaciones, ObjCFDITimbre.Complementos.ComercioExterior.TipoCambioUSD, ObjCFDITimbre.Complementos.ComercioExterior.TotalUSD) - 'EMISOR - cfdi.ComercioExterior20Emisor(If(EmisorRFC.Length >= 12, "", ObjCFDITimbre.Complementos.ComercioExterior.Emisor.CURP)) - cfdi.ComercioExterior20Domicilio(ObjCFDITimbre.Complementos.ComercioExterior.Emisor.Calle, + 'EMISOR + cfdi.ComercioExterior20Emisor(If(EmisorRFC.Length >= 12, "", ObjCFDITimbre.Complementos.ComercioExterior.Emisor.CURP)) + cfdi.ComercioExterior20Domicilio(ObjCFDITimbre.Complementos.ComercioExterior.Emisor.Calle, ObjCFDITimbre.Complementos.ComercioExterior.Emisor.NumeroExterior, ObjCFDITimbre.Complementos.ComercioExterior.Emisor.NumeroInterior, ObjCFDITimbre.Complementos.ComercioExterior.Emisor.Colonia, @@ -2485,9 +2487,9 @@ Public Class Timbrado ObjCFDITimbre.Complementos.ComercioExterior.Emisor.Estado, ObjCFDITimbre.Complementos.ComercioExterior.Emisor.Pais, ObjCFDITimbre.Complementos.ComercioExterior.Emisor.CP) - 'RECEPTOR - cfdi.ComercioExterior20Receptor(ObjCFDITimbre.Complementos.ComercioExterior.Receptor.NumRegIdTrib) - cfdi.ComercioExterior20DomicilioReceptor(ObjCFDITimbre.Complementos.ComercioExterior.Receptor.Calle, + 'RECEPTOR + cfdi.ComercioExterior20Receptor(ObjCFDITimbre.Complementos.ComercioExterior.Receptor.NumRegIdTrib) + cfdi.ComercioExterior20DomicilioReceptor(ObjCFDITimbre.Complementos.ComercioExterior.Receptor.Calle, ObjCFDITimbre.Complementos.ComercioExterior.Receptor.NumeroExterior, ObjCFDITimbre.Complementos.ComercioExterior.Receptor.NumeroInterior, ObjCFDITimbre.Complementos.ComercioExterior.Receptor.Colonia, @@ -2498,8 +2500,8 @@ Public Class Timbrado ObjCFDITimbre.Complementos.ComercioExterior.Receptor.Pais, ObjCFDITimbre.Complementos.ComercioExterior.Receptor.CP) - If ObjCFDITimbre.Complementos.ComercioExterior.Destinatario IsNot Nothing Then - cfdi.ComercioExterior20Destinatario(ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.NumRegIdTrib, + If ObjCFDITimbre.Complementos.ComercioExterior.Destinatario IsNot Nothing Then + cfdi.ComercioExterior20Destinatario(ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.NumRegIdTrib, ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.Nombre, ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.Calle, ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.NumeroExterior, @@ -2511,27 +2513,104 @@ Public Class Timbrado ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.Estado, ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.Pais, ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.CP) - End If + End If - 'MERCANCIAS - If ObjCFDITimbre.Complementos.ComercioExterior.Mercancias IsNot Nothing AndAlso ObjCFDITimbre.Complementos.ComercioExterior.Mercancias.Count > 0 Then - For Each concep As CFDIComercioExterior11Mercancias In ObjCFDITimbre.Complementos.ComercioExterior.Mercancias - cfdi.ComercioExterior20Mercancia(concep.NoIdentificacion, concep.FraccionArancelaria, concep.CantidadAduana, concep.UnidadAduana, concep.ValorUnitarioAduana, concep.ValorDolares) - If concep.DescripcionesEspecificas.Marca <> "" Then - cfdi.ComercioExterior20MercanciaDescripcionesEspeciales(concep.DescripcionesEspecificas.Marca, + 'MERCANCIAS + If ObjCFDITimbre.Complementos.ComercioExterior.Mercancias IsNot Nothing AndAlso ObjCFDITimbre.Complementos.ComercioExterior.Mercancias.Count > 0 Then + For Each concep As CFDIComercioExterior11Mercancias In ObjCFDITimbre.Complementos.ComercioExterior.Mercancias + cfdi.ComercioExterior20Mercancia(concep.NoIdentificacion, concep.FraccionArancelaria, concep.CantidadAduana, concep.UnidadAduana, concep.ValorUnitarioAduana, concep.ValorDolares) + If concep.DescripcionesEspecificas.Marca <> "" Then + cfdi.ComercioExterior20MercanciaDescripcionesEspeciales(concep.DescripcionesEspecificas.Marca, concep.DescripcionesEspecificas.Modelo, concep.DescripcionesEspecificas.SubModelo, concep.DescripcionesEspecificas.NumeroSerie) - End If - Next + End If + Next + + End If + End If - - End If - End If + Else + If Ventas.Cliente.AplicaComercioExterior And ObjCFDITimbre.Complementos.ComercioExterior.AplicaComercioExteriorSubProyecto Then + If ObjCFDITimbre.Complementos.ComercioExterior IsNot Nothing Then + + 'DATOS GENERALES + cfdi.ComercioExterior11(ObjCFDITimbre.Complementos.ComercioExterior.MotivoTraslado, + ObjCFDITimbre.Complementos.ComercioExterior.TipoOperacion, + ObjCFDITimbre.Complementos.ComercioExterior.ClavedePedimento, + ObjCFDITimbre.Complementos.ComercioExterior.CertificadoOrigen, + ObjCFDITimbre.Complementos.ComercioExterior.NumCertificadoOrigen, + ObjCFDITimbre.Complementos.ComercioExterior.NumeroExportadorConfiable, + ObjCFDITimbre.Complementos.ComercioExterior.Incoterm, + ObjCFDITimbre.Complementos.ComercioExterior.Subdivision, + ObjCFDITimbre.Complementos.ComercioExterior.Observaciones, + ObjCFDITimbre.Complementos.ComercioExterior.TipoCambioUSD, + ObjCFDITimbre.Complementos.ComercioExterior.TotalUSD) + 'EMISOR + cfdi.ComercioExterior11Emisor(If(EmisorRFC.Length >= 12, "", ObjCFDITimbre.Complementos.ComercioExterior.Emisor.CURP)) + cfdi.ComercioExterior11Domicilio(ObjCFDITimbre.Complementos.ComercioExterior.Emisor.Calle, + ObjCFDITimbre.Complementos.ComercioExterior.Emisor.NumeroExterior, + ObjCFDITimbre.Complementos.ComercioExterior.Emisor.NumeroInterior, + ObjCFDITimbre.Complementos.ComercioExterior.Emisor.Colonia, + ObjCFDITimbre.Complementos.ComercioExterior.Emisor.Localidad, + ObjCFDITimbre.Complementos.ComercioExterior.Emisor.Referencia, + ObjCFDITimbre.Complementos.ComercioExterior.Emisor.Municipio, + ObjCFDITimbre.Complementos.ComercioExterior.Emisor.Estado, + ObjCFDITimbre.Complementos.ComercioExterior.Emisor.Pais, + ObjCFDITimbre.Complementos.ComercioExterior.Emisor.CP) + 'RECEPTOR + cfdi.ComercioExterior11Receptor(ObjCFDITimbre.Complementos.ComercioExterior.Receptor.NumRegIdTrib) + cfdi.ComercioExterior11DomicilioReceptor(ObjCFDITimbre.Complementos.ComercioExterior.Receptor.Calle, + ObjCFDITimbre.Complementos.ComercioExterior.Receptor.NumeroExterior, + ObjCFDITimbre.Complementos.ComercioExterior.Receptor.NumeroInterior, + ObjCFDITimbre.Complementos.ComercioExterior.Receptor.Colonia, + ObjCFDITimbre.Complementos.ComercioExterior.Receptor.Localidad, + ObjCFDITimbre.Complementos.ComercioExterior.Receptor.Referencia, + ObjCFDITimbre.Complementos.ComercioExterior.Receptor.Municipio, + ObjCFDITimbre.Complementos.ComercioExterior.Receptor.Estado, + ObjCFDITimbre.Complementos.ComercioExterior.Receptor.Pais, + ObjCFDITimbre.Complementos.ComercioExterior.Receptor.CP) + + If ObjCFDITimbre.Complementos.ComercioExterior.Destinatario IsNot Nothing Then + cfdi.ComercioExterior11Destinatario(ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.NumRegIdTrib, + ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.Nombre, + ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.Calle, + ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.NumeroExterior, + ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.NumeroInterior, + ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.Colonia, + ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.Localidad, + ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.Referencia, + ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.Municipio, + ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.Estado, + ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.Pais, + ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.CP) + End If + + + 'MERCANCIAS + If ObjCFDITimbre.Complementos.ComercioExterior.Mercancias IsNot Nothing AndAlso ObjCFDITimbre.Complementos.ComercioExterior.Mercancias.Count > 0 Then + For Each concep As CFDIComercioExterior11Mercancias In ObjCFDITimbre.Complementos.ComercioExterior.Mercancias + cfdi.ComercioExterior11Mercancia(concep.NoIdentificacion, concep.FraccionArancelaria, concep.CantidadAduana, concep.UnidadAduana, concep.ValorUnitarioAduana, concep.ValorDolares) + If concep.DescripcionesEspecificas.Marca <> "" Then + cfdi.ComercioExterior11MercanciaDescripcionesEspeciales(concep.DescripcionesEspecificas.Marca, + concep.DescripcionesEspecificas.Modelo, + concep.DescripcionesEspecificas.SubModelo, + concep.DescripcionesEspecificas.NumeroSerie) + End If + Next + + End If + + + End If + End If + + + End if #End Region From 55212338c9a7ffb5cea44cc8f628b59bdd62e527 Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 22 Jan 2024 15:19:26 -0700 Subject: [PATCH 10/31] =?UTF-8?q?-=20parametro=20de=20cveclasificaci=C3=B3?= =?UTF-8?q?n=20al=20editar=20prepolizadetalle?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- App_Code/ClsContabilidad.vb | 8 ++---- Contabilidad/RegPrePolizaS.aspx | 2 +- Contabilidad/RegPrePolizaS.aspx.vb | 45 +++++++++++++----------------- 3 files changed, 24 insertions(+), 31 deletions(-) diff --git a/App_Code/ClsContabilidad.vb b/App_Code/ClsContabilidad.vb index 22263859e..03a863762 100644 --- a/App_Code/ClsContabilidad.vb +++ b/App_Code/ClsContabilidad.vb @@ -292,12 +292,11 @@ Public Class ClsContabilidad Public Function UpdatePrePolizasDetalle(CvePrePolizaDetalle As Integer, Concepto As String, CveSubProyecto As Integer, IdCtaContable As Integer, TipoMovto As Boolean, ImporteMN As Decimal, Optional CveTipoGasto As Integer = -1, Optional CveConceptoContable As Integer = -1, Optional CveProveedor As Integer = -1, Optional CveCompra As Integer = -1, Optional CvePersonal As Integer = -1, Optional CveCliente As Integer = -1, Optional CveVenta As Integer = -1, - Optional Referencia As String = "-1", Optional CveUsuarioModifico As Integer = -1, Optional CveCuenta As Integer = -1, Optional PorcentajeImpuesto As Decimal = -1, Optional Importe As Decimal = -1, Optional CveIE As Integer = -1, Optional TipoCambio As Decimal = -1) As Boolean - + Optional Referencia As String = "-1", Optional CveUsuarioModifico As Integer = -1, Optional CveCuenta As Integer = -1, Optional PorcentajeImpuesto As Decimal = -1, Optional Importe As Decimal = -1, Optional CveIE As Integer = -1, + Optional TipoCambio As Decimal = -1, Optional CveClasificacion As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Conta_PrePolizasDetalleUpdate") - With SqlAdapter.SelectCommand.Parameters .Add("@CvePrePolizaDetalle", SqlDbType.Int).Value = CvePrePolizaDetalle .Add("@Concepto", SqlDbType.VarChar).Value = Concepto @@ -318,13 +317,12 @@ Public Class ClsContabilidad .Add("@CveUsuarioModifico", SqlDbType.Int).Value = CveUsuarioModifico .Add("@CveCuenta", SqlDbType.Int).Value = CveCuenta .Add("@CveIE", SqlDbType.Int).Value = CveIE - + .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion End With Try SqlAdapter.Fill(Data) Retorno = True - Catch ex As Exception If ex.Message.Contains("CuentasResultados_SubProyectos") Then OnError("El concepto requiere que se le especifique centro de costo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) diff --git a/Contabilidad/RegPrePolizaS.aspx b/Contabilidad/RegPrePolizaS.aspx index d00d8b753..b442b4cf4 100644 --- a/Contabilidad/RegPrePolizaS.aspx +++ b/Contabilidad/RegPrePolizaS.aspx @@ -440,7 +440,7 @@
+ DataKeyNames="CvePrePolizaDetalle,CvePrePoliza,IdMov, CveConceptoContable, CveSubProyecto, CveTipoGasto,Referencia,CveVenta,CveCompra, CveProveedor, CveCliente, CvePersonal, CveCuenta, PorcentajeImpuesto,TipoMovto,EsComplementaria,EsMonedaExtranjera,Concepto,CveClasificacion,ContadoCuenta,ContadoTipoTransaccion,ContadoNumeroFolio,ContadoBeneficiario,ContadoObservaciones,ContadoImporte,TC,ImporteME,ImporteMN,Cargo,Abono,CveIE,Modificado" Width="100%" > Movimiento diff --git a/Contabilidad/RegPrePolizaS.aspx.vb b/Contabilidad/RegPrePolizaS.aspx.vb index bd3f7d941..6bb286c1d 100644 --- a/Contabilidad/RegPrePolizaS.aspx.vb +++ b/Contabilidad/RegPrePolizaS.aspx.vb @@ -1145,9 +1145,8 @@ Partial Class ContabilidadC_RegPrePolizaS Dim CveIEAgregado As Integer = -1 For Each row As GridViewRow In GvPrePoliza.Rows If row.DataKey("CvePrePolizaDetalle").ToEntero > 0 Then - If row.FCCheckBox("chkModificado").Checked Then + If CBool(row.DataKey("Modificado")) Then contador = contador + 1 - Dim ImporteIE As Decimal = If(row.FCLabel("TxtCargo").Text.ToDecimal <> 0, row.FCLabel("TxtCargo").Text.ToDecimal, row.FCLabel("TxtAbono").Text.ToDecimal) If row.DataKey("CveConceptoContable").ToEntero = 30 AndAlso ImporteIE > 0 AndAlso row.DataKey("CveIE").ToDecimal <= 0 Then @@ -1166,7 +1165,7 @@ Partial Class ContabilidadC_RegPrePolizaS If(row.DataKey("Cargo").ToDecimal <> 0, row.DataKey("Cargo").ToDecimal, row.DataKey("Abono").ToDecimal), CveTipoGasto:=If(DdlTipoGasto.Visible, row.DataKey("CveTipoGasto").ToEntero, row.DataKey("CveTipoGasto").ToEntero), CveConceptoContable:=row.DataKey("CveConceptoContable").ToEntero, CveProveedor:=row.DataKey("CveProveedor").ToEntero, CveCompra:=row.DataKey("CveCompra").ToEntero, - CveCliente:=row.DataKey("CveCliente").ToEntero, CveVenta:=row.DataKey("CveVenta").ToEntero, + CveCliente:=row.DataKey("CveCliente").ToEntero, CveVenta:=row.DataKey("CveVenta").ToEntero, CveClasificacion:=row.DataKey("CveClasificacion").ToEntero, CvePersonal:=row.DataKey("CvePersonal").ToEntero, Referencia:=row.FCLiteral("TxtRef").Text, TipoCambio:=row.DataKey("TC").ToDecimal, CveCuenta:=row.DataKey("CveCuenta").ToEntero, CveUsuarioModifico:=UsuarioActual.CveUsuario, CveIE:=CveIEAgregado) Then @@ -1176,8 +1175,6 @@ Partial Class ContabilidadC_RegPrePolizaS End If Else contador = contador + 1 - - Dim ImporteIE As Decimal = If(row.DataKey("Cargo").ToDecimal <> 0, row.DataKey("Cargo").ToDecimal, row.DataKey("Abono").ToDecimal) If row.DataKey("CveConceptoContable").ToEntero = 30 AndAlso ImporteIE > 0 AndAlso row.DataKey("CveIE").ToDecimal <= 0 Then @@ -1192,13 +1189,13 @@ Partial Class ContabilidadC_RegPrePolizaS End If End If - If Not ObjContabilidad.AddPrePolizasDetalle(CvePrePoliza, If(row.FCLabel("TxtCargo").Text.ToDecimal <> 0, False, True), - If(row.FCLabel("TxtCargo").Text.ToDecimal <> 0, row.FCLabel("TxtCargo").Text.ToDecimal, row.FCLabel("TxtAbono").Text.ToDecimal), - If(row.FCLabel("TxtCargo").Text.ToDecimal <> 0, row.FCLabel("TxtCargo").Text.ToDecimal, row.FCLabel("TxtAbono").Text.ToDecimal), + If Not ObjContabilidad.AddPrePolizasDetalle(CvePrePoliza, If(row.DataKey("TipoMovto") = "True", True, False), + row.DataKey("Cargo").ToDecimal, + row.DataKey("Abono").ToDecimal, row.DataKey("CveConceptoContable").ToEntero, row.DataKey("Referencia").ToString, row.FCLiteral("TxtConcepto").Text, CveSubProyecto:=row.DataKey("CveSubProyecto").ToEntero, CveTipoGasto:=If(DdlTipoGasto.Visible, row.DataKey("CveTipoGasto").ToEntero, row.DataKey("CveTipoGasto").ToEntero), - CveProveedor:=row.DataKey("CveProveedor").ToEntero, + CveProveedor:=row.DataKey("CveProveedor").ToEntero, CveClasificacion:=row.DataKey("CveClasificacion").ToEntero, CveCompra:=row.DataKey("CveCompra").ToEntero, CveCliente:=row.DataKey("CveCliente").ToEntero, CveVenta:=row.DataKey("CveVenta").ToEntero, CvePersonal:=row.DataKey("CvePersonal").ToEntero, CveCuenta:=row.DataKey("CveCuenta").ToEntero, PorcentajeImpuesto:=row.DataKey("PorcentajeImpuesto").ToDecimal, CveIE:=CveIEAgregado) Then OcurrioError = True @@ -1208,6 +1205,13 @@ Partial Class ContabilidadC_RegPrePolizaS Next End If + If Not OcurrioError AndAlso ObjContabilidad.ValidacionesPrePoliza(CvePrePoliza, UsuarioActual) Then + If ObjContabilidad.ValorPolizaDescuadre > 0 Then + OcurrioError = True + Alert("Error en validacion de prepoliza cuadre", TipoMensaje.MsgAdvertencia) + GuardaLogAD($"Compras/Compras-Actualizar | Error:{ObjContabilidad.MensajePolizaDescuadre} Diferencia:{ObjContabilidad.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas") + End If + End If Else OcurrioError = True End If @@ -1217,31 +1221,22 @@ Partial Class ContabilidadC_RegPrePolizaS OnError("Ocurrío un error al actualizar la PrePoliza", ex) End Try - If ObjContabilidad.ValidacionesPrePoliza(CvePrePoliza, UsuarioActual) Then - If ObjContabilidad.ValorPolizaDescuadre > 0 Then - OcurrioError = True - Alert("Error en validacion de prepoliza cuadre", TipoMensaje.MsgAdvertencia) - GuardaLogAD($"Compras/Compras-Actualizar | Error:{ObjContabilidad.MensajePolizaDescuadre} Diferencia:{ObjContabilidad.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas") - End If - End If - If Not OcurrioError Then ObjContabilidad.Commit() + CargaPrePoliza(CvePrePoliza) Alert("La PrePoliza se actualizó correctamente.", TipoMensaje.MsgInformacion, JSBtnAceptar:=$"window.location.href=""./RegPrePolizaS.aspx?CvePrePoliza={Me.CvePrePoliza}""", ShowCloseButton:=False) Else ObjContabilidad.RollBack() - Alert("Ocurrio un error al actualizar la PrePoliza.", TipoMensaje.MsgError) End If ObjContabilidad.Dispose() - CargaPrePoliza(CvePrePoliza) - If Not OcurrioError Then - If IdPoliza > 0 AndAlso contador > 0 Then - Contabilizar() - End If + 'If Not OcurrioError Then + ' If IdPoliza > 0 AndAlso contador > 0 Then + ' Contabilizar() + ' End If - End If + 'End If End Sub Protected Sub LnkAddConcepto_Click(sender As Object, e As EventArgs) RegistraScript(String.Format("$('#{0}').modal();", "DivEditConcepto")) @@ -2002,6 +1997,7 @@ Partial Class ContabilidadC_RegPrePolizaS For Each dRow As DataRow In DtMovimientos.Rows dRow("CveTipoGasto") = DdlTipoGasto.SelectedValue dRow("TipoGasto") = DdlTipoGasto.SelectedItem.Text + dRow("Modificado") = True Next DtMovimientos.AcceptChanges() @@ -2011,7 +2007,6 @@ Partial Class ContabilidadC_RegPrePolizaS For Each Gvr As GridViewRow In GvPrePoliza.Rows 'Gvr.FCDropDownList("DdlTipoGasto").SelectedValueExist(DdlTipoGasto.SelectedValue) Gvr.FCCheckBox("chkModificado").Checked = True - Next UpPrePoliza.Update() From 4957baf4b083a479114ad15164d2814446714c5b Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 22 Jan 2024 18:50:52 -0700 Subject: [PATCH 11/31] - mejora --- Contabilidad/RegPrePolizaS.aspx | 3 +-- Contabilidad/RegPrePolizaS.aspx.vb | 19 ++++--------------- 2 files changed, 5 insertions(+), 17 deletions(-) diff --git a/Contabilidad/RegPrePolizaS.aspx b/Contabilidad/RegPrePolizaS.aspx index b442b4cf4..4856937c2 100644 --- a/Contabilidad/RegPrePolizaS.aspx +++ b/Contabilidad/RegPrePolizaS.aspx @@ -528,8 +528,7 @@ - + data-toggle="confirmation" data-popout="true" data-original-title="Confirmar" data-btn-ok-label="si" /> diff --git a/Contabilidad/RegPrePolizaS.aspx.vb b/Contabilidad/RegPrePolizaS.aspx.vb index 6bb286c1d..8bf6adaad 100644 --- a/Contabilidad/RegPrePolizaS.aspx.vb +++ b/Contabilidad/RegPrePolizaS.aspx.vb @@ -558,9 +558,6 @@ Partial Class ContabilidadC_RegPrePolizaS If CveConceptoContable.Contiene(68) Then e.Row.FCHyperLink("HlReferencia").NavigateUrl = String.Format("/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}", e.Row.DBCampo("CveMovimientoAlmacen")) If CveConceptoContable.Contiene(30, 204, 66, 92, 202, 10, 21, 48, 56, 338, 339, 340, 345, 346, 347) Then e.Row.FCHyperLink("HlReferencia").NavigateUrl = String.Format("/Bancos/IE.aspx?CveIE={0}", e.Row.DBCampo("CveIE")) - If e.Row.DBCampo("Modificado") = "True" Then - e.Row.FCCheckBox("chkModificado").Checked = True - End If End If If e.Row.RowType = DataControlRowType.Header Then @@ -1188,10 +1185,10 @@ Partial Class ContabilidadC_RegPrePolizaS Exit For End If End If - - If Not ObjContabilidad.AddPrePolizasDetalle(CvePrePoliza, If(row.DataKey("TipoMovto") = "True", True, False), - row.DataKey("Cargo").ToDecimal, - row.DataKey("Abono").ToDecimal, + Dim tTipoMovto As Boolean = If(row.DataKey("TipoMovto") = "True", True, False) + If Not ObjContabilidad.AddPrePolizasDetalle(CvePrePoliza, tTipoMovto, + If(Not tTipoMovto, row.DataKey("Cargo").ToDecimal, row.DataKey("Abono").ToDecimal), + If(Not tTipoMovto, row.DataKey("Cargo").ToDecimal, row.DataKey("Abono").ToDecimal), row.DataKey("CveConceptoContable").ToEntero, row.DataKey("Referencia").ToString, row.FCLiteral("TxtConcepto").Text, CveSubProyecto:=row.DataKey("CveSubProyecto").ToEntero, CveTipoGasto:=If(DdlTipoGasto.Visible, row.DataKey("CveTipoGasto").ToEntero, row.DataKey("CveTipoGasto").ToEntero), @@ -1726,7 +1723,6 @@ Partial Class ContabilidadC_RegPrePolizaS GvPrePoliza.DataBind() UpPrePoliza.Update() GvPrePoliza.Visible = True - If IndiceGrid >= 0 Then GvPrePoliza.Rows(IndiceGrid).FCCheckBox("chkModificado").Checked = True TxtTotalCargos.Text = DtMovimientos.SUMD("Cargo").ToString.FormatoNumero TxtTotalAbonos.Text = DtMovimientos.SUMD("Abono").ToString.FormatoNumero @@ -1993,7 +1989,6 @@ Partial Class ContabilidadC_RegPrePolizaS Protected Sub DdlTipoGasto_SelectedIndexChanged(sender As Object, e As EventArgs) If UpPrePoliza.Visible Then - For Each dRow As DataRow In DtMovimientos.Rows dRow("CveTipoGasto") = DdlTipoGasto.SelectedValue dRow("TipoGasto") = DdlTipoGasto.SelectedItem.Text @@ -2003,12 +1998,6 @@ Partial Class ContabilidadC_RegPrePolizaS DtMovimientos.AcceptChanges() GvPrePoliza.DataSource = DtMovimientos GvPrePoliza.DataBind() - - For Each Gvr As GridViewRow In GvPrePoliza.Rows - 'Gvr.FCDropDownList("DdlTipoGasto").SelectedValueExist(DdlTipoGasto.SelectedValue) - Gvr.FCCheckBox("chkModificado").Checked = True - Next - UpPrePoliza.Update() End If If divMovtos.Visible Then From a74aa811614895fecb8bd9a9fa9dcc892d979d99 Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 22 Jan 2024 18:51:04 -0700 Subject: [PATCH 12/31] -- mejora, para incluir descuentos --- SAT/SolicitudesIngresoSat.aspx | 232 +++++------------------------- SAT/SolicitudesIngresoSat.aspx.cs | 128 ++++++----------- 2 files changed, 79 insertions(+), 281 deletions(-) diff --git a/SAT/SolicitudesIngresoSat.aspx b/SAT/SolicitudesIngresoSat.aspx index 3e4154c9c..7814cf401 100644 --- a/SAT/SolicitudesIngresoSat.aspx +++ b/SAT/SolicitudesIngresoSat.aspx @@ -3,8 +3,16 @@ - @@ -327,57 +156,72 @@ - + - + + + + + + - + - + - + - + - + + + + + + + + + + + - + - + - + - + diff --git a/SAT/SolicitudesIngresoSat.aspx.cs b/SAT/SolicitudesIngresoSat.aspx.cs index ddf541544..1ff768086 100644 --- a/SAT/SolicitudesIngresoSat.aspx.cs +++ b/SAT/SolicitudesIngresoSat.aspx.cs @@ -7,7 +7,6 @@ using System.Net.Http.Headers; using System.Text; using System.Threading; using System.Threading.Tasks; -using System.Web; using System.Web.UI; using System.Web.UI.WebControls; using Extensiones; @@ -119,7 +118,12 @@ public partial class SAT_SolicitudesIngresoSat : ClsPaginas { GvResumen.DataSource = ObjNom.DtResultados; TipoDescarga = ObjNom.DtResultados.Rows.Count > 0 ? 1 : 0; - LnkDownloadExcel.Visible = true; + LnkDownloadExcel.Visible = true; + if (UsuarioActual.Empresa.Funcionalidad(713) == "1") + { + GvResumen.Columns[4].Visible = false; + GvResumen.Columns[11].Visible = false; + } } else if (DdlReporte.SelectedValue.ToEntero() == 2) { @@ -400,57 +404,7 @@ public partial class SAT_SolicitudesIngresoSat : ClsPaginas { if (e.Row.DataKey("Fecha") == "") e.Row.Attributes.Add("class", "Totales"); - - if (UsuarioActual.Empresa.Funcionalidad(713) != "1") - { - e.Row.Cells[2].Visible = false; - } - - - if (UsuarioActual.Empresa.Funcionalidad(713) != "1") - { - e.Row.Cells[7].Visible = false; - } - - - } - - if (e.Row.RowType == DataControlRowType.Header) - { - e.Row.Cells[1].BackColor = System.Drawing.Color.FromName("#3598dc"); - e.Row.Cells[2].BackColor = System.Drawing.Color.FromName("#3598dc"); - e.Row.Cells[3].BackColor = System.Drawing.Color.FromName("#3598dc"); - if (UsuarioActual.Empresa.Funcionalidad(713) != "1") - { - e.Row.Cells[2].Visible = false; - } - - e.Row.Cells[4].BackColor = System.Drawing.Color.FromName("#3598dc"); - e.Row.Cells[5].BackColor = System.Drawing.Color.FromName("#3598dc"); - - e.Row.Cells[6].BackColor = System.Drawing.Color.FromName("#C46B06"); - e.Row.Cells[7].BackColor = System.Drawing.Color.FromName("#C46B06"); - e.Row.Cells[8].BackColor = System.Drawing.Color.FromName("#C46B06"); - if (UsuarioActual.Empresa.Funcionalidad(713) != "1") - { - e.Row.Cells[7].Visible = false; - } - - e.Row.Cells[9].BackColor = System.Drawing.Color.FromName("#C46B06"); - e.Row.Cells[10].BackColor = System.Drawing.Color.FromName("#C46B06"); - - - e.Row.Cells[1].ForeColor = System.Drawing.Color.FromName("white"); - e.Row.Cells[2].ForeColor = System.Drawing.Color.FromName("white"); - e.Row.Cells[3].ForeColor = System.Drawing.Color.FromName("white"); - e.Row.Cells[4].ForeColor = System.Drawing.Color.FromName("white"); - e.Row.Cells[5].ForeColor = System.Drawing.Color.FromName("white"); - e.Row.Cells[6].ForeColor = System.Drawing.Color.FromName("white"); - e.Row.Cells[7].ForeColor = System.Drawing.Color.FromName("white"); - e.Row.Cells[8].ForeColor = System.Drawing.Color.FromName("white"); - e.Row.Cells[9].ForeColor = System.Drawing.Color.FromName("white"); - e.Row.Cells[10].ForeColor = System.Drawing.Color.FromName("white"); - } + } } protected void GvDatos_RowDataBound(object sender, GridViewRowEventArgs e) @@ -534,17 +488,17 @@ public partial class SAT_SolicitudesIngresoSat : ClsPaginas if (e.Row.RowType == DataControlRowType.Header) { - e.Row.Cells[1].BackColor = System.Drawing.Color.FromName("#3598dc"); //Azul - e.Row.Cells[2].BackColor = System.Drawing.Color.FromName("#C46B06"); //Rojo + //e.Row.Cells[1].BackColor = System.Drawing.Color.FromName("#3598dc"); //Azul + //e.Row.Cells[2].BackColor = System.Drawing.Color.FromName("#C46B06"); //Rojo - e.Row.Cells[3].BackColor = System.Drawing.Color.FromName("#3598dc"); //Rojo - e.Row.Cells[4].BackColor = System.Drawing.Color.FromName("#3598dc"); //Azul - e.Row.Cells[5].BackColor = System.Drawing.Color.FromName("#3598dc"); //Azul - e.Row.Cells[6].BackColor = System.Drawing.Color.FromName("#3598dc"); //Azul - e.Row.Cells[7].BackColor = System.Drawing.Color.FromName("#3598dc"); //Azul - e.Row.Cells[8].BackColor = System.Drawing.Color.FromName("#3598dc"); //Azul - e.Row.Cells[9].BackColor = System.Drawing.Color.FromName("#3598dc"); //Azul - e.Row.Cells[10].BackColor = System.Drawing.Color.FromName("#3598dc"); //Azul + //e.Row.Cells[3].BackColor = System.Drawing.Color.FromName("#3598dc"); //Rojo + //e.Row.Cells[4].BackColor = System.Drawing.Color.FromName("#3598dc"); //Azul + //e.Row.Cells[5].BackColor = System.Drawing.Color.FromName("#3598dc"); //Azul + //e.Row.Cells[6].BackColor = System.Drawing.Color.FromName("#3598dc"); //Azul + //e.Row.Cells[7].BackColor = System.Drawing.Color.FromName("#3598dc"); //Azul + //e.Row.Cells[8].BackColor = System.Drawing.Color.FromName("#3598dc"); //Azul + //e.Row.Cells[9].BackColor = System.Drawing.Color.FromName("#3598dc"); //Azul + //e.Row.Cells[10].BackColor = System.Drawing.Color.FromName("#3598dc"); //Azul @@ -556,33 +510,33 @@ public partial class SAT_SolicitudesIngresoSat : ClsPaginas //e.Row.Cells[16].BackColor = System.Drawing.Color.FromName("#900"); //Rojo //e.Row.Cells[17].BackColor = System.Drawing.Color.FromName("#900"); //Rojo - e.Row.Cells[11].BackColor = System.Drawing.Color.FromName("#C46B06"); //Rojo - e.Row.Cells[12].BackColor = System.Drawing.Color.FromName("#C46B06"); //Rojo - e.Row.Cells[13].BackColor = System.Drawing.Color.FromName("#C46B06"); //Rojo - e.Row.Cells[14].BackColor = System.Drawing.Color.FromName("#C46B06"); //Rojo - e.Row.Cells[15].BackColor = System.Drawing.Color.FromName("#C46B06"); //Rojo - e.Row.Cells[16].BackColor = System.Drawing.Color.FromName("#C46B06"); //Rojo - e.Row.Cells[17].BackColor = System.Drawing.Color.FromName("#C46B06"); //Rojo + //e.Row.Cells[11].BackColor = System.Drawing.Color.FromName("#C46B06"); //Rojo + //e.Row.Cells[12].BackColor = System.Drawing.Color.FromName("#C46B06"); //Rojo + //e.Row.Cells[13].BackColor = System.Drawing.Color.FromName("#C46B06"); //Rojo + //e.Row.Cells[14].BackColor = System.Drawing.Color.FromName("#C46B06"); //Rojo + //e.Row.Cells[15].BackColor = System.Drawing.Color.FromName("#C46B06"); //Rojo + //e.Row.Cells[16].BackColor = System.Drawing.Color.FromName("#C46B06"); //Rojo + //e.Row.Cells[17].BackColor = System.Drawing.Color.FromName("#C46B06"); //Rojo - e.Row.Cells[1].ForeColor = System.Drawing.Color.FromName("white"); - e.Row.Cells[2].ForeColor = System.Drawing.Color.FromName("white"); + //e.Row.Cells[1].ForeColor = System.Drawing.Color.FromName("white"); + //e.Row.Cells[2].ForeColor = System.Drawing.Color.FromName("white"); - e.Row.Cells[3].ForeColor = System.Drawing.Color.FromName("white"); - e.Row.Cells[4].ForeColor = System.Drawing.Color.FromName("white"); - e.Row.Cells[5].ForeColor = System.Drawing.Color.FromName("white"); - e.Row.Cells[6].ForeColor = System.Drawing.Color.FromName("white"); - e.Row.Cells[7].ForeColor = System.Drawing.Color.FromName("white"); - e.Row.Cells[8].ForeColor = System.Drawing.Color.FromName("white"); - e.Row.Cells[9].ForeColor = System.Drawing.Color.FromName("white"); - e.Row.Cells[10].ForeColor = System.Drawing.Color.FromName("white"); - e.Row.Cells[11].ForeColor = System.Drawing.Color.FromName("white"); - e.Row.Cells[12].ForeColor = System.Drawing.Color.FromName("white"); - e.Row.Cells[13].ForeColor = System.Drawing.Color.FromName("white"); - e.Row.Cells[14].ForeColor = System.Drawing.Color.FromName("white"); - e.Row.Cells[15].ForeColor = System.Drawing.Color.FromName("white"); - e.Row.Cells[16].ForeColor = System.Drawing.Color.FromName("white"); - e.Row.Cells[17].ForeColor = System.Drawing.Color.FromName("white"); + //e.Row.Cells[3].ForeColor = System.Drawing.Color.FromName("white"); + //e.Row.Cells[4].ForeColor = System.Drawing.Color.FromName("white"); + //e.Row.Cells[5].ForeColor = System.Drawing.Color.FromName("white"); + //e.Row.Cells[6].ForeColor = System.Drawing.Color.FromName("white"); + //e.Row.Cells[7].ForeColor = System.Drawing.Color.FromName("white"); + //e.Row.Cells[8].ForeColor = System.Drawing.Color.FromName("white"); + //e.Row.Cells[9].ForeColor = System.Drawing.Color.FromName("white"); + //e.Row.Cells[10].ForeColor = System.Drawing.Color.FromName("white"); + //e.Row.Cells[11].ForeColor = System.Drawing.Color.FromName("white"); + //e.Row.Cells[12].ForeColor = System.Drawing.Color.FromName("white"); + //e.Row.Cells[13].ForeColor = System.Drawing.Color.FromName("white"); + //e.Row.Cells[14].ForeColor = System.Drawing.Color.FromName("white"); + //e.Row.Cells[15].ForeColor = System.Drawing.Color.FromName("white"); + //e.Row.Cells[16].ForeColor = System.Drawing.Color.FromName("white"); + //e.Row.Cells[17].ForeColor = System.Drawing.Color.FromName("white"); } From 6d6b7924aa22b81fbef1497b17430d0ffaa81a99 Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 22 Jan 2024 18:51:15 -0700 Subject: [PATCH 13/31] =?UTF-8?q?--=20correcci=C3=B3n=20de=20par=C3=A1metr?= =?UTF-8?q?o?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Sistemas/UsuarioDetalle.aspx.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Sistemas/UsuarioDetalle.aspx.vb b/Sistemas/UsuarioDetalle.aspx.vb index 5ea3af3d8..becfebe4b 100644 --- a/Sistemas/UsuarioDetalle.aspx.vb +++ b/Sistemas/UsuarioDetalle.aspx.vb @@ -861,7 +861,7 @@ Partial Class Sistemas_UsuarioDetalle End If For Each Row As DataRow In DtAsignacionesMultiEmpresa.FiltraParametros("CveEmpresa > 0").Rows - If Not ObjUsuarios.AddUsuarioAsignar(Row("CvePersonal").ToString.ToEntero, Row("CveVendedor").ToString.ToEntero, Row("CveAlmacen").ToString.ToEntero, Row("CveSucursal").ToString.ToEntero, Row("CveTipoDocumento").ToString, Row("CveEmpresa").ToString.ToEntero, CveUsuario) Then + If Not ObjUsuarios.AddUsuarioAsignar(Row("CvePersonal").ToString.ToEntero, Row("CveVendedor").ToString.ToEntero, Row("CveSucursal").ToString.ToEntero, Row("CveAlmacen").ToString.ToEntero, Row("CveTipoDocumento").ToString, Row("CveEmpresa").ToString.ToEntero, CveUsuario) Then TieneError = True End If Next From d8ca6e296a5ae3c2ea410aab5e3307f1f884101a Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Mon, 22 Jan 2024 19:52:20 -0700 Subject: [PATCH 14/31] FIX. Calculo de cantidad y pu en base al total --- Ventas/Ventas.aspx | 12 ++++++++++-- Ventas/Ventas.aspx.vb | 33 +++++++++++++++++++++++---------- 2 files changed, 33 insertions(+), 12 deletions(-) diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx index be56eacde..94b5a8d54 100644 --- a/Ventas/Ventas.aspx +++ b/Ventas/Ventas.aspx @@ -2402,7 +2402,7 @@
- Emitir: + Emitir
@@ -2665,7 +2665,7 @@ Convertir a unidad Aduana + EmptyDataText="No hay datos disponibles" DataKeyNames="Consec,CvePS,Cantidad,Codigo,ClaveSATFraccionArancelaria,ClaveSATUnidadAduana" OnRowDataBound="GvComercioExterior_RowDataBound"> @@ -8641,6 +8641,14 @@ TotalUSD.innerText = FormatoNumero(ToDouble(ValorUnitario.value) * ToDouble(TxtCantidad.value), 2); } + function CalculaPU_USD(TxtValorUnitario, TotalUSD, TxtCantidad) { + TxtValorUnitario.value = FormatoNumero(ToDouble(TotalUSD) / ToDouble(TxtCantidad.value), 6); + } + + function CalculaCantidad_USD(TxtValorUnitario, TotalUSD, TxtCantidad) { + TxtCantidad.value = FormatoNumero(ToDouble(TotalUSD) / ToDouble(TxtValorUnitario.value), 6); + } + function LimitaCantidadAplicaDev(Cantidad, TxtCantidadAplicaDevolucion) { if (ToDouble(TxtCantidadAplicaDevolucion.value) > Cantidad) { TxtCantidadAplicaDevolucion.value = FormatoNumero(Cantidad, 2) diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 21b19e4b9..433e4f669 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -10161,17 +10161,17 @@ Partial Class Ventas ViewState("CveVenta") = ObjFactura.CveVenta If Request("CveEmbarqueManifiesto") IsNot Nothing AndAlso IsNumeric(Request("CveEmbarqueManifiesto")) AndAlso Request("CveEmbarqueManifiesto").ToEntero() > 0 Then - - If ObjVentas.Embarque_ManifiestoUpvta(ObjFactura.CveVenta, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Request("CveEmbarqueManifiesto").ToEntero()) Then - + If Not ObjVentas.Embarque_ManifiestoUpvta(ObjFactura.CveVenta, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Request("CveEmbarqueManifiesto").ToEntero()) Then + ErrorList.Add("Error al actualizar el manifiesto.") End If End If + If Request("CveManifiesto") IsNot Nothing AndAlso IsNumeric(Request("CveManifiesto")) AndAlso Request("CveManifiesto").ToEntero() > 0 Then - - If ObjVentas.CGame_ManifiestoUpvta(ObjFactura.CveVenta, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Request("CveManifiesto").ToEntero()) Then - + If Not ObjVentas.CGame_ManifiestoUpvta(ObjFactura.CveVenta, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Request("CveManifiesto").ToEntero()) Then + ErrorList.Add("Error al actualizar el manifiesto.") End If End If + Catch ex As Exception OnError("Ocurrió un error al actualizar el embarque", ex) ErrorList.Add("Ocurrió un error al actualizar el embarque") @@ -10181,9 +10181,8 @@ Partial Class Ventas ViewState("CveVenta") = ObjFactura.CveVenta If Request("CveOrdenProduccion") IsNot Nothing AndAlso IsNumeric(Request("CveOrdenProduccion")) AndAlso Request("CveOrdenProduccion").ToEntero() > 0 Then - - If ObjVentas.AgroOrdenProduccionUpvta(ObjFactura.CveVenta, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Request("CveOrdenProduccion").ToEntero()) Then - + If Not ObjVentas.AgroOrdenProduccionUpvta(ObjFactura.CveVenta, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Request("CveOrdenProduccion").ToEntero()) Then + ErrorList.Add("Error al actualizar el manifiesto.") End If End If Catch ex As Exception @@ -13438,6 +13437,17 @@ Partial Class Ventas End If End If + 'ACTUALIZA EL CAMPO CANTIDAD CONVERSION CON BASE A LO ESTABLECIDO EN LA TABLA + If AplicaComercioExterior Then + For Each gvr As GridViewRow In GvComercioExterior.Rows + For Each Row As DataRow In TmpDTDetalle.Rows + If gvr.DataKey("Consec") = Row("Consec").ToString() AndAlso gvr.DataKey("CvePS") = Row("CvePS").ToString() Then + Row("CantidadConversion") = gvr.FCTextBox("TxtCantidad").Text.ToDecimal() + End If + Next + Next + End If + If factura.TipoDocto = "Egs" AndAlso NuevaFactura = 1 Then If DtVentasNC Is Nothing Then @@ -29734,9 +29744,12 @@ Partial Class Ventas End If Else e.Row.FCTextBox("TxtValorUnitario").Text = PUBase.ToString("N2") + 'e.Row.FCTextBox("TxtValorUnitario").Attributes.Add("onkeyup", $"CalculaTotalUSD({e.Row.FCLabel("LblTotalUSD").ClientID}, this,{e.Row.FCTextBox("TxtCantidad").ClientID});") End If - e.Row.FCTextBox("TxtValorUnitario").Attributes.Add("onkeyup", $"CalculaTotalUSD({e.Row.FCLabel("LblTotalUSD").ClientID}, this,{e.Row.FCTextBox("TxtCantidad").ClientID});") + e.Row.FCTextBox("TxtCantidad").Attributes.Add("onkeyup", $"CalculaPU_USD({e.Row.FCTextBox("TxtValorUnitario").ClientID}, {e.Row.FCLabel("LblTotalUSD").Text.ToDecimal()},this);") + e.Row.FCTextBox("TxtValorUnitario").Attributes.Add("onkeyup", $"CalculaCantidad_USD(this,{e.Row.FCLabel("LblTotalUSD").Text.ToDecimal()},{e.Row.FCTextBox("TxtCantidad").ClientID});") + End If End Sub From 8c488bbfdba00e73f4a22943d3c52b6c5520e456 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Mon, 22 Jan 2024 19:52:30 -0700 Subject: [PATCH 15/31] EMD. Cambios en formato de factura --- Empresas/13/Formatos/Factura.rdlc | 12 +++++++++++- 1 file changed, 11 insertions(+), 1 deletion(-) diff --git a/Empresas/13/Formatos/Factura.rdlc b/Empresas/13/Formatos/Factura.rdlc index eb7a1166e..5c6185f6b 100644 --- a/Empresas/13/Formatos/Factura.rdlc +++ b/Empresas/13/Formatos/Factura.rdlc @@ -366,7 +366,17 @@ - Tipo de Comprobante: I - Ingreso + Tipo de Comprobante: + + + + = IIF(Parameters!Tipo.Value = "INGRESO","I - Ingreso","E - Egreso") - true @@ -791,12 +790,24 @@ CIUDAD DE MEXICO + + + + + + + + + + 0cm 0.13678cm 0cm 20.28859cm @@ -2299,6 +2312,7 @@ CIUDAD DE MEXICO + 0cm 0.13678cm 0cm 25.72414cm diff --git a/Empresas/72/Formatos/GestionCobranza2.rdlc b/Empresas/72/Formatos/GestionCobranza2.rdlc index c3669d193..b06e52e56 100644 --- a/Empresas/72/Formatos/GestionCobranza2.rdlc +++ b/Empresas/72/Formatos/GestionCobranza2.rdlc @@ -2,78 +2,102 @@ 0 - + System.Data.DataSet /* Local Connection */ - 74f8a171-24f1-4404-809e-ec2e098f1907 + 457ddefa-843b-4fae-8b02-70764606cb28 - + - DataSet3 + DsInventarios /* Local Query */ - - NombreCliente + + Codigo System.String - - SerieFolio + + PS System.String - - Fecha + + UnidadMedida System.String - - FechaCobranza + + PU + System.Decimal + + + Cantidad + System.Decimal + + + Total + System.Decimal + + + Descuento + System.Decimal + + + CodigoAF System.String - - CobranzaEstatus + + Almacen System.String - - CobranzaObservacion + + SerieLote System.String - - Horario + + Observaciones System.String - - Documentacion + + Lote System.String - - CobranzaEstatusTurno + + FechaCaducidad + System.Date + + + PUVenta + System.Decimal + + + IVAVenta + System.Decimal + + + SubTotalVenta + System.Decimal + + + Marca System.String - - Saldo + + CodigoAlterno System.String - - Telefono - System.String - - - Direccion - System.String - - - NIVEL + + PSAlterno System.String - DataSet3 - C:\Users\jesus\Documents\Visual Studio 2015\WebSites\WebSite2\App_Code\DataSet3.xsd - DataTable1 + DsInventarios + C:\inetpub\wwwVentas\App_Code\DsInventarios.xsd + DtMovimientos @@ -84,68 +108,42 @@ - - 0.08792cm - 0.06868cm - 0cm - 26.42467cm - - - - - + - 5.33044cm + 1.37635cm - 1.68858cm + 10.38681cm - 1.63298cm + 4.60507cm - 1.58391cm + 4.43146cm - 1.57085cm - - - 4.00057cm - - - 1.91793cm - - - 4.10921cm - - - 1.98437cm - - - 2.60584cm + 4.65792cm - 0.46771cm + 0.43377cm - - true + true - Cliente + Cant. @@ -154,24 +152,67 @@ - Textbox3 + Textbox1 + Black + + 1pt Black + + 1pt - + #9cc3e5 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + + + + + Descripción + + + + + + + Textbox3 + - - + + + Black - + 1pt + + + Black + + 1pt + + #9cc3e5 2pt 2pt 2pt @@ -183,16 +224,16 @@ - true true - Factura + Código @@ -204,21 +245,15 @@ Textbox5 + - Black + - Black + - - - - - - + #9cc3e5 2pt 2pt 2pt @@ -229,17 +264,18 @@ - + true true - Saldo + P. Unitario @@ -248,212 +284,22 @@ - Textbox8 + Textbox7 + Black + + 1pt Black + + 1pt - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Estatus - - - - - - - Textbox21 - - - - Black - - - Black - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Turno - - - - - - - Textbox6 - - - - Black - - - Black - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Observación - - - - - - - Textbox19 - - - - Black - - - Black - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Teléfono - - - - - - - Textbox17 - - - - Black - - - Black - - - - - - - + #9cc3e5 2pt 2pt 2pt @@ -471,10 +317,11 @@ - Dirección + Importe @@ -486,115 +333,19 @@ Textbox15 + Black + + 1pt Black + + 1pt - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Horario - - - - - - - Textbox27 - - - - Black - - - Black - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Documentación - - - - - - - Textbox4 - - - - Black - - - Black - - - - - - - + #9cc3e5 2pt 2pt 2pt @@ -606,88 +357,123 @@ - 0.73229cm + 0.4095cm - + true true - = IIF(Fields!NombreCliente.Value = "", IIF(Fields!NIVEL.Value = "1", "Total Saldo",IIF(Fields!NIVEL.Value = "2" AND Fields!CobranzaEstatusTurno.Value = "Sin Turno", "Sin Turno", Fields!CobranzaEstatusTurno.Value) ),Fields!NombreCliente.Value) + =Fields!Cantidad.Value - - NombreCliente + Cantidad - =IIF(Fields!NombreCliente.Value = "","#67809F",IIF(Fields!SerieFolio.Value = "","Silver","Transparent")) + Bottom 2pt 2pt - 2pt - 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") - + true true - =Fields!SerieFolio.Value + =Fields!PSAlterno.Value - - SerieFolio + PSAlterno - =IIF(Fields!NombreCliente.Value = "","#67809F",IIF(Fields!SerieFolio.Value = "","Silver","Transparent")) + Bottom 2pt 2pt - 2pt - 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") - + + true + true + true + + + + + =Fields!CodigoAlterno.Value + + + + + + + CodigoAlterno + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + true true - =Fields!Saldo.Value + =Fields!PUVenta.Value @@ -696,530 +482,49 @@ - Saldo + PUVenta - =IIF(Fields!NombreCliente.Value = "","#67809F",IIF(Fields!SerieFolio.Value = "","Silver","Transparent")) + Bottom 2pt 2pt - 2pt - 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") - + true true - =Fields!CobranzaEstatus.Value + =Fields!SubTotalVenta.Value - CobranzaEstatus + SubTotalVenta - =IIF(Fields!NombreCliente.Value = "","#67809F",IIF(Fields!SerieFolio.Value = "","Silver","Transparent")) + Bottom 2pt 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!CobranzaEstatusTurno.Value - - - - - - - CobranzaEstatusTurno - - - =IIF(Fields!NombreCliente.Value = "","#67809F",IIF(Fields!SerieFolio.Value = "","Silver","Transparent")) - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!CobranzaObservacion.Value - - - - - - - CobranzaObservacion - - - =IIF(Fields!NombreCliente.Value = "","#67809F",IIF(Fields!SerieFolio.Value = "","Silver","Transparent")) - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!Telefono.Value - - - - - - - Telefono - - - =IIF(Fields!NombreCliente.Value = "","#67809F",IIF(Fields!SerieFolio.Value = "","Silver","Transparent")) - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!Direccion.Value - - - - - - - Direccion - - - =IIF(Fields!NombreCliente.Value = "","#67809F",IIF(Fields!SerieFolio.Value = "","Silver","Transparent")) - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!Horario.Value - - - - - - - Horario - - - =IIF(Fields!NombreCliente.Value = "","#67809F",IIF(Fields!SerieFolio.Value = "","Silver","Transparent")) - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!Documentacion.Value - - - - - - - Documentacion - - - =IIF(Fields!NombreCliente.Value = "","#67809F",IIF(Fields!SerieFolio.Value = "","Silver","Transparent")) - 2pt - 2pt - 2pt - 2pt - - - - - - - - - - - - - - - - - - - - - - - - - - After - - - - - - - true - true - true - true - DataSet1 - 0.36336cm - 0.06868cm - 1.2cm - 26.42468cm - 1 - - - - - - - - - 3.69063cm - - - 2.5cm - - - 5.7966cm - - - 3.68307cm - - - 3.69882cm - - - 2.46535cm - - - 4.59021cm - - - - - 0.49417cm - - - - - true - true - - - - - Otras Actividades - - - - - - - Textbox16 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - - Textbox22 - - - 2pt - 2pt - 2pt - 2pt - - - 2 - - - - - - - true - true - - - - - Documentos - - - - - - - Textbox33 - - - - Black - - 1pt - - - Black - - 1pt - - - Black - - 1pt - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - 2 - - - - - - - true - true - - - - - - - - - - - - Textbox39 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - - Textbox42 - - - 2pt - 2pt - 2pt - 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") @@ -1227,168 +532,38 @@ - 0.6cm + 0.17667cm - + true true - Cliente/Proveedor + - Textbox26 + Textbox32 + - - Black - - 1pt - - - Black - - 1pt - - - Black - - 1pt - - - Black - - 1pt - + Bottom 2pt 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Actividad - - - - - - - Textbox28 - - - - Black - - 1pt - - - Black - - 1pt - - - Black - - 1pt - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - 2 - - - - - - - true - true - - - - - a entregar - - - - - - - Textbox34 - - - - Black - - 1pt - - - Black - - 1pt - - - Black - - 1pt - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") @@ -1402,10 +577,9 @@ - a recibir + @@ -1417,32 +591,45 @@ Textbox37 + - - Black - - 1pt - - - Black - - 1pt - - - Black - - 1pt - - - Black - - 1pt - + Bottom 2pt 2pt - 2pt - 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + true + true + + + + + + + + + + + + Textbox39 + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") @@ -1456,249 +643,26 @@ - Hora + Textbox40 - - - - Black - - 1pt - - - Black - - 1pt - - - Black - - 1pt - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Dirección - - - - - - - Textbox43 - - - - Black - - 1pt - - - Black - - 1pt - - - Black - - 1pt - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.62646cm - - - - - true - true - - - - - - - - - - - - 1pt - + Bottom 2pt 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - 2 - - - - - - - true - true - - - - - - - - - - - - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - - - 1pt - - 2pt - 2pt - 2pt - 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") @@ -1714,11 +678,13 @@ - Textbox41 @@ -1726,49 +692,10 @@ - - - 1pt - + Bottom 2pt 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - - - 1pt - - 2pt - 2pt - 2pt - 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") @@ -1776,11 +703,11 @@ - 0.61448cm + 0.25604cm - + true true @@ -1789,34 +716,71 @@ - - Textbox45 + Textbox8 - - - 1pt - + Bottom 2pt 2pt - 2pt - 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") - + + true + true + + + + + CATALOGO + + + + =Fields!Codigo.Value + + + + + + + Codigo1 + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + true true @@ -1825,32 +789,99 @@ - - Textbox46 + Textbox13 - - - 1pt - + Bottom 2pt 2pt - 2pt - 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") - 2 - + + + + true + true + + + + + + + + + + + + Textbox16 + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + true + true + + + + + + + + + + + + Textbox17 + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + 0.2825cm + @@ -1862,11 +893,14 @@ - Textbox48 @@ -1874,199 +908,53 @@ - - - 1pt - + Bottom 2pt 2pt - 2pt - 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") - + true true - + FABRICANTE - - - - - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - + =Fields!Marca.Value - - Textbox50 + Marca - - - 1pt - + Bottom 2pt 2pt - 2pt - 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") - - - - true - true - - - - - - - - - - - - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.6cm - - - - - true - true - - - - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - 2 - - - @@ -2078,11 +966,13 @@ - Textbox55 @@ -2090,20 +980,17 @@ - - - + Bottom 2pt 2pt - 2pt - 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") - + true true @@ -2112,32 +999,31 @@ - - Textbox56 + Textbox59 - - - + Bottom 2pt 2pt - 2pt - 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") - + true true @@ -2146,59 +1032,24 @@ - - Textbox57 + Textbox60 - - - + Bottom 2pt 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") @@ -2206,11 +1057,11 @@ - 0.6cm + 0.2825cm - + true true @@ -2219,26 +1070,412 @@ - - Textbox18 + Textbox62 - - - + Bottom 2pt 2pt - 2pt - 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + true + true + + + + + LOTE + + + + =Fields!Lote.Value + + + + + + + Lote + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + true + true + + + + + + + + + + + + Textbox64 + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + true + true + + + + + + + + + + + + Textbox65 + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + true + true + + + + + + + + + + + + Textbox66 + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + 0.30896cm + + + + + true + true + + + + + + + + + + + + Textbox67 + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + true + true + + + + + CADUCIDAD + + + + = Format(Fields!FechaCaducidad.Value, "dd/MM/yyyy") + + + + + + + FechaCaducidad1 + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + true + true + + + + + + + + + + + + Textbox69 + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + true + true + + + + + + + + + + + + Textbox70 + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + true + true + + + + + + + + + + + + Textbox71 + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + 0.33542cm + + + + + true + true + + + + + + + + + + + + Textbox19 + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + true + true + + + + + + + + + + + + FechaCaducidad + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") @@ -2254,11 +1491,13 @@ - Textbox23 @@ -2266,151 +1505,77 @@ - - - + Bottom 2pt 2pt - 2pt - 2pt - - - 2 - - - - - - - true - true - - - - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") - + true true - + Sub Total - - Textbox29 + Textbox42 - - - + Bottom 2pt 2pt - 2pt - 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") - + true true - + =Sum(Fields!SubTotalVenta.Value, "DsInventarios") - - Textbox32 + Textbox43 - - - + Bottom 2pt 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") @@ -2418,11 +1583,11 @@ - 0.6cm + 0.33542cm - + true true @@ -2431,33 +1596,32 @@ - - Textbox47 + Textbox44 - - - + Bottom 2pt 2pt - 2pt - 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") - + true true @@ -2466,68 +1630,31 @@ - - Textbox54 + Textbox45 - - - + Bottom 2pt 2pt - 2pt - 2pt - - - 2 - - - - - - - true - true - - - - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") - + true true @@ -2536,66 +1663,103 @@ - - Textbox61 + Textbox46 - - - + Bottom 2pt 2pt - 2pt - 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") - + true true - + I.V.A. - - Textbox62 + Textbox49 - - - + Bottom 2pt 2pt - 2pt - 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") - + + true + true + + + + + =Sum(Fields!IVAVenta.Value, "DsInventarios") + + + + + + + Textbox50 + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + 0.33542cm + + + + true true @@ -2604,25 +1768,158 @@ - - Textbox63 + Textbox51 - - - + Bottom 2pt 2pt - 2pt - 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + true + true + + + + + + + + + + + + Textbox52 + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + true + true + + + + + + + + + + + + Textbox53 + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + true + true + + + + + Importe Total + + + + + + + Textbox56 + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + true + true + + + + + = Sum(Fields!SubTotalVenta.Value, "DsInventarios") + Sum(Fields!IVAVenta.Value, "DsInventarios") + + + + + + + Textbox57 + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") @@ -2638,27 +1935,40 @@ - - - - - - - - - + + After + + + + + + + + + + + + + + Before + + + Before + + + Before + - DataSet1 - 1.67096cm - 0.06868cm - 4.13511cm - 26.42468cm - 2 + DsInventarios + 0.14111cm + 0.10068cm + 3.1562cm + 25.45761cm @@ -2666,53 +1976,57 @@ - 2.35091in + 1.46482in - + true true - =Parameters!NombreEmpresa.Value + SMS SMART MEDICAL SOLUTIONS - Textbox1 - 0.11854cm - 6.54848cm - 0.6cm - 12.7441cm + Textbox2 + 0.07163cm + 8.55215cm + 0.38833cm + 8.54466cm 1 - + true true - REPORTE DE GESTIÓN DE COBRANZA + SSM1908213A0 +NEBRASKA 157, Col. NAPOLES +BENITO JUAREZ - + - + + + + - + true true - Fecha Inicio: + =Microsoft.VisualBasic.Interaction.iif(Parameters!CveConcepto.Value = 8, "REMISIÓN", "ENTRADA DE TRASLADO") - - - - - - - - =Parameters!FechaInicio.Value - - - - - - - - - Fecha Fin - - - - : - - - - - - - - - =Parameters!FechaFin.Value - @@ -2846,11 +2116,11 @@ - Textbox13 - 0.15382cm - 22.79155cm - 2.18834cm - 3.53188cm + Textbox2 + 0.07163cm + 18.69141cm + 0.38833cm + 6.81397cm 3 - - true - true - - - - - Cobrador: - - - - - - 2pt - 2pt - 2pt - 2pt - - true true @@ -2902,7 +2139,153 @@ - =IIF(Parameters!Cobrador.Value = "Todos", "",Parameters!Cobrador.Value) + Folio + + + + + + + Textbox12 + 0.88084cm + 21.17549cm + 0.44478cm + 4.32987cm + 4 + + + #9cc3e5 + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!Folio.Value + + + + + + + Textbox12 + 1.32562cm + 21.17549cm + 0.44478cm + 4.32987cm + 5 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Fecha + + + + + + + Textbox12 + 1.7704cm + 21.1755cm + 0.44478cm + 4.32987cm + 6 + + + #9cc3e5 + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!Fecha.Value + + + + + + + Textbox12 + 2.21518cm + 21.17549cm + 0.44478cm + 4.32987cm + 7 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =iif(Parameters!CveConcepto.Value = 8, "Carga Privada", " ") @@ -2911,12 +2294,74 @@ + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!Observaciones.Value + + + + + + + + + + =Parameters!Documentacion.Value + + + + @@ -2935,22 +2380,383 @@ - 0.74082cm + 3.8269cm true true - - 0.11437cm - 0.10583cm - 0cm - 26.38752cm + + true + true + + + + + =Parameters!ResponsableCarga.Value + + + + + + + Textbox21 + 1.37766cm + 5.68986cm + 0.50243cm + 5.79375cm + + =iif(Parameters!CveConcepto.Value = 9,true,false) + + + 2pt + 2pt + 2pt + 2pt - - + + + true + true + + + + + =Parameters!ResponsableRecibio.Value + + + + + + + Textbox21 + 1.37766cm + 14.40467cm + 0.50243cm + 5.78664cm + 1 + + =iif(Parameters!CveConcepto.Value = 9,true,false) + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + ___________________________ + + + + + + + + + Nombre y Firma + + + + + + + Textbox21 + 1.66375cm + 5.69781cm + 1.2cm + 5.78664cm + 2 + + =iif(Parameters!CveConcepto.Value = 9,true,false) + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + ___________________________ + + + + + + + + + Nombre y Firma + + + + + + + Textbox21 + 1.6632cm + 14.41177cm + 1.2cm + 5.78664cm + 3 + + =iif(Parameters!CveConcepto.Value = 9,true,false) + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Envió + + + + + + + Textbox22 + 0.07331cm + 5.69781cm + 0.6cm + 5.78664cm + 4 + + =iif(Parameters!CveConcepto.Value = 9,true,false) + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!Accion.Value + + + + + + + Textbox22 + 0.07331cm + 14.41177cm + 0.6cm + 5.78664cm + 5 + + =iif(Parameters!CveConcepto.Value = 9,true,false) + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =IIF(Parameters!NombreAccion.Value = "","",Parameters!NombreAccion.Value) + + + + Textbox21 + 0.45106cm + 10.04017cm + 0.63528cm + 5.78664cm + 6 + + =iif(Parameters!CveConcepto.Value = 8, True, False) + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + ___________________________ + + + + + + + + + Nombre y Firma + + + + + + + Textbox21 + 1.6632cm + 10.04727cm + 1.2cm + 5.78664cm + 7 + + =iif(Parameters!CveConcepto.Value = 8, True, False) + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!Accion.Value + + + + + + + Textbox22 + 0.07331cm + 10.04727cm + 0.6cm + 5.78664cm + 8 + + =iif(Parameters!CveConcepto.Value = 8, True, False) + + + + 2pt + 2pt + 2pt + 2pt + + + true true @@ -2959,51 +2765,32 @@ Usuario: + + + + - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - =Parameters!UsuarioImprimio.Value @@ -3014,60 +2801,34 @@ 2pt - + true true - Fecha Impresión: + Fecha Impresión: - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - =Parameters!FechaImpresion.Value @@ -3078,7 +2839,43 @@ 2pt - + + 0cm + 0.13678cm + 0cm + 20.28859cm + 11 + + + + + + 0cm + 0.13678cm + 0cm + 25.72414cm + 12 + + + + + + 3.26597cm + 0.10068cm + 0cm + 25.76024cm + 13 + + + + + true true @@ -3087,7 +2884,6 @@ ="Página " & Globals.PageNumber & " de " & Globals.TotalPages @@ -3097,12 +2893,12 @@ - Textbox3 - 0.22726cm - 22.91855cm - 0.36335cm - 3.40488cm - 5 + Textbox10 + 3.40709cm + 23.00537cm + 0.41981cm + 2.55292cm + 14 @@ -3122,8 +2918,8 @@ 21.59cm 27.94cm - 0.5cm - 0.5cm + 1cm + 1cm 0.5cm 0.5cm 0.13cm @@ -3132,49 +2928,85 @@ - + String true true ReportParameter1 - + String true true ReportParameter1 - + + DateTime + true + true + ReportParameter1 + + String true true ReportParameter1 - + String true true ReportParameter1 - + String true true ReportParameter1 - + String true true ReportParameter1 - + + Integer + true + true + ReportParameter1 + + String true true ReportParameter1 - + + String + true + true + ReportParameter1 + + + String + true + true + ReportParameter1 + + + String + true + true + ReportParameter1 + + + String + true + true + ReportParameter1 + + String true true @@ -3192,13 +3024,71 @@ true ReportParameter1 - + + String + true + true + ReportParameter1 + + + String + true + true + ReportParameter1 + + + String + true + true + ReportParameter1 + + + String + true + true + ReportParameter1 + + + String + true + true + ReportParameter1 + + + String + true + true + ReportParameter1 + + + String + true + true + ReportParameter1 + + String true true ReportParameter1 + + + image/png + iVBORw0KGgoAAAANSUhEUgAAAS4AAAC3CAYAAACsXrN8AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8YQUAAAAJcEhZcwAACxIAAAsSAdLdfvwAAB0CSURBVHhe7Z3djyXHWcaHG4S4sYU0s0qi4AjHIEXIu5sYLJDWWisXsGtHtjeeGaMIsUKQSNx4d7O7xt4Zz1o2/oDYWWMbGzlCi1AswwUziYlswOvdoAiZD6EVDmCHC+8fkItxUOByqae63jPVdd7qrj5d/XFmnp/0aqarq6urq6ueft/qOucsEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCJlH7rlh48bVxbXjK4trW6tLa1dWFtcvrO47d9jtJoSQcbG8uHHACNW11aX169O2dtFlI4SQcWA9raX17WnB8mxx/bzLTggh/XH0wc0Dd3118zDs6KnN40dObp6H3ferz7+lilVgd3/lr56WY3w7enLzgpZ+5NTmvXI+VwVCCJlmIk4nN09UCcmvPbj5KXfIAuazNKGasobzXb5Q+vVA3cI6EEL2CBj4oSiION3z4OaNLlstqcK1srR+wh3SCtQNdfS9PtSbQkbILkQGvHhTGPjYdrtnpniLqItVyTp8wwjvTIQMf7HtdhFC5hHxqiTEauJNpYAlEKpQlW3bZe8ceF7wwETE6IkRMidgsIoHksOrqsMI09VAqMpmxM1l7ZWwHYo3oDuhLdaauayEkKGwE9rGs+rb0/jCFy/eunLT4++XxAq2b/3HQ4lWCITr/p9/crqOXKpByDCIYCFEyh0K1oHzQSjx1y5EXVo/ATGAYN31u68/3Hd9qpgSLWtrV9xuQkgfTEKhAQRLwLljk+FIx363OTja6v7lTz522e0mhHSNFYyeQ8KQFGGCJzgWr2v5lidPh8J1751/ +siYeo8tGCGmLm1C+iJAGSw+O3f7sUTuPFfFy+kK8PbcZZSxel9T3i59+8u77f/GZ7658fONphLaybwxtSsiuwXgF5Td2+x7932N3vniT2z0I8E6aeClDe10QJF9k8ZbR/VtCvFh6X4S0AB5BSbTEBn5Th8HdJEQd0uvSzh0TLiCeWZPrI4R4xITLhDqPuiy9Y72SGUKqIbyumGBWCRcQj5LiRcgMYAAtf+L8h75orSytfXTXb7/+pcmiyh7FQLwRt9mIvr2uqvPVCZeAa51FpAnZs0CQMPCwuNOfnJcJZQDhspPKPXgH4oW0Ecq+vC60S5VIpgoXQDkoz20SQmKIaKWKkXhC4oW55KzkEMc+vK46obFi37CNZjmGkD1HG5HAAIOANRG+OlBWrpCpS68rpZ6zilDONiBk15FrgKAMCKANJRuUd3n/Q4dhbjO7l5S7PCG13dp4TxQvQhS6GNQSdooXFvN2Lh08c/6dA2e23zl49rrYm7c9/DSEz2XJRm6vq4mgNJnf0sgRMhOya5B5KrfZCRjc1gMz5/EH+qWDZy/4guXb3/zyI3/msmUjp0A3ES3QVrgguGi/rsJdQuaKLud+QiCS4oV99Tf+9AFNsHwzoWN2DyPH9YYCnEJb4QJ9PGQIGT1NvYacvPr5p57WxMq3tz97Nnu42MbrEq9nlpAth3CBnF4jIXPH0E9viJImVr5h/stlz8osXhfyQzBmES2QS7jArOJJyNwzdOe/vP/0AU2sfLu8/0wnnkVTr6WtaOF4iKXbbE3u8giZC8YSbrxz8MxVTbCsHTh7zWXrhFSvq61ogTZLIWIwZCR7jhwT1DnA5LsmXm9+7uEf/sUdjx1y2TohZeCjjXJ4pl0IF2DISPYMY3pSY9BBRP/88OOPXjp45iIMc1+nH3j11j4GZZWAi2jlEPiurgV1Y8hI9gRj8bYgoFXCgPS2IVodr37+qZPfue2RD4vQ9Mw2hPPy/gdvxDlziRbIOTEfgjZC +W7pNQnYfMiDd5iCIIKV4fciL+nYxMC/vP308DFFhf/+53//P3/rKN7+US7RAl8IFui6fkEEZ+ukswtm0DqlCl0oxtzYtWmJ/e9vDL7usWehaWLqaQyNkFAz5ZK4LDesIj/+vlxc+9eHXF2YqK+ZtiV06eDbrbx720e70usiuBAM/p9eSioR7Oc4tHtt/vPCTr/3gpYXrsA9eWmg8YGsXv2ZeitGHqNDrIrsSDPguJ7o1RGhynvft5245JKIl5nYlU7f49dLBM1sua2v6fGDQ6yK7jr47ddvQMMYHLy4caCtcENI3bn/k+5powfzvBWtLn54QBBLt7jYJmW/E83GbnZIzNNTAwHz72U//s4iWEbILblcS0haPH3vxJsxllUTrwNmPnj/ytW/kFNs+hQv15rousmvo60ncRWgo2JDLeI24FgxQeF6YoHe7kxAv0G1aEDbCwxIvC3WXc9gMLel73VxX7U9I7/QRJooo5B6k8FZEsFzSTNhyEssQAXabreg7RM9Zd0IGpcvBA6HCQGkrLCEiWDnCLNStaTnWw8twTX0LF+jhnPDocA4sG8Ecoxjexl40ltLWiABwfGhNQV20cppEGOGxTaYf8JAIj9cM7YI2q6qXdlxT2x0PLQiLNu/x3y8sHP7gpYUtzBHNuh5Knu45Q5OcggUgPrOGyW2OFQYRrgz1rgDX44tVzDCIqvoF7q92XNOHBfq2Vk5q/0E7hcduG0sltT18g8Br9dPyNrXe+1snQABCEcDckP9WzogXOlkj7ODIGBrmFizxBFsLT0sRGEK4Yg+rDMBr0AZLzCAAsbaLCRfO0YSrxrRyUvsRPBTt+NSH8SzCJRZ6R1qeprY7hEsbePC2fOGCuV1RjLgdx2LPf7jw8btzCALAAEP9cgoWkHJzeYJtvMohhGtlae3elU9sbK8urV/Hr5Cv7tvI0Q4xz6bOIF7awy0mXE28HVyXVgYstT/FxDg15GojXDDfw9T2N7VdIlzKwIHH +ZYRoW0SrzuOCYPki981n7jjqds2ECAu8gtwhTRfhq3hv+OuSktC83a5Z3XfuMAQrMHglbcB1Q1C0gZJimhcVEy5YqmhUiWlqu8c8ttR5rrbC5Qu7tr+p7V7hAvC6/uXCz3z70nM3v1E3xwVh84Vrlo/ZgC4FC0CsUH5TgUlhlrIHEa7F9fOKcF1fXtxo095VAoGHHvoDBjrmbrQ8sLDdqoQr9ZMLMdGBpbQ76qQdC0sV+5hwId23qrqKUIfHiGnHSLuH1mt/64y6UCUllAk9LiNkjQZB14IFUO4sXlETxJtzm7Xgmru63hjLNz/xiiZcLcNFDBJt8IRtgbaPDdAwb5VwweruY1WYCEsZwHV1SAHjJ/VYtIGWt06otWNqx+1ck0O4wA9eWDgBAXv/Jf2tD9LNfvuWUhaGQkQw0LsULICyIRJus1OanCu1bdsi3iDO94Xli19e3bf+o7JwrTV++RKgDZzYYEPbaPnDtqgTjboHBDw87TixFOFCnbRjxdqUEUMT9rp5vTA/rJe+NRi1wpXBKzBidbzskf3Ej37zzEu/B8HKOdekgVCsL9ESUtusS+HCQ8FeuzkHHg5+fRAWYlJ++ZPnr97/C09dvOeGjTZeaMyzqWpzLX/YFnXCVeeFVIWlsBTRiXmSYin3D3m0Y2PEwu4qtPyd9a1RUDd4cngr4RwYbOuPDj7gdncG6t33HJKQIl5dCBfOiQeCtZprbxraRogJTNW5tfxhW8TK9S0muGh3Lb9vKf2i7oVDylxbU+Hqqj13B5On7s1PXDOhQuVTt+0A04QLk/9udyeEXsYQoA5VHmUu4fJDQfxtMo+XoQ5dDbRYub7FRLcuTITV9b8U8UtZmoHr0o6N0VV7zj8QqdWldbuOx7PoW5K2nRvzW4Fwpb6RaYzMm3UdgqYgdYkJSZt2rQoFm5BBuGIDvG14niJcsX5UFybC6oRLC9m0cuvancKVi9XFteOBaBW275zaODmEwH2E6Dwm8Wf9 +CFEdGMzwOMYgWoJ4Q6F4IR3t6jaTgVilhoIpoJyYsDZAGzhNPs+nERvAoYX3OsVTgtW1nbbwVPPk6u4hhSsXTYXLDpYMg6RLRAjGJFqCL1L4Pnt8z9d3fumRq9++/dz3sG0zVSDHwzvCfcggNBMy3duYh9OmXByrlRkaPCOflDARVle38JoQFmp1qvsIUlPh4uR8DKzZMUIVhorbXc5zdQkGdtO5nb5BKDf5jcbA8HuNLtsE8R4lFOxKkDMJV+xjMTDsmyWMTRWuMFysm1AXq7pm9KMwvywZCdPrpj2aChfKC/NCRKsI88N2n3ABTM4bsboK0bKT9DUrp8cqXBAEDOwxixYw4nReEy0x8byskLhQsI+XC2g3nMttzkpKeIYBiWtMvU8x4dIGtoi6tkYsJmRVwqWVI/1fO3/VNTURrpi3WOfVacfsTuFqSqa5kKxgYMMrcZujBr8MpAmW2LduP/d+F6FgCpkeSlVel28QEuSt8yBjwqWFUlJ/rQ6xelUJlyY20s+wBCLc17QsGNLF4M1VvVCoKh9ox6BccuTUX99tPYEBBpaGDaPmRLSAJla+vXXbQ++6rL2TSbjQJ7RBXWVV540JFwQvTJNQSvOuNO8JViUG2sJT8X5R53Bf1XVo+ZtYyqcatONy3NP5BgJhwrGPjp7aum7t5NZ2H2FMDFufAc8/C+8cOLOtCZZY7h+ZbULmaQB4RKnzTLDYuWPCBbRwTRMICGmsnCrh0vILWnlV966NcOE6U5wE7VgKlxUqES1nR05u1U0YtgbLJrCMwl8+gfmseRMtgAl4TbDE8CO0LmvvdDB/ifuF66kKf3zTPOcq4Up9c4g5tabCpc3X+cKEawv3Q6hjzCpcOGeKaAHt+L0tXAgNQ9ESy/A2Kgo+32hs8p1g7/3xT73c5du1rrm8/8Eb417XmavY77L2TgfC5QNRqgshtYdglXBp4qIZ2rSpcGlzaOGaNE2QYw/TWYSrSgg1tDIoXJpowY6c +2noFnT5mONa3VNHRvoEV9t3nfva0yzKX4Lca//LQ+e8Z7+p/IFh/99mH/u+1Ox57Y0jRArhX7t8uwb2vErCwb1QJF6jz5nAu0FS4tMn8cK2ddh2x9Xgx4cL5YbE5uCbzt9rxe1u4gBGoq4pw1c7JhMIFjykUt9DwAuDNZz/zuiZc//j1j11DGShr7MsfQmQRaSje9s0orttck0vqHZzf/dsHsbd84UCNCY5QFy6KkMTKibV3ijeliRGuSyMmXD7anF2sPI3wWBiFC4MLQuWLVlvhwPG2zJObJTcc6ZeevfmiJlz4Pi8MfCuERuAmgndquG+BSKFov+q1ZnJNQ8zf9SxcEO6UgVYnXHXhorR1E+HCMbG8vmnhJMRHI0W4NBFuEi6Gx8IoXF2AyX0RwlB0YqEi5r1clhIY7ChjImQjEjPrUSUu24Cw2XobAetzLq9n4QIpAw33TsvnEwsXJUwEsXK0vhEL21JNezClCFdMhFPDRe1YClcX2CUNRrRMGPrDu05sHnLJE/zJefzFB7TdriQ0McN2nx4NrjFVtHwKb3TzuBZadsEcC1csXPQfcE2EKyYyqdakzBBNhFPDxfA4WN/3dO+Agfnrp791K/66pE6xQgYxESFzC2pzi8NEeFqKJOqFclDnqjCzLS2FC/cO852hVZEy0FKEK+ap+G3VRLhQby1vqmntmCpcbcLF8DgYhatrmoRTOYEYWC8M4uDEDP8jrUoo7A/mvrhw0XiCVzDv5n8poohNTjG03iPm9Dpqo5bClTowfbT8YR1ShAuEnoofJoImwqXla2KaYKe2TyxMTbnn2nEUrj7AoOwzjIsBwYFwxSb/sRjWiNW1cP4N4oX6Q7S68o6swENcM7aTCK3bnIXYwKyqo5Z/VuEKPZXwWlKFK+a9NTHNQ0oVLoDjw3wp4WJ4DIzC1Re5PZVcWI/HCBdE45U/uGcrFC3YuxcW/6kvr9EKaaY3kFaknSjPCIRCGzilt8UeqUISyxcS +Ck740Eg9n/amEN5cDPTTMD8svCdNhEtbKpISLobHwChcfWFDNzMg3eYosd/iqgjXv7/w0//qsvQC2koErI3YZxCumKeCQR+KCLa1NUuw8BpShQsgr1hIrJwwryYaYdgZonlIocfXRLhmDRe1YyhcfWLDoZ48l1moWKoR8zA6BQIGT3XWEBXClyG0jS1LwMBGu2AQQQRi+TTPJiY4TUkVLq1udYNfm8wPQ7smwoX7oOWtCxe1YyhcfQPhyjmPkxtMzAfCdbWr79FPxc7NYV7OtF0TIWo5MS/EwsVU07zsPoUrJhihuIVoohQuRG0iXED7OFFduBjmh1G4hmCs812C8bAOYIX/a88cWnNJo8DOxxkBSw3/MgkXmHUpgRZSgj6FKxai1T0AUo5rKlyxh0AYgvpo+SlcQyAhUIYwpjMyzA91BuqV8gYyo3DhPsXmr2IGTyJWvz6FSxMXLXwNiU3Q15UNi4F21PJXzbdp+SlcQ5HhVX2njFm4hKo3kB3UH4NOW0ipGUSuSlRjgtOUWDn+dWveYt3EvKBN0Pui0VS4QOwBEHuIa3kpXEMy5vmueRAuAK/VtqMLv1cW1y/gV53wQynLH9t4t+rXnWYEnggELBQEDEhMNKe8fME9x/GhNSVWjt+ntP2pD0y5Tt/8FzUoJ9wPqyJ2TGwcaHlH+8DfM4x1vmtehEtAG973K89/A4JVtjV0dEJITsY63zVvwgUgUtPCtQ5viBCSmzHOd82jcOE3NClchPQIvv7GiNf37dfhnNy6hnkbt2sQMPc2dB2asrK0dm8oWpjzcrtnpk7Etf14GEm6ZuJh46+2PzZ9YJeEmP0xDx33DG9T6+6d1C92HqnXWOdgyUgwHe2ifPmgtZNbdQvzsoAObs6Hb4A1Vvb6Mi4n6I3lzzz15eWfe+LfbNi4uJ6l/nJPtEGOgS37XZLFLtdw6ZpBFJDPioOy31rwDbrApNtv65XjBdy70rHG7BdaRoTH3Pctm8f0O5dU +wqsX5whJHHQQ11F2Op7pVPL0REcKLfa0TAVlhOfE8gK3ey6FCwO4bbuESNtogxxpst8lWTzhumLvYWBSR7kH1ss26RAr/yfzkGYLdKA8pOM4lyQPH1dH+xsKk76EbZdtArwp2R97QHp9g8JF4thOK50p6FASHoSGQSoDIdkQSjghNIPlrdI5C5t0VOR3/84FEIPQa8zBpG3MPfFDtJIAGHPJFrQd0urasLiP5Xa35ULA7PHl3/hEPqTjOJdkhKv4wRdfWH1PEPfbJVvs2je3T9sPtHoRMgU6KzoeBoftiB3NLfgiuNuEqwtvC/jt43ukoQC4ZEsb4QKFeDnPy+sLyIc0X7jc8VOhrNzrMH0idFJHxZOM1YuQwfE658TmNVTEINU8hxz47eN7QPjf3+eSLb4ooJ1987027x5MCQTSsA95XFKlcLnNSgqvdOc6RBz9OoGqehEyOOigZnBhotYMiGI9mfMkrqBzF/vG+9Ek0FWIKLgBbAe7/evC7eL/nd/ldNktIlya+aJTJRBIC/NH0my5brOSiZfoJv4hrMXx5farqhcho8J6LYEXIQYBc9lGhYhW6DHkZKcdJm/urhSCXkqLhIq2PSE2O+aFfn0L1+T+ujrsCHD5/lK4yNzgew+qKa/nhwSihYHXpWgBuX6cZzLvZNujeIEi2zazY0e4ZpvjAnI/cgkXxEryGrMi6t9zvx0pXGQukCdvnXUtEqkUA6ufj0rJteN/00476+2ckPv7hbbCJXNRYbnIh7SScDkxxT10SRZXV3iHNl3eVMas9OKBwkXGAgaD7ZBeqCLIQKszf8AMAc6PuvZZD7l2/O8LCv4P9wuzCheE2B6749mVhAPbSPevfyKm5hiIlA35PYGVekqYCIHC8WKTuhrvyxZoCOtFyCD4czFFJy2/ApfOW2f+gOmLYhAVa9aGOL9cu9ss6uOJf7gf1LWnXEdxbXoeCEnoUZr0KeGyYhcL88UrlDDRhbc+OF7yi8hV1Qvm +n5+QzvCe4J7tvEkKhS1mXYZm4hFi0PuGNBlQQyDX7jan0Pa3ES7zUNmCV6S1tdk/JVwAeXGMCFjxd+f+igcWPrAEnNOW68JFrV6+hecnJDuxTojB5bK4EEV/oygW6/RtsOc14U0x0Itf2na7CCF7nTqPC9hwQs1XPMFze1sQLDzhtTk3QgiZCgURGrhdJRCSwbMSAYMXBm8op2jZkHAOBQveoPVeE+ptQ7cK71HC4roQuCqf1MdtTrZjJvcw5dzY7/6dQq5Na4eqfQDp2F9VPiElbIe18yCbv+OSegd1gKeVUwi7BvWd8kTNtiboGJiliXLkMw+CMJ/MgfnhukZVPjmH25xsx0zEIlYm6mjq6hbWFobtUOCsMGG/ubbovvBtaNguztA2VQJKiGXIpx06KDy/eRItW2dPtMLB5w86DM5SXm/OEAPUZbNUCZJPVT4p223KxH1hrh6uvkWa84K0MgvR2rm2ct3L0wSeOOG6klbcl8rD/6U27eYzpmQXUTz5+u8odlAHc2rzgA1pMcAC78K+SHBv4AQM4mIg7gx0tLU2QKsEyacqn5TrNkuYdPXtI9DK9K9TBM72FSc4/rX6wmXL8a5LE67i3hd5/frg/7rrJ2RC351lKLHMgQxoiJJLiqINTmCOLZYieO2uiYdGVT45n9ssYdIbCZfkD8/jzY1OhMgTJ2sQNxFqb990fiOKLomQ5miDYFbQYdExbed0T2oB2xj48ypaoAhvi0FnB3xwjT5uwE4JiSYUWppGVb7Y+YBJn0m4wvwT0dGFy36DCP6XsrT8YJLPiLhWJ0Jq0QbBLECQIEzoiEWH3flGVqzYxn5/bmReMddRmrB2VvqWByD73OYE2x4m3W93LU2jKl/sfMCk9yJc3v/2Gye0/EDO6RtC6nl+qJGe0QZBEyBGNoSo8D52Gxhg/uS1tSD0kXS3OUETCi1Noypf7HzApPciXNg2bSOfi/SFrCRcAPvUh8Ae6kekBXWDpQp5M+hP +VO81MNBExHyPQQai25ygCYWWpiH5tK8Uip0PmPTehMs+yDCpjzI9EbOZI6D/TPIq10bIFHWDJYZ4Wrsh/GuLNmnvDd5S+IM8Nt1rd008NHbylX80A+dAOswllTDpMwlXWB/Ji/0uSRcz1x6eVQoX0MohJMosHtNeFS37csGIhi9GRVtMD/SJQBlvTNrXhtQymL2QSBMPDRwjxyOvPXfJ45v++TFg9jUSronwGPGVY6ywODHGfpvREBMcbLv00j57DSjXlOH3H9NeSd4ZIRZ0PK1DV7FXw0MZuDHz21EGqJYPg9Rls4h4xKxUblkQovl8zL5GwgVBmZrDc4Z0X3BQpttXFi5PZP19+N9LV2z+1veRAUDHi3V4DRuWmE7pNvcUxYA2nkEgSKEXJhTekPG8XH6bzxMIoYlwWS8r+PbS2PkFk6eRcAG5VpRtz2OuAdu+aIGYcAGvnqV9ONekXDGUr7QNISpNhMsNxOgA2UvA40S7pXqeXXioTc7fhq7OARHs6xrILiTlSWef9HtwXosQMlJShGuvzmsRQkZKnXAxRCSEjI4q4bLzEN7rb0IIGQVVwgVPa6++RSSEjJiYcDFEJISMlphwhaubCSFkNGhrubQ0QggZDaFIcUKeEDJ6QuHihDwhZPRgYal8uNX/nxBCRo1M0HOFPCFkboBwcfkDIWSuOHbgD9+979ALr3H5AyFkLlhdWruyurR+fXXf+o9X920wTCSEjJ+VpbV7rXAtrb+3vLjBt4mEkPGDpRDHDnztabdJCCHjp+pD1oQQMjrCxaeEEDJ66G0RQuYKeluEkLmD3hYhZK7gKnlCyFzg1mtdxZqt+2954r1jd754k9tFCCHjAyvijWBtu4Wmztamfn2YEEJGw8rS+omyaBXmdhNCyPjwPtZD4SKEzA9GqOz8ltjK4voFt4sQQsbJPTds3GhDxsX186uLa/yWU0IIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQ +QgghhBBCyJ5lYeH/Aev8eE4+mU6OAAAAAElFTkSuQmCC + + Cm - 2ec96151-d7c1-4609-bfdd-795b02d33b5a + 859971a9-970d-45f5-be4a-0f05a1eb9a33 \ No newline at end of file diff --git a/OS/OrdenesServicios.aspx.vb b/OS/OrdenesServicios.aspx.vb index f3c135e7f..23b51ac5d 100644 --- a/OS/OrdenesServicios.aspx.vb +++ b/OS/OrdenesServicios.aspx.vb @@ -682,7 +682,7 @@ Partial Class OS_OrdenesServicios DdlEstatusOS.SelectedValue = ObjOS.CveEstatusOrdenServicio.ToString 'If TipoEstatus = 2 Then - LnkTecnico.Visible = True + 'LnkTecnico.Visible = True 'End If If TipoEstatus = 3 Then From 886f18065e1e3a02b355b2cfa60ed7742ced3d8b Mon Sep 17 00:00:00 2001 From: rakcsle Date: Wed, 24 Jan 2024 12:52:23 -0700 Subject: [PATCH 20/31] SMS - 2024.01.23 Ventas validar existencia, agregar paciente y epsisodio --- App_Code/ClsVentas.vb | 15 ++++++++---- Ventas/Ventas.aspx | 14 ++++++++++++ Ventas/Ventas.aspx.vb | 53 +++++++++++++++++++++++++++++++++++++------ 3 files changed, 71 insertions(+), 11 deletions(-) diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb index cafaeaf55..3023bc09f 100644 --- a/App_Code/ClsVentas.vb +++ b/App_Code/ClsVentas.vb @@ -439,8 +439,7 @@ Public Class ClsVentas Optional CorreoNotificacion As String = "", Optional FormaPaqueteria As Integer = 1, Optional FacturarSucursal As Boolean = False, Optional VentaDesglosaIEPS As Boolean = False, Optional ServicioDomicilio As Boolean = False, Optional RFCReceptor As String = "", Optional Adjunto As String = "-1", Optional DevolucionImportePagado As Decimal = 0, Optional EsGarantia As Boolean = False, Optional CveLineaAdicional As Integer = -1, Optional DescripcionVenta As String = "", Optional CveMedico As Integer = -1, Optional CveProcedimiento As Integer = -1, Optional CveTipoVenta As Integer = -1, Optional RequiereOS As Boolean = False, - Optional FechaParaSurtir As DateTime = MinFecha - ) As Boolean + Optional FechaParaSurtir As DateTime = MinFecha, Optional Paciente As String = "-1", Optional Episodio As String = "-1") As Boolean Dim Retorno As Boolean = False DataAdapter("PA_VentasAdd") @@ -547,6 +546,9 @@ Public Class ClsVentas .Add("@RequiereOS", SqlDbType.Int).Value = RequiereOS .Add("@FechaParaSurtir", SqlDbType.DateTime).Value = If(FechaParaSurtir = MinFecha, Fecha, FechaParaSurtir) + .Add("@Paciente", SqlDbType.VarChar).Value = Paciente + .Add("@Episodio", SqlDbType.VarChar).Value = Episodio + .Add("@RETURN_VALUE", SqlDbType.Int).Direction = ParameterDirection.ReturnValue End With @@ -576,7 +578,8 @@ Public Class ClsVentas Optional AtencionA As String = "", Optional PedidoContrato As String = "", Optional CveFormaPago33 As Integer = -1, Optional CveMetodoPago33 As Integer = -1, Optional CveCliente As Integer = -1, Optional CveClienteSucursal As Integer = -1, Optional OrdenCompra As String = "-1", Optional RetIVA As Decimal = -1, Optional RetISR As Decimal = -1, Optional Kilometraje As Decimal = 0, Optional CveUsoCFDi As Integer = -1, Optional ServicioDomicilio As Boolean = False, Optional CveVendedor As Integer = -1, - Optional RequiereOS As Boolean = False, Optional CveMedico As Integer = -1, Optional CveProcedimiento As Integer = -1, Optional FechaParaSurtir As DateTime = MinFecha) As Boolean + Optional RequiereOS As Boolean = False, Optional CveMedico As Integer = -1, Optional CveProcedimiento As Integer = -1, Optional FechaParaSurtir As DateTime = MinFecha, + Optional Paciente As String = "-1", Optional Episodio As String = "-1") As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Vta_VentasUpdate") @@ -613,6 +616,8 @@ Public Class ClsVentas .Add("@CveMedico", SqlDbType.Int).Value = CveMedico .Add("@CveProcedimiento", SqlDbType.Int).Value = CveProcedimiento .Add("@FechaParaSurtir", SqlDbType.DateTime).Value = FechaParaSurtir + .Add("@Paciente", SqlDbType.VarChar).Value = Paciente + .Add("@Episodio", SqlDbType.VarChar).Value = Episodio End With Try @@ -627,7 +632,7 @@ Public Class ClsVentas Public Function UpdateObservacionesVenta(CveVenta As Integer, CveEmpresa As Integer, CveVendedor As Integer, Observaciones As String, FormaPaqueteria As Integer, CorreoNotificaciones As String, ObservacionesAlm As String, Pedido As String, OrdenCompra As String, FechaPago As String, CveUsoCFDI As Integer, Optional DescripcionVenta As String = "-1", Optional CveMedico As Integer = -1, Optional CveProcedimiento As Integer = -1, - Optional FechaParaSurtir As DateTime = MinFecha) As Boolean + Optional FechaParaSurtir As DateTime = MinFecha, Optional Paciente As String = "-1", Optional Episodio As String = "-1") As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Vta_VentasObservacionesUpdate") With SqlAdapter.SelectCommand.Parameters @@ -646,6 +651,8 @@ Public Class ClsVentas .Add("@CveMedico", SqlDbType.Int).Value = CveMedico .Add("@CveProcedimiento", SqlDbType.Int).Value = CveProcedimiento .Add("@FechaParaSurtir", SqlDbType.DateTime).Value = FechaParaSurtir + .Add("@Paciente", SqlDbType.VarChar).Value = Paciente + .Add("@Episodio", SqlDbType.VarChar).Value = Episodio End With Try diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx index 94b5a8d54..6288d471e 100644 --- a/Ventas/Ventas.aspx +++ b/Ventas/Ventas.aspx @@ -603,6 +603,20 @@ + + + Paciente: + + + + + + Episodio: + + + + +
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 5d31eacd1..dbcbea3a7 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -5876,13 +5876,21 @@ Partial Class Ventas CveTipoVenta = If(DbRowVenta("CveTipoVenta").ToString.ToEntero > 0, DbRowVenta("CveTipoVenta").ToString.ToEntero, -1) + TrVentasMedicas3.Visible = True + If DbRowVenta("CveMedico").ToString.ToEntero > 0 AndAlso CveTipoVenta.Contiene(1, 2, 3, 5) Then TrVentasMedicas1.Visible = True + DdlMedico.SelectedValueExist(DbRowVenta("CveMedico").ToString) DdlProcedimiento.SelectedValueExist(DbRowVenta("CveProcedimiento").ToString) + TxtPaciente.Text = DbRowVenta("Paciente").ToString + TxtEpisodio.Text = DbRowVenta("Episodio").ToString DdlMedico.Enabled = False DdlProcedimiento.Enabled = False + TxtPaciente.Enabled = False + TxtEpisodio.Enabled = False + If DbRowVenta("FechaParaSurtir").ToString().ToDate() > DateTime.MinValue Then TrVentasMedicas2.Visible = True @@ -13335,7 +13343,8 @@ Partial Class Ventas Kilometraje:=TxtKilometraje.Text.ToDouble, EsAmortizacion:=EsNCAmortizacion, CveTipoRetencion:=factura.CveTipoRetencion, CorreoNotificacion:=TxtCorreoNotificaciones.Text, FormaPaqueteria:=RblPaqueteria.SelectedValue.ToEntero, FacturarSucursal:=factura.FacturarSucursal, VentaDesglosaIEPS:=factura.VentaDesglosaIEPS, RFCReceptor:=RFCReceptor, Adjunto:=Adjunto, DevolucionImportePagado:=factura.DevolucionImportePagado, EsGarantia:=factura.EsGarantia, ServicioDomicilio:=TrServicioDomicilio.Visible, CveLineaAdicional:=DdlLineaAdicional.SelectedValue.ToEntero(), DescripcionVenta:=DescripcionVenta, - CveMedico:=CveMedico, CveProcedimiento:=CveProcedimiento, CveTipoVenta:=CveTipoVentaGuardar, RequiereOS:=ChkRequiereTecnico.Checked, FechaParaSurtir:=factura.FechaParaSurtir) Then + CveMedico:=CveMedico, CveProcedimiento:=CveProcedimiento, CveTipoVenta:=CveTipoVentaGuardar, RequiereOS:=ChkRequiereTecnico.Checked, FechaParaSurtir:=factura.FechaParaSurtir, + Paciente:=TxtPaciente.Text, Episodio:=TxtEpisodio.Text) Then ErrorList.Add("Ocurrió un error al Generar la Venta.
Revise su factura y cualquier detalle comuníquese a Soporte Técnico") Else If factura.TipoDocto.Contiene("Dev", "Egs") OrElse DtVentasNC IsNot Nothing OrElse CveEstatusRefacturacion > 0 OrElse CveAnticipoPadre > 0 Then @@ -17684,9 +17693,9 @@ Partial Class Ventas End If - If DdlTipoComprobante.SelectedValue <> "Cot" And ChkSinExistencia.Checked = False Then + If DdlTipoComprobante.SelectedValue <> "Cot" And ChkSinExistencia.Checked = False Or UsuarioActual.Empresa.Funcionalidad(578).ToEntero = 1 Then 'VALIDA EXISTENCIA - If UsuarioActual.CveEmpresa.Contiene({72, 80, 119, 153, 140}) Then + If UsuarioActual.CveEmpresa.Contiene({72, 80, 119, 153, 140, 186}) Then If CveVenta <= 0 OrElse Me.EsCreaApartirDe Then If Existencia - TmpDT.SUM("Cantidad", $"CvePS = {CvePS} AND (EntregaDirecta IS NULL OR EntregaDirecta < 1)") < TxtCantidad.Text.ToDouble Then Alert("No cuenta con la cantidad suficiente en inventario. Cuenta con " + Existencia.FormatoNumero(2) + ".", TipoMensaje.MsgAdvertencia) @@ -21670,6 +21679,8 @@ Partial Class Ventas TrVentasMedicas1.Visible = True DdlMedico.Enabled = True DdlProcedimiento.Enabled = True + TxtPaciente.Enabled = True + TxtEpisodio.Enabled = True End If @@ -21844,7 +21855,8 @@ Partial Class Ventas PedidoContrato:=TxtPedidoContrato.Text, AtencionA:=TxtAtencionA.Text.Trim, CveMetodoPago33:=DdlMetodoPago33.SelectedValue.ToEntero(), CveFormaPago33:=DdlFormaPago33.SelectedValue.ToEntero(), TipoDocto:=DdlTipoComprobante.SelectedValue, CveCliente:=CveCliente, CveClienteSucursal:=CveClienteSucursal, OrdenCompra:=TxtOrdenCompra.Text, RetIVA:=TxtRetIVA.Text.ToDecimal, RetISR:=TxtRetISR.Text.ToDecimal, Kilometraje:=TxtKilometraje.Text.ToDecimal, CveUsoCFDi:=DdlUsoCFDI.SelectedValue.ToEntero(), - CveVendedor:=DdlVendedor.SelectedValue.ToEntero(), ServicioDomicilio:=TrServicioDomicilio.Visible, CveMedico:=DdlMedico.SelectedValue.ToEntero, CveProcedimiento:=DdlProcedimiento.SelectedValue.ToEntero, FechaParaSurtir:=FechaParaSurtir) Then + CveVendedor:=DdlVendedor.SelectedValue.ToEntero(), ServicioDomicilio:=TrServicioDomicilio.Visible, CveMedico:=DdlMedico.SelectedValue.ToEntero, CveProcedimiento:=DdlProcedimiento.SelectedValue.ToEntero, + FechaParaSurtir:=FechaParaSurtir, Paciente:=TxtPaciente.Text, Episodio:=TxtEpisodio.Text) Then OcurrioError = True End If @@ -33679,6 +33691,8 @@ Partial Class Ventas TrVentasMedicas1.Visible = True DdlMedico.Enabled = True DdlProcedimiento.Enabled = True + TxtPaciente.Enabled = True + TxtEpisodio.Enabled = True End If If UsuarioActual.TienePermisoProceso(289) Then @@ -33735,7 +33749,8 @@ Partial Class Ventas If Not ObjVentas.UpdateObservacionesVenta(Me.CveVenta, UsuarioActual.CveEmpresa, DdlVendedor.SelectedValue.ToEntero(), TxtObsFact.Text, RblPaqueteria.SelectedValue.ToEntero(), TxtCorreoNotificaciones.Text, TxtObsAlmacen.Text, TxtPedidoContrato.Text, TxtOrdenCompra.Text, TxtFechaPago.Text, DdlUsoCFDI.SelectedValue.ToEntero, DescripcionVenta:=TxtDescripcionVenta.Text.Trim, - CveMedico:=DdlMedico.SelectedValue.ToEntero, CveProcedimiento:=DdlProcedimiento.SelectedValue.ToEntero, FechaParaSurtir:=FechaParaSurtir) Then + CveMedico:=DdlMedico.SelectedValue.ToEntero, CveProcedimiento:=DdlProcedimiento.SelectedValue.ToEntero, FechaParaSurtir:=FechaParaSurtir, Paciente:=TxtPaciente.Text, + Episodio:=TxtEpisodio.Text) Then TieneError = True End If @@ -36092,6 +36107,7 @@ Partial Class Ventas TrVentasMedicas1.Visible = True TrVentasMedicas2.Visible = True + TrVentasMedicas3.Visible = True For Each item As ListItem In RBLTipoVenta.Items item.Text = $"  {item.Text}" @@ -36172,7 +36188,7 @@ Partial Class Ventas TdFechaOS1.Visible = ChkRequiereTecnico.Checked - TdFechaOS2.Visible = ChkRequiereTecnico.Checked + UpCliente.Update() End Sub @@ -36339,6 +36355,27 @@ Partial Class Ventas End If End If + + + 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 + Dim CveClasificacion As Integer = GvRow.DataKey("CveClasificacion").ToEntero + Dim Clasificacion As String = GvRow.DataKey("Clasificacion").ToString + Dim CvePS As Integer = GvRow.DataKey("CvePS").ToEntero + + If Cantidad > 0 Then + + If Not ValidaAgregarPS(CvePS, CveUnidadMedida, PU, 2) Then + Alert("No hay existencia.", TipoMensaje.MsgAdvertencia) + Exit Sub + End If + + End If + Next + ChkRequiereTecnico.Checked = ChkRequiereTecnicoModal.Checked TxtFechaOS.Text = TxtFechaModal.Text @@ -36425,6 +36462,7 @@ Partial Class Ventas End If End If Next + If CountPsAgregados > 0 Then CalculaTotalesVenta() End If @@ -36492,7 +36530,8 @@ Partial Class Ventas 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, CveVentaOS, -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 + CveProcedimiento:=DdlProcedimiento.SelectedValue.ToEntero, CveTipoVenta:=RBLTipoVenta.SelectedValue.ToEntero, FechaCita:=TxtFechaOS.Text.Replace(",", "").ToDateTime, + Paciente:=TxtPaciente.Text, IdentificadorCliente:=TxtEpisodio.Text) Then CveOSVentaMedica = ObjOrdenServicio.CveOS Else errorList.Add("Se presento un error al guardar la orden de servicio.") From 87e5151a57ea4424c1e3a747c70290b3a4fcff66 Mon Sep 17 00:00:00 2001 From: rakcsle Date: Wed, 24 Jan 2024 16:15:34 -0700 Subject: [PATCH 21/31] SMS - 2024.01.23 OS en viar Solicitar paciente y Episodio --- App_Code/Modelos.vb | 5 ++++- OS/OrdenesServicios.aspx | 26 ++++++++++++++++++++++++-- OS/OrdenesServicios.aspx.vb | 26 ++++++++++++++++++++++++++ Ventas/Ventas.aspx.vb | 16 ++++++++++------ 4 files changed, 64 insertions(+), 9 deletions(-) diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb index 32bb6cb46..b9da573fd 100644 --- a/App_Code/Modelos.vb +++ b/App_Code/Modelos.vb @@ -2156,7 +2156,7 @@ Namespace Modelos CveMetodoPago33:=factura.CveMetodoPago33, CveUsoCFDI:=factura.CveUsoCFDI, OrdenCompra:=factura.OrdenCompra, CveCuentaTerminal:=factura.CveCuentaTerminal, CveTipoRelacion:=factura.CveTipoRelacion, ImpuestoLocal:=TotalImpuestoLocal, CveVentaRelacion:=(If(factura.CveVentaRelacion.ToEntero > 0, factura.CveVentaRelacion, -1)), ImporteRelacion:=(If(factura.ImporteRelacion <> Nothing, factura.ImporteRelacion, -1)), CveTipoAmortizacionAnticipo:=factura.CveTipoAmortizacionAnticipo, CveEmpresaCRM:=CveEmpresaCRM, EsInterno:=EsInterno, ServicioDomicilio:=factura.ServicioDomicilio, RFCReceptor:=RFCReceptor, EsGarantia:=factura.EsGarantia, DescripcionVenta:=factura.DescripcionVenta, - CveMedico:=factura.CveMedico, CveProcedimiento:=factura.CveProcedimiento, CveTipoVenta:=factura.CveTipoVenta, FechaParaSurtir:=factura.FechaParaSurtir) Then + CveMedico:=factura.CveMedico, CveProcedimiento:=factura.CveProcedimiento, CveTipoVenta:=factura.CveTipoVenta, FechaParaSurtir:=factura.FechaParaSurtir, Paciente:=factura.Paciente, Episodio:=factura.Episodio) Then ErrorList.Add("Ocurrió un error al Generar la Venta.
Revise su factura y cualquier detalle comuníquese a Soporte Técnico") @@ -7647,6 +7647,9 @@ Namespace Modelos Public Property CveProcedimiento As Integer = -1 Public Property Procedimiento As String = "" Public Property CveTipoVenta As Integer = -1 + + Public Property Paciente As String = "" + Public Property Episodio As String = "" #End Region End Class diff --git a/OS/OrdenesServicios.aspx b/OS/OrdenesServicios.aspx index c71349af8..676c2cced 100644 --- a/OS/OrdenesServicios.aspx +++ b/OS/OrdenesServicios.aspx @@ -1283,7 +1283,28 @@

Material Utilizado

-
+
+ +
+ +
+
+ + + +
+
+ +
+
+ + + +
+
+
@@ -1342,7 +1363,8 @@
- Guardar diff --git a/OS/OrdenesServicios.aspx.vb b/OS/OrdenesServicios.aspx.vb index 23b51ac5d..62bbef2f1 100644 --- a/OS/OrdenesServicios.aspx.vb +++ b/OS/OrdenesServicios.aspx.vb @@ -473,6 +473,9 @@ Partial Class OS_OrdenesServicios DVEpisodioPaciente.Visible = True + DvTxtPacienteModal.Visible = True + DvTxtEpisodioModal.Visible = True + If CveOS > 0 And TipoEstatus >= 3 Then DdlUsuarioAtendio.Enabled = True DVUsuarioAtendio3.Visible = True @@ -3023,6 +3026,12 @@ Partial Class OS_OrdenesServicios LnkModalMaterialUtilizado.Visible = False End If + If UsuarioActual.Empresa.Funcionalidad(578).ToEntero = 1 Then + TxtPacienteModal.Text = TxtPaciente.Text + TxtEpisodioModal.Text = TxtIdentificadorCliente.Text + + End If + UpModalMaterialUtilizado.Update() End Sub @@ -3038,6 +3047,21 @@ Partial Class OS_OrdenesServicios Protected Sub LnkModalMaterialUtilizado_Click(sender As Object, e As EventArgs) + + If UsuarioActual.Empresa.Funcionalidad(578).ToEntero = 1 Then + + If TxtPacienteModal.Text.Trim.Length = 0 Then + Alert("Debe de proporcionar el paciente.", TipoMensaje.MsgAdvertencia) + Exit Sub + End If + + If TxtEpisodioModal.Text.Trim.Length = 0 Then + Alert("Debe de proporcionar el episodio.", TipoMensaje.MsgAdvertencia) + Exit Sub + End If + + End If + Dim CveAlmacenActual As Integer = DTSolicitudDev.FiltroPrimeroValor("CveAlmacenActual").ToEntero Dim CveMoneda As Integer = DTSolicitudDev.FiltroPrimeroValor("CveMoneda").ToEntero Dim CveSubProyectoPedido As Integer = DTSolicitudDev.FiltroPrimeroValor("CveSubProyecto").ToEntero @@ -3307,6 +3331,8 @@ Partial Class OS_OrdenesServicios ObjFactura.FechaParaSurtir = TxtFechaCita.Text.ToDateTime ObjFactura.CveClienteSucursal = DdlSucursalCliente.SelectedValue.ToEntero ObjFactura.CveVentaRelacion = CveVentaPedido + ObjFactura.Paciente = TxtPacienteModal.Text.Trim + ObjFactura.Episodio = TxtEpisodioModal.Text.Trim For Each GvRow As GridViewRow In GvMU.Rows diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index dbcbea3a7..5886d1961 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -17605,7 +17605,7 @@ Partial Class Ventas Protected Sub LbAgregar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles LbAgregar.Click AgregarPS() End Sub - Private Function ValidaAgregarPS(CvePS As Integer, CveUM As Integer, PU As Double, CveTipoPS As Integer) As Boolean 'NO TOCAR - IPP + Private Function ValidaAgregarPS(CvePS As Integer, CveUM As Integer, PU As Double, CveTipoPS As Integer, Optional CantidadModal As Decimal = 0D, Optional PSValidarModal As String = "") As Boolean 'NO TOCAR - IPP 'VALIDA PARAMETROS If CvePS <= 0 Or CveUM <= 0 Then @@ -17613,6 +17613,10 @@ Partial Class Ventas Return False End If + If PSValidarModal.Trim.Length > 0 Then + HdnPS.Value = PSValidarModal + End If + If HdnPS.Value = "" Or HdnPS.Value = "-1" Then Alert("Es necesario seleccionar el Producto o Servicio a facturar.", TipoMensaje.MsgAdvertencia) Return False @@ -17697,7 +17701,7 @@ Partial Class Ventas 'VALIDA EXISTENCIA If UsuarioActual.CveEmpresa.Contiene({72, 80, 119, 153, 140, 186}) Then If CveVenta <= 0 OrElse Me.EsCreaApartirDe Then - If Existencia - TmpDT.SUM("Cantidad", $"CvePS = {CvePS} AND (EntregaDirecta IS NULL OR EntregaDirecta < 1)") < TxtCantidad.Text.ToDouble Then + If Existencia - TmpDT.SUM("Cantidad", $"CvePS = {CvePS} AND (EntregaDirecta IS NULL OR EntregaDirecta < 1)") < (If(CantidadModal > 0, CantidadModal, TxtCantidad.Text.ToDouble)) Then Alert("No cuenta con la cantidad suficiente en inventario. Cuenta con " + Existencia.FormatoNumero(2) + ".", TipoMensaje.MsgAdvertencia) Return False End If @@ -17712,7 +17716,7 @@ Partial Class Ventas 'SUMA LO YA RESTADO EN PENDIENTE POR SURTIR QUE PERTENESCA A LA VENTA. 'PARA QUE NO RESTE LA EXISTENCIA 2 VECES Y PUEDAS COMPARAR LO REAL - If (Existencia + CantidadVenta) - TmpDT.SUM("Cantidad", $"CvePS = {CvePS} And (EntregaDirecta Is NULL Or EntregaDirecta < 1)") < TxtCantidad.Text.ToDouble Then + If (Existencia + CantidadVenta) - TmpDT.SUM("Cantidad", $"CvePS = {CvePS} And (EntregaDirecta Is NULL Or EntregaDirecta < 1)") < (If(CantidadModal > 0, CantidadModal, TxtCantidad.Text.ToDouble)) Then Alert("No cuenta con la cantidad suficiente en inventario. Cuenta con " + Existencia.FormatoNumero(2) + ".", TipoMensaje.MsgAdvertencia) Return False End If @@ -36365,15 +36369,15 @@ Partial Class Ventas Dim CveClasificacion As Integer = GvRow.DataKey("CveClasificacion").ToEntero Dim Clasificacion As String = GvRow.DataKey("Clasificacion").ToString Dim CvePS As Integer = GvRow.DataKey("CvePS").ToEntero + Dim CodigoPS As String = GvRow.DataKey("CodigoPS") If Cantidad > 0 Then - - If Not ValidaAgregarPS(CvePS, CveUnidadMedida, PU, 2) Then + If Not ValidaAgregarPS(CvePS, CveUnidadMedida, PU, 2, Cantidad, CodigoPS) Then Alert("No hay existencia.", TipoMensaje.MsgAdvertencia) Exit Sub End If - End If + Next ChkRequiereTecnico.Checked = ChkRequiereTecnicoModal.Checked From ddd1b8058e00b41de6cd487705384be5ed6a93a9 Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 25 Jan 2024 07:23:28 -0700 Subject: [PATCH 22/31] - actualizar corte a venta --- App_Code/ClsVentas.vb | 17 +++++++++++++++++ 1 file changed, 17 insertions(+) diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb index cafaeaf55..4b2c5371e 100644 --- a/App_Code/ClsVentas.vb +++ b/App_Code/ClsVentas.vb @@ -6020,7 +6020,24 @@ Public Class ClsVentas End Function + Public Function UpdateVentaCorte(CveVenta As Integer, CveEmpresa As Integer, CveCorte As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Vta_VentaCorteUpdate") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveVenta", SqlDbType.Int).Value = CveVenta + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@CveCorte", SqlDbType.Int).Value = CveCorte + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al eliminar los datos de facturación.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return Retorno + + End Function #Region "TIPO VENTA" From 7334bfa575ed1f61db1ed0668dd4c3294a5f8cfe Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 25 Jan 2024 07:23:40 -0700 Subject: [PATCH 23/31] =?UTF-8?q?--=20mejora=20en=20recepci=C3=B3n=20de=20?= =?UTF-8?q?informaci=C3=B3n?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Ashx/E119.ashx | 69 ++++++++++++++++++++++++++++++++++++++++++-------- 1 file changed, 58 insertions(+), 11 deletions(-) diff --git a/Ashx/E119.ashx b/Ashx/E119.ashx index d9fc7099f..cbf1d3adf 100644 --- a/Ashx/E119.ashx +++ b/Ashx/E119.ashx @@ -379,6 +379,7 @@ Public Class E119 : Implements IHttpHandler Dim ObjInventario As New ClsInventarios(ObjClientes.IniciaTransacSQL()) Dim CveSubProyecto, CveCliente, CveMoneda, CvePS As Integer Dim Cantidad, PU, Descuento As Decimal + Dim CveDireccionEnvio As Integer = 0 Dim Obs As String = "" CveSubProyecto = 12659 ' fijo Ecommerce CveCliente = 0 @@ -388,8 +389,8 @@ Public Class E119 : Implements IHttpHandler Dim RFC As String = "" Dim NombreCliente As String = "" If JsonRequest("billing") IsNot Nothing Then - RFC = JsonRequest("billing").First("first_name").ToString() - NombreCliente = JsonRequest("billing").First("first_name").ToString() & " " & JsonRequest("billing").First("last_name").ToString() + RFC = JsonRequest("billing")("first_name").ToString() + NombreCliente = JsonRequest("billing")("first_name").ToString() & " " & JsonRequest("billing")("last_name").ToString() End If 'BUSCAR SI ESTÁ REGISTRADO EL CLIENTE @@ -407,16 +408,16 @@ Public Class E119 : Implements IHttpHandler MsgLog.AppendLine("1.5 crear cliente") If JsonRequest("billing") IsNot Nothing Then Dim CveEstado As Integer = -1 - Dim Direccion As String = If(JsonRequest("billing").First("address_1") Is Nothing, "", JsonRequest("billing").First("address_1").ToString()) + Dim Direccion As String = If(JsonRequest("billing")("address_1") Is Nothing, "", JsonRequest("billing")("address_1").ToString()) Dim NumExt As String = "" Dim NumInt As String = "" Dim Colonia As String = "" - Dim Ciudad As String = If(JsonRequest("billing").First("city") Is Nothing, "", JsonRequest("billing").First("city").ToString()) - Dim Localidad As String = If(JsonRequest("billing").First("city") Is Nothing, "", JsonRequest("billing").First("city").ToString()) - Dim CP As String = If(JsonRequest("billing").First("postcode") Is Nothing, "", JsonRequest("billing").First("postcode").ToString()) - Dim Telefono As String = If(JsonRequest("billing").First("phone") Is Nothing, "", JsonRequest("billing").First("phone").ToString()) - Dim Correo As String = If(JsonRequest("billing").First("email") Is Nothing, "", JsonRequest("billing").First("email").ToString()) - Dim Estado As String = If(JsonRequest("billing").First("state") Is Nothing, "", JsonRequest("billing").First("state").ToString()) + Dim Ciudad As String = If(JsonRequest("billing")("city") Is Nothing, "", JsonRequest("billing")("city").ToString()) + Dim Localidad As String = If(JsonRequest("billing")("city") Is Nothing, "", JsonRequest("billing")("city").ToString()) + Dim CP As String = If(JsonRequest("billing")("postcode") Is Nothing, "", JsonRequest("billing")("postcode").ToString()) + Dim Telefono As String = If(JsonRequest("billing")("phone") Is Nothing, "", JsonRequest("billing")("phone").ToString()) + Dim Correo As String = If(JsonRequest("billing")("email") Is Nothing, "", JsonRequest("billing")("email").ToString()) + Dim Estado As String = If(JsonRequest("billing")("state") Is Nothing, "", JsonRequest("billing")("state").ToString()) If Not String.IsNullOrEmpty(Estado) Then CveEstado = ClsPaginas.GlobalDTGralEstados("MEX").FiltroPrimeroValor("CveEstado", $"NombreEstado = '{Estado.Trim}'").ToEntero() If CveEstado <= 0 Then 'SI NO ENCUENTRA EL ESTADO INGRESA EL DE SONORA @@ -438,13 +439,58 @@ Public Class E119 : Implements IHttpHandler End If End If - ' shiping - 'shiping_lines/ method_id: free_shipping/local_pickup + If JsonRequest("shipping") IsNot Nothing AndAlso Not TieneError Then + Dim CveEstado As Integer = -1 + Dim Direccion As String = If(JsonRequest("shipping")("address_1") Is Nothing, "", JsonRequest("shipping")("address_1").ToString()) + Dim NumExt As String = "" + Dim NumInt As String = "" + Dim Colonia As String = "" + Dim Ciudad As String = If(JsonRequest("shipping")("city") Is Nothing, "", JsonRequest("shipping")("city").ToString()) + Dim Localidad As String = If(JsonRequest("shipping")("city") Is Nothing, "", JsonRequest("shipping")("city").ToString()) + Dim CP As String = If(JsonRequest("shipping")("postcode") Is Nothing, "", JsonRequest("shipping")("postcode").ToString()) + Dim Telefono As String = If(JsonRequest("shipping")("phone") Is Nothing, "", JsonRequest("shipping")("phone").ToString()) + Dim Correo As String = If(JsonRequest("shipping")("email") Is Nothing, "", JsonRequest("shipping")("email").ToString()) + Dim Estado As String = If(JsonRequest("shipping")("state") Is Nothing, "", JsonRequest("shipping")("state").ToString()) + If Not String.IsNullOrEmpty(Estado) Then + CveEstado = ClsPaginas.GlobalDTGralEstados("MEX").FiltroPrimeroValor("CveEstado", $"NombreEstado = '{Estado.Trim}'").ToEntero() + If CveEstado <= 0 Then 'SI NO ENCUENTRA EL ESTADO INGRESA EL DE SONORA + CveEstado = 26 + End If + Else + CveEstado = 26 + End If + + If ObjClientes.DireccionEnvioGet(-1, CveCliente, -1) Then + Dim dtt As DataTable = ObjClientes.DtResultados + If dtt IsNot Nothing AndAlso dtt.Rows.Count > 0 Then + dtt = dtt.FiltraParametros($"EnvioDireccion = '{Direccion}' and EnvioCP = '{CP}'") + If dtt.Rows.Count > 0 Then + CveDireccionEnvio = dtt.FiltroPrimeroValor("CveDireccionEnvio").ToEntero + End If + Else + CveDireccionEnvio = ObjClientes.DireccionEnvioAdd(CveCliente, Direccion, NumExt, NumInt, Colonia, Ciudad, Estado, CP, "", 100, 1) + End If + End If + + Else + MsgLog.AppendLine("1.5.9 sin datos cliente") + TieneError = True + Resp.Mensajes.Add("no existen datos del cliente") + End If MsgLog.AppendLine("1.6 inicio generar venta") ObjFactura = Modelos.Factura.CrearVentaNueva(Usuario, CveSubProyecto, CveCliente, CveMoneda, "Rem") MsgLog.AppendFormat("1.6.0 objeto creado {0}", If(ObjFactura IsNot Nothing, "si", "no")) + If JsonRequest("shiping_lines") IsNot Nothing Then + ' shiping + 'shiping_lines/ method_id: free_shipping/local_pickup + Dim Entrega As String = If(JsonRequest("shiping_lines")("method_id") Is Nothing, "", JsonRequest("shiping_lines")("method_id").ToString()) + ObjFactura.Alfa1 = Entrega + End If + + ObjFactura.CveDireccionEnvio = cvedireccionenvio + If JsonRequest("line_items") IsNot Nothing Then Dim ListaPS As JArray = JArray.Parse(JsonRequest("line_items").ToString()) Dim Consec As Integer = 1 @@ -471,6 +517,7 @@ Public Class E119 : Implements IHttpHandler Resp.Mensajes.Add("no existen productos definidos") End If + If ObjFactura IsNot Nothing AndAlso Not TieneError Then MsgLog.AppendLine("1.7 agregar la remision") Resp = ObjFactura.EmitirFactura(False, Transac:=ObjClientes.IniciaTransacSQL()) From 153ec58591ff5d701b02ca36e3b592a871fc15a6 Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 25 Jan 2024 07:24:55 -0700 Subject: [PATCH 24/31] -- option explcit --- Inicio.aspx.vb | 55 +++++++++++++++++++------------------------------- 1 file changed, 21 insertions(+), 34 deletions(-) diff --git a/Inicio.aspx.vb b/Inicio.aspx.vb index 3d9fb014f..dfd1d36e1 100644 --- a/Inicio.aspx.vb +++ b/Inicio.aspx.vb @@ -1,16 +1,10 @@ Imports System.Data -Imports System.Globalization Imports Extensiones Imports System.Web.Services Imports Newtonsoft.Json -Imports System.Drawing Imports ADSNetLibrary.SIGAPI.Models.CRM.Request Imports ADSNetLibrary.SIGAPI.Services.CRM -Imports Telerik.Web.UI.Scheduler.Views -Imports Microsoft.EntityFrameworkCore.Storage.ValueConversion.Internal - -'Imports System.Reflection -'Imports Telerik.Web.UI +Imports ADSNetLibrary.SIGAPI.Models.CRM.Response Partial Class Inicio Inherits ClsPaginas @@ -31,7 +25,7 @@ Partial Class Inicio theDataSet.ReadXml(theReader) If theDataSet.Tables(0).Rows(0)("Uuid").ToString() <> "null" Then - Dim sb = New StringBuilder() + Dim sb As New StringBuilder() For Each item As DataRow In theDataSet.Tables(0).Rows sb.AppendFormat("{0};", item("Uuid").ToString()) @@ -161,7 +155,7 @@ Partial Class Inicio If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso UsuarioActual.Empresa.UsaContabilidad Then Dim ObjPolizas As New ClsContPAQi(UsuarioActual.Empresa) If ObjPolizas.GetPolizasCuadre() And ObjPolizas.DtResultados.Rows.Count > 0 Then - Dim ObjNotificacion = ItemNotificaciones(String.Format("Polizas de cuadre {0}", ObjPolizas.DtResultados.Rows.Count), Ico:="icon-calculator", Tipo:="warning", Link:="/Contabilidad/RepPolizasCuadre.aspx") + Dim ObjNotificacion As String = ItemNotificaciones(String.Format("Polizas de cuadre {0}", ObjPolizas.DtResultados.Rows.Count), Ico:="icon-calculator", Tipo:="warning", Link:="/Contabilidad/RepPolizasCuadre.aspx") NotificacionesPendientes(ObjNotificacion) End If ObjPolizas.Dispose() @@ -172,7 +166,7 @@ Partial Class Inicio Dim OC As New ClsOC If OC.GetOrdenesPendientes("-1", 0, UsuarioActual.CveEmpresa, -1, -1, -1, UsuarioActual.CveUsuario, -1) Then If (OC.DtResultados.Rows.Count > 0) Then - Dim ObjNotificacion = ItemNotificaciones(String.Format("Orden de Compra por atender {0}", OC.DtResultados.Rows.Count), Ico:="fa fa-tags", Tipo:="warning", Link:="/OC/RepOC.aspx") + Dim ObjNotificacion As String = ItemNotificaciones(String.Format("Orden de Compra por atender {0}", OC.DtResultados.Rows.Count), Ico:="fa fa-tags", Tipo:="warning", Link:="/OC/RepOC.aspx") NotificacionesPendientes(ObjNotificacion) End If End If @@ -263,7 +257,7 @@ Partial Class Inicio If ObjProveedor.GetEvaluacionesProveedores(-1, -1, UsuarioActual.CveEmpresa) Then If ObjProveedor.DtResultados.COUNT("CveEvaluacionProveedor", $"Evaluado = 0 AND CveUsuario={UsuarioActual.CveUsuario}") > 0 Then Dim Mensaje As String = "Hay evaluaciones pendientes de proveedores. ¿Desea realizarlas ahora?" - Dim MsgAccionAceptar = "window.open(""/Compras/EvaluacionProveedor.aspx?CveProveedor=-1"");" + Dim MsgAccionAceptar As String = "window.open(""/Compras/EvaluacionProveedor.aspx?CveProveedor=-1"");" Alert(Mensaje, TipoMensaje.MsgConfirmacion, JSBtnAceptar:=MsgAccionAceptar, TextoConfirmacion:="    Si    ", TextoCancelacion:="    No    ") End If @@ -350,7 +344,7 @@ Partial Class Inicio Private Sub MuestraPsProximosAVencer() - Dim ObjInventarios = New ClsInventarios + Dim ObjInventarios As New ClsInventarios If ObjInventarios.GetProductosCaducidad(-1, MinFecha, NowADS().AddDays(30), -1, -1, -1, "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Opcion:=2, CveCompuesto:=-1) Then If ObjInventarios.DtResultados.Rows.Count > 0 Then @@ -359,11 +353,9 @@ Partial Class Inicio Else GvModalPSPorCaducar.DataSource = Nothing End If - Else GvModalPSPorCaducar.DataSource = Nothing End If - ObjInventarios.Dispose() GvModalPSPorCaducar.DataBind() @@ -772,10 +764,8 @@ Partial Class Inicio Private Sub CargaDdlAcercamientoCRM() DdlAcercamientoCRM.Items.Clear() - Dim cRMService = New CRMService(System.Configuration.ConfigurationManager.ConnectionStrings("Conexion").ConnectionString) - - - Dim aceramientoGet = New RequestAcercamiento(UsuarioActual.CveEmpresa, CveEmpresaCRM:=DdlEmpresaCRM.SelectedValue.ToEntero) + Dim cRMService As New CRMService(System.Configuration.ConfigurationManager.ConnectionStrings("Conexion").ConnectionString) + Dim aceramientoGet As New RequestAcercamiento(UsuarioActual.CveEmpresa, CveEmpresaCRM:=DdlEmpresaCRM.SelectedValue.ToEntero) Dim objAcercamiento = cRMService.GetAceracamientoCRM(aceramientoGet) If objAcercamiento.IsSuccess Then DdlAcercamientoCRM.DataSource = objAcercamiento.Result @@ -788,8 +778,8 @@ Partial Class Inicio Private Sub CargaDdlContactoCRM() DdlContactoCRM.Items.Clear() - Dim cRMService = New CRMService(System.Configuration.ConfigurationManager.ConnectionStrings("Conexion").ConnectionString) - Dim contactoEmpresaCRM = New RequestContactoEmpresaCRM(DdlEmpresaCRM.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, -1) + Dim cRMService As New CRMService(System.Configuration.ConfigurationManager.ConnectionStrings("Conexion").ConnectionString) + Dim contactoEmpresaCRM As New RequestContactoEmpresaCRM(DdlEmpresaCRM.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, -1) Dim objServicio = cRMService.GetContactosEmpresasCRM(contactoEmpresaCRM) If objServicio.IsSuccess Then @@ -818,13 +808,13 @@ Partial Class Inicio Protected Sub BtnGuardar_Click(sender As Object, e As EventArgs) Dim ObjEventos As New ClsOIEventos - Dim FechaInicio = TxtFechaInicioAgenda.Text.ToDateTime() - Dim FechaFin = TxtFechaFinAgenda.Text.ToDateTime() - Dim validacionesAgendaOpcionesOK = True + Dim FechaInicio As DateTime = TxtFechaInicioAgenda.Text.ToDateTime() + Dim FechaFin As DateTime = TxtFechaFinAgenda.Text.ToDateTime() + Dim validacionesAgendaOpcionesOK As Boolean = True RegistraScript("GetView();") - 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" If CheckRecurrencia.Checked Then RecurrenciaTipo = RBLRecurrencia.SelectedValue.ToEntero Frecuencia = TxtFrecuencia.Text.ToEntero @@ -832,7 +822,7 @@ Partial Class Inicio 'OBTENEMOS LOS DIAS SELECCIONADOS EN LA OPCION DE RECURRENCIA POR SEMANA Select Case RecurrenciaTipo Case 3 - Dim StringDias = "" + Dim StringDias As String = "" For Each item As ListItem In CheckDiasSemana.Items If item.Selected Then If StringDias.Length > 0 Then @@ -1022,8 +1012,8 @@ Partial Class Inicio Public Shared Function ActualizaEvento(ClsEvent As CalendarEvent) As String Dim ObjEventos As New ClsOIEventos - Dim FechaInicio = DateTimeOffset.Parse(ClsEvent.start).DateTime - Dim FechaFin = DateTimeOffset.Parse(ClsEvent.end).DateTime + Dim FechaInicio As DateTime = DateTimeOffset.Parse(ClsEvent.start).DateTime + Dim FechaFin As DateTime = DateTimeOffset.Parse(ClsEvent.end).DateTime If ObjEventos.UpdateEvento("-1", "-1", -1, -1, -1, FechaInicio, FechaFin, -1, "-1", ClsEvent.id) Then End If @@ -1162,7 +1152,7 @@ Partial Class Inicio If i = index Then serie.name = row(i).ToString() Else - Dim actual = row(i).ToString().ToDouble + Dim actual As Double = row(i).ToString().ToDouble serie.data.Add(actual) anterior = actual End If @@ -1450,7 +1440,7 @@ Partial Class Inicio If UsuarioActual.CveEmpresa = 140 Then DVDescargasBDH.Visible = True - Dim TmpDT = New DataTable() + Dim TmpDT As New DataTable() Dim ObjDoc As New ClsEdocumentacion If ObjDoc.DocumentacionGet(-1, -1, 1, UsuarioActual.Empresa.CveEmpresa, Modulo:=8) Then @@ -1541,8 +1531,8 @@ Partial Class Inicio Private Sub CargaDdlEmpresaCRM() - Dim cRMService = New CRMService(System.Configuration.ConfigurationManager.ConnectionStrings("Conexion").ConnectionString) - Dim parametros = New RequestEmpresasCRM(UsuarioActual.CveEmpresa, -1, CveMedioCaptacion:=-1) + Dim cRMService As New CRMService(System.Configuration.ConfigurationManager.ConnectionStrings("Conexion").ConnectionString) + Dim parametros As New RequestEmpresasCRM(UsuarioActual.CveEmpresa, -1, CveMedioCaptacion:=-1) Dim objServicio = cRMService.GetEmpresasCRM(parametros) If objServicio.IsSuccess Then @@ -1554,9 +1544,6 @@ Partial Class Inicio If objServicio.Result.Count > 0 Then DdlEmpresaCRM_SelectedIndexChanged(Nothing, Nothing) End If - - - End If End Sub From 40fc9eef9a4d8ab76c2f27b1755da35cd1ea373e Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 25 Jan 2024 07:25:05 -0700 Subject: [PATCH 25/31] cambio leyenda de 2023 a 2024 --- LogIn.aspx | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/LogIn.aspx b/LogIn.aspx index 0c13cbbea..89e2e8368 100644 --- a/LogIn.aspx +++ b/LogIn.aspx @@ -90,7 +90,7 @@
- 2023 © AD Sistemas. + 2024 © AD Sistemas.
<%--
Registrar From 9501d00a8883a115a51ac7f6131c1e833b7472cc Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 25 Jan 2024 07:25:45 -0700 Subject: [PATCH 26/31] -- mejora en registro de genero en rh_personal --- General/SaldosIniciales.aspx.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/General/SaldosIniciales.aspx.vb b/General/SaldosIniciales.aspx.vb index 1eacb145e..f8f696d38 100644 --- a/General/SaldosIniciales.aspx.vb +++ b/General/SaldosIniciales.aspx.vb @@ -3509,7 +3509,7 @@ Partial Class General_SaldosIniciales Dim CveSATRiesgoPuesto As Integer = 1 Dim CveJornada As Integer = 1 - If Sexo.ToUpper.Contains("Masculino") Then CveGenero = 1 Else CveGenero = 2 + If Sexo.ToUpper.Contiene("Masculino", "1: Masculino") Then CveGenero = 1 Else CveGenero = 2 If AltaIMSS.ToUpper.Contiene("SI", "1") Then AltaIMSS = "True" Else AltaIMSS = "False" myarraystr = EstadoCivil.Split(":"c) If (myarraystr.Length > 1) Then From b2f1c8d17f24de4f657b8a58368bbc09bb7cf66b Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 25 Jan 2024 07:26:03 -0700 Subject: [PATCH 27/31] -- mejora texto con acento --- Ventas/PVCobranza.aspx | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Ventas/PVCobranza.aspx b/Ventas/PVCobranza.aspx index e4e8fa634..29768698d 100644 --- a/Ventas/PVCobranza.aspx +++ b/Ventas/PVCobranza.aspx @@ -294,7 +294,7 @@ CssClass="ScrollAD table table-striped table-hover Widthall" data-heighterror="320" data-freezecols="0" data-freezerows="0" GridLines="None" DataKeyNames="CveVenta,TipoDocto,Saldo,DescripcionVenta"> - + From fc8ec5774a352d4b058815b774544b3e4f6305c6 Mon Sep 17 00:00:00 2001 From: rakcsle Date: Thu, 25 Jan 2024 08:47:40 -0700 Subject: [PATCH 28/31] SMS - 2024.01.23 Rep notas sin recibor almcen --- Inventarios/RepNotasSinAlmacen.aspx | 2 ++ Inventarios/RepNotasSinAlmacen.aspx.vb | 7 +++++++ 2 files changed, 9 insertions(+) diff --git a/Inventarios/RepNotasSinAlmacen.aspx b/Inventarios/RepNotasSinAlmacen.aspx index 29512fb09..5970fc15d 100644 --- a/Inventarios/RepNotasSinAlmacen.aspx +++ b/Inventarios/RepNotasSinAlmacen.aspx @@ -167,6 +167,7 @@ @@ -191,6 +192,7 @@ + diff --git a/Inventarios/RepNotasSinAlmacen.aspx.vb b/Inventarios/RepNotasSinAlmacen.aspx.vb index f9f62dee2..83b2321a0 100644 --- a/Inventarios/RepNotasSinAlmacen.aspx.vb +++ b/Inventarios/RepNotasSinAlmacen.aspx.vb @@ -324,6 +324,13 @@ Partial Class RepNotasSinAlmacen e.Row.Cells(2).Text = $"{e.Row.DBCampo("Fecha").ToDateTime.ToString("dd/MM/yyyy")}" End If + + + If e.Row.DataKey("EsDevolucionVenta").ToEntero = 1 Then + e.Row.FCHyperLink("lnkSurtir").Visible = False + e.Row.FCHyperLink("LnkRecibir").Visible = True + End If + End If End Sub End Class From eaf59534d18de1a02d0a04ed96c49b0f82395713 Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 25 Jan 2024 14:25:13 -0700 Subject: [PATCH 29/31] =?UTF-8?q?--=20visualizaci=C3=B3n=20de=20la=20OS?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Inventarios/EntradasSalidas.aspx | 8 ++++++++ Inventarios/EntradasSalidas.aspx.vb | 6 ++++++ 2 files changed, 14 insertions(+) diff --git a/Inventarios/EntradasSalidas.aspx b/Inventarios/EntradasSalidas.aspx index 7b0c3b044..7cd33263d 100644 --- a/Inventarios/EntradasSalidas.aspx +++ b/Inventarios/EntradasSalidas.aspx @@ -421,6 +421,14 @@
+
+ +
+ +
+
diff --git a/Inventarios/EntradasSalidas.aspx.vb b/Inventarios/EntradasSalidas.aspx.vb index 9f9985580..b1054773a 100644 --- a/Inventarios/EntradasSalidas.aspx.vb +++ b/Inventarios/EntradasSalidas.aspx.vb @@ -840,6 +840,12 @@ Partial Class Inventarios_EntradasSalidas LblFolioOrdenCorte.Text = DtMov.Rows(0)("FolioOrdendeCorte").ToString End If + If DtMov.Rows(0)("CveOS").ToString.ToEntero() > 0 Then + divOS.Visible = True + HplOS.Text = DtMov.Rows(0)("OSFolio").ToString + HplOS.NavigateUrl = $"/OS/OrdenesServicios.aspx?CveOS={DtMov.Rows(0)("CveOS")}" + End If + If (DdlAlmacen.Items.FindByValue(Mov.CveAlmacen.ToString()) Is Nothing) Then Dim dr As DataRow = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveEstatus:=-1).FiltroPrimero(String.Format("CveAlmacen = {0}", Mov.CveAlmacen)) From a0a820d94cdafee3709b2c79b15b952eb1116558 Mon Sep 17 00:00:00 2001 From: rakcsle Date: Thu, 25 Jan 2024 17:52:41 -0700 Subject: [PATCH 30/31] SMS - 2024.01.25 Ventas agregar Medico y procedimiento en modal --- App_Code/ClsVentas.vb | 11 +- OS/RepServicioDomicilio.aspx | 124 +---------------- UserControl/AddMedico.ascx | 197 +++++++++++++++++++++++++++ UserControl/AddMedico.ascx.vb | 187 +++++++++++++++++++++++++ UserControl/AddProcedimiento.ascx | 42 ++++++ UserControl/AddProcedimiento.ascx.vb | 81 +++++++++++ Ventas/CatMedicos.aspx | 6 +- Ventas/CatMedicos.aspx.vb | 55 ++++++-- Ventas/Ventas.aspx | 88 ++++++++---- Ventas/Ventas.aspx.vb | 57 +++++++- 10 files changed, 677 insertions(+), 171 deletions(-) create mode 100644 UserControl/AddMedico.ascx create mode 100644 UserControl/AddMedico.ascx.vb create mode 100644 UserControl/AddProcedimiento.ascx create mode 100644 UserControl/AddProcedimiento.ascx.vb diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb index 85ebb2554..d84a4c789 100644 --- a/App_Code/ClsVentas.vb +++ b/App_Code/ClsVentas.vb @@ -59,7 +59,7 @@ Public Class ClsVentas Public Property Neto As Double Public Property PorNeto As Double Public Property CveClasificacionDetalle As Integer - + Public Property CveMedicoNuevo As Integer = -1 #End Region @@ -6096,9 +6096,10 @@ Public Class ClsVentas Public Function AddMedico(Medico As String, CedulaProfesional As String, FechaNacimiento As Date, Notas As String, DiasAtencion As String, Horario As String, Lugar As String, Estatus As Boolean, CveUsuario As Integer, CveEmpresa As Integer, Telefono As String, Mail As String, CveMedicoEspecialidad As Integer, Celular As String, Consultorio As String, Optional CveMedicoSubEspecialidad As Integer = -1, - Optional Torre As String = "-1") As Boolean + Optional Torre As String = "-1") As Integer Dim Retorno As Boolean = False + CveMedicoNuevo = -1 DataAdapter("PA_Vta_MedicosAdd") With SqlAdapter.SelectCommand.Parameters @@ -6119,16 +6120,20 @@ Public Class ClsVentas .Add("@Consultorio", SqlDbType.VarChar).Value = Consultorio .Add("@CveMedicoSubEspecialidad", SqlDbType.Int).Value = CveMedicoSubEspecialidad .Add("@Torre", SqlDbType.VarChar).Value = Torre + .Add("@CveMedicoNuevo", SqlDbType.Int).Direction = ParameterDirection.Output + End With Try SqlAdapter.Fill(Data) + CveMedicoNuevo = SqlAdapter.SelectCommand.Parameters("@CveMedicoNuevo").Value.ToString.ToEntero Retorno = True Catch ex As Exception OnError("Ocurrió un error al guardar el Medico.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) End Try - Return Retorno + + Return CveMedicoNuevo End Function diff --git a/OS/RepServicioDomicilio.aspx b/OS/RepServicioDomicilio.aspx index bc80be8ec..e63fc3c5e 100644 --- a/OS/RepServicioDomicilio.aspx +++ b/OS/RepServicioDomicilio.aspx @@ -842,50 +842,12 @@ function selectDate(start, end, allDay) { - <%-- $('#ModalAgenda').modal('show'); - $("#SpanTituloAgenda").html("Agregar Evento"); - - $("#HdnCveEvento").val(-1); - - $("#DdlAgedaTipo").val("-1"); - $("#DdlPrioridad").val("1"); - - $("#TxtAsuntoAgenda").val(""); - $("#TxtDescripcionAgenda").val(""); - $("#TxtFechaInicioAgenda").val("" + start.format("DD/MM/YYYY 08:00")); - $("#TxtFechaFinAgenda").val("" + start.format("DD/MM/YYYY 09:00")); - - $("#UpRecurrencia").hide(); - $("#CheckRecurrencia").prop('checked', false); - - $get("HdnDiasSemanaAgendar").value = -1; - - $('#<%=RBLRecurrencia.ClientID %>').find("input[value='1']").prop("checked", true); - $('#<%=TrDiasSemanaAdd.ClientID %>').css("display", "none"); - $("#DivDescripcionUpdate").css("display", "none"); - $("#<%=TxtDescripcionAgenda.ClientID%>").css("display", "block"); - $('#<%=LblTextoFrecuencia.ClientID%>').html("Hora(s)"); - - $("#TxtFrecuencia").val("1"); - $("#TxtNumeroOcurrencias").val(""); - $("#TxtFechaFinRecurrencia").val(""); - - $("#ChkGastoRecurrente").prop('checked', false); - $("#TxtImporteGastoRecurrente").val("");--%> + } function updateEvent(event, element) { - - - - //$('#ModalAgenda').modal('show'); - - - // $get("HdnDiasSemanaAgendar").value = - - $('#<%=HFCveOS.ClientID%>').val(event.CveOS); @@ -895,89 +857,7 @@ $('#<%=HFOCveOIEvento.ClientID%>').val(event.id); $('#<%=LnkCommando.ClientID%>').click(); - -<%-- $("#DivDescripcionUpdate").css("display", "block"); - $("#<%=TxtDescripcionAgenda.ClientID%>").css("display", "none"); - $("#HdnCveEvento").val(event.id); - - $("#TxtNumeroOcurrencias").val(''); - $("#TxtFechaFinRecurrencia").val(''); - $("#TxtFrecuencia").val(''); - - $("#TxtAsuntoAgenda").val(event.title); - //SE MUESTRA EL TEXTO HTML EN EL DIV DE LA DESCRIPCION SIN PERMITIR EDITAR, - //SE ASIGNA -1 EN EL TEXBOX PARA QUE NO REALICE CAMBIOS EN BD - $("#DivDescripcionUpdate").html(event.description); - $("#TxtDescripcionAgenda").val("-1"); - - $("#DdlAgedaTipo").val(event.cveagendatipo); - $("#DdlPrioridad").val(event.prioridad); - $('#LblSubProyecto').text(event.SubProyecto); - $('#LblDireccion').text(event.Direccion); - - - - $("#TxtFechaInicioAgenda").val("" + event.start.format("DD/MM/YYYY HH:mm")); - - $("#TxtFechaFinAgenda").val("" + event.end.format("DD/MM/YYYY HH:mm")); - - //Identifica el tipo de Fecha Termino de la Recurrencia - if (event.recurrenciafin == 0) { - $("#TxtFrecuencia").val('0'); - } else if (!isNaN(event.recurrenciafin)) { - $("#RBNumeroOcurrencias").prop('checked', true); - $("#TxtNumeroOcurrencias").val(event.recurrenciafin); - } else { - $("#RBFechaFin").prop('checked', true); - $("#TxtFechaFinRecurrencia").val("" + event.recurrenciafin); - } - - //GASTO RECURRENTE - //Si el evento es tipo 10 = Gasto Mes, activa gasto recurrente - if (event.CveTipoEvento == 10) { - $("#ChkGastoRecurrente").prop('checked', true); - $("#TxtImporteGastoRecurrente").val(event.Importe); - } else { - $("#ChkGastoRecurrente").prop('checked', false); - $("#TxtImporteGastoRecurrente").val(''); - } - - //Verifica que hay Recurrencia para activar los campos y poner sus valores respectivos - if (event.recurrenciatipo > 0) { - $("#CheckRecurrencia").prop('checked', true); - - // CHECKEA EL TIPO DE RECURRENCIA QUE TENGA EL EVENTO - var text = event.recurrenciatipo; - var radio = $("[id*=RBLRecurrencia] label:contains('" + text + "')").closest("td").find("input"); - radio.attr("checked", "checked"); - - // CHECKEA LOS DIAS SELECCIONADOS DE LA RECURRENCIA DE SEMANA - $get("HdnDiasSemanaAgendar").value = event.diassemana; - - //LLENA TEXTO DE FRECUENCIA DE RECURRENCIA - $("#TxtFrecuencia").val("" + event.frecuencia); - } else { - $("#CheckRecurrencia").prop('checked', false); - } - - - //ESCONDE O MUESTRA EL DIV DE LAS OPCIONES DE RECURRENCIA - if ($get('CheckRecurrencia').checked) { - $("#UpRecurrencia").show(); - } else { - $("#UpRecurrencia").hide(); - } - - //LLAMA EL INDEXCHANGED DEL RADIOBUTTONLIST DE LOS TIPOS DE RECURRENCIA - $("#BtnActualizaAdd").click(); - - //Muestra nombre de la empresa si esta tarea sea asigno desde EmpresaCRM - if (event.EmpresaCRM != "") { - $("#<%=LblEmpresaCRM.ClientID%>").css("display", "") - $("#<%=LblEmpresaCRM.ClientID%>").text(event.EmpresaCRM); - } else { - $("#<%=LblEmpresaCRM.ClientID%>").css("display", "none") - }--%> + } function RadionButtonSelectedValueSet(name, SelectdValue) { diff --git a/UserControl/AddMedico.ascx b/UserControl/AddMedico.ascx new file mode 100644 index 000000000..754c018de --- /dev/null +++ b/UserControl/AddMedico.ascx @@ -0,0 +1,197 @@ +<%@ Control Language="VB" AutoEventWireup="false" CodeFile="AddMedico.ascx.vb" Inherits="UserControl_AddMedico" %> + +
+
+ + +
+ +

+ Agregar Médico

+
+
+
+
+ +
+ + + +
+ + +
+
+
+ + <%----%> + +
+
+
+
+ + +
+ + + + +
+ + + + + + + + +
+
+
+ +
+
+
+
+ +
+ +
+
+
+ + + +
+
+
+ +
+ + + +
+ +
+
+ + +
+
+
+ + + + +
+
+
+ +
+
+ + +
+
+
+ + +
+
+
+
+ + +
+
+
+ + +
+ + +
+ + +
+
+
+ + +
+
+
+
+ + +
+
+
+ + + + + +
+
+
+ + +
+
+
+
+ + +
+
+
+
+ + +
+
+
+ + + +
+ + +
+ + +
+
+
+ + +
+
+
+
+ + +
+
+
+ + + +
+
+
+ +
+ + +
+ + +
+
diff --git a/UserControl/AddMedico.ascx.vb b/UserControl/AddMedico.ascx.vb new file mode 100644 index 000000000..9cc57b4d1 --- /dev/null +++ b/UserControl/AddMedico.ascx.vb @@ -0,0 +1,187 @@ +Imports Extensiones + +Partial Class UserControl_AddMedico + Inherits System.Web.UI.UserControl + + Public ReadOnly Property UsuarioActual As Usuario + Get + If Context.Session("UsuarioSIG") Is Nothing Then + Return Nothing + Else + Return DirectCast(Context.Session("UsuarioSIG"), Usuario) + End If + End Get + End Property + + Public Property CveMedico As Integer + Get + If ViewState("CveMedico") Is Nothing Then + ViewState("CveMedico") = -1 + End If + Return ViewState("CveMedico").ToString.ToEntero + End Get + Set(value As Integer) + ViewState("CveMedico") = value + End Set + End Property + + Private Sub UserControl_AddMedico_Load(sender As Object, e As EventArgs) Handles Me.Load + + If Not Page.IsPostBack Then + CargaEspecialidad() + CargaSubEspecialidad(-1) + End If + End Sub + + + Sub CargaEspecialidad() + Dim ObjVentas As New ClsVentas + + If ObjVentas.GetMedicosEspecialidades(-1, UsuarioActual.CveEmpresa, -1) Then + DdlEspecialidad.DataSource = ObjVentas.DtResultados + Else + DdlEspecialidad.DataSource = Nothing + End If + + ObjVentas.Dispose() + + DdlEspecialidad.DataBind() + DdlEspecialidad.Items.Insert(0, New ListItem("Seleccione uno", "-1")) + + UpModal.Update() + + + End Sub + + + Sub CargaSubEspecialidad(CveMedicoEspecialidad As Integer) + Dim ObjVentas As New ClsVentas + + If ObjVentas.GetMedicosSubEspecialidades(-1, UsuarioActual.CveEmpresa, -1) Then + If CveMedicoEspecialidad > 0 Then + DdlSubEspecialidad.DataSource = ObjVentas.DtResultados.FiltraParametros($"CveMedicoEspecialidad = {CveMedicoEspecialidad}") + Else + DdlSubEspecialidad.DataSource = ObjVentas.DtResultados + End If + End If + + ObjVentas.Dispose() + + DdlSubEspecialidad.DataBind() + DdlSubEspecialidad.Items.Insert(0, New ListItem("Seleccione uno", "-1")) + UpModal.Update() + + End Sub + + Protected Sub DdlEspecialidad_SelectedIndexChanged(sender As Object, e As EventArgs) + CargaSubEspecialidad(DdlEspecialidad.SelectedValue.ToEntero) + End Sub + + + Public Sub LimpiarControles() + LbAgregar.Text = "Agregar" + LtlTituloModal.Text = "Agregar Médico" + + TxtMedico.Text = "" + TxtCedulaProfecional.Text = "" + TxtFechaNacimiento.Text = "" + TxtNotas.Text = "" + TxtDiasAtencion.Text = "" + TxtHorario.Text = "" + TxtLugar.Text = "" + TxtConsultorio.Text = "" + TxtMail.Text = "" + TxtTelefono.Text = "" + TxtCelular.Text = "" + DdlEspecialidad.SelectedValueExist(-1) + DdlSubEspecialidad.SelectedValueExist(-1) + TxtTorre.Text = "" + DVUsuarioFechaIng.Visible = False + TxtFechaIng.Text = "" + TxtUsuario.Text = "" + + + DVEstatus.Visible = False + ChkEstatus.Checked = True + + UpModal.Update() + CveMedico = -1 + End Sub + + Public Sub PreparaEdicion(CveMedicoEditar As Integer, Medico As String, CedulaProfecional As String, FechaNacimiento As Date, Notas As String, DiasAtencion As String, Horario As String, Lugar As String, Consultorio As String, Estatus As Boolean, + Mail As String, Telefono As String, Celular As String, CveMedicoEspecialidad As Integer, CveMedicoSubEspecialidad As Integer, Torre As String, FechaIng As DateTime, Usuario As String) + + + + CveMedico = CveMedicoEditar + + TxtMedico.Text = Medico + TxtCedulaProfecional.Text = CedulaProfecional + TxtFechaNacimiento.Text = FechaNacimiento.ToString("dd/MM/yyyy") + TxtNotas.Text = Notas + TxtDiasAtencion.Text = DiasAtencion + TxtHorario.Text = Horario + TxtLugar.Text = Lugar + TxtConsultorio.Text = Consultorio + ChkEstatus.Checked = Estatus + TxtMail.Text = Mail + TxtTelefono.Text = Telefono + TxtCelular.Text = Celular + DdlEspecialidad.SelectedValueExist(CveMedicoEspecialidad) + CargaSubEspecialidad(CveMedicoEspecialidad) + DdlSubEspecialidad.SelectedValueExist(CveMedicoSubEspecialidad) + TxtTorre.Text = Torre + + DVUsuarioFechaIng.Visible = True + TxtFechaIng.Text = FechaIng.ToString("dd/MM/yyyy hh:mm:ss tt") + TxtUsuario.Text = Usuario + + DVEstatus.Visible = True + LbAgregar.Text = "Actualizar" + LtlTituloModal.Text = $"Actualizar Médico {TxtCedulaProfecional.Text}" + + UpModal.Update() + + + End Sub + + Protected Sub LbAgregar_Click(sender As Object, e As System.EventArgs) Handles LbAgregar.Click + Dim ProcesoOK = False + Dim ObjVentas As New ClsVentas + Dim CveMedicoNuevo As Integer = -1 + + + Dim Telefono As String = If(TxtTelefono.Text = "(___) ___-____", "", TxtTelefono.Text) + Dim Celular As String = If(TxtCelular.Text = "(___) ___-____", "", TxtCelular.Text) + + If CveMedico > 0 Then + If ObjVentas.UpdateMedico(CveMedico, TxtMedico.Text.Trim, TxtCedulaProfecional.Text.Trim, TxtFechaNacimiento.Text.ToDate, TxtNotas.Text.Trim, TxtDiasAtencion.Text.Trim, TxtHorario.Text.Trim, TxtLugar.Text.Trim, ChkEstatus.Checked, + UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Telefono, TxtMail.Text, DdlEspecialidad.SelectedValue.ToEntero, Celular, TxtConsultorio.Text.Trim, DdlSubEspecialidad.SelectedValue.ToEntero, TxtTorre.Text.Trim) Then + ProcesoOK = True + End If + Else + + CveMedicoNuevo = ObjVentas.AddMedico(TxtMedico.Text.Trim, TxtCedulaProfecional.Text.Trim, TxtFechaNacimiento.Text.ToDate, TxtNotas.Text.Trim, TxtDiasAtencion.Text.Trim, TxtHorario.Text.Trim, TxtLugar.Text.Trim, ChkEstatus.Checked, UsuarioActual.CveUsuario, + UsuarioActual.CveEmpresa, Telefono, TxtMail.Text, DdlEspecialidad.SelectedValue.ToEntero, Celular, TxtConsultorio.Text.Trim, DdlSubEspecialidad.SelectedValue.ToEntero, TxtTorre.Text.Trim) + + If CveMedicoNuevo > 0 Then + ProcesoOK = True + End If + End If + + ObjVentas.Dispose() + + If ProcesoOK Then + ClsPaginas.Alert($"Medico {If(CveMedico > 0, "Actualizado", "Guardado")} Correctamente.") + Dim AppNombre As String = $"GlobalDTAgentes-{UsuarioActual.CveEmpresa}" + Application(AppNombre) = Nothing + RegistraScript($"fncRegargaMedicos({CveMedicoNuevo});") + RegistraScript("$('#BtnCancelarMedico').click();") + + End If + + + + End Sub + +End Class diff --git a/UserControl/AddProcedimiento.ascx b/UserControl/AddProcedimiento.ascx new file mode 100644 index 000000000..c828b5139 --- /dev/null +++ b/UserControl/AddProcedimiento.ascx @@ -0,0 +1,42 @@ +<%@ Control Language="VB" AutoEventWireup="false" CodeFile="AddProcedimiento.ascx.vb" Inherits="UserControl_AddProcedimiento" %> + +
+
+ + +
+ +

+ Agregar Procedimiento

+
+
+ +
+ + + +
+
+ + +
+
+ + +
+
+ + +
+ +
+ +
+ + +
+ + +
+
diff --git a/UserControl/AddProcedimiento.ascx.vb b/UserControl/AddProcedimiento.ascx.vb new file mode 100644 index 000000000..37b84465f --- /dev/null +++ b/UserControl/AddProcedimiento.ascx.vb @@ -0,0 +1,81 @@ +Imports Extensiones +Partial Class UserControl_AddProcedimiento + Inherits System.Web.UI.UserControl + + Public ReadOnly Property UsuarioActual As Usuario + Get + If Context.Session("UsuarioSIG") Is Nothing Then + Return Nothing + Else + Return DirectCast(Context.Session("UsuarioSIG"), Usuario) + End If + End Get + End Property + + Public Property CveProcedimiento As Integer + Get + If ViewState("CveProcedimiento") Is Nothing Then + ViewState("CveProcedimiento") = -1 + End If + Return ViewState("CveProcedimiento").ToString.ToEntero + End Get + Set(value As Integer) + ViewState("CveProcedimiento") = value + End Set + End Property + + + + Private Sub UserControl_AddProcedimiento_Load(sender As Object, e As EventArgs) Handles Me.Load + If Not Page.IsPostBack Then + + End If + End Sub + + + Protected Sub LbAgregar_Click(sender As Object, e As System.EventArgs) Handles LbAgregar.Click + Dim ProcesoOK = False + Dim ObjVentas As New ClsVentas + Dim CveProcedimientoNuevo As Integer = -1 + + If CveProcedimiento > 0 Then + If ObjVentas.UpdateProcedimiento(CveProcedimiento, TxtProcedimiento.Text.Trim, ChkEstatus.Checked, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then + 'Alert($"Procedimiento Actualizado Correctamente.") + ProcesoOK = True + End If + Else + + CveProcedimientoNuevo = ObjVentas.AddProcedimiento(TxtProcedimiento.Text.Trim, ChkEstatus.Checked, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) + If CveProcedimientoNuevo > 0 Then + ProcesoOK = True + 'TabProductos.Visible = True + 'TabVentas.Visible = True + 'LnkAgregarProducto.Visible = True + 'UpDatos.Update() + 'Alert($"Procedimiento Guardado Correctamente.") + End If + + End If + + ObjVentas.Dispose() + + If ProcesoOK Then + ClsPaginas.Alert($"Procedimiento {If(CveProcedimiento > 0, "Actualizado", "Guardado")} Correctamente.") + Dim AppNombre As String = $"GlobalDTProcedimientos-{UsuarioActual.CveEmpresa}" + Application(AppNombre) = Nothing + RegistraScript($"fncRegargaProcedimientos({CveProcedimientoNuevo});") + RegistraScript("$('#BtnCancelarProcedimiento').click();") + + End If + + + + End Sub + + Public Sub LimpiarControles() + TxtProcedimiento.Text = "" + ChkEstatus.Checked = True + UpModal.Update() + End Sub + +End Class diff --git a/Ventas/CatMedicos.aspx b/Ventas/CatMedicos.aspx index 7d6d9c0c2..61bf3be6f 100644 --- a/Ventas/CatMedicos.aspx +++ b/Ventas/CatMedicos.aspx @@ -312,7 +312,7 @@ - + <%-- @@ -372,7 +372,7 @@ - + --%> @@ -383,7 +383,7 @@