diff --git a/AF/CatAF.aspx.vb b/AF/CatAF.aspx.vb
index b5e500e31..14a3d44f4 100644
--- a/AF/CatAF.aspx.vb
+++ b/AF/CatAF.aspx.vb
@@ -458,7 +458,8 @@ Partial Class AF_CatAF
Dim params As New List(Of ReportParameter)
Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
-
+ Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos\CatAF.rdlc", UsuarioActual.Empresa.Ruta))
+ Dim Ruta As String = ""
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
@@ -468,7 +469,13 @@ Partial Class AF_CatAF
Else
params.Add(New ReportParameter("LogoPath", ""))
End If
- ImprimirPDF(String.Format("{0}Formatos\CatAF.rdlc", UsuarioActual.Empresa.Ruta), DtActivosFijos, params, "CatalogoActivosFijos", Formato:=Formato)
+
+ If Archivo.Exists Then
+ Ruta = UsuarioActual.Empresa.Ruta & "Formatos/CatAF.rdlc"
+ Else
+ Ruta = "Empresas/Grales/Formatos/CatAF.rdlc"
+ End If
+ ImprimirPDF(Ruta, DtActivosFijos, params, "CatalogoActivosFijos", Formato:=Formato)
Else
Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)
diff --git a/App_Code/ClsContabilidad.vb b/App_Code/ClsContabilidad.vb
index 8b5995aea..a23c60cc3 100644
--- a/App_Code/ClsContabilidad.vb
+++ b/App_Code/ClsContabilidad.vb
@@ -2445,7 +2445,7 @@ Public Class ClsContabilidad
End Function
Public Function UpdateConta_PlantillasPolizasDetalle(CveConcepto As Integer, TipoMovto As Integer, IdCtaContable As Integer, Orden As Integer,
CvePlantillaPolizaDetalle As Integer, CveSubProyecto As Integer, CveProveedor As Integer,
- Optional CvePersonal As Integer = -1, Optional PorcentajeImpuesto As Decimal = 0) As Boolean
+ Optional CvePersonal As Integer = -1, Optional PorcentajeImpuesto As Decimal = 0, Optional CveCuenta As Integer = -1) As Boolean
Dim retorno As Boolean = False
DataAdapter("PA_Conta_PlantillasPolizasDetalleUpdate")
@@ -2460,6 +2460,8 @@ Public Class ClsContabilidad
.Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor
.Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal
.Add("@PorcentajeImpuesto", SqlDbType.SmallMoney).Value = PorcentajeImpuesto
+ .Add("@CveCuenta", SqlDbType.Int).Value = CveCuenta
+
End With
Try
diff --git a/Bancos/DepositosCaja.aspx b/Bancos/DepositosCaja.aspx
index e3177fe7f..373fb7416 100644
--- a/Bancos/DepositosCaja.aspx
+++ b/Bancos/DepositosCaja.aspx
@@ -41,7 +41,7 @@
diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb
index 5dab27d13..b4ecba029 100644
--- a/Bancos/IE.aspx.vb
+++ b/Bancos/IE.aspx.vb
@@ -179,10 +179,19 @@ Partial Class Bancos_IE
ViewState("FechaCompra") = value
End Set
End Property
+ Private Property CveIECancelacion As Integer
+ Get
+ If ViewState("CveIECancelacion") Is Nothing Then
+ Return -1
+ Else
+ Return ViewState("CveIECancelacion").ToString().ToEntero()
+ End If
-
-
-
+ End Get
+ Set(value As Integer)
+ ViewState("CveIECancelacion") = value
+ End Set
+ End Property
Private Property ImporteOriginalDevDin As Decimal
Get
@@ -1002,9 +1011,6 @@ Partial Class Bancos_IE
Select Case ObjIE.CveEstatusIE
Case 1
If Not ObjIE.FueConciliado Then
- 'If UsuarioActual.TienePermisoProceso(85) Then ImgCancelarMovimiento.Visible = True
- If UsuarioActual.TienePermisoProceso(85) Then LnkCancelar.Visible = True
-
'ELIMINAR IE SIN VALIDACIONES
If UsuarioActual.TienePermisoProceso(80) AndAlso NumComplementos = 0 Then LnkEliminar.Visible = True
@@ -1014,6 +1020,8 @@ Partial Class Bancos_IE
End If
End If
+ If UsuarioActual.TienePermisoProceso(85) Then LnkCancelar.Visible = True
+
''COMENTAR - solo para pruebas
'If UsuarioActual.TienePermisoProceso(85) Then LnkCancelar.Visible = True
'If UsuarioActual.TienePermisoProceso(80) Then LnkEliminar.Visible = True
@@ -1134,6 +1142,7 @@ Partial Class Bancos_IE
LbMovimientoCancelado.Text = "Movimiento de Cancelación:"
HLIECancelacion.NavigateUrl = String.Format("/Bancos/IE.aspx?CveIE={0}", ObjIE.CveIECancelacion)
HLIECancelacion.Text = ObjIE.FolioIECancelacion
+ CveIECancelacion = ObjIE.CveIECancelacion
End If
'MOVIMIENTO CANCELADO
@@ -1233,7 +1242,7 @@ Partial Class Bancos_IE
End If
LnkEliminar.Visible = False
- LnkCancelar.Visible = False
+ 'LnkCancelar.Visible = False
LnkCancelarComplemento.Visible = True
LnkCancelarComplementoImporte.Visible = True
@@ -1243,7 +1252,7 @@ Partial Class Bancos_IE
Else
BtnEditar.Visible = False
- LnkEliminar.Visible = False
+ 'LnkEliminar.Visible = False
LnkCancelarComplemento.Visible = False
LnkCancelarComplementoImporte.Visible = False
DVGenerarComplementoModal.Visible = False
@@ -4753,7 +4762,11 @@ Partial Class Bancos_IE
End Sub
Protected Sub LnkEliminar_Click(sender As Object, e As EventArgs) Handles LnkEliminar.Click
- RegistraScript(String.Format("$('#{0}').modal('show');", "divDescripcion"))
+ If CveIECancelacion > 0 Then
+ Alert("El Movimiento no se puede eliminar porque tiene una cancelación relacionada, se tiene que eliminar primero la cancelación", TipoMensaje.MsgAdvertencia)
+ Else
+ RegistraScript(String.Format("$('#{0}').modal('show');", "divDescripcion"))
+ End If
End Sub
#End Region
@@ -5990,11 +6003,36 @@ Partial Class Bancos_IE
Protected Sub LnkCancelar_Click(sender As Object, e As EventArgs)
If ChkConciliado.Checked Then
- Alert("El documento seleccionado no se puede eliminar porque se encuentra conciliado.", TipoMensaje.MsgError)
- Exit Sub
+ TxtFechaDesconciliado.Text = Now.ToShortDateString
+ UpDesconciliar.Update()
+ RegistraScript("$('#DModalDesconciliar').modal()")
End If
RegistraScript("ShowDivCancelarIE();")
End Sub
+ Protected Sub BtnDesconciliar_Click(sender As Object, e As EventArgs)
+ Dim ObjBancos As New ClsBancos
+ Dim ObjOI As New ClsOIEventos(ObjBancos.IniciaTransacSQL())
+ Dim ErrorTrans As Boolean = False
+
+
+ If ObjBancos.DesconciliarIE(CveIE, TxtFechaDesconciliado.Text.ToDate(), UsuarioActual.CveUsuario) Then
+ If Not ObjOI.AddEventoBitacora("El pago ha sido desconciliado", "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveIE:=CveIE) Then
+ ErrorTrans = True
+ End If
+ Else
+ ErrorTrans = True
+ End If
+
+ If Not ErrorTrans Then
+ ObjBancos.Commit()
+ Alert("Desconciliado correctamente")
+ RegistraScript("$('#DModalDesconciliar').modal('hide')")
+ Else
+ ObjBancos.RollBack()
+ End If
+ ObjBancos.Dispose()
+ ObjOI.Dispose()
+ End Sub
Private Sub LnkEmitirComplemento_Click(sender As Object, e As EventArgs) Handles LnkEmitirComplemento.Click
GeneraTimbre()
diff --git a/CRM/Acercamiento.aspx b/CRM/Acercamiento.aspx
index 4fac5eeab..dbde48b14 100644
--- a/CRM/Acercamiento.aspx
+++ b/CRM/Acercamiento.aspx
@@ -748,7 +748,7 @@
-
+
diff --git a/Contabilidad/FiltraPolizas.aspx.vb b/Contabilidad/FiltraPolizas.aspx.vb
index cf6c11e5c..df68997dd 100644
--- a/Contabilidad/FiltraPolizas.aspx.vb
+++ b/Contabilidad/FiltraPolizas.aspx.vb
@@ -345,10 +345,6 @@ Partial Class Contabilidad_FiltraPolizas
Alert(PolizasSinComprobante, TipoMensaje.MsgAdvertencia)
Else
MergePdfFiles(Pathpdf.ToArray)
- If File.Exists(pathPoliza) Then
- Directory.Delete(String.Format("{0}/{1}", AppDomain.CurrentDomain.BaseDirectory, Tick), True)
- End If
-
End If
Else
Alert("No hay polizas seleccionadas para imprimir", TipoMensaje.MsgAdvertencia)
@@ -358,6 +354,11 @@ Partial Class Contabilidad_FiltraPolizas
Else
Alert("No hay informacion cargada", TipoMensaje.MsgAdvertencia)
End If
+
+ If File.Exists(pathPoliza) Then
+ Directory.Delete(String.Format("{0}/{1}", AppDomain.CurrentDomain.BaseDirectory, Tick), True)
+ End If
+
Catch ex As Exception
Alert("Error al descargar el paquete", TipoMensaje.MsgError)
If File.Exists(pathPoliza) Then
diff --git a/Contabilidad/PlantillasPolizasDetalle.aspx b/Contabilidad/PlantillasPolizasDetalle.aspx
index 3db8c7b0a..691215228 100644
--- a/Contabilidad/PlantillasPolizasDetalle.aspx
+++ b/Contabilidad/PlantillasPolizasDetalle.aspx
@@ -160,7 +160,7 @@
-
+
@@ -176,7 +176,7 @@
- >
+ >
@@ -268,25 +268,24 @@
-
-
-
+
+
-
-
+
+
-
+
-
+
diff --git a/Contabilidad/PlantillasPolizasDetalle.aspx.vb b/Contabilidad/PlantillasPolizasDetalle.aspx.vb
index c80bca90a..500a2c97c 100644
--- a/Contabilidad/PlantillasPolizasDetalle.aspx.vb
+++ b/Contabilidad/PlantillasPolizasDetalle.aspx.vb
@@ -141,7 +141,7 @@ Partial Class Contabilidad_PlantillasPolizasDetalle
DdlCtaContable.Items.Insert(0, New ListItem("Seleccione", "-1"))
- If UsuarioActual.Empresa.TipoContabilizacion = 2 Then
+ If UsuarioActual.Empresa.TipoContabilizacion = 2 Or UsuarioActual.Empresa.TipoContabilidad = 1 Then
Dim Conta As New ClsContabilidad
Dim dtt As New DataTable
@@ -248,12 +248,13 @@ Partial Class Contabilidad_PlantillasPolizasDetalle
Dim Row As DataRow
Dim ErrorActualizar = False
Dim ErrorDetalle = False
-
+ Dim Cuenta As Integer = -1
If HdnModalidad.Value = "I" Then
If CvePlantillaPoliza > 0 Then
- If ObjPlantillaPolizaDetalle.AddConta_PlantillasPolizasDetalles(CvePlantillaPoliza, DdlConcepto.SelectedValue.ToEntero, DdlTipoMovimiento.SelectedValue.ToEntero, DdlCtaContable.SelectedValue.ToEntero, TxtOrden.Text.Trim.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, DDLSubProyecto.SelectedValue.ToEntero, DDLProveedor.SelectedValue.ToEntero, DdlPersonal.SelectedValue.ToEntero, DdlPorcentajeImpuesto.SelectedValue.ToDecimal,
-CveCuenta:=DdlCuentas.SelectedValue.ToEntero) Then
+ If ObjPlantillaPolizaDetalle.AddConta_PlantillasPolizasDetalles(CvePlantillaPoliza, DdlConcepto.SelectedValue.ToEntero, DdlTipoMovimiento.SelectedValue.ToEntero, DdlCtaContable.SelectedItem.ToEntero, TxtOrden.Text.Trim.ToEntero,
+ UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, DDLSubProyecto.SelectedValue.ToEntero, DDLProveedor.SelectedValue.ToEntero, DdlPersonal.SelectedValue.ToEntero,
+ DdlPorcentajeImpuesto.SelectedValue.ToDecimal, CveCuenta:=DdlCuentas.SelectedValue.ToEntero) Then
TxtOrden.Text = ""
If Not ChkSeguirAgregando.Checked Then
updatatos()
@@ -289,8 +290,9 @@ CveCuenta:=DdlCuentas.SelectedValue.ToEntero) Then
Else
If HdnID.Value.ToEntero <> -1 Then
If CvePlantillaPoliza > 0 Then
- If ObjPlantillaPolizaDetalle.UpdateConta_PlantillasPolizasDetalle(DdlConcepto.SelectedValue.ToEntero, DdlTipoMovimiento.SelectedValue.ToEntero, DdlCtaContable.SelectedValue.ToEntero, TxtOrden.Text.Trim.ToEntero,
- HdnID.Value.ToEntero, DDLSubProyecto.SelectedValue.ToEntero, DDLProveedor.SelectedValue.ToEntero, DdlPersonal.SelectedValue.ToEntero, DdlPorcentajeImpuesto.SelectedValue.ToDecimal) Then
+ If ObjPlantillaPolizaDetalle.UpdateConta_PlantillasPolizasDetalle(DdlConcepto.SelectedValue.ToEntero, DdlTipoMovimiento.SelectedValue.ToEntero, DdlCtaContable.SelectedItem.ToEntero, TxtOrden.Text.Trim.ToEntero,
+ HdnID.Value.ToEntero, DDLSubProyecto.SelectedValue.ToEntero, DDLProveedor.SelectedValue.ToEntero, DdlPersonal.SelectedValue.ToEntero,
+ DdlPorcentajeImpuesto.SelectedValue.ToDecimal, CveCuenta:=DdlCuentas.SelectedValue.ToEntero) Then
Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion)
updatatos()
Else
@@ -328,8 +330,11 @@ CveCuenta:=DdlCuentas.SelectedValue.ToEntero) Then
Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowDataBound
If e.Row.RowType = DataControlRowType.DataRow Then
- Dim Cuenta As Integer = e.Row.DataKey("IdCtaContable").ToString.ToEntero
- e.Row.FCLiteral("LtlCtaContable").Text = DTCuentasContables.FiltroPrimeroValor("Nombre", $"Id = {Cuenta}")
+
+ If UsuarioActual.Empresa.TipoContabilidad <> 1 Then
+ Dim Cuenta As Integer = e.Row.DataKey("IdCtaContable").ToString.ToEntero
+ e.Row.FCLiteral("LtlCtaContable").Text = DTCuentasContables.FiltroPrimeroValor("Nombre", $"Id = {Cuenta}")
+ End If
End If
End Sub
@@ -438,6 +443,7 @@ CveCuenta:=DdlCuentas.SelectedValue.ToEntero) Then
DdlConcepto.SelectedValueExist(GvRow.DataKey("CveConcepto"))
DdlTipoMovimiento.SelectedValueExist(IIf(GvRow.DataKey("TipoMovimiento") = "Abono", 1, 0).ToString)
DdlCtaContable.SelectedValueExist(GvRow.DataKey("IdCtaContable"))
+ DdlCuentas.SelectedValueExist(GvRow.DataKey("CveCuenta"))
DDLSubProyecto.SelectedValueExist(GvRow.DataKey("CveSubProyecto"))
TxtOrden.Text = GvRow.DataKey("Orden")
LbAgregar.Text = "Actualizar"
diff --git a/Contabilidad/RegPrePoliza.aspx.vb b/Contabilidad/RegPrePoliza.aspx.vb
index 91c34414b..f0fefccfa 100644
--- a/Contabilidad/RegPrePoliza.aspx.vb
+++ b/Contabilidad/RegPrePoliza.aspx.vb
@@ -1861,14 +1861,12 @@ Partial Class ContabilidadC_RegPrePoliza
End If
Next
MergePdfFiles(Pathpdf.ToArray)
- If File.Exists(pathPoliza) Then
- Directory.Delete(String.Format("{0}/{1}", AppDomain.CurrentDomain.BaseDirectory, Tick), True)
- End If
-
Else
Alert("No se tiene cargado comprobante de pago", TipoMensaje.MsgAdvertencia)
End If
-
+ If File.Exists(pathPoliza) Then
+ Directory.Delete(String.Format("{0}/{1}", AppDomain.CurrentDomain.BaseDirectory, Tick), True)
+ End If
Catch ex As Exception
Alert("Error al descargar el paquete", TipoMensaje.MsgError)
If File.Exists(pathPoliza) Then
diff --git a/Contabilidad/RegPrePolizaS.aspx.vb b/Contabilidad/RegPrePolizaS.aspx.vb
index a12253b63..a1949eead 100644
--- a/Contabilidad/RegPrePolizaS.aspx.vb
+++ b/Contabilidad/RegPrePolizaS.aspx.vb
@@ -1880,7 +1880,7 @@ Partial Class ContabilidadC_RegPrePolizaS
' Conexion As Odbc.OdbcConnection = Nothing
Dim ErrorArchivo = False
Dim ErrorExcel = False
-
+ DdlPlantilla.SelectedValue = DdlPlantilla2.SelectedValue
dt = ReadExcelFile(Ruta + FileName, True)
@@ -1922,35 +1922,21 @@ Partial Class ContabilidadC_RegPrePolizaS
If Not ErrorArchivo Then
+ DtMovimientos.Clear()
Dim ObjConta As New ClsContabilidad()
ObjConta.IniciaTransacSQL()
Try
- Dim TieneError As Boolean = False
- Dim ContadorUpdate As Integer = 0
- Dim ContadorError As Integer = 0
- Dim NombreCuenta As String = ""
- Dim CvePrePoliza As Integer = 0
- Dim Cuenta As String = ""
- Dim Reporte As New StringBuilder
- Dim TotalCargos As Integer = 0
- Dim TotalAbonos As Integer = 0
-
-
- CvePrePoliza = ObjConta.AddPrePolizas("Contabilidad/RegPrePolizaExcel", DdlPlantilla2.SelectedValue.ToEntero, TotalCargos, TotalAbonos, 1, TxtFecha.Text.ToDate, DdlPlantilla2.SelectedItem.Text.ToString, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoPoliza:=DdlTipoPolizaAdd.SelectedValue.ToEntero)
For Each Row As DataRow In dt.Rows
- NombreCuenta = Row("NombreCuenta").ToString
- Cuenta = Row("Cuenta").ToString
- Dim Importe As Decimal = If(Row("Cargo").ToString.ToDecimal <> 0, Row("Cargo").ToString.ToDecimal, Row("Abono").ToString.ToDecimal)
- Dim Concepto As String = Row("Concepto").ToString
- Dim Referencia As String = Row("Referencia").ToString
- Dim CveCuenta As Integer = -1
+ Dim NombreCuenta As String = Row("NombreCuenta").ToString
+ Dim Cuenta As String = Row("Cuenta").ToString
+ Dim ConceptoAdministrativo As String = Row("ConceptoAdministrativo").ToString
+
Dim CveSubProyecto As Integer = Row("CveSubProyecto").ToString.ToEntero
Dim TipoMovto As Boolean = If(Row("Cargo").ToString.ToDecimal <> 0, False, True)
- Dim YaExiste As Boolean = False
Dim CveConceptoContable As Integer = Row("CveConceptoContable").ToString.ToEntero
Dim IdCtaContable As Integer = Row("IdCtaContable").ToString.ToEntero
Dim CveClasificacion As Integer = -1
@@ -1963,56 +1949,44 @@ Partial Class ContabilidadC_RegPrePolizaS
If CveSubProyecto = 0 Then CveSubProyecto = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", String.Format("SubProyecto = '{0}'", Row("SubProyecto"))).ToEntero
+ Dim dr As DataRow = DtMovimientos.NewRow
+ Dim CodigoCuenta As String = ""
+ dr("IdCuenta") = IdCtaContable
+ dr("CodigoCuenta") = Cuenta & " " & NombreCuenta
+ dr("Cuenta") = ConceptoAdministrativo
+ dr("Referencia") = Row("Referencia").ToString
+ dr("Concepto") = Row("Concepto").ToString
+ dr("TipoMovto") = TipoMovto
+ dr("EsComodin") = 0
+ dr("CveConcepto") = CveConceptoContable
+ dr("CveConceptoContable") = CveConceptoContable
+ dr("ConceptoContable") = ""
+ dr("Cargo") = Row("Cargo").ToString.ToDecimal
+ dr("Abono") = Row("Abono").ToString.ToDecimal
+ dr("Descripcion") = ""
+ dr("CveSubProyecto") = CveSubProyecto
+ dr("CveProveedor") = -1
+ dr("CveCompra") = -1
+ dr("CvePersonal") = -1
+ dr("CveClasificacion") = CveClasificacion
+ dr("CveCliente") = -1
+ dr("CveVenta") = -1
- If Importe <> 0 Then
-
- If ObjConta.GetCuentas(-1, Cuenta.Replace("-", ""), 1, UsuarioActual.CveEmpresa) Then
- If ObjConta.DtResultados.Rows.Count > 0 Then
- CveCuenta = ObjConta.DtResultados().FiltroPrimeroValor("CveCuenta").ToEntero
- 'TipoCuenta = ObjConta.DtResultados().FiltroPrimeroValor("Tipo")
- Else
- Reporte.AppendLine($"{Cuenta} - {NombreCuenta} - {Importe} ")
- TieneError = True
- YaExiste = True
- End If
- Else
- TieneError = True
- Exit For
- End If
-
-
- If YaExiste = False Then
- If CveCuenta > 0 Then
- If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Importe, "", CveConceptoContable, Concepto, Now.ToDate, IdCtaContable, -1, ImporteMX:=Importe, CveSubProyecto:=CveSubProyecto, CveClasificacion:=CveClasificacion, CveCuenta:=CveCuenta) Then
- TieneError = True
- Exit For
- End If
- Else
- CveCuenta = -2
- End If
- End If
-
- End If
-
+ TxtTotalAbonos.Text = (TxtTotalAbonos.Text.ToDouble + TxtAbono.Text.ToDouble).ToString.FormatoNumero
+ TxtTotalCargos.Text = (TxtTotalCargos.Text.ToDouble + TxtCargo.Text.ToDouble).ToString.FormatoNumero
+ DtMovimientos.Rows.Add(dr)
+ DtMovimientos.AcceptChanges()
Next
- If Not TieneError Then
- ObjConta.Commit()
- Alert(String.Format("