From 85a65dd637f37eec0367514b51c499fa6df47904 Mon Sep 17 00:00:00 2001 From: rakcsle Date: Fri, 23 Feb 2024 08:38:28 -0700 Subject: [PATCH 1/8] SMS - 2024.02.22 --- App_Code/ClsOS.vb | 6 +- Inventarios/EntradasSalidas.aspx.vb | 1 + Inventarios/PaquetesArmadoDesarmado.aspx | 21 ++- Inventarios/PaquetesArmadoDesarmado.aspx.vb | 140 ++++++++++++++++++-- OS/Asignaciones.aspx | 2 + OS/Asignaciones.aspx.vb | 1 + OS/OrdenesServicios.aspx | 22 +++ OS/OrdenesServicios.aspx.vb | 6 +- 8 files changed, 181 insertions(+), 18 deletions(-) diff --git a/App_Code/ClsOS.vb b/App_Code/ClsOS.vb index 2e6ca0934..a36292b85 100644 --- a/App_Code/ClsOS.vb +++ b/App_Code/ClsOS.vb @@ -73,7 +73,7 @@ Public Class ClsOS Public Property CveVenta As Integer = -1 Public Property Paciente As String Public Property IdentificadorCliente As String - + Public Property FolioAdicional As String Private Class Especificaciones Public CveValor As Integer Public CvePSCaracteristica As Integer @@ -595,6 +595,7 @@ Public Class ClsOS Me.Paciente = Data.Rows(0)("Paciente").ToString Me.IdentificadorCliente = Data.Rows(0)("IdentificadorCliente").ToString Me.CveVenta = Data.Rows(0)("CveVenta").ToString.ToEntero + Me.FolioAdicional = Data.Rows(0)("FolioAdicional").ToString End If Retorno = True @@ -1308,7 +1309,7 @@ Public Class ClsOS Return Retorno End Function - Public Function UpdateVentaOS(CveVenta As Integer, CveOS As Integer, Optional Paciente As String = "-1", Optional Episodio As String = "-1") As Boolean + Public Function UpdateVentaOS(CveVenta As Integer, CveOS As Integer, Optional Paciente As String = "-1", Optional Episodio As String = "-1", Optional FolioAdicional As String = "") As Boolean Dim Retorno As Boolean = False DataAdapter("PA_OS_UpdateVentaOS") @@ -1318,6 +1319,7 @@ Public Class ClsOS .Add("@CveOS", SqlDbType.Int).Value = CveOS .Add("@Paciente", SqlDbType.VarChar).Value = Paciente .Add("@Episodio", SqlDbType.VarChar).Value = Episodio + .Add("@FolioAdicional", SqlDbType.VarChar).Value = FolioAdicional End With Try diff --git a/Inventarios/EntradasSalidas.aspx.vb b/Inventarios/EntradasSalidas.aspx.vb index 403b0c491..d61738a69 100644 --- a/Inventarios/EntradasSalidas.aspx.vb +++ b/Inventarios/EntradasSalidas.aspx.vb @@ -406,6 +406,7 @@ Partial Class Inventarios_EntradasSalidas EsConsumoInterno = False EsNuevoMov = False CvePrePoliza = -1 + CveEntregaAlmacen = -1 CreaDT() CargaCombos() diff --git a/Inventarios/PaquetesArmadoDesarmado.aspx b/Inventarios/PaquetesArmadoDesarmado.aspx index 21ddd8875..eae51d129 100644 --- a/Inventarios/PaquetesArmadoDesarmado.aspx +++ b/Inventarios/PaquetesArmadoDesarmado.aspx @@ -220,26 +220,42 @@ DataKeyNames="Cantidad,CvePS,CveUM,Consec,AplicaSeccion,AplicaSerie,AplicaCaducidad,AplicaLote,CodigoPS" runat="server" AutoGenerateColumns="false" EmptyDataText="No se encontraron datos con los filtros especificados" CssClass="table table-striped table-hover Widthall" BorderColor="#D3D3D3" GridLines="None"> - - + <%--0--%> + + <%--1--%> + + <%--2--%> + <%--3--%> + <%--4--%> + <%--5--%> + <%--6--%> + + + + + + + + <%--7--%> + <%--8--%> @@ -273,6 +289,7 @@ + <%--9--%> diff --git a/Inventarios/PaquetesArmadoDesarmado.aspx.vb b/Inventarios/PaquetesArmadoDesarmado.aspx.vb index 4e1ff1e29..30f4d5d8d 100644 --- a/Inventarios/PaquetesArmadoDesarmado.aspx.vb +++ b/Inventarios/PaquetesArmadoDesarmado.aspx.vb @@ -363,8 +363,15 @@ Partial Class Inventarios_PaquetesArmadoDesarmado GvDatosArmado.Columns(4).Visible = DtDatosArmado.MAX("AplicaSerie", "") = "True" GvDatosArmado.Columns(5).Visible = DtDatosArmado.MAX("AplicaSeccion") = "True" - GvDatosArmado.Columns(6).Visible = DtDatosArmado.MAX("AplicaLote") = "True" - GvDatosArmado.Columns(7).Visible = DtDatosArmado.MAX("AplicaCaducidad") = "True" + GvDatosArmado.Columns(7).Visible = DtDatosArmado.MAX("AplicaLote") = "True" + GvDatosArmado.Columns(8).Visible = DtDatosArmado.MAX("AplicaCaducidad") = "True" + + If UsuarioActual.Empresa.Funcionalidad(578).ToEntero = 1 Then + GvDatosArmado.Columns(6).Visible = True + GvDatosArmado.Columns(7).Visible = False + GvDatosArmado.Columns(8).Visible = False + End If + 'If ErrorExistencias Then ' GvDatosArmado.Columns(4).Visible = False @@ -476,6 +483,13 @@ Partial Class Inventarios_PaquetesArmadoDesarmado GvDatosArmado.Columns(6).Visible = DtDatosDesArmado.MAX("AplicaLote") = "True" GvDatosArmado.Columns(7).Visible = DtDatosDesArmado.MAX("AplicaCaducidad") = "True" + + If UsuarioActual.Empresa.Funcionalidad(578).ToEntero = 1 Then + GvDatosArmado.Columns(6).Visible = True + GvDatosArmado.Columns(7).Visible = False + GvDatosArmado.Columns(8).Visible = False + End If + BtnGuadarDesarmado.Visible = True TotalDesarmado.Visible = True @@ -534,21 +548,48 @@ Partial Class Inventarios_PaquetesArmadoDesarmado End If - If gvr.DataKey("AplicaLote") = "True" Then - If gvr.FCTextBox("TxtLote").Text.Trim = "" Then - Alert("Es necesario ingresas todos los lotes de los componentes.", TipoMensaje.MsgAdvertencia) - Exit Sub + If UsuarioActual.Empresa.Funcionalidad(578).ToEntero = 1 Then + + Dim DdlCaducidadProducto As DropDownList = gvr.FCDropDownList("DdlCaducidadProducto") + Dim ArrayCaducidad As String() = DdlCaducidadProducto.SelectedValue.Split("|"c) + Dim Lote As String = ArrayCaducidad(0) + Dim FechaCaducidad As String = ArrayCaducidad(1) + + If gvr.DataKey("AplicaLote") = "True" Then + If Lote = "" Then + Alert("Es necesario ingresas todos los lotes de los componentes.", TipoMensaje.MsgAdvertencia) + Exit Sub + End If + End If + + If gvr.DataKey("AplicaCaducidad") = "True" Then + + If FechaCaducidad.ToDate <= MinFecha Then + Alert("Es necesario ingresas todos las fechas de caducidad de los componentes.", TipoMensaje.MsgAdvertencia) + Exit Sub + End If + + End If + + Else + If gvr.DataKey("AplicaLote") = "True" Then + If gvr.FCTextBox("TxtLote").Text.Trim = "" Then + Alert("Es necesario ingresas todos los lotes de los componentes.", TipoMensaje.MsgAdvertencia) + Exit Sub + End If + End If + + If gvr.DataKey("AplicaCaducidad") = "True" Then + + If gvr.FCTextBox("TxtCaducidad").Text.ToDate <= MinFecha Then + Alert("Es necesario ingresas todos las fechas de caducidad de los componentes.", TipoMensaje.MsgAdvertencia) + Exit Sub + End If + End If End If - If gvr.DataKey("AplicaCaducidad") = "True" Then - If gvr.FCTextBox("TxtCaducidad").Text.ToDate <= MinFecha Then - Alert("Es necesario ingresas todos las fechas de caducidad de los componentes.", TipoMensaje.MsgAdvertencia) - Exit Sub - End If - - End If Next Case 2 ' DESARMADO @@ -645,6 +686,15 @@ Partial Class Inventarios_PaquetesArmadoDesarmado FechaCaducidad = If(CBool(GvRow.DataKey("AplicaCaducidad")) AndAlso GvRow.FCTextBox("TxtCaducidad").ToString().ToDate > MinFecha, GvRow.FCTextBox("TxtCaducidad").Text.ToDate, MinFecha) Lote = If(CBool(GvRow.DataKey("AplicaLote")), GvRow.FCTextBox("TxtLote").Text.Trim, "-1") + If UsuarioActual.Empresa.Funcionalidad(578).ToEntero = 1 Then + + Dim DdlCaducidadProducto As DropDownList = GvRow.FCDropDownList("DdlCaducidadProducto") + Dim ArrayCaducidad As String() = DdlCaducidadProducto.SelectedValue.Split("|"c) + Lote = ArrayCaducidad(0) + FechaCaducidad = ArrayCaducidad(1).ToDate + + End If + Dim Existencia As Decimal = ObjInventarioVal.GetExistenciasPS(GvRow.DataKey("CvePS").ToEntero, GvRow.DataKey("CveUM").ToEntero, UsuarioActual.CveEmpresa, CveAlmacen:=DdlAlmacenArmado.SelectedValue.ToEntero(), FechaMovto:=TxtFechaArmado.Text.ToDateTime.ToString("yyyy/MM/dd HH:mm"), Serie:="-1", Lote:=Lote, FechaCaducidad:=FechaCaducidad) @@ -750,6 +800,16 @@ Partial Class Inventarios_PaquetesArmadoDesarmado If Gvr.DataKey("Cantidad").ToString.ToDouble > 0 Then Dim Lote As String = If(Gvr.FCTextBox("TxtLote").Text = "", "-1", Gvr.FCTextBox("TxtLote").Text) Dim FechaCaducidad As String = If(Gvr.FCTextBox("TxtCaducidad").Text = "", "-1", Gvr.FCTextBox("TxtCaducidad").Text) + + If UsuarioActual.Empresa.Funcionalidad(578).ToEntero = 1 Then + + Dim DdlCaducidadProducto As DropDownList = Gvr.FCDropDownList("DdlCaducidadProducto") + Dim ArrayCaducidad As String() = DdlCaducidadProducto.SelectedValue.Split("|"c) + Lote = ArrayCaducidad(0) + FechaCaducidad = ArrayCaducidad(1) + + End If + Dim CveSeccionAlmacen As Integer = Gvr.FCDropDownList("DdlSeccionAlmacen").SelectedValue.ToEntero() If CBool(Gvr.DataKey("AplicaSerie")) Then For Each Dr As DataRow In DtDatosDetalle.FiltraParametros(String.Format("ConsecId = {0}", Gvr.DataKey("Consec").ToEntero)).Rows @@ -1134,10 +1194,64 @@ Partial Class Inventarios_PaquetesArmadoDesarmado e.Row.FCButton("BtnDividir").CommandArgument = e.Row.RowIndex.ToString() e.Row.FCTextBox("TxtDividir").Attributes.Add("onkeyup", String.Format("LimitaCantidad({0},this,'{1}');", e.Row.DBCampo("Cantidad"), e.Row.FCButton("BtnDividir").ClientID)) + + If Boolean.Parse(e.Row.DataKey("AplicaLote")) Or Boolean.Parse(e.Row.DataKey("AplicaCaducidad")) Then + + CargarCaducidadProducto(e.Row.DataKey("CvePS").ToEntero, e.Row.FCDropDownList("DdlCaducidadProducto")) + + End If + End If End Sub + Protected Sub DdlCaducidadProducto_SelectedIndexChanged(sender As Object, e As EventArgs) + + Dim GvRow As GridViewRow = DirectCast((DirectCast(sender, DropDownList)).NamingContainer, GridViewRow) + + Dim AplicaLote As Boolean = Boolean.Parse(GvRow.DataKey("AplicaLote")) + Dim AplicaCaducidad As Boolean = Boolean.Parse(GvRow.DataKey("AplicaCaducidad")) + Dim DdlCaducidadProducto As DropDownList = GvRow.FCDropDownList("DdlCaducidadProducto") + + Dim ArrayCaducidad As String() = DdlCaducidadProducto.SelectedValue.Split("|"c) + Dim Lote As String = ArrayCaducidad(0) + Dim FechaCaducidad As String = ArrayCaducidad(1) + + + + If AplicaLote Then + GvRow.FCTextBox("TxtLote").Text = Lote + End If + + If AplicaCaducidad Then + GvRow.FCTextBox("TxtCaducidad").Text = FechaCaducidad + End If + + UpDatosArmado.Update() + + End Sub + + Private Sub CargarCaducidadProducto(CvePS As Integer, ByRef DdlLoteFechaCaducidad As DropDownList) + + Dim almacenes As String = DdlAlmacenArmado.SelectedValue + If almacenes = "" Then + almacenes = "-1" + End If + + Dim ObjInventarios As New ClsInventarios + + If ObjInventarios.GetExistenciasCaducidad(CvePS, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, almacenes) Then + + For Each dr As DataRow In ObjInventarios.DtResultados.Rows + DdlLoteFechaCaducidad.Items.Add(New ListItem($"Lote: {dr("Lote").ToString} - Cad: {dr("FechaCaducidad").ToString.ToDate.ToString("dd/MM/yyyy")}", $"{dr("Lote").ToString}|{dr("FechaCaducidad").ToString.ToDate.ToString("dd/MM/yyyy")}")) + Next + + End If + ObjInventarios.Dispose() + + End Sub + + Protected Sub Dividir(sender As Object, e As EventArgs) Dim index2 As Integer = 0 diff --git a/OS/Asignaciones.aspx b/OS/Asignaciones.aspx index de229e14f..94bcafe1c 100644 --- a/OS/Asignaciones.aspx +++ b/OS/Asignaciones.aspx @@ -234,6 +234,8 @@ + <%--11--%> + diff --git a/OS/Asignaciones.aspx.vb b/OS/Asignaciones.aspx.vb index 606b38ad7..c43b6ebb1 100644 --- a/OS/Asignaciones.aspx.vb +++ b/OS/Asignaciones.aspx.vb @@ -100,6 +100,7 @@ Partial Class OS_Asignaciones GvNA.Columns(7).Visible = True GvNA.Columns(8).Visible = True + GvNA.Columns(11).Visible = True GvNA.Columns(2).HeaderText = "Hospital" diff --git a/OS/OrdenesServicios.aspx b/OS/OrdenesServicios.aspx index bbe58e696..9473ff5d1 100644 --- a/OS/OrdenesServicios.aspx +++ b/OS/OrdenesServicios.aspx @@ -290,6 +290,27 @@ +
+ +
+ Folio Adicional: +
+ +
+ +
+ +
+ +
+ +
+ +
+ + +
+ @@ -1321,6 +1342,7 @@ +
diff --git a/OS/OrdenesServicios.aspx.vb b/OS/OrdenesServicios.aspx.vb index 3546aa177..c287ceff2 100644 --- a/OS/OrdenesServicios.aspx.vb +++ b/OS/OrdenesServicios.aspx.vb @@ -733,6 +733,10 @@ Partial Class OS_OrdenesServicios TxtPaciente.Text = ObjOS.Paciente TxtIdentificadorCliente.Text = ObjOS.IdentificadorCliente + LblFolioAdicional.Text = ObjOS.FolioAdicional + DivFolioAdicional.Visible = If(ObjOS.FolioAdicional.Trim.Length > 0, True, False) + + CargaEventoBitacora() CargaHistorial() @@ -3314,7 +3318,7 @@ Partial Class OS_OrdenesServicios ProcesoOK = False End If If ProcesoOK Then - If Not ObjOS.UpdateVentaOS(Respuesta.CveVenta, CveOS, TxtPacienteModal.Text.Trim, TxtEpisodioModal.Text.Trim) Then + If Not ObjOS.UpdateVentaOS(Respuesta.CveVenta, CveOS, TxtPacienteModal.Text.Trim, TxtEpisodioModal.Text.Trim, FolioAdicional:=TxtFolioRemisionModal.Text.Trim) Then ProcesoOK = False End If End If From bf60f3e2a5c5734eb59c59fff0423ddeff8773ce Mon Sep 17 00:00:00 2001 From: AbrahamCastilloV Date: Fri, 23 Feb 2024 17:33:09 -0700 Subject: [PATCH 2/8] =?UTF-8?q?--En=20ClsTransportes=20cambio=20nombre=20a?= =?UTF-8?q?=20variable=20para=20unificarlo=20con=20la=20base=20de=20datos?= =?UTF-8?q?=20@CveViaje.=20Se=20separ=C3=B3=20modal=20para=20editar=20dato?= =?UTF-8?q?s=20de=20usuario=20o=20datos=20del=20viaje=20y=20se=20crearon?= =?UTF-8?q?=20sus=20m=C3=A9todos.=20=20Tambi=C3=A9n=20se=20agregar=20un=20?= =?UTF-8?q?OnChange=20para=20cuando=20el=20select=20tome=20otra=20ruta,=20?= =?UTF-8?q?indique=20los=20asientos=20que=20no=20est=C3=A1n=20disponibles.?= =?UTF-8?q?=20En=20proceso...?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- App_Code/ClsTransportes.vb | 88 +- Transportes/RepContratoDetalle.aspx | 1101 ++++++++++++------------ Transportes/RepContratoDetalle.aspx.vb | 44 +- 3 files changed, 594 insertions(+), 639 deletions(-) diff --git a/App_Code/ClsTransportes.vb b/App_Code/ClsTransportes.vb index 22f389db4..d1c65a7c6 100644 --- a/App_Code/ClsTransportes.vb +++ b/App_Code/ClsTransportes.vb @@ -135,14 +135,14 @@ Public Class ClsTransportes #End Region #Region "Boletos" - Public Function AddViajesPasajeros(CveContrato As Integer, CveDestinoOrigen As Integer, CveDestinoFinal As Integer, Importe As Decimal, Asiento As Integer, Nombre As String, Visa As String, Celular As String, Sexo As Boolean, Observacion As String, CveUsuario As Integer, CveVendedor As Integer) As Integer + Public Function AddViajesPasajeros(CveViaje As Integer, CveDestinoOrigen As Integer, CveDestinoFinal As Integer, Importe As Decimal, Asiento As Integer, Nombre As String, Visa As String, Celular As String, Sexo As Boolean, Observacion As String, CveUsuario As Integer, CveVendedor As Integer) As Integer Dim Retorno As Integer = -1 DataAdapter("PA_Trans_ViajesPasajerosAdd") With SqlAdapter.SelectCommand.Parameters .Add("@CveViajePasajero", SqlDbType.Int).Direction = ParameterDirection.Output - .Add("@CveContrato", SqlDbType.Int).Value = CveContrato + .Add("@CveViaje", SqlDbType.Int).Value = CveViaje .Add("@CveDestinoOrigen", SqlDbType.Int).Value = CveDestinoOrigen .Add("@CveDestinoFinal", SqlDbType.Int).Value = CveDestinoFinal .Add("@Importe", SqlDbType.Money).Value = Importe @@ -310,89 +310,6 @@ Public Class ClsTransportes End Function #End Region - '#Region "Rutas" - ' Public Function GetRutas(CveRuta As Integer, CveUsuario As Integer, CveEmpresa As Integer, Ruta As String, Estatus As Boolean, FechaIng As DateTime) As Boolean - ' Dim Retorno As Boolean = False - ' DataAdapter("PA_Trans_RutasGet") - ' With SqlAdapter.SelectCommand.Parameters - ' .Add("@CveRuta", SqlDbType.Int).Value = CveRuta - ' .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - ' .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario - ' .Add("@Ruta", SqlDbType.VarChar).Value = Ruta - ' .Add("@Estatus", SqlDbType.Bit).Value = Estatus - ' .Add("@FechaIng", SqlDbType.DateTime).Value = FechaIng - - ' End With - ' Try - ' SqlAdapter.Fill(Data) - ' Retorno = True - - ' Catch ex As Exception - ' OnError("Ocurrió un error al obtener las rutas.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - ' End Try - - ' Return Retorno - ' End Function - ' Public Function AddRuta(Ruta As String, Estatus As String, CveUsuario As Integer, CveEmpresa As Integer) As Integer - ' Dim Retorno As Integer = -1 - - ' DataAdapter("PA_Trans_RutasAdd") - ' With SqlAdapter.SelectCommand.Parameters - ' .Add("@CveRuta", SqlDbType.Int).Direction = ParameterDirection.Output - ' .Add("@Ruta", SqlDbType.VarChar).Value = Ruta - ' .Add("@Estatus", SqlDbType.Bit).Value = Convert.ToBoolean(Estatus) - ' .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario - ' .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - ' End With - ' Try - ' SqlAdapter.Fill(Data) - ' Retorno = CInt(SqlAdapter.SelectCommand.Parameters("@CveRuta").Value.ToString) - ' Catch ex As Exception - ' OnError("Ocurrió un error al agregar la ruta.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - ' End Try - - ' Return Retorno - ' End Function - ' Public Function UpdateRuta(CveRuta As Integer, Ruta As String, Estatus As String, CveUsuario As Integer, CveEmpresa As Integer) As Boolean - ' Dim Retorno As Boolean = False - ' DataAdapter("PA_Trans_RutasUpdate") - ' With SqlAdapter.SelectCommand.Parameters - ' .Add("@CveRuta", SqlDbType.Int).Value = CveRuta - ' .Add("@Ruta", SqlDbType.VarChar).Value = Ruta - ' .Add("@Estatus", SqlDbType.Bit).Value = Convert.ToBoolean(Estatus) - ' .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario - ' .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - ' End With - ' Try - ' SqlAdapter.Fill(Data) - ' Retorno = True - ' Catch ex As Exception - ' OnError("Ocurrió un error al actualizar la ruta.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - ' End Try - - ' Return Retorno - ' End Function - ' Public Function RemoveRuta(CveRuta As Integer) As Boolean - ' Dim Retorno As Boolean = False - - - ' DataAdapter("PA_Trans_RutasRemove") - ' With SqlAdapter.SelectCommand.Parameters - ' .Add("@CveRuta", SqlDbType.Int).Value = CveRuta - ' End With - - ' Try - ' SqlAdapter.Fill(Data) - ' Retorno = True - ' Catch ex As Exception - ' OnError("Ocurrió un error al eliminar la ruta.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - ' End Try - - ' Return Retorno - ' End Function - - '#End Region - #Region "Importes" Public Function GetDestinosTarifas(CveSubProyecto As Integer, CveDestinoOrigen As Integer, CveDestinoFinal As Integer) As Boolean Dim Retorno As Boolean = False @@ -469,5 +386,4 @@ Public Class ClsTransportes Return Retorno End Function #End Region - End Class diff --git a/Transportes/RepContratoDetalle.aspx b/Transportes/RepContratoDetalle.aspx index c7940de17..9f55e033b 100644 --- a/Transportes/RepContratoDetalle.aspx +++ b/Transportes/RepContratoDetalle.aspx @@ -10,7 +10,6 @@ - - - - @@ -94,151 +96,155 @@ <%-- Datos del Contrato --%> -
-
-
- -
-
- Datos del Contrato -
-
- -
-
- - -
- -
- -
- - +
+
+
+
+
+ +
+
+ Datos del Contrato +
-
-
- -
- - - - -
-
+
+
+ + +
-
- -
- -
-
+
+ +
+ + +
+
-
- -
- -
-
+
+ +
+ + + + +
+
-
- -
- - - - -
-
+
+ +
+ +
+
-
- -
- - - - -
-
+
+ +
+ +
+
-
- -
- - - - -
-
+
+ +
+ + + + +
+
-
- -
- - - - - -
-
+
+ +
+ + + + +
+
-
- -
- - -
-
+
+ +
+ + + + +
+
-
- -
- - -
-
+
+ +
+ + + + + +
+
-
- -
- - +
+ +
+ + +
+
+ +
+ +
+ + +
+
+ +
+ +
+ + +
+
@@ -254,82 +260,93 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + <%-- Modal Editar Boleto --%> -