diff --git a/OS/OrdenesServicios.aspx b/OS/OrdenesServicios.aspx
index 676c2cced..3a694320d 100644
--- a/OS/OrdenesServicios.aspx
+++ b/OS/OrdenesServicios.aspx
@@ -1285,27 +1285,37 @@
-
+
-
+
diff --git a/OS/OrdenesServicios.aspx.vb b/OS/OrdenesServicios.aspx.vb
index ad9919f31..7163e362e 100644
--- a/OS/OrdenesServicios.aspx.vb
+++ b/OS/OrdenesServicios.aspx.vb
@@ -10,6 +10,7 @@ Imports Stimulsoft.Report.StiOptions.Export
Imports Modelos
Imports System.Runtime.InteropServices.ComTypes
Imports APP_Code_CSharp
+Imports System.ComponentModel.Design
Partial Class OS_OrdenesServicios
Inherits ClsPaginas
@@ -475,6 +476,7 @@ Partial Class OS_OrdenesServicios
DvTxtPacienteModal.Visible = True
DvTxtEpisodioModal.Visible = True
+ DvTxtFolioRemisionModal.Visible = True
If CveOS > 0 And TipoEstatus >= 3 Then
DdlUsuarioAtendio.Enabled = True
@@ -3067,7 +3069,12 @@ Partial Class OS_OrdenesServicios
If UsuarioActual.Empresa.Funcionalidad(578).ToEntero = 1 Then
TxtPacienteModal.Text = TxtPaciente.Text
TxtEpisodioModal.Text = TxtIdentificadorCliente.Text
+ End If
+ If DdlTipoVenta.SelectedValue.ToEntero = 5 Then
+ DvTxtFolioRemisionModal.Visible = False
+ Else
+ DvTxtFolioRemisionModal.Visible = True
End If
UpModalMaterialUtilizado.Update()
@@ -3198,6 +3205,14 @@ Partial Class OS_OrdenesServicios
Dim ImporteAlmacen As Decimal
Dim Fecha As DateTime = ClsPaginas.NowADS()
+ If GenrarRemisionMovimientos AndAlso ProcesoOK Then
+ If Not TxtFolioRemisionModal.Text.Trim.Length > 0 Then
+ Alert("El campo Folio es requerido por favor ingreselo.", TipoMensaje.MsgAdvertencia)
+ ProcesoOK = False
+ GenrarRemisionMovimientos = False
+ End If
+ End If
+
If GenrarRemisionMovimientos AndAlso ProcesoOK Then
Respuesta = GeneraRemision(CveVentaPedido, ObjV.IniciaTransacSQL())
@@ -3378,6 +3393,7 @@ Partial Class OS_OrdenesServicios
ObjFactura.CveVentaRelacion = CveVentaPedido
ObjFactura.Paciente = TxtPacienteModal.Text.Trim
ObjFactura.Episodio = TxtEpisodioModal.Text.Trim
+ ObjFactura.Alfa1 = TxtFolioRemisionModal.Text.Trim
For Each GvRow As GridViewRow In GvMU.Rows
diff --git a/Transportes/RepContratosCalendario.aspx b/Transportes/RepContratosCalendario.aspx
index 9bd6a3b4d..f774cdb60 100644
--- a/Transportes/RepContratosCalendario.aspx
+++ b/Transportes/RepContratosCalendario.aspx
@@ -24,8 +24,7 @@
<%--Calendario Tab--%>
-
-
+
+
<%--Contratos Tab--%>
@@ -81,6 +81,12 @@
+
+
+
+
+
+
Fecha
@@ -105,17 +111,12 @@
-
-
-
-
-
-
+
@@ -124,7 +125,7 @@
-
Agregar Contrato
+ Actualizar Contrato
@@ -277,6 +278,15 @@
+
+
@@ -299,6 +309,8 @@
}
function updateEvent(event, element) {
+ console.log(event)
+ $('#<%=BtnActualizar.ClientID%>').click();
}
function RadionButtonSelectedValueSet(name, SelectdValue) {
diff --git a/Transportes/RepContratosCalendario.aspx.vb b/Transportes/RepContratosCalendario.aspx.vb
index 770c57b7f..53facc378 100644
--- a/Transportes/RepContratosCalendario.aspx.vb
+++ b/Transportes/RepContratosCalendario.aspx.vb
@@ -31,6 +31,10 @@ Partial Class RepContratosCalendario
DirectCast(Master.FindControl("TSM"), ScriptManager).EnablePageMethods = True
End Sub
+ Protected Sub ActualizarContrato(sender As Object, e As System.EventArgs)
+ RegistraScript("$('#ModalActualizar').modal('show');")
+
+ End Sub
diff --git a/Ventas/RepRemisiones.aspx b/Ventas/RepRemisiones.aspx
index 4eab2a885..2f136ea49 100644
--- a/Ventas/RepRemisiones.aspx
+++ b/Ventas/RepRemisiones.aspx
@@ -229,6 +229,7 @@
+
diff --git a/Ventas/RepRemisiones.aspx.vb b/Ventas/RepRemisiones.aspx.vb
index 5f7c92f82..a63b446de 100644
--- a/Ventas/RepRemisiones.aspx.vb
+++ b/Ventas/RepRemisiones.aspx.vb
@@ -97,10 +97,10 @@ Partial Class RepRemisiones
End If
If DtVentas IsNot Nothing Then
- GvDatos.Columns(10).Visible = DtVentas.SUMD("Descuento") > 0
+ GvDatos.Columns(11).Visible = DtVentas.SUMD("Descuento") > 0
End If
- GvDatos.Columns(13).Visible = chkInv.Checked 'solo se visualiza si está selccionada
+ GvDatos.Columns(14).Visible = chkInv.Checked 'solo se visualiza si está selccionada
ObjVentas.Dispose()
GvDatos.DataBind()
@@ -143,6 +143,7 @@ Partial Class RepRemisiones
GvDatos.Columns(3).HeaderText = "Hospital"
GvDatos.Columns(5).Visible = True
GvDatos.Columns(6).Visible = True
+ GvDatos.Columns(7).Visible = True
'columna de fecha
GvDatos.Columns(1).HeaderText = "Fecha Cirugía"
CType(GvDatos.Columns(1), HyperLinkField).DataTextFormatString = "{0:dd/MM/yyyy HH:mm}"