From e337e26c41553079d4444530643523052fc856fc Mon Sep 17 00:00:00 2001 From: Oscar Irigoyen Date: Sat, 31 Dec 2022 09:43:52 -0700 Subject: [PATCH] Compras error al refacturar Concepto 205, cambios Ordenes de servicio --- App_Code/modExtensiones.vb | 5 ++++ Compras/Compras.aspx.vb | 7 +++-- OS/OrdenesServicios.aspx | 12 ++++---- OS/OrdenesServicios.aspx.vb | 10 ++++++- OS/RepServicioDomicilio.aspx | 49 +++++++++++++++++++++++++-------- OS/RepServicioDomicilio.aspx.vb | 44 +++++++++++++++-------------- 6 files changed, 88 insertions(+), 39 deletions(-) diff --git a/App_Code/modExtensiones.vb b/App_Code/modExtensiones.vb index ef98beb14..d00ade5fd 100644 --- a/App_Code/modExtensiones.vb +++ b/App_Code/modExtensiones.vb @@ -1600,6 +1600,11 @@ Namespace Extensiones Public Function FCButton(ByVal Row As GridViewRow, ByVal Control As String) As Button Return DirectCast(Row.FindControl(Control), Button) + End Function + + + Public Function FCHtmlTableRow(ByVal Row As GridViewRow, ByVal Control As String) As HtmlTableRow + Return DirectCast(Row.FindControl(Control), HtmlTableRow) End Function diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 1c64d1b4d..70725c878 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -6606,9 +6606,12 @@ Partial Class Compras_Compras End If Else - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMN, Referencia, ConceptoContabilizacion, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then - ErrorPrepoliza = True + If Not CveCompraRefacturacion > 0 Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMN, Referencia, ConceptoContabilizacion, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then + ErrorPrepoliza = True + End If End If + End If Case 6 Concepto = $"{NombreProveedor} {TxtSerie.Text} - {TxtFolio.Text}" diff --git a/OS/OrdenesServicios.aspx b/OS/OrdenesServicios.aspx index b8c35cdef..c1e5907b2 100644 --- a/OS/OrdenesServicios.aspx +++ b/OS/OrdenesServicios.aspx @@ -361,7 +361,7 @@ CssClass="btn btn-circle btn-sm red" Text="" data-toggle="confirmation" data-popout="true" data-original-title="confirmar" data-btn-ok-label="si" /> - + @@ -1145,15 +1145,17 @@
+
+
+

Por favor especificar el producto instalado.

+
+
Producto:
-
- <%-- --%> - +
diff --git a/OS/OrdenesServicios.aspx.vb b/OS/OrdenesServicios.aspx.vb index 5d23007fe..e51c0bf5a 100644 --- a/OS/OrdenesServicios.aspx.vb +++ b/OS/OrdenesServicios.aspx.vb @@ -385,7 +385,7 @@ Partial Class OS_OrdenesServicios If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then - DivDetalles.Attributes.Add("style", "display:none") 'No se usa .visible = false pora que la llamada a updatepanel no cause errores de js en el cliente + 'DivDetalles.Attributes.Add("style", "display:none") 'No se usa .visible = false pora que la llamada a updatepanel no cause errores de js en el cliente TREstatus.Visible = False TREstatus2.Visible = If(TipoEstatus.Contiene(4, 5), False, True) @@ -1692,6 +1692,10 @@ Partial Class OS_OrdenesServicios objOrdenServicio.Dispose() + + + + End If End Sub Protected Sub GvPS_RowDataBound(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvPS.RowDataBound @@ -1743,6 +1747,10 @@ Partial Class OS_OrdenesServicios e.Row.FCLabel("LtlCuentaEquipoS").Visible = False End If + If UsuarioActual.Empresa.Funcionalidad(105) = "1" Then + e.Row.FCHtmlTableRow("TREspecificaiones").Visible = False + End If + End If End Sub Protected Sub GvPS_RowDeleting(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GvPS.RowDeleting diff --git a/OS/RepServicioDomicilio.aspx b/OS/RepServicioDomicilio.aspx index 08199dd8a..8d9eaa9d8 100644 --- a/OS/RepServicioDomicilio.aspx +++ b/OS/RepServicioDomicilio.aspx @@ -489,11 +489,19 @@
-
+
Cliente: - +
+ + +
+ + + +
+
@@ -582,11 +590,11 @@
-
-
-
-
+
+ + + <%--
@@ -594,20 +602,35 @@ - <%-- - --%> + +
--%> + + +
+
+ + +
+ + +
-
+ +
+ +
+ + + <%--
-
+
--%>
@@ -720,6 +743,8 @@ function updateEvent(event, element) { + + //$('#ModalAgenda').modal('show'); @@ -1037,6 +1062,8 @@ function InitCalendar() { $(document).ready(function () { Calendario(); + + $("#TxtModalFechaOS").val("" + start.format("DD/MM/YYYY 08:00")); }); } diff --git a/OS/RepServicioDomicilio.aspx.vb b/OS/RepServicioDomicilio.aspx.vb index 094f30b25..535c6e939 100644 --- a/OS/RepServicioDomicilio.aspx.vb +++ b/OS/RepServicioDomicilio.aspx.vb @@ -620,6 +620,7 @@ Partial Class OS_RepServicioDomicilio Private Sub LipiaModalOS() + TxtSolicito.Text = "" TxtDescripcion.Text = "" TxtFechaOS.Text = "" DdlSubProyectoOS.SelectedValueExist("-1") @@ -637,8 +638,8 @@ Partial Class OS_RepServicioDomicilio TxtAnio.Text = "" TxtModalFechaOS.Text = "" - TSTimeSelector.Hour = Now.Hour - TSTimeSelector.Minute = Now.Minute + 'TSTimeSelector.Hour = Now.Hour + 'TSTimeSelector.Minute = Now.Minute CveTecnicoAsignarOrioginal = -1 FechaInicioOriginal = DateTime.Now @@ -704,6 +705,7 @@ Partial Class OS_RepServicioDomicilio HFCveOS.Value = ObjOS.CveOS.ToString HFCveOsDetalle.Value = ObjOS.CveOSDetalle.ToString TxtDescripcion.Text = ObjOS.Descripcion + TxtSolicito.Text = ObjOS.PersonaSolicito TxtFechaOS.Text = ObjOS.FechaRecepcion.ToString("dd/MM/yyyy") DdlSubProyectoOS.SelectedValueExist(ObjOS.CveSubProyecto) TxtDireccion.Text = ObjOS.DtResultados.Rows(0)("DireccionOS").ToString @@ -722,10 +724,10 @@ Partial Class OS_RepServicioDomicilio DdlTecnicoAsignar.SelectedValueExist(ObjOS.CveUsuarioAtendio) CveTecnicoAsignarOrioginal = ObjOS.CveUsuarioAtendio FechaInicioOriginal = ObjOS.FechaInicio - TxtModalFechaOS.Text = ObjOS.FechaInicio.ToString.ToDate.ToString("dd/MM/yyyy") - TSTimeSelector.Hour = If(ObjOS.FechaInicio.Hour > 12, ObjOS.FechaInicio.Hour - 12, ObjOS.FechaInicio.Hour) - TSTimeSelector.Minute = ObjOS.FechaInicio.Minute - TSTimeSelector.AmPm = If(ObjOS.FechaInicio.Hour > 12, MKB.TimePicker.TimeSelector.AmPmSpec.PM, MKB.TimePicker.TimeSelector.AmPmSpec.AM) + TxtModalFechaOS.Text = ObjOS.FechaInicio.ToString.ToDate.ToString("dd/MM/yyyy hh:mm") + 'TSTimeSelector.Hour = If(ObjOS.FechaInicio.Hour > 12, ObjOS.FechaInicio.Hour - 12, ObjOS.FechaInicio.Hour) + 'TSTimeSelector.Minute = ObjOS.FechaInicio.Minute + 'TSTimeSelector.AmPm = If(ObjOS.FechaInicio.Hour > 12, MKB.TimePicker.TimeSelector.AmPmSpec.PM, MKB.TimePicker.TimeSelector.AmPmSpec.AM) End If RegistraScript("$('#DVModalOS').modal('show');") @@ -811,9 +813,6 @@ Partial Class OS_RepServicioDomicilio Dim ObjOS As New ClsOS ObjOS.IniciaTransacSQL() - - - If Not CveOS > 0 Then EsNueva = True @@ -823,12 +822,11 @@ Partial Class OS_RepServicioDomicilio CveEstatosOrdenNueva = CveEstatusAsiganada End If - If ObjOS.AddOrdenesServicios(CveCliente, DdlSubProyectoOS.SelectedValue.ToEntero, "", TxtFechaOS.Text.ToDateTime, TxtDescripcion.Text, UsuarioActual.CveUsuario, CveEstatosOrdenNueva, + If ObjOS.AddOrdenesServicios(CveCliente, DdlSubProyectoOS.SelectedValue.ToEntero, TxtSolicito.Text, TxtFechaOS.Text.ToDateTime, TxtDescripcion.Text, UsuarioActual.CveUsuario, CveEstatosOrdenNueva, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, CveOrdenServicioTipo, CveClienteSucursal:=-1, Direccion:=TxtDireccion.Text, Telefono:=TxtTelefono.Text, CveModeloAuto:=DdlModeloAuto.SelectedValue.ToEntero, Año:=TxtAnio.Text, Correo:=TxtEmail.Text) Then CveOS = ObjOS.CveOS - CveOsDetalle = ObjOS.AddOrdenesServiciosDetalle(CveOS, CvePSDetalle, 1, -1, -1, "", False, True, False, -1, "-1", "-1", "-1", "", UsuarioActual.CveUsuario, "") If Not CveOsDetalle > 0 Then @@ -850,13 +848,12 @@ Partial Class OS_RepServicioDomicilio CveEstatusOrden = CveEstatusAsiganada End If - CveOS = HFCveOS.Value.ToEntero CveOsDetalle = HFCveOsDetalle.Value.ToEntero If CveOS > 0 Then - If Not ObjOS.UpdateOrdenesServicios("", TxtFechaOS.Text, TxtDescripcion.Text, UsuarioActual.CveUsuario, CveEstatusOrden, CveOS, UsuarioActual.CveUsuario, + If Not ObjOS.UpdateOrdenesServicios(TxtSolicito.Text, TxtFechaOS.Text, TxtDescripcion.Text, UsuarioActual.CveUsuario, CveEstatusOrden, CveOS, UsuarioActual.CveUsuario, -1, CveClienteSucursal:=-1, Direccion:=TxtDireccion.Text, Telefono:=TxtTelefono.Text, CveModeloAuto:=DdlModeloAuto.SelectedValue.ToEntero, Año:=TxtAnio.Text, CveSubProyecto:=DdlSubProyectoOS.SelectedValue.ToEntero, Correo:=TxtEmail.Text) Then TieneError = True @@ -868,14 +865,14 @@ Partial Class OS_RepServicioDomicilio End If - Dim picker As MKB.TimePicker.TimeSelector = TSTimeSelector - Dim time As DateTime - time = DateTime.Parse(String.Format("{0} {1}:{2} {3}", TxtModalFechaOS.Text, picker.Hour, picker.Minute, picker.AmPm)) + 'Dim picker As MKB.TimePicker.TimeSelector = TSTimeSelector + 'Dim time As DateTime + 'time = DateTime.Parse(String.Format("{0} {1}:{2} {3}", TxtModalFechaOS.Text, picker.Hour, picker.Minute, picker.AmPm)) If Not TieneError AndAlso CveOS > 0 AndAlso CveOsDetalle > 0 AndAlso DdlTecnicoAsignar.SelectedValue.ToEntero > 0 AndAlso (HFCveUsuarioAtendio.Value.ToEntero <> DdlTecnicoAsignar.SelectedValue.ToEntero Or TxtModalFechaOS.Text.ToDate <> FechaInicioOriginal.ToString.ToDate Or - time <> FechaInicioOriginal) Then + TxtModalFechaOS.Text.ToDateTime() <> FechaInicioOriginal) Then @@ -884,7 +881,7 @@ Partial Class OS_RepServicioDomicilio subProyectoDelTecnico = ObjOS.DtResultados.FiltraParametros($"CveSubProyecto = {DdlSubProyectoOS.SelectedValue.ToEntero}") If subProyectoDelTecnico.Rows.Count > 0 Then - If Not ObjOS.UpdateOrdenesServiciosAsignadas(CveOsDetalle, DdlTecnicoAsignar.SelectedValue.ToEntero, TxtModalFechaOS.Text.ToDate, time, UsuarioActual.CveEmpresa) Then + If Not ObjOS.UpdateOrdenesServiciosAsignadas(CveOsDetalle, DdlTecnicoAsignar.SelectedValue.ToEntero, TxtModalFechaOS.Text.ToDate, TxtModalFechaOS.Text.ToDateTime(), UsuarioActual.CveEmpresa) Then TieneError = True End If Else @@ -917,7 +914,7 @@ Partial Class OS_RepServicioDomicilio Dim RecurrenciaTipo = 0, Frecuencia = -1, DiasSemana = "-1", Dias = -1, Mes = -1, RecurrenciaFin = "-1" Dim OIDescripcion As String = $"{DdlTecnicoAsignar.SelectedItem.Text} Orden de servicio {FolioAsignar} " - If Not ObjEventos.AddEventoAgenda(2, DdlTecnicoAsignar.SelectedItem.Text, OIDescripcion, 2, time, time.AddHours(1), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, + If Not ObjEventos.AddEventoAgenda(2, DdlTecnicoAsignar.SelectedItem.Text, OIDescripcion, 2, TxtModalFechaOS.Text.ToDateTime(), TxtModalFechaOS.Text.ToDateTime().AddHours(1), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, RecurrenciaTipo:=RecurrenciaTipo, Frecuencia:=Frecuencia, DiasSemana:=DiasSemana, Dia:=Dias, Mes:=Mes, RecurrenciaFin:=RecurrenciaFin, CveTipoEvento:=2, Importe:=0, CveOS:=CveOS, CveSubProyecto:=DdlSubProyectoOS.SelectedValue.ToEntero) Then TieneError = True @@ -950,7 +947,14 @@ Partial Class OS_RepServicioDomicilio ConsultaOrdenesServiciosNoAsignadas() CargaOrdenesServiciosNoAsignadas() - Alert("Orden asignada correctamente.") + If TipoAccion = OSModalTipoAccion.Asignacion Then + Alert("Orden asignada correctamente.") + ElseIf TipoAccion = OSModalTipoAccion.Agregar Then + Alert("Orden Guardada correctamente.") + ElseIf TipoAccion = OSModalTipoAccion.Actualizacion Then + Alert("Orden actualizada correctamente.") + End If + RegistraScript("$('#DVModalOS').modal('hide');Calendario();") End If