diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb index 14c72baf3..cafaeaf55 100644 --- a/App_Code/ClsVentas.vb +++ b/App_Code/ClsVentas.vb @@ -1419,7 +1419,7 @@ Public Class ClsVentas Optional CveContratoDetalle As Integer = -1, Optional PorcentajeIVA As Decimal = 0, Optional IEPS As Decimal = -1, Optional PorcentajeIEPS As Double = 0, Optional CvePromocionDetalle As Integer = -1, Optional CveMovimientoDetallePedido As Integer = -1, Optional ImporteRetIVA As Decimal = 0, Optional PorcentajeRetIVA As Double = 0, Optional ImporteRetISR As Decimal = 0, Optional PorcentajeRetISR As Decimal = 0, Optional CuentaPredial As String = "", Optional CvePrecioLista As Integer = -1, Optional CveActivoFijo As Integer = -1, - Optional NumTurnos As Decimal = 0D, Optional EstatusAlmacen As Integer = 0) As Boolean + Optional NumTurnos As Decimal = 0D, Optional EstatusAlmacen As Integer = 0, Optional CantidadConversion As Decimal = 0) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_VentasDetalleAdd") @@ -1453,6 +1453,7 @@ Public Class ClsVentas .Add("@CveActivoFijo", SqlDbType.Int).Value = CveActivoFijo .Add("@NumTurnos", SqlDbType.Decimal).Value = NumTurnos .Add("@EstatusAlmacen", SqlDbType.Int).Value = EstatusAlmacen + .Add("@CantidadConversion", SqlDbType.Decimal).Value = CantidadConversion End With Try diff --git a/Empresas/13/Formatos/CartaPorteTimbrado.rdlc b/Empresas/13/Formatos/CartaPorteTimbrado.rdlc index 4f6a520d8..cf3392514 100644 --- a/Empresas/13/Formatos/CartaPorteTimbrado.rdlc +++ b/Empresas/13/Formatos/CartaPorteTimbrado.rdlc @@ -1563,7 +1563,7 @@ 7.59855cm 0.06623cm 0.82958cm - 20.31433cm + 20.31432cm 4 + + true + true + + + + + Carta Porte 3.0 + + + + + + + Textbox3 + 2.27425cm + 16.42665cm + 0.5cm + 1.52986in + 19 + + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + 7.00495in @@ -388,24 +392,19 @@ =IIf(rownumber(nothing) = 1, "2pt", "0pt") + true - + true true - =Fields!PS.Value - - - - + =Fields!PSAlterno.Value @@ -416,7 +415,7 @@ - Codigo + PSAlterno @@ -533,6 +532,177 @@ + + 0.17667cm + + + + + true + true + + + + + + + + + + + + Textbox32 + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + true + true + + + + + + + + + + + + Textbox37 + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + true + true + + + + + + + + + + + + Textbox39 + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + true + true + + + + + + + + + + + + Textbox40 + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + true + true + + + + + + + + + + + + Textbox41 + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + 0.25604cm @@ -578,6 +748,12 @@ + + CATALOGO + + =Fields!Codigo.Value @@ -927,7 +1103,7 @@ - Lote + LOTE @@ -1104,7 +1280,7 @@ - Caducidad + CADUCIDAD @@ -1775,6 +1951,7 @@ + @@ -1791,7 +1968,7 @@ DsInventarios 0.14111cm 0.10068cm - 2.97953cm + 3.1562cm 25.45761cm - 1.29815in + 1.46482in + 0cm 0.13678cm 0cm 20.28859cm @@ -2652,6 +2830,7 @@ CIUDAD DE MEXICO + 0cm 0.13678cm 0cm 25.72414cm diff --git a/Inventarios/EntregaAlmacen.aspx b/Inventarios/EntregaAlmacen.aspx index 4f63bc076..719c8b22f 100644 --- a/Inventarios/EntregaAlmacen.aspx +++ b/Inventarios/EntregaAlmacen.aspx @@ -86,10 +86,10 @@
- +
- @@ -315,16 +315,16 @@
- - - Ventas por surtir - - - - - - -   + + + Ventas por surtir + + + + + + +  
@@ -333,7 +333,7 @@
- + " style="display: inline-block; margin-right: -20px; width: 70px;" /> " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info">   @@ -545,7 +545,15 @@ - +<%-- --%> + + + + + + + + diff --git a/Inventarios/EntregaAlmacen.aspx.vb b/Inventarios/EntregaAlmacen.aspx.vb index 8839f7004..237f1b558 100644 --- a/Inventarios/EntregaAlmacen.aspx.vb +++ b/Inventarios/EntregaAlmacen.aspx.vb @@ -434,16 +434,16 @@ Partial Class Inventarios_EntregaAlmacen CveVentaAD = -1 - If UsuarioActual.CveUsuario <> 100 Then - Exit Sub - End If + 'If UsuarioActual.CveUsuario <> 100 Then + ' Exit Sub + 'End If If Not IsNothing(Request("CveVenta")) AndAlso IsNumeric(Request("CveVenta")) Then CveVentaAD = Request("CveVenta").ToEntero() CargaVentaPorSurtir(Request("CveVenta").ToEntero()) - LbSurtida.Visible = True - LbSurtida.Text = "SOLO MODO VISUAL" - BtnGuardar.Visible = False + 'LbSurtida.Visible = True + 'LbSurtida.Text = "SOLO MODO VISUAL" + 'BtnGuardar.Visible = False End If End Sub @@ -1015,9 +1015,31 @@ Partial Class Inventarios_EntregaAlmacen End Sub Protected Sub GvDatos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvDatos.RowDataBound + If e.Row.RowType = DataControlRowType.Header Then + + If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then + If DtDatos IsNot Nothing Then + If DtDatos.MAX("EsPaquete") = "True" Then + e.Row.FCLiteral("LtlHeaderPS").Text = "Paquete" + Else + e.Row.FCLiteral("LtlHeaderPS").Text = "Producto" + End If + End If + End If + + End If + If e.Row.RowType = DataControlRowType.DataRow Then - + If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then + If e.Row.DBCampo("EsPaquete") = "True" Then + e.Row.FCHyperLink("HplPS").NavigateUrl = $"/Inventarios/PaquetesArmadoDesarmado.aspx?CvePS={e.Row.DBCampo("CvePS")}&Cantidad={e.Row.DBCampo("CantidadF")}" + Else + e.Row.FCHyperLink("HplPS").NavigateUrl = $"/Ventas/ProductosServicios.aspx?CvePS={e.Row.DBCampo("CvePS")}" + End If + Else + e.Row.FCHyperLink("HplPS").NavigateUrl = $"/Ventas/ProductosServicios.aspx?CvePS={e.Row.DBCampo("CvePS")}" + End If 'código temporal Dim AplicaSerie As Boolean = CBool(e.Row.DBCampo("AplicaSerie")) diff --git a/Inventarios/PaquetesArmadoDesarmado.aspx.vb b/Inventarios/PaquetesArmadoDesarmado.aspx.vb index 58b60df16..03b97fedb 100644 --- a/Inventarios/PaquetesArmadoDesarmado.aspx.vb +++ b/Inventarios/PaquetesArmadoDesarmado.aspx.vb @@ -130,6 +130,15 @@ Partial Class Inventarios_PaquetesArmadoDesarmado Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load If Not IsPostBack Then InicializaValores() + + If Request("CvePS") IsNot Nothing Then + DdlPaqueteArmado.SelectedValueExist(Request("CvePS").ToString()) + End If + + If Request("Cantidad") IsNot Nothing Then + TxtCantidadArmado.Text = Request("Cantidad").ToString() + End If + End If End Sub diff --git a/OS/OrdenesServicios.aspx b/OS/OrdenesServicios.aspx index f93d73c20..c71349af8 100644 --- a/OS/OrdenesServicios.aspx +++ b/OS/OrdenesServicios.aspx @@ -174,24 +174,25 @@
-
+
-
+
Dirección:
-
- +
+
-
+
Telefono:
-
+
- +
+
@@ -239,22 +240,32 @@
-
- -
+
+ +
Tipo de Venta:
-
+
- Seleccione uno + Seleccione uno
-
- + + +
+ Técnico:
- +
+ +
+
+ +
+
diff --git a/OS/OrdenesServicios.aspx.vb b/OS/OrdenesServicios.aspx.vb index 5e7dc1430..f3c135e7f 100644 --- a/OS/OrdenesServicios.aspx.vb +++ b/OS/OrdenesServicios.aspx.vb @@ -460,8 +460,10 @@ Partial Class OS_OrdenesServicios End If If UsuarioActual.Empresa.Funcionalidad(578).ToEntero = 1 Then + DVAMedicoProcedimiento.Visible = True - DVTipoVenta.Visible = True + DVTipoVenta1.Visible = True + DVTipoVenta2.Visible = True DvFechaRecivido1.Visible = False DvFechaRecivido2.Visible = False @@ -471,6 +473,11 @@ Partial Class OS_OrdenesServicios DVEpisodioPaciente.Visible = True + If CveOS > 0 And TipoEstatus >= 3 Then + DdlUsuarioAtendio.Enabled = True + DVUsuarioAtendio3.Visible = True + End If + End If End If @@ -653,6 +660,7 @@ Partial Class OS_OrdenesServicios TipoEstatus = GlobalDTEstatusOrdenServicios(UsuarioActual.CveEmpresa).FiltroPrimeroValor("TipoEstatus", String.Format("CveEstatusOrdenServicio = {0}", ObjOS.CveEstatusOrdenServicio), "CveEstatusOrdenServicio ASC").ToEntero SeFacturara = GlobalDTTipoOrdenServicios(UsuarioActual.CveEmpresa).FiltroPrimeroValor("SeFacturara", String.Format("CveOrdenServicioTipo = {0}", ObjOS.CveOSTipo)) CveTecnico = ObjOS.CveUsuarioAtendio + DdlUsuarioAtendio.SelectedValueExist(CveTecnico) CargarEstatusDelUsuario(TipoEstatus) CveVenta = ObjOS.CveVenta If UsuarioActual.Empresa.Funcionalidad(578).ToEntero = 1 Then @@ -674,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 @@ -2897,6 +2905,12 @@ Partial Class OS_OrdenesServicios DdlTecnico.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa) DdlTecnico.DataBind() DdlTecnico.Items.Insert(0, New ListItem("Seleccione", "-1")) + + DdlUsuarioAtendio.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa) + DdlUsuarioAtendio.DataBind() + DdlUsuarioAtendio.Items.Insert(0, New ListItem("Sin Asignar", "-1")) + + End Sub Private Sub LnkTecnico_Click(sender As Object, e As EventArgs) Handles LnkTecnico.Click RegistraScript(String.Format("$('#{0}').modal('show');", "DivCambiarTecnico")) @@ -3341,4 +3355,31 @@ Partial Class OS_OrdenesServicios End Sub End Class + + Protected Sub LnkActualizarUsaurioAtendio_Click(sender As Object, e As EventArgs) + + Dim ObjOs As New ClsOS + Dim ProcesoOk As Boolean = True + + + + If DdlUsuarioAtendio.SelectedValue.ToEntero > 0 Then + For Each GvRow As GridViewRow In GvPS.Rows + If Not ObjOs.UpdateOrdenesServiciosAsignadas(GvRow.DataKey("CveOSDetalle").ToEntero, DdlUsuarioAtendio.SelectedValue.ToEntero, MinFecha, DateTime.Parse(MinFecha.ToShortDateString), UsuarioActual.CveEmpresa) Then + ProcesoOk = False + Alert($"Se presento un error al actualizar el técnico.") + Exit For + End If + Next + If ProcesoOk Then + Alert($"Técnico actualizado correctamenrte a {DdlUsuarioAtendio.SelectedItem.Text}.") + End If + Else + Alert("Debe de seleccionar un ténico para actualziar", TipoMensaje.MsgAdvertencia) + End If + + + ObjOs.Dispose() + + End Sub End Class \ No newline at end of file diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx index 429a9f65a..be56eacde 100644 --- a/Ventas/Ventas.aspx +++ b/Ventas/Ventas.aspx @@ -5,6 +5,11 @@