AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

--merge Saldos iniciales

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2023-11-25 18:48:38 -07:00
parent 65771e7fbb 40b414f98e
commit adcfc84af2
20 changed files with 429 additions and 545 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Ventas/CatClasificaciones.aspx
View File

@@ -101,7 +101,7 @@
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Cuenta Ingresos">
<asp:TemplateField HeaderText="Cuenta Ingresos" Visible="true">
<ItemTemplate>
<asp:Label ID="LtlCuentaIngresos" runat="server" Text=''></asp:Label>
</ItemTemplate>

8
Ventas/CatClasificacionesDetalle.aspx
View File

@@ -110,7 +110,7 @@
<asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" ShowHeader="True" DataKeyNames="CveClasificacion,CveSubProyecto" EmptyDataText="No se encontraron Clasificaciones Registradas" ToolTip="Listado de Clasificaciones" CssClass="table table-striped table-hover Widthall" Style="text-align: left;" GridLines="None">
<asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" ShowHeader="True" DataKeyNames="CveClasificacion,CveSubProyecto,CveCuentaAsignacionGasto" EmptyDataText="No se encontraron Clasificaciones Registradas" ToolTip="Listado de Clasificaciones" CssClass="table table-striped table-hover Widthall btn-sm" Style="text-align: left;" GridLines="None">
<Columns>
<asp:TemplateField HeaderText="Proyecto">
<ItemTemplate>
@@ -135,11 +135,11 @@
<asp:Literal ID="LtlCuentaGasto" runat="server" Text='<%# Eval("CuentaGasto")%>'></asp:Literal>
</ItemTemplate>
<EditItemTemplate>
<asp:DropDownList ID="DdlCuentaGasto" DataTextField="CtaCodigo" CssClass="form-control input-sm select2me" DataValueField="Id" runat="server" Width="144px"></asp:DropDownList>
<asp:DropDownList ID="DdlCuentaGasto" DataTextField="CtaCodigo" CssClass="form-control input-sm select2me" DataValueField="CveCuenta" runat="server" Width="100%"></asp:DropDownList>
</EditItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Cuenta Costos">
<asp:TemplateField HeaderText="Cuenta Costos" Visible="false">
<ItemTemplate>
<asp:Literal ID="LtlCuentaCostos" runat="server" Text='<%# Eval("CuentaCostos")%>'></asp:Literal>
</ItemTemplate>
@@ -148,7 +148,7 @@
</EditItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Cuenta Ingresos" HeaderStyle-Width="400px">
<asp:TemplateField HeaderText="Cuenta Ingresos" HeaderStyle-Width="400px" Visible="false">
<ItemTemplate>
<asp:Literal ID="LtlCuentaIngresos" runat="server" Text='<%# Eval("CuentaIngresos")%>'></asp:Literal>
</ItemTemplate>

160
Ventas/CatClasificacionesDetalle.aspx.vb
View File

@@ -40,32 +40,32 @@ Partial Class CatClasificacionesDetalle
If CargaDatos() Then
If UsuarioActual.Empresa.TipoContabilidad = 2 Then
Dim Cuenta As New ClsContPAQi(UsuarioActual.Empresa)
'If UsuarioActual.Empresa.TipoContabilidad = 2 Then
' Dim Cuenta As New ClsContPAQi(UsuarioActual.Empresa)
If Cuenta.GetCuentas(-1, "-1", -1) Then
DtCuentas = Cuenta.DtResultados
End If
Cuenta.Dispose()
Try
DdlCuentaGasto.DataSource = DtCuentas : DdlCuentaGasto.DataBind()
Catch ex As Exception
' If Cuenta.GetCuentas(-1, "-1", -1) Then
' DtCuentas = Cuenta.DtResultados
' End If
' Cuenta.Dispose()
' Try
' DdlCuentaGasto.DataSource = DtCuentas : DdlCuentaGasto.DataBind()
' Catch ex As Exception
End Try
' End Try
Try
DdlCuentaCostos.DataSource = DtCuentas : DdlCuentaCostos.DataBind()
Catch ex As Exception
' Try
' DdlCuentaCostos.DataSource = DtCuentas : DdlCuentaCostos.DataBind()
' Catch ex As Exception
End Try
' End Try
Try
DdlCuentaIngresos.DataSource = DtCuentas : DdlCuentaIngresos.DataBind()
Catch ex As Exception
' Try
' DdlCuentaIngresos.DataSource = DtCuentas : DdlCuentaIngresos.DataBind()
' Catch ex As Exception
End Try
' End Try
End If
'End If
DdlCuentaGasto.Items.Insert(0, New ListItem("-", "-1"))
DdlCuentaCostos.Items.Insert(0, New ListItem("-", "-1"))
DdlCuentaIngresos.Items.Insert(0, New ListItem("-", "-1"))
@@ -103,9 +103,9 @@ Partial Class CatClasificacionesDetalle
If dr IsNot Nothing Then
TxtClasificacion.Text = dr("Clasificacion").ToString
LblClasificacion.Text = dr("Clasificacion").ToString
DdlCuentaGasto.SelectedValue = dr("IdCuentaGasto").ToString
DdlCuentaCostos.SelectedValue = dr("IdCuentaCostos").ToString
DdlCuentaIngresos.SelectedValue = dr("IdCuentaIngresos").ToString
'DdlCuentaGasto.SelectedValue = dr("CveCuentaGasto").ToString
'DdlCuentaCostos.SelectedValue = dr("IdCuentaCostos").ToString
'DdlCuentaIngresos.SelectedValue = dr("IdCuentaIngresos").ToString
DdlCategoria.DataSource = GlobalDTGralCategorias(UsuarioActual.CveEmpresa)
DdlCategoria.DataBind()
@@ -117,7 +117,6 @@ Partial Class CatClasificacionesDetalle
If ObjClasificaciones.GetClasificacionesSubProyecto(CveClasificacion, UsuarioActual.CveEmpresa) Then
ViewState("DTClasificaciones") = ObjClasificaciones.DtResultados
Else
Me.GvDatos.DataSource = Nothing
End If
@@ -159,34 +158,34 @@ Partial Class CatClasificacionesDetalle
Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowDataBound
If e.Row.RowType = DataControlRowType.DataRow Then
If e.Row.RowIndex = 0 Then
e.Row.Cells(0).Width = Unit.Pixel(150)
e.Row.Cells(1).Width = Unit.Pixel(150)
e.Row.Cells(2).Width = Unit.Pixel(220)
e.Row.Cells(3).Width = Unit.Pixel(220)
'If e.Row.RowIndex = 0 Then
' e.Row.Cells(0).Width = Unit.Pixel(150)
' e.Row.Cells(1).Width = Unit.Pixel(150)
' e.Row.Cells(2).Width = Unit.Pixel(220)
' e.Row.Cells(3).Width = Unit.Pixel(220)
e.Row.Cells(4).Width = Unit.Pixel(60)
e.Row.Cells(5).Width = Unit.Pixel(61)
'e.Row.Cells(7).Width = Unit.Pixel(50)
'e.Row.Cells(8).Width = Unit.Pixel(50)
End If
' e.Row.Cells(4).Width = Unit.Pixel(60)
' e.Row.Cells(5).Width = Unit.Pixel(61)
' 'e.Row.Cells(7).Width = Unit.Pixel(50)
' 'e.Row.Cells(8).Width = Unit.Pixel(50)
'End If
If e.Row.RowState = DataControlRowState.Edit OrElse e.Row.RowState = 5 Then
e.Row.FCDropDownList("DdlCuentaGasto").DataSource = DtCuentas
e.Row.FCDropDownList("DdlCuentaGasto").DataSource = GlobalDTContaCuentasContables(UsuarioActual.CveEmpresa, Afectable:=1)
e.Row.FCDropDownList("DdlCuentaGasto").DataBind()
e.Row.FCDropDownList("DdlCuentaGasto").Items.Insert(0, New ListItem("-", "-1"))
e.Row.FCDropDownList("DdlCuentaGasto").SelectedValue = e.Row.DBCampo("IdCuentaGasto")
e.Row.FCDropDownList("DdlCuentaGasto").SelectedValue = e.Row.DBCampo("CveCuentaGasto")
e.Row.FCDropDownList("DdlCuentaCostos").DataSource = DtCuentas
e.Row.FCDropDownList("DdlCuentaCostos").DataBind()
e.Row.FCDropDownList("DdlCuentaCostos").Items.Insert(0, New ListItem("-", "-1"))
e.Row.FCDropDownList("DdlCuentaCostos").SelectedValue = e.Row.DBCampo("IdCuentaCostos")
'e.Row.FCDropDownList("DdlCuentaCostos").DataSource = DtCuentas
'e.Row.FCDropDownList("DdlCuentaCostos").DataBind()
'e.Row.FCDropDownList("DdlCuentaCostos").Items.Insert(0, New ListItem("-", "-1"))
'e.Row.FCDropDownList("DdlCuentaCostos").SelectedValue = e.Row.DBCampo("IdCuentaCostos")
e.Row.FCDropDownList("DdlCuentaIngresos").DataSource = DtCuentas
e.Row.FCDropDownList("DdlCuentaIngresos").DataBind()
e.Row.FCDropDownList("DdlCuentaIngresos").Items.Insert(0, New ListItem("-", "-1"))
e.Row.FCDropDownList("DdlCuentaIngresos").SelectedValue = e.Row.DBCampo("IdCuentaIngresos")
'e.Row.FCDropDownList("DdlCuentaIngresos").DataSource = DtCuentas
'e.Row.FCDropDownList("DdlCuentaIngresos").DataBind()
'e.Row.FCDropDownList("DdlCuentaIngresos").Items.Insert(0, New ListItem("-", "-1"))
'e.Row.FCDropDownList("DdlCuentaIngresos").SelectedValue = e.Row.DBCampo("IdCuentaIngresos")
'e.Row.FCDropDownList("DdlCuentaInventario").DataSource = DtCuentas
'e.Row.FCDropDownList("DdlCuentaInventario").DataBind()
@@ -210,15 +209,27 @@ Partial Class CatClasificacionesDetalle
End Sub
Protected Sub GvDatos_RowDeleting(sender As Object, e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GvDatos.RowDeleting
Dim ObjClasificaciones As New ClsClasificaciones
If ObjClasificaciones.RemoveClasificacion(GvDatos.DataKeys(e.RowIndex).Value.ToString.ToEntero) Then
'Dim ObjClasificaciones As New ClsClasificaciones
'If ObjClasificaciones.RemoveClasificacion(GvDatos.DataKeys(e.RowIndex).Value.ToString.ToEntero) Then
' GvDatos.EditIndex = -1
' ViewState("DTClasificaciones") = ObjClasificaciones.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
' Alert("La Clasificación se eliminó correctamente.", TipoMensaje.MsgInformacion)
'Else
' Alert("Ocurrió un error al eliminar la clasificación. Por favor vuelva a intentar.", TipoMensaje.MsgError)
'End If
'CargaGlobal()
'ObjClasificaciones.Dispose()
Dim ObjClasificaciones As New ClsContabilidad
If ObjClasificaciones.RemoveCuentasAsignaciones(GvDatos.Rows(e.RowIndex).DataKey("CveCuentaAsignacionGasto").ToEntero) Then
GvDatos.EditIndex = -1
ViewState("DTClasificaciones") = ObjClasificaciones.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
CargaDatos()
'ViewState("DTClasificaciones") = ObjClasificaciones.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
Alert("La Clasificación se eliminó correctamente.", TipoMensaje.MsgInformacion)
Else
Alert("Ocurrió un error al eliminar la clasificación. Por favor vuelva a intentar.", TipoMensaje.MsgError)
End If
CargaGlobal()
ObjClasificaciones.Dispose()
If ViewState("Orden").ToString() <> String.Empty Then
@@ -227,7 +238,6 @@ Partial Class CatClasificacionesDetalle
CargaGrid("")
End If
End Sub
Protected Sub GvDatos_RowCancelingEdit(sender As Object, e As System.Web.UI.WebControls.GridViewCancelEditEventArgs) Handles GvDatos.RowCancelingEdit
@@ -240,14 +250,14 @@ Partial Class CatClasificacionesDetalle
End Sub
Protected Sub GvDatos_RowUpdating(sender As Object, e As System.Web.UI.WebControls.GridViewUpdateEventArgs) Handles GvDatos.RowUpdating
Dim ObjClasificaciones As New ClsClasificaciones
'Dim ObjClasificaciones As New ClsClasificaciones
Dim CveSubProyecto As Integer = e.Keys("CveSubProyecto").ToString.ToEntero
Dim tCveClasificacion As Integer = e.Keys("CveClasificacion").ToString.ToEntero
Dim DdlGasto As DropDownList = GvDatos.Rows(e.RowIndex).FCDropDownList("DdlCuentaGasto")
Dim DdlCostos As DropDownList = GvDatos.Rows(e.RowIndex).FCDropDownList("DdlCuentaCostos")
Dim DdlIngresos As DropDownList = GvDatos.Rows(e.RowIndex).FCDropDownList("DdlCuentaIngresos")
'Dim DdlCostos As DropDownList = GvDatos.Rows(e.RowIndex).FCDropDownList("DdlCuentaCostos")
'Dim DdlIngresos As DropDownList = GvDatos.Rows(e.RowIndex).FCDropDownList("DdlCuentaIngresos")
'If ObjClasificaciones.UpdateClasificacionSubProyecto(tCveClasificacion, CveSubProyecto, DdlIngresos.SelectedValue.ToEntero, DdlIngresos.SelectedItem.Text) Then
' GvDatos.EditIndex = -1
@@ -256,6 +266,54 @@ Partial Class CatClasificacionesDetalle
'Else
' Alert("Ocurrió un error al actualizar la clasificación. Por favor vuelva a intentar.", TipoMensaje.MsgError)
'End If
Dim gvr As GridViewRow = GvDatos.Rows(e.RowIndex)
Dim ObjClasificaciones As New ClsContabilidad
If gvr.DataKey("CveCuentaAsignacionGasto").ToEntero = 0 Then
If ObjClasificaciones.AddCuentasAsignaciones(6, UsuarioActual.CveEmpresa,
DdlGasto.SelectedValue.ToEntero,
CveClasificacion:=gvr.DataKey("CveClasificacion").ToEntero,
CveSubProyecto:=gvr.DataKey("CveSubProyecto").ToEntero) Then
GvDatos.EditIndex = -1
CargaDatos()
'ViewState("DTClasificaciones") = ObjClasificaciones.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
Alert("La Clasificación se registró correctamente.", TipoMensaje.MsgInformacion)
Else
Alert("Ocurrió un error al registró la clasificación. Por favor vuelva a intentar.", TipoMensaje.MsgError)
End If
Else
If DdlGasto.SelectedValue.ToEntero > 0 Then
If ObjClasificaciones.UpdateCuentasAsignaciones(gvr.DataKey("CveCuentaAsignacionGasto").ToEntero,
CveConceptoContable:=6,
CveCuenta:=DdlGasto.SelectedValue.ToEntero,
CveClasificacion:=gvr.DataKey("CveClasificacion").ToEntero,
CveSubProyecto:=gvr.DataKey("CveSubProyecto").ToEntero) Then
GvDatos.EditIndex = -1
CargaDatos()
'ViewState("DTClasificaciones") = ObjClasificaciones.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
Alert("La Clasificación se actualizo correctamente.", TipoMensaje.MsgInformacion)
Else
Alert("Ocurrió un error se actualizó la clasificación. Por favor vuelva a intentar.", TipoMensaje.MsgError)
End If
Else
If ObjClasificaciones.RemoveCuentasAsignaciones(gvr.DataKey("CveCuentaAsignacionGasto").ToEntero) Then
GvDatos.EditIndex = -1
CargaDatos()
'ViewState("DTClasificaciones") = ObjClasificaciones.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
Alert("La Clasificación se eliminó correctamente.", TipoMensaje.MsgInformacion)
Else
Alert("Ocurrió un error se eliminó la clasificación. Por favor vuelva a intentar.", TipoMensaje.MsgError)
End If
End If
End If
ObjClasificaciones.Dispose()

12
Ventas/Clientes.aspx.vb
View File

@@ -800,11 +800,11 @@ Partial Class Clientes
If Request("ATI") IsNot Nothing AndAlso IsNumeric(Request("ATI")) Then
Tab.ActiveTabIndex = Request("ATI").ToEntero()
End If
'CargaCuentasyConceptos()
End If
If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso UsuarioActual.TienePermisoProceso(353) Then
DVLnkCambiarVendedor.Visible = True
DdlVendedor.Enabled = True
End If
@@ -10325,12 +10325,6 @@ Partial Class Clientes
Exit Sub
End If
If CveVendedorOriginal = DdlVendedor.SelectedValue.ToEntero Then
Alert("Debe de seleccionar un vendedor distinto para actualizar.", TipoMensaje.MsgAdvertencia)
Exit Sub
End If
Dim ObjVentas As New ClsVentas
Dim ErrorCambio As Boolean = False

58
Ventas/Ventas.aspx.vb
View File

@@ -8911,13 +8911,9 @@ Partial Class Ventas
Exit Sub
End If
If Not LblRFC.Text.Trim().ToUpper().Contiene("XAXX010101000", "XEXX010101000") AndAlso RegimenFiscalCliente = "616" Then
Alert("El Regimen fiscal del cliente no puede ser <b>'616 - Sin obligaciones fiscales'</b> si no se utiliza el RFC genérico.", TipoMensaje.MsgAdvertencia)
Exit Sub
End If
'If Not LblRFC.Text.Trim().ToUpper().Contiene("XAXX010101000", "XEXX010101000") AndAlso DdlUsoCFDI.SelectedValue = "23" Then
' Alert("El uso cfdi del cliente no puede ser <b>'S01 - Sin efectos fiscales'</b> si no se utiliza el RFC genérico.", TipoMensaje.MsgAdvertencia)
'hay RFC con regimen 616, con evidencia de constancia
'If Not LblRFC.Text.Trim().ToUpper().Contiene("XAXX010101000", "XEXX010101000") AndAlso RegimenFiscalCliente = "616" Then
' Alert("El Regimen fiscal del cliente no puede ser <b>'616 - Sin obligaciones fiscales'</b> si no se utiliza el RFC genérico.", TipoMensaje.MsgAdvertencia)
' Exit Sub
'End If
@@ -15739,10 +15735,8 @@ Partial Class Ventas
End Sub
Private Sub AplicaAnticipos()
If CveVenta > 0 And CveCliente > 0 And Not EsCreaApartirDe And CveDevolucion <= 0 Then
Dim EsAnticipo2017Jam As Boolean = False
For Each gvr As GridViewRow In GVAnticipos.Rows
If gvr.FCCheckBox("Chk" & gvr.RowIndex) IsNot Nothing AndAlso gvr.FCCheckBox("Chk" & gvr.RowIndex).Checked Then
@@ -15764,20 +15758,7 @@ Partial Class Ventas
Dim ErrorConta As Boolean
Dim CveIEAnticipo As Integer
Dim CvePlantillaPoliza As Integer = 10
'Dim PorcentajeAmortizacion As Decimal
'Dim sumaAmorticaciones As Decimal = 0
'Dim alertaContabilizacion As String = "Se enviaron correctamente las siguientes pólizas:<br><br>"
'Dim CveCuentaContabilizacion As Integer = 1
Dim CuentasContablesInvalidas As New StringBuilder
Dim ContaIdPoliza As Integer = 0
'Dim ConceptoAmortizacion As Integer = 0
'Dim UsaComplementariaClientes As Boolean = True
''[IPP] PARCHE TEMPORAL PARA ANTICIPOS DE JAM
'If FechaMaxima < "01/01/2018".ToDate And UsuarioActual.CveEmpresa = 119 Then
' FechaMaxima = "01/01/2018".ToDate
'End If
'Dim NowADS() As DateTime = New DateTime(2020, 2, 19)
Try
CvePrePoliza = ObjConta.AddPrePolizas("Ventas/Anticipos", CvePlantillaPoliza, TxtTotal.Text.ToDecimal, TxtTotal.Text.ToDecimal, DdlMoneda.SelectedValue.ToEntero(), TxtFechaAnticipoCliente.Text.ToDate, String.Format("{0} {1} {2}-{3}", If(EsAnticipo2017Jam, "Aplicación Anticipo 2017", ""), NombreCliente, Serie, TxtFolio.Text), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
@@ -15802,7 +15783,6 @@ Partial Class Ventas
Dim tFecha As Date = NowADS()
Dim UltimaFluctuacion As MTipoCambioFluctuacion = GlobalTipoCambioUltimaFluctuacion(tFecha)
If UsuarioActual.Empresa.Funcionalidad(703) = "1" AndAlso UltimaFluctuacion IsNot Nothing Then
If UltimaFluctuacion.FechaFluctuacion <= tFecha Then
FechaUltimaFluctuacion = UltimaFluctuacion.FechaFluctuacion
@@ -15923,39 +15903,19 @@ Partial Class Ventas
ErrorConta = AplicaPrePolizaPagoVenta(VentaActual, Pago, CvePrePoliza, ObjConta)
'Dim Pago As New VentaPago
'Pago.ImportePagoVenta = importeMovimiento
'Pago.ImportePago = importeMovimiento
'Pago.CveIE = CveIEAnticipo
'Pago.CveMonedaPago = gvr.DataKey("CveMoneda").ToEntero()
'Pago.TCPago = gvr.DataKey("TipoCambio").ToDecimal
'Pago.TipoPago = "I"
'Pago.FechaDocumentoRelacionado = gvr.DataKey("Fecha").ToDate
'Pago.CveVentaAmortizacion = gvr.DataKey("CveVenta").ToEntero()
'Pago.Referencia = gvr.DataKey("Folio")
'importeMovimiento = ((gvr.FCTextBox("TxtAnticipo" & gvr.RowIndex).Text.ToDecimal / TxtTotal.Text.ToDecimal) * TxtIVA.Text.ToDecimal)
'importeMN = Math.Round(importeMovimiento * tipoCambioPago, 2, MidpointRounding.AwayFromZero)
''Agregamos el 92
'importeMovimiento = gvr.FCTextBox("TxtAnticipo" & gvr.RowIndex).Text.ToDecimal 'gvr.FCTextBox("TxtAnticipo" & gvr.RowIndex).Text.ToDecimal - ((gvr.FCTextBox("TxtAnticipo" & gvr.RowIndex).Text.ToDecimal / gvr.DataKey("TotalAnticipo" & gvr.RowIndex).ToDecimal) * gvr.DataKey("IVAAnticipo").ToDecimal)
'importeMN = Math.Round(importeMovimiento * tipoCambioPago, 2, MidpointRounding.AwayFromZero)
End If
End If
End Select
End If
Next
Else
ErrorConta = True
End If
If ObjConta.ValidacionesPrePoliza(CvePrePoliza, UsuarioActual, 3) Then
''OPCION:99 - NO SIMPLIFICAR
If Not ErrorConta AndAlso ObjConta.ValidacionesPrePoliza(CvePrePoliza, UsuarioActual, Opcion:=99, AutoConta:=False) Then
If ObjConta.ValorPolizaDescuadre > 0 Then
GuardaLogAD($"Ventas/Ventas-Anticipos | Error:{ObjConta.MensajePolizaDescuadre} Diferencia:{ObjConta.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas")
ErrorConta = True
End If
End If
@@ -15972,8 +15932,8 @@ Partial Class Ventas
Msg.Append("Se ha amortizado correctamente")
'AJUSTA POLIZA
If ContaIdPoliza > 0 Then
Msg.AppendFormat("<br/><br/><a class=""Texto"" target='_blank' href=""/Contabilidad/RegPoliza.aspx?IdPoliza={0}"">Ver Póliza</a>", ContaIdPoliza)
If ObjConta.ContaFolio > 0 Then
Msg.AppendFormat("<br/><br/><a class=""Texto"" target='_blank' href=""/Contabilidad/RegPrePolizas.aspx?CvePrePoliza={0}"">Ver Póliza</a>", CvePrePoliza)
End If
ObjConta.Commit()
@@ -16130,14 +16090,12 @@ Partial Class Ventas
End If
End If
LblAmortizacion.Text = Amortizacion.FormatoNumero(2)
LblAmortizacion.Text = Amortizacion.FormatoNumero
HdnTipoDescuento.Value = "-1"
HdnDescuento.Value = "0"
RegistraScript("BorraDescuentos();")
HdnTieneAnticiposVinculados.Value = "1"
End If
CalculaTotalesVenta(ValidarDescuentos:=True)
End If