diff --git a/App_Code/ClsContabilidad.vb b/App_Code/ClsContabilidad.vb
index d49198115..91681aa05 100644
--- a/App_Code/ClsContabilidad.vb
+++ b/App_Code/ClsContabilidad.vb
@@ -343,6 +343,61 @@ Public Class ClsContabilidad
+ Public Function UpdatePrePolizasDetalleContrato(CvePrePolizaDetalle As Integer, Concepto As String, CveSubProyecto As Integer, IdCtaContable As Integer, TipoMovto As Boolean, ImporteMN As Decimal, Optional CveTipoGasto As Integer = -1,
+ Optional CveConceptoContable As Integer = -1, Optional CveProveedor As Integer = -1, Optional CveCompra As Integer = -1, Optional CvePersonal As Integer = -1, Optional CveCliente As Integer = -1, Optional CveVenta As Integer = -1,
+ Optional Referencia As String = "-1", Optional CveUsuarioModifico As Integer = -1, Optional CveCuenta As Integer = -1, Optional PorcentajeImpuesto As Decimal = -1, Optional Importe As Decimal = -1, Optional CveIE As Integer = -1,
+ Optional TipoCambio As Decimal = -1, Optional CveClasificacion As Integer = -1, Optional ImporteME As Decimal = -1) As Boolean
+ Dim Retorno As Boolean = False
+
+ DataAdapter("PA_Conta_PrePolizasDetalleContratoUpdate")
+ With SqlAdapter.SelectCommand.Parameters
+ .Add("@CvePrePolizaDetalle", SqlDbType.Int).Value = CvePrePolizaDetalle
+ .Add("@Concepto", SqlDbType.VarChar).Value = Concepto
+ .Add("@Referencia", SqlDbType.VarChar).Value = Referencia
+ .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
+ .Add("@IdCtaContable", SqlDbType.Int).Value = IdCtaContable
+ .Add("@TipoMovto", SqlDbType.Bit).Value = TipoMovto
+ .Add("@TipoCambio", SqlDbType.Decimal).Value = TipoCambio
+ .Add("@ImporteMN", SqlDbType.Money).Value = ImporteMN
+ .Add("@Importe", SqlDbType.Money).Value = Importe
+ .Add("@ImporteME", SqlDbType.Money).Value = ImporteME
+ .Add("@CveTipoGasto", SqlDbType.Int).Value = CveTipoGasto
+ .Add("@CveConceptoContable", SqlDbType.Int).Value = CveConceptoContable
+ .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor
+ .Add("@CveCompra", SqlDbType.Int).Value = CveCompra
+ .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal
+ .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
+ .Add("@CveVenta", SqlDbType.Int).Value = CveVenta
+ .Add("@PorcentajeImpuesto", SqlDbType.Money).Value = PorcentajeImpuesto
+ .Add("@CveUsuarioModifico", SqlDbType.Int).Value = CveUsuarioModifico
+ .Add("@CveCuenta", SqlDbType.Int).Value = CveCuenta
+ .Add("@CveIE", SqlDbType.Int).Value = CveIE
+ .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion
+ End With
+
+ Try
+ SqlAdapter.Fill(Data)
+ Retorno = True
+ Catch ex As Exception
+ If ex.Message.Contains("CuentasResultados_SubProyectos") Then
+ OnError("El concepto requiere que se le especifique centro de costo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+ ElseIf ex.Message.Contains("50015") Then
+ OnError("No se puede eliminar una póliza en un ejercicio Cerrado.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+ Else
+ If ex.Message.Contains("concepto de bancos con un importe diferente") Then
+ OnError("No se puede editar el valor del bancos con un valor diferente a movimiento registrado", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+ Else
+ OnError("Ocurrió un error al Actualizar la Prepoliza", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+ End If
+ End If
+
+ End Try
+
+ Return Retorno
+ End Function
+
+
+
Public Function AddPrePolizasNegativa(CvePrePoliza As Integer, CveUsuario As Integer, Concepto As String, CveEmpresa As Integer, Fecha As Date) As Integer
Dim Retorno As Integer = -1
diff --git a/Transportes/RepContratoDetalle.aspx.vb b/Transportes/RepContratoDetalle.aspx.vb
index d40cd7769..6e1865869 100644
--- a/Transportes/RepContratoDetalle.aspx.vb
+++ b/Transportes/RepContratoDetalle.aspx.vb
@@ -1,9 +1,11 @@
Option Explicit On
Option Strict On
Imports System.Data
+Imports System.Data.SqlClient
Imports System.IO
Imports Extensiones
Imports Microsoft.Reporting.WebForms
+Imports Modelos
Partial Class RepContratoDetalle
@@ -98,6 +100,82 @@ Partial Class RepContratoDetalle
End Set
End Property
+ Private Property CveVentaRemision As Integer
+ Get
+ If ViewState("CveVentaRemision") Is Nothing Then
+ ViewState("CveVentaRemision") = -1
+ End If
+
+ Return ViewState("CveVentaRemision").ToString.ToEntero
+
+ End Get
+ Set(value As Integer)
+ ViewState("CveVentaRemision") = value
+ End Set
+ End Property
+
+ Private Property CveSubProyectoOriginal As Integer
+ Get
+ If ViewState("CveSubProyectoOriginal") Is Nothing Then
+ ViewState("CveSubProyectoOriginal") = -1
+ End If
+
+ Return ViewState("CveSubProyectoOriginal").ToString.ToEntero
+
+ End Get
+ Set(value As Integer)
+ ViewState("CveSubProyectoOriginal") = value
+ End Set
+ End Property
+
+ Private Property CveMonedaOriginal As Integer
+ Get
+ If ViewState("CveMonedaOriginal") Is Nothing Then
+ ViewState("CveMonedaOriginal") = -1
+ End If
+
+ Return ViewState("CveMonedaOriginal").ToString.ToEntero
+
+ End Get
+ Set(value As Integer)
+ ViewState("CveMonedaOriginal") = value
+ End Set
+ End Property
+
+
+ Private Property ImporteOrigial As Decimal
+ Get
+ If ViewState("ImporteOrigial") Is Nothing Then
+ ViewState("ImporteOrigial") = 0D
+ End If
+
+ Return ViewState("ImporteOrigial").ToString.ToDecimal
+
+ End Get
+ Set(value As Decimal)
+ ViewState("ImporteOrigial") = value
+ End Set
+ End Property
+
+
+ Private Property DescripcionOriginal As String
+ Get
+ If ViewState("DescripcionOriginal") Is Nothing Then
+ ViewState("DescripcionOriginal") = ""
+ End If
+
+ Return ViewState("DescripcionOriginal").ToString
+
+ End Get
+ Set(value As String)
+ ViewState("DescripcionOriginal") = value
+ End Set
+ End Property
+
+
+
+
+
#End Region
#Region "Carga Página"
@@ -166,9 +244,14 @@ Partial Class RepContratoDetalle
CveContratoEstatus = Contrato.Rows(0)("CveContratosEstatus").ToString.ToEntero
DdlSubProyecto.SelectedValueExist(Contrato.Rows(0)("CveSubProyecto").ToString)
+ CveSubProyectoOriginal = Contrato.Rows(0)("CveSubProyecto").ToString.ToEntero
+ CveMonedaOriginal = Contrato.Rows(0)("CveMoneda").ToString.ToEntero
+ ImporteOrigial = Importe
+ DescripcionOriginal = Contrato.Rows(0)("DescripcionContrato").ToString
+ CveVentaRemision = Contrato.Rows(0)("CveVentaRemision").ToString.ToEntero
HypRemision.Text = Contrato.Rows(0)("RemisionSerieFolio").ToString
- HypRemision.NavigateUrl = $"/Ventas/Ventas.aspx?CveVenta={ Contrato.Rows(0)("CveVentaRemision").ToString}"
+ HypRemision.NavigateUrl = $"/Ventas/Ventas.aspx?CveVenta={ CveVentaRemision}"
If Contrato.Rows(0)("RemisionSaldo").ToString.ToDecimal > 0 Then
LblSaldo.Text = $"Saldo { Contrato.Rows(0)("RemisionSaldo").ToString.ToDecimal.ToString("###,###,###.00")}"
@@ -285,7 +368,7 @@ Partial Class RepContratoDetalle
End Sub
Protected Sub UpdateContrato(sender As Object, e As EventArgs)
Dim ArchivoUpdate As String = "-1"
-
+ Dim ErrorProceso As Boolean = False
If Session("FileExtension").ToString <> "" Then
'ArchivoUpdate = $"{CveContrato.ToString}.{ Session("FileExtension")}"
@@ -296,22 +379,266 @@ Partial Class RepContratoDetalle
Dim ObjContratos As New ClsContratos
ObjContratos.IniciaTransacSQL()
- Try
- If ObjContratos.UpdateContratos(CveContrato, TxtFolio.Text, TxtDescripcion.Text, "", UsuarioActual.CveProveedor, DdlClientes.SelectedValue.ToEntero, -1, TxtFechaSalida.Text.ToDate, TxtFechaRegreso.Text.ToDate, TxtUbicacion.Text, "",
+
+
+ If Not ObjContratos.UpdateContratos(CveContrato, TxtFolio.Text, TxtDescripcion.Text, "", UsuarioActual.CveProveedor, DdlClientes.SelectedValue.ToEntero, -1, TxtFechaSalida.Text.ToDate, TxtFechaRegreso.Text.ToDate, TxtUbicacion.Text, "",
DdlSubProyecto.SelectedValue.ToEntero, -1, -1, -1, -1, ArchivoUpdate, "", -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, False, TxtAnticipo.Text.ToDecimal, -1, TxtImporte.Text.ToDecimal,
DdlMoneda.SelectedValue.ToEntero, 0, CveContratoTipo:=CveContratoTipo, CveTipoAF:=DdlTipoAF.SelectedValue.ToEntero, CveContratosEstatus:=CveContratoEstatus, Observaciones:=TxtObservaciones.Text) Then
- Alert("Contrato actualizado correctamente")
+ ErrorProceso = True
+ End If
+
+
+
+ If Not ErrorProceso Then
+
+ If CveSubProyectoOriginal <> DdlSubProyecto.SelectedValue.ToEntero Or CveMonedaOriginal <> DdlMoneda.SelectedValue.ToEntero Or ImporteOrigial <> TxtImporte.Text.ToDecimal Or DescripcionOriginal <> TxtDescripcion.Text Then
+ If Not UpdateRemision(ObjContratos.IniciaTransacSQL(), DdlSubProyecto.SelectedValue.ToEntero, DdlMoneda.SelectedValue.ToEntero, TxtImporte.Text.ToDecimal, TxtDescripcion.Text) Then
+ ErrorProceso = True
+ End If
End If
+
+
+ End If
+
+ If Not ErrorProceso Then
+
ObjContratos.Commit()
- Catch ex As Exception
- Alert("Ocurrió un ocurrió un error al actualizar su boleto", TipoMensaje.MsgError)
- ObjContratos.RollBack()
- Finally
ObjContratos.Dispose()
AgregarABitacora($"Actualización del contrato {CveContrato}")
CargaDatos()
- End Try
+ Alert("Contrato actualizado correctamente")
+
+ Else
+
+ Alert("Ocurrió un ocurrió un error al actualizar su boleto", TipoMensaje.MsgError)
+ ObjContratos.RollBack()
+
+ End If
+
+
End Sub
+
+ Private Function UpdateRemision(ByRef transaccionSql As SqlTransaction, CveSubProyectoNew As Integer, CveMonedaNew As Integer, TotalNew As Decimal, DescripcionNew As String) As Boolean
+
+ Dim Respuesta As Boolean = False
+
+
+
+ Dim TmpDT As DataTable = New DataTable
+ Dim OcurrioError As Boolean = False
+ Dim ObjVentas As New ClsVentas(transaccionSql)
+ Dim FechaVenta As Date = MinFecha
+ Dim PorcentajeIVA As Decimal = 0D
+ Dim IVANew As Decimal = 0D
+ Dim SubTotalNew As Decimal = TotalNew
+ Dim CvePrePoliza As Integer = -1
+
+ If ObjVentas.GetVenta(CveVentaRemision, UsuarioActual.CveEmpresa) Then
+ FechaVenta = ObjVentas.DtResultados(0)("Fecha").ToString.ToDate
+ CvePrePoliza = ObjVentas.DtResultados(0)("CvePrePoliza").ToString.ToEntero
+ End If
+
+ If ObjVentas.GetVentaDetalle(CveVentaRemision) Then
+ TmpDT = ObjVentas.DtResultados
+ PorcentajeIVA = ObjVentas.DtResultados.MAX("PorcentajeIVA").ToDecimal
+
+ If PorcentajeIVA > 0 Then
+
+ IVANew = (TotalNew * (PorcentajeIVA * 100)) / (100 + (PorcentajeIVA * 100))
+ SubTotalNew = TotalNew - IVANew
+
+ End If
+
+ End If
+
+ If TmpDT Is Nothing OrElse TmpDT.Rows.Count = 0 Or FechaVenta = MinFecha Then
+ Alert("Error al obtener los datos de la remisión.", TipoMensaje.MsgAdvertencia)
+ Return False
+ End If
+
+
+
+
+
+
+ 'ObjVentas.IniciaTransacSQL()
+
+ Dim ObjConta As New ClsContabilidad(ObjVentas.IniciaTransacSQL())
+ 'Dim ObjBancos As New ClsBancos(ObjVentas.IniciaTransacSQL())
+ 'Dim ObjCGame As New ClsCGame(ObjVentas.IniciaTransacSQL())
+
+ Dim Moneda As Integer = DdlMoneda.SelectedValue.ToEntero()
+ 'Dim TipoCambio As Decimal = GlobalTipoCambio(FechaVenta).ToDecimal
+ 'Dim CveClienteSucursal As Integer = -1
+
+ Dim TC As Decimal = If(CveMonedaNew = 2, GlobalTipoCambio(FechaVenta).ToDecimal, 1)
+
+ Try
+ ''CONVERTIR REMISION - TIPO MONEDA -DOLARES A PESOS
+ 'If DdlMoneda.SelectedValue.ToEntero() <> 2 AndAlso ChkConvertirDolares.Checked Then
+
+ ' For Each Row As DataRow In TmpDT.Rows
+ ' Row("PU") = Math.Round(Row("PU").ToString().ToDecimal / TxtTipoCambioDlls.Text.Trim.ToDecimal, 6)
+ ' Row("Total") = Math.Round(Row("Cantidad").ToString().ToDecimal * Row("PU").ToString().ToDecimal, NumeroDecimales)
+ ' Row("TotalImporte") = Math.Round(Row("Cantidad").ToString().ToDecimal * Row("PU").ToString().ToDecimal, NumeroDecimales)
+ ' Row("Descuento") = Math.Round(Row("Descuento").ToString().ToDecimal / TxtTipoCambioDlls.Text.Trim.ToDecimal, NumeroDecimales)
+ ' Row("ImporteIEPS") = Math.Round(Row("ImporteIEPS").ToString().ToDecimal / TxtTipoCambioDlls.Text.Trim.ToDecimal, NumeroDecimales)
+ ' Row("ImporteIVA") = Math.Round(Row("ImporteIVA").ToString().ToDecimal / TxtTipoCambioDlls.Text.Trim.ToDecimal, NumeroDecimales)
+ ' Row("ImporteRetIVA") = Math.Round(Row("ImporteRetIVA").ToString().ToDecimal / TxtTipoCambioDlls.Text.Trim.ToDecimal, NumeroDecimales)
+ ' Row("ImporteRetISR") = Math.Round(Row("ImporteRetISR").ToString().ToDecimal / TxtTipoCambioDlls.Text.Trim.ToDecimal, NumeroDecimales)
+ ' Next
+
+ ' Dim ImpuestosLocales As Double = 0
+ ' For Each gvr As GridViewRow In GvImpuestosLocales2.Rows
+ ' If gvr.RowType = DataControlRowType.DataRow Then
+ ' gvr.FCTextBox("TxtImpuestoLocalPS").Text = (gvr.FCTextBox("TxtImpuestoLocalPS").Text.ToDouble / TxtTipoCambioDlls.Text.Trim.ToDecimal).FormatoNumero
+ ' ImpuestosLocales += Math.Round(gvr.FCTextBox("TxtImpuestoLocalPS").Text.ToDouble / TxtTipoCambioDlls.Text.Trim.ToDecimal, NumeroDecimales)
+ ' End If
+ ' Next
+
+ ' TxtSubTotal.Text = TmpDT.SUM("Total").FormatoNumero
+ ' LblDescuentos.Text = TmpDT.SUM("Descuento").FormatoNumero
+ ' LblAmortizacion.Text = Math.Round(LblAmortizacion.Text.Trim.ToDecimal / TxtTipoCambioDlls.Text.Trim.ToDecimal, NumeroDecimales).FormatoNumero
+ ' TxtIVA.Text = TmpDT.SUM("ImporteIVA").FormatoNumero
+ ' TxtRetIVA.Text = TmpDT.SUM("ImporteRetIVA").FormatoNumero
+ ' TxtRetISR.Text = TmpDT.SUM("ImporteRetISR").FormatoNumero
+ ' TxtIEPS.Text = TmpDT.SUM("ImporteIEPS").FormatoNumero
+ ' TxtTotal.Text = (TxtSubTotal.Text.ToDecimal - LblDescuentos.Text.ToDecimal - LblAmortizacion.Text.ToDecimal + TxtIVA.Text.ToDecimal + TxtIEPS.Text.ToDecimal - TxtRetIVA.Text.ToDecimal - TxtRetISR.Text.ToDecimal - ImpuestosLocales).ToDecimal.FormatoNumero
+
+ ' TipoCambio = TxtTipoCambioDlls.Text.Trim.ToDecimal
+ ' Moneda = 2
+ 'End If
+
+ ''CONVERTIR REMISION - TIPO MONEDA -PESO A DOLARES
+ 'If DdlMoneda.SelectedValue.ToEntero() <> 1 AndAlso ChkConvertirDoctoPesos.Checked Then
+ ' Dim Importe As Decimal
+
+
+ ' For Each Row As DataRow In TmpDT.Rows
+ ' Row("PU") = Math.Round(Row("PU").ToString().ToDecimal * TCC, 6)
+ ' Row("Total") = Math.Round(Row("Cantidad").ToString().ToDecimal * Row("PU").ToString().ToDecimal, NumeroDecimales)
+ ' Row("TotalImporte") = Math.Round(Row("Cantidad").ToString().ToDecimal * Row("PU").ToString().ToDecimal, NumeroDecimales)
+ ' Row("Descuento") = Math.Round(Row("Descuento").ToString().ToDecimal * TCC, NumeroDecimales)
+ ' Importe = Row("Total").ToString().ToDecimal - Row("Descuento").ToString().ToDecimal
+ ' Row("ImporteIEPS") = Math.Round(Importe * Row("PorcentajeIEPS").ToString().ToDecimal, NumeroDecimales)
+ ' Row("ImporteIVA") = Math.Round(Importe * Row("PorcentajeIVA").ToString().ToDecimal, NumeroDecimales)
+ ' Row("ImporteRetIVA") = Math.Round(Importe * Row("PorcentajeRetIVA").ToString().ToDecimal, NumeroDecimales)
+ ' Row("ImporteRetISR") = Math.Round(Importe * Row("PorcentajeRetISR").ToString().ToDecimal, NumeroDecimales)
+ ' Next
+
+ ' Dim ImpuestosLocales As Double = 0
+ ' For Each gvr As GridViewRow In GvImpuestosLocales2.Rows
+ ' If gvr.RowType = DataControlRowType.DataRow Then
+ ' gvr.FCTextBox("TxtImpuestoLocalPS").Text = (gvr.FCTextBox("TxtImpuestoLocalPS").Text.ToDouble * TxtTipoCambio.Text.Trim.ToDecimal).FormatoNumero
+ ' ImpuestosLocales += Math.Round(gvr.FCTextBox("TxtImpuestoLocalPS").Text.ToDouble * TxtTipoCambio.Text.Trim.ToDecimal, NumeroDecimales)
+ ' End If
+ ' Next
+
+ ' TxtSubTotal.Text = TmpDT.SUM("Total").FormatoNumero
+ ' LblDescuentos.Text = TmpDT.SUM("Descuento").FormatoNumero
+ ' LblAmortizacion.Text = Math.Round(LblAmortizacion.Text.Trim.ToDecimal * TxtTipoCambio.Text.Trim.ToDecimal, NumeroDecimales).FormatoNumero
+ ' TxtIVA.Text = TmpDT.SUM("ImporteIVA").FormatoNumero
+ ' TxtRetIVA.Text = TmpDT.SUM("ImporteRetIVA").FormatoNumero
+ ' TxtRetISR.Text = TmpDT.SUM("ImporteRetISR").FormatoNumero
+ ' TxtIEPS.Text = TmpDT.SUM("ImporteIEPS").FormatoNumero
+ ' TxtTotal.Text = (TxtSubTotal.Text.ToDecimal - LblDescuentos.Text.ToDecimal - LblAmortizacion.Text.ToDecimal + TxtIVA.Text.ToDecimal + TxtIEPS.Text.ToDecimal - TxtRetIVA.Text.ToDecimal - TxtRetISR.Text.ToDecimal - ImpuestosLocales).ToDecimal.FormatoNumero
+
+
+ ' TipoCambio = 1
+ ' Moneda = 1
+ 'End If
+
+ 'Dim FechaParaSurtir As DateTime = MinFecha
+ 'If TxtFechaOS.Text.Replace(",", "").ToDateTime() > MinFecha Then
+ ' FechaParaSurtir = TxtFechaOS.Text.Replace(",", "").ToDateTime()
+ 'End If
+
+
+ If Not ObjVentas.UpdateVentas(SubTotalNew, 0, IVANew, 0, TotalNew, CveMonedaNew, TC, FechaVenta, "",
+ UsuarioActual.CveEmpresa, CveVentaRemision,
+ Vigencia:=FechaVenta, CondicionesPago:=-1,
+ PedidoContrato:="-1", AtencionA:="-1", CveMetodoPago33:=-1,
+ CveFormaPago33:=-1, TipoDocto:="Rem", CveCliente:=-1, CveClienteSucursal:=-1,
+ OrdenCompra:="-1", RetIVA:=0, RetISR:=0, Kilometraje:=0D, CveUsoCFDi:=-1,
+ CveVendedor:=-1, ServicioDomicilio:=False, CveMedico:=-1, CveProcedimiento:=-1,
+ FechaParaSurtir:=MinFecha, Paciente:="-1", Episodio:="-1", CveCondicionEntrega:=-1, FolioRemision:="-1") Then
+ OcurrioError = True
+ End If
+
+
+
+ 'Cargo de nueva cuenta el detalle de Ventas (Conceptos)
+ If Not OcurrioError Then
+ Dim index As Integer = 0
+ For Each Row As DataRow In TmpDT.Rows
+ Dim CveVentaDetalle As Integer = Row("CveVentaDetalle").ToString().ToEntero()
+ If CveVentaDetalle > 0 Then
+ If Not ObjVentas.UpdateVentaDetalleRemision(Row("CveVentaDetalle").ToString().ToEntero(), Row("CvePS").ToString().ToEntero(), Row("Cantidad").ToString().ToDecimal, SubTotalNew, Row("ImporteIEPS").ToString().ToDecimal(), Row("PorcentajeIEPS").ToString().ToDecimal(), IVANew, PorcentajeIVA, 0, DescripcionNew, UsuarioActual.CveUsuario) Then
+ OcurrioError = True
+ End If
+ End If
+ Exit For ' solo debe de tener un detalle por eso se sale
+ index = index + 1
+ Next
+ End If
+
+
+
+ If Not OcurrioError Then
+
+ ' Dim ObjPrePoliza As New ClsContabilidad(transaccionSql)
+ Dim DTPrePoliza As New DataTable
+
+ If ObjConta.GetPrePolizasDetalle(CvePrePoliza, UsuarioActual.CveEmpresa) Then
+ DTPrePoliza = ObjConta.DtResultados
+ If DTPrePoliza.Rows.Count = 0 Then
+ OcurrioError = True
+ Alert("No se encontraron datos de prepoliza", TipoMensaje.MsgAdvertencia)
+ End If
+ Else
+ OcurrioError = True
+ End If
+
+
+ For Each dRow As DataRow In DTPrePoliza.Rows
+
+ If Not ObjConta.UpdatePrePolizasDetalleContrato(dRow("CvePrePolizaDetalle").ToString.ToEntero, dRow("Concepto").ToString, dRow("CveSubProyecto").ToString.ToEntero, -1, Boolean.Parse(dRow("TipoMovto").ToString), ImporteMN:=(TotalNew * TC), Importe:=TotalNew, TipoCambio:=TC, ImporteME:=If(CveMonedaNew = 2, TotalNew, 0)) Then
+ OcurrioError = True
+ Exit For
+ End If
+ Next
+
+
+ End If
+
+
+ If ObjConta.ValidacionesPrePoliza(-1, UsuarioActual, Opcion:=2, CveVenta:=CveVentaRemision) Then
+ If ObjConta.ValorPolizaDescuadre > 0 Then
+ If ObjConta.ValorPolizaDescuadre = 2 Then
+ OcurrioError = True
+ Alert(ObjConta.MensajePolizaDescuadre, TipoMensaje.MsgError)
+ End If
+ End If
+ End If
+
+
+ Catch ex As Exception
+ OcurrioError = True
+ OnError("Ocurrió un error al actualizar la remisión", ex)
+ End Try
+
+ If OcurrioError Then
+ 'Alert("Ocurrió un error al guardar los cambios. Por favor intente de nuevo.", TipoMensaje.MsgError)
+ Return False
+ Else
+ ' Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion, JSBtnAceptar:="BtnRefrescarPagina();")
+ Return True
+ End If
+
+
+
+ End Function
+
Protected Sub EliminarContrato(sender As Object, e As EventArgs)
Dim ObjContratos As New ClsContratos
If (CveContratoTipo = 35) Then
diff --git a/Transportes/RepContratosCalendario.aspx b/Transportes/RepContratosCalendario.aspx
index 386133e9d..4245b8d34 100644
--- a/Transportes/RepContratosCalendario.aspx
+++ b/Transportes/RepContratosCalendario.aspx
@@ -32,7 +32,7 @@
}*/
- /* .fc-month-view .fc-day {
+ .fc-month-view .fc-day {
border-left: 4px solid #464646;
border-right: 4px solid #464646
}
@@ -43,7 +43,7 @@
}
.fc-month-view .fc-row.fc-week.fc-widget-content:last-of-type {
border-bottom: 4px solid #464646!important;
- } */
+ }
@@ -107,7 +107,7 @@
}
-
+
@@ -409,7 +409,7 @@
-