diff --git a/OS/OrdenesServicios.aspx b/OS/OrdenesServicios.aspx
index 807df5df5..4b9309df9 100644
--- a/OS/OrdenesServicios.aspx
+++ b/OS/OrdenesServicios.aspx
@@ -90,10 +90,10 @@
-
+
Fecha Recibido:
-
+
-
+
Tipo de Orden:
-
+
@@ -1344,17 +1344,13 @@
-
-
-
-
-
+
-
diff --git a/OS/OrdenesServicios.aspx.vb b/OS/OrdenesServicios.aspx.vb
index 84517bdd1..baf469c70 100644
--- a/OS/OrdenesServicios.aspx.vb
+++ b/OS/OrdenesServicios.aspx.vb
@@ -443,7 +443,6 @@ Partial Class OS_OrdenesServicios
DdlPsModalFinalizar.ddl.DataBind()
DdlPsModalFinalizar.ddl.Items.Insert(0, New ListItem("Seleccione el Producto", "-1"))
End If
-
End If
If UsuarioActual.Empresa.Funcionalidad(578).ToEntero = 1 Then
@@ -452,8 +451,10 @@ Partial Class OS_OrdenesServicios
DVTipoVenta1.Visible = True
DVTipoVenta2.Visible = True
- DvFechaRecivido1.Visible = False
- DvFechaRecivido2.Visible = False
+ DvFechaRecibido1.Visible = False
+ DvFechaRecibido2.Visible = False
+ divTipoOrden.Visible = False
+ divTipoOrden2.Visible = False
DVFechaCita1.Visible = True
DVFechaCita2.Visible = True
@@ -468,11 +469,8 @@ Partial Class OS_OrdenesServicios
DdlUsuarioAtendio.Enabled = True
DVUsuarioAtendio3.Visible = True
End If
-
End If
-
End If
-
End Sub
Private Sub CargaTiposVenta()
@@ -3206,6 +3204,12 @@ Partial Class OS_OrdenesServicios
Dim CveVentaDetalle As Integer = DtVentaDetalle.FiltroPrimeroValor("CveVentaDetalle", $"CveVentaDetallePadre = {GvRow.DataKey("CveVentaDetalle")}").ToEntero
Dim CveMovimientoDetalle As Integer = GvRow.DataKey("CveMovimientoDetalle").ToEntero
+ If CveVentaDetalle <= 0 Then
+ Alert("Error al agregar detalle de movimiento.", TipoMensaje.MsgAdvertencia)
+ ProcesoOK = False
+ Exit For
+ End If
+
Dim Serie As String = GvRow.DataKey("Serie")
Dim Lote As String = GvRow.DataKey("Lote")
Dim FechaCaducidad As DateTime = GvRow.DataKey("FechaCaducidad").ToDate
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index dbc9f6197..62670ddd6 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -5869,9 +5869,6 @@ Partial Class Ventas
BtnPermisoEditarRemision.Visible = True
End If
- If UsuarioActual.TienePermisoProceso(302) AndAlso DdlTipoComprobante.SelectedValue.Contiene("Rem", "Ped") Then BtnPermisoEditarRemision.Visible = True
- If UsuarioActual.TienePermisoProceso(302) AndAlso DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant", "Egs") Then BtnEditar.Visible = True
-
'si es de FNC contado. bloquear edición si está pagada o en proceso de cobro
If UsuarioActual.Empresa.Funcionalidad(109) = "1" AndAlso (DbRowVenta("CveCobranzaEstatus").ToString = "1" OrElse DbRowVenta("Saldo").ToString.ToDecimal = 0) Then
@@ -6020,6 +6017,9 @@ Partial Class Ventas
End If
End If
+ If UsuarioActual.TienePermisoProceso(302) AndAlso DdlTipoComprobante.SelectedValue.Contiene("Rem", "Ped") Then BtnPermisoEditarRemision.Visible = True
+ If UsuarioActual.TienePermisoProceso(302) AndAlso DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant", "Egs") Then BtnEditar.Visible = True
+
If UsuarioActual.Empresa.Funcionalidad(280) = "1" Then
RblPaqueteria.SelectedValue = If(DbRowVenta("FormaPaqueteria").ToString = "", "1", DbRowVenta("FormaPaqueteria").ToString)
RblPaqueteria.Enabled = False
@@ -11219,7 +11219,6 @@ Partial Class Ventas
ObjFacturaDevolucion.CveSucursalCobranza = DdlSucursalCobranza.SelectedValue.ToEntero()
If UsuarioActual.Empresa.Funcionalidad(578) = "1" AndAlso DvModalRequiereOSFecha.Visible Then
- ObjFacturaDevolucion.Alfa1 = TxtFechaOS.Text.Trim
ObjFacturaDevolucion.FechaEjecucion = TxtFechaOS.Text.Trim.ToDateTime
Else
ObjFacturaDevolucion.Alfa1 = TxtAlfa1.Text.Trim
@@ -12040,7 +12039,6 @@ Partial Class Ventas
ObjFactura.MonedaAbreviatura = ""
If UsuarioActual.Empresa.Funcionalidad(578) = "1" AndAlso DvModalRequiereOSFecha.Visible Then
- ObjFactura.Alfa1 = TxtFechaOS.Text.Trim
ObjFactura.FechaEjecucion = TxtFechaOS.Text.Trim.ToDateTime
ObjFactura.FechaParaSurtir = TxtFechaOS.Text.Trim.ToDateTime
Else
@@ -12718,7 +12716,6 @@ Partial Class Ventas
ObjFacturaDevolucion.MonedaAbreviatura = ""
If UsuarioActual.Empresa.Funcionalidad(578) = "1" AndAlso DvModalRequiereOSFecha.Visible Then
- ObjFacturaDevolucion.Alfa1 = TxtFechaOS.Text.Trim
ObjFacturaDevolucion.FechaEjecucion = TxtFechaOS.Text.Trim.ToDateTime
Else
ObjFacturaDevolucion.Alfa1 = TxtAlfa1.Text.Trim
@@ -13699,7 +13696,6 @@ Partial Class Ventas
ErrorList.Add("Ocurrió un error al seleccionar el almacen de resguardo del cliente.")
End If
End If
-
End If
Dim TotalImpuestoLocal As Double = 0