From 805962d88e63631190e0437afc89617ff42858dc Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 7 Dec 2023 20:05:31 -0700 Subject: [PATCH] -- nombrecolumna cuenta formato --- Contabilidad2/CatContaEjercicios.aspx | 2 +- Contabilidad2/CatCuentas.aspx | 2 +- Contabilidad2/CatCuentas.aspx.vb | 3 +-- Contabilidad2/CatCuentasAsignaciones.aspx | 2 +- Contabilidad2/RepAnexoCatalogo.aspx | 2 +- Contabilidad2/RepAnexoCatalogo.aspx.vb | 16 ---------------- Contabilidad2/RepAnexoCatalogoAnual.aspx | 2 +- Contabilidad2/RepAnexoCatalogoCC.aspx | 2 +- Contabilidad2/RepAnexoCatalogoMensual.aspx | 2 +- .../RepAnexoCatalogoMensualHorizontal.aspx | 2 +- .../RepAnexoCatalogoMensualHorizontal.aspx.vb | 16 ---------------- .../RepMovimientosAuxiliaresCatalogo.aspx | 2 +- Contabilidad2/RepSituacionFinanciera.aspx | 2 +- Inventarios/CatAlmacenes.aspx | 4 ++-- 14 files changed, 13 insertions(+), 46 deletions(-) diff --git a/Contabilidad2/CatContaEjercicios.aspx b/Contabilidad2/CatContaEjercicios.aspx index 43e5f2be4..60eac9825 100644 --- a/Contabilidad2/CatContaEjercicios.aspx +++ b/Contabilidad2/CatContaEjercicios.aspx @@ -159,7 +159,7 @@
- +
diff --git a/Contabilidad2/CatCuentas.aspx b/Contabilidad2/CatCuentas.aspx index 6e61f6432..f309b5bc1 100644 --- a/Contabilidad2/CatCuentas.aspx +++ b/Contabilidad2/CatCuentas.aspx @@ -113,7 +113,7 @@
Subcuenta de
-
diff --git a/Contabilidad2/CatCuentas.aspx.vb b/Contabilidad2/CatCuentas.aspx.vb index 0e0af4ea5..531d8780a 100644 --- a/Contabilidad2/CatCuentas.aspx.vb +++ b/Contabilidad2/CatCuentas.aspx.vb @@ -563,8 +563,7 @@ Partial Class Contabilidad2_CatCuentas dr("CuentaFormato") = TxtCuenta.Text 'dr("CuentaFormato") = Tcuenta.Text dr("Nombre") = Tnombre.Text - dr("CtaCodigo") = String.Format("{0} - {1}", TxtCuenta.Text, Tnombre.Text) - 'dr("CtaCodigo") = String.Format("{0} - {1}", Tcuenta.Text, Tnombre.Text) + dr("CuentaFormatoNombre") = String.Format("{0} - {1}", TxtCuenta.Text, Tnombre.Text) dr("Tipo") = DTcuenta.SelectedValue.ToString dr("CtaMayor") = DcuentaMayor.SelectedValue.ToString dr("CvePadre") = IDSelected diff --git a/Contabilidad2/CatCuentasAsignaciones.aspx b/Contabilidad2/CatCuentasAsignaciones.aspx index 583b6dc42..0669d4cdd 100644 --- a/Contabilidad2/CatCuentasAsignaciones.aspx +++ b/Contabilidad2/CatCuentasAsignaciones.aspx @@ -253,7 +253,7 @@
- +
diff --git a/Contabilidad2/RepAnexoCatalogo.aspx b/Contabilidad2/RepAnexoCatalogo.aspx index 0fad8f8d2..26ea0ee59 100644 --- a/Contabilidad2/RepAnexoCatalogo.aspx +++ b/Contabilidad2/RepAnexoCatalogo.aspx @@ -42,7 +42,7 @@ Cuenta
- + diff --git a/Contabilidad2/RepAnexoCatalogo.aspx.vb b/Contabilidad2/RepAnexoCatalogo.aspx.vb index 0a1b31544..14d6a8d8c 100644 --- a/Contabilidad2/RepAnexoCatalogo.aspx.vb +++ b/Contabilidad2/RepAnexoCatalogo.aspx.vb @@ -159,23 +159,7 @@ Partial Class AC2_RepAnexoCatalogo End Sub #Region "CARGA DATOS Y GRID" - 'Public Function WSCuentas() As String - ' Dim Str As New StringBuilder - ' Dim i As Integer = 0 - ' Dim dt As DataTable = DTCuentas '.FiltraParametros("Afectable = 1") - ' If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then - - ' For Each dr As DataRow In dt.Rows - ' i += 1 - ' Str.AppendFormat("{{value:""{0}"",label:""{1}{3}""}}{2}", dr("CveCuenta"), dr("CtaCodigo").ToString.Replace("""", ""), If(i < dt.Rows.Count, ",", ""), If(dr("Afectable").ToString = "1", " *", "")) - ' Next - - ' End If - - - ' Return Str.ToString - 'End Function Private Sub CargaTipoCuentas() 'Dim ObjTipoCuenta As New ClsContPAQi(UsuarioActual.Empresa) Dim ObjTipoCuenta As New ClsContabilidad diff --git a/Contabilidad2/RepAnexoCatalogoAnual.aspx b/Contabilidad2/RepAnexoCatalogoAnual.aspx index fc12ba75c..57d34487d 100644 --- a/Contabilidad2/RepAnexoCatalogoAnual.aspx +++ b/Contabilidad2/RepAnexoCatalogoAnual.aspx @@ -96,7 +96,7 @@
  • Cuenta:
  • - + diff --git a/Contabilidad2/RepAnexoCatalogoCC.aspx b/Contabilidad2/RepAnexoCatalogoCC.aspx index d459f114b..07d55441a 100644 --- a/Contabilidad2/RepAnexoCatalogoCC.aspx +++ b/Contabilidad2/RepAnexoCatalogoCC.aspx @@ -56,7 +56,7 @@ Cuenta
    • - + diff --git a/Contabilidad2/RepAnexoCatalogoMensual.aspx b/Contabilidad2/RepAnexoCatalogoMensual.aspx index 540d7c725..16f93bde8 100644 --- a/Contabilidad2/RepAnexoCatalogoMensual.aspx +++ b/Contabilidad2/RepAnexoCatalogoMensual.aspx @@ -63,7 +63,7 @@ Cuenta:
    - + diff --git a/Contabilidad2/RepAnexoCatalogoMensualHorizontal.aspx b/Contabilidad2/RepAnexoCatalogoMensualHorizontal.aspx index 950df1886..56e532c99 100644 --- a/Contabilidad2/RepAnexoCatalogoMensualHorizontal.aspx +++ b/Contabilidad2/RepAnexoCatalogoMensualHorizontal.aspx @@ -75,7 +75,7 @@
  • Cuenta:
  • - + diff --git a/Contabilidad2/RepAnexoCatalogoMensualHorizontal.aspx.vb b/Contabilidad2/RepAnexoCatalogoMensualHorizontal.aspx.vb index 856c8d68f..f137102a7 100644 --- a/Contabilidad2/RepAnexoCatalogoMensualHorizontal.aspx.vb +++ b/Contabilidad2/RepAnexoCatalogoMensualHorizontal.aspx.vb @@ -145,23 +145,7 @@ Partial Class Contabilidad_RepAnexoCatalogoMensualHorizontal End Sub #Region "CARGA DATOS Y GRID" - 'Public Function WSCuentas() As String - ' Dim Str As New StringBuilder - ' Dim i As Integer = 0 - ' Dim dt As DataTable = DTCuentas '.FiltraParametros("Afectable = 1") - ' If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then - - ' For Each dr As DataRow In dt.Rows - ' i += 1 - ' Str.AppendFormat("{{value:""{0}"",label:""{1}{3}""}}{2}", dr("CveCuenta"), dr("CtaCodigo").ToString.Replace("""", ""), If(i < dt.Rows.Count, ",", ""), If(dr("Afectable").ToString = "1", " *", "")) - ' Next - - ' End If - - - ' Return Str.ToString - 'End Function Private Sub CargaTipoCuentas() 'Dim ObjTipoCuenta As New ClsContPAQi(UsuarioActual.Empresa) Dim ObjTipoCuenta As New ClsContabilidad diff --git a/Contabilidad2/RepMovimientosAuxiliaresCatalogo.aspx b/Contabilidad2/RepMovimientosAuxiliaresCatalogo.aspx index 04022a204..353caed37 100644 --- a/Contabilidad2/RepMovimientosAuxiliaresCatalogo.aspx +++ b/Contabilidad2/RepMovimientosAuxiliaresCatalogo.aspx @@ -52,7 +52,7 @@ Cuenta:
    • - + diff --git a/Contabilidad2/RepSituacionFinanciera.aspx b/Contabilidad2/RepSituacionFinanciera.aspx index e122aab97..d24c26634 100644 --- a/Contabilidad2/RepSituacionFinanciera.aspx +++ b/Contabilidad2/RepSituacionFinanciera.aspx @@ -609,7 +609,7 @@
    - +
    diff --git a/Inventarios/CatAlmacenes.aspx b/Inventarios/CatAlmacenes.aspx index 6325655e6..494eb4c65 100644 --- a/Inventarios/CatAlmacenes.aspx +++ b/Inventarios/CatAlmacenes.aspx @@ -267,12 +267,12 @@
    - + - +