From fc067ce69d3c525f176ce5b1cfedbf0f2e173f2e Mon Sep 17 00:00:00 2001
From: Hector <hecttor201@gmail.com>
Date: Mon, 9 Aug 2021 15:17:16 -0700
Subject: [PATCH] Cambios para tipo conta

---
 Contabilidad/ContabilidadElectronica.aspx.vb | 21 ++++++++++++++------
 1 file changed, 15 insertions(+), 6 deletions(-)

diff --git a/Contabilidad/ContabilidadElectronica.aspx.vb b/Contabilidad/ContabilidadElectronica.aspx.vb
index e59728d33..a33545fc8 100644
--- a/Contabilidad/ContabilidadElectronica.aspx.vb
+++ b/Contabilidad/ContabilidadElectronica.aspx.vb
@@ -185,7 +185,7 @@ Partial Class Contabilidad_ContabilidadElectronica
         Dim DtCuentas As New DataTable
         If UsuarioActual.Empresa.TipoContabilidad = 1 Then
             Dim objconta As New ClsContabilidad
-            If objconta.GetBalanzaComprobacion(FechaI, FechaF, UsuarioActual.CveEmpresa) Then
+            If objconta.GetBalanzaComprobacion(FechaI, FechaF, 1, -1, "-1", UsuarioActual.CveEmpresa, 0) Then
                 DtCuentas = objconta.DtResultados
             End If
             objconta.Dispose()
@@ -218,11 +218,20 @@ Partial Class Contabilidad_ContabilidadElectronica
             'DETALLES
             For Each Dr As DataRow In DtCuentas.Rows
                 Str.Append("<BCE:Ctas ")
-                Str.AppendFormat("NumCta=""{0}"" ", Dr("NumCta").ToString)
-                Str.AppendFormat("SaldoIni=""{0}"" ", Dr("SaldoIni").ToString)
-                Str.AppendFormat("Debe=""{0}"" ", Dr("Debe").ToString)
-                Str.AppendFormat("Haber=""{0}"" ", Dr("Haber").ToString)
-                Str.AppendFormat("SaldoFin=""{0}"" ", Dr("SaldoFin").ToString)
+                If UsuarioActual.Empresa.TipoContabilidad = 1 Then
+                    Str.AppendFormat("NumCta=""{0}"" ", Dr("Codigo").ToString)
+                    Str.AppendFormat("SaldoIni=""{0}"" ", Dr("SaldoInicial").ToString)
+                    Str.AppendFormat("Debe=""{0}"" ", Dr("Cargos").ToString)
+                    Str.AppendFormat("Haber=""{0}"" ", Dr("Abonos").ToString)
+                    Str.AppendFormat("SaldoFin=""{0}"" ", Dr("SaldoActual").ToString)
+                Else
+                    Str.AppendFormat("NumCta=""{0}"" ", Dr("NumCta").ToString)
+                    Str.AppendFormat("SaldoIni=""{0}"" ", Dr("SaldoIni").ToString)
+                    Str.AppendFormat("Debe=""{0}"" ", Dr("Debe").ToString)
+                    Str.AppendFormat("Haber=""{0}"" ", Dr("Haber").ToString)
+                    Str.AppendFormat("SaldoFin=""{0}"" ", Dr("SaldoFin").ToString)
+                End If
+
                 Str.Append("/>")
             Next