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/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..557da33ad 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 = 2 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