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

-- limpieza de variables de cuentas.

Browse Source
This commit is contained in:
rrene
2022-06-30 16:59:43 -07:00
parent fa57f67cff
commit 12f174c945
9 changed files with 19 additions and 62 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
App_Code/ClsBancos.vb
View File

@@ -773,8 +773,6 @@ Public Class ClsBancos
BancoNumCuentaMoneda = Data.Rows(0)("BancoNumCuentaMoneda").ToString BancoNumCuentaMoneda = Data.Rows(0)("BancoNumCuentaMoneda").ToString
IdCtaContable = Data.Rows(0)("IdCtaContable").ToString.ToEntero IdCtaContable = Data.Rows(0)("IdCtaContable").ToString.ToEntero
IdCtaContableComplementaria = Data.Rows(0)("IdCtaContableComplementaria").ToString.ToEntero IdCtaContableComplementaria = Data.Rows(0)("IdCtaContableComplementaria").ToString.ToEntero
CveCuentaConta = Data.Rows(0)("IdCtaContableSIG").ToString.ToEntero
CveCuentaContaComplementaria = Data.Rows(0)("IdCtaContableComplementariaSIG").ToString.ToEntero
CveCuentaDeposito = Data.Rows(0)("CveCuentaDeposito").ToString.ToEntero CveCuentaDeposito = Data.Rows(0)("CveCuentaDeposito").ToString.ToEntero
DepositoBanco = Data.Rows(0)("DepositoBanco").ToString DepositoBanco = Data.Rows(0)("DepositoBanco").ToString
DepositoCuenta = Data.Rows(0)("DepositoCuenta").ToString DepositoCuenta = Data.Rows(0)("DepositoCuenta").ToString

28
Bancos/DepositoTerminal.aspx.vb
View File

@@ -29,23 +29,7 @@ Partial Class Bancos_DepositoTerminal
Set(value As Integer) Set(value As Integer)
ViewState("IdCuentaBancariaComplementaria") = value ViewState("IdCuentaBancariaComplementaria") = value
End Set End Set
End Property End Property
Private Property CveCuentaBancaria As Integer
Get
Return ViewState("CveCuentaBancaria").ToString.ToEntero
End Get
Set(value As Integer)
ViewState("CveCuentaBancaria") = value
End Set
End Property
Private Property CveCuentaBancariaComplementaria As Integer
Get
Return ViewState("CveCuentaBancariaComplementaria").ToString.ToEntero
End Get
Set(value As Integer)
ViewState("CveCuentaBancariaComplementaria") = value
End Set
End Property
Private Property IdCuentaCliente As Integer Private Property IdCuentaCliente As Integer
Get Get
Return ViewState("IdCuentaCliente").ToString.ToEntero Return ViewState("IdCuentaCliente").ToString.ToEntero
@@ -154,9 +138,6 @@ Partial Class Bancos_DepositoTerminal
If dr IsNot Nothing Then If dr IsNot Nothing Then
IdCuentaBancaria = dr("IdCtaContable").ToString.ToEntero IdCuentaBancaria = dr("IdCtaContable").ToString.ToEntero
IdCuentaBancariaComplementaria = dr("IdCtaContableComplementaria").ToString.ToEntero IdCuentaBancariaComplementaria = dr("IdCtaContableComplementaria").ToString.ToEntero
CveCuentaBancaria = dr("IdCtaContableSIG").ToString.ToEntero
CveCuentaBancariaComplementaria = dr("IdCtaContableComplementariaSIG").ToString.ToEntero
Else Else
IdCuentaBancaria = 0 IdCuentaBancaria = 0
IdCuentaBancariaComplementaria = 0 IdCuentaBancariaComplementaria = 0
@@ -258,9 +239,8 @@ Partial Class Bancos_DepositoTerminal
Dim tipoCambioVenta As Decimal Dim tipoCambioVenta As Decimal
Dim tipoCambioActual As Decimal Dim tipoCambioActual As Decimal
Dim tipoCambioManual As Decimal Dim tipoCambioManual As Decimal
Dim CuentasContablesInvalidas As New StringBuilder Dim CuentasContablesInvalidas As New StringBuilder
Dim CuentasContablesInvalidasSIG As New StringBuilder
If ObjContabilidad.GetPlantillaConceptos(UsuarioActual.CveEmpresa, CvePlantillaPoliza) Then If ObjContabilidad.GetPlantillaConceptos(UsuarioActual.CveEmpresa, CvePlantillaPoliza) Then
dtConceptos = ObjContabilidad.DtResultados dtConceptos = ObjContabilidad.DtResultados
End If End If
@@ -455,7 +435,7 @@ Partial Class Bancos_DepositoTerminal
End If End If
Next Next
If IdCuentaBancariaComplementaria > 0 OrElse CveCuentaBancariaComplementaria > 0 Then If IdCuentaBancariaComplementaria > 0 Then
If Not ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, False, TxtImporte.Text.ToDecimal, "", 30, "", TxtFecha.Text.ToDate, IdCuentaBancaria, -1, CveIE, -1, -1, -1, -1, ImporteMX:=TxtImporte.Text.ToDecimal, CveCuenta:=CveCuentaBancaria) Then If Not ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, False, TxtImporte.Text.ToDecimal, "", 30, "", TxtFecha.Text.ToDate, IdCuentaBancaria, -1, CveIE, -1, -1, -1, -1, ImporteMX:=TxtImporte.Text.ToDecimal, CveCuenta:=CveCuentaBancaria) Then
MsgError = "No se pudo insertar la póliza" MsgError = "No se pudo insertar la póliza"
End If End If

9
Bancos/DepositosCaja.aspx.vb
View File

@@ -194,8 +194,7 @@ Partial Class Bancos_DepositosCaja
Dim Fecha As Date = TxtFecha.Text.ToDate Dim Fecha As Date = TxtFecha.Text.ToDate
Dim IdCuentaBancariaOrigen As Integer = 0 Dim IdCuentaBancariaOrigen As Integer = 0
Dim IdCuentaBancariaDestino As Integer = 0 Dim IdCuentaBancariaDestino As Integer = 0
Dim CveCuentaBancariaOrigen As Integer = 0 Dim CveCuentaBancariaOrigen As Integer = 0
Dim CveCuentaBancariaDestino As Integer = 0
Dim drOrigen As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveCuenta:=DdlCajaChica.SelectedValue.ToEntero, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero("") Dim drOrigen As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveCuenta:=DdlCajaChica.SelectedValue.ToEntero, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero("")
Dim drDestino As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveCuenta:=DdlCuentaDeposito.SelectedValue.ToEntero, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero("") Dim drDestino As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveCuenta:=DdlCuentaDeposito.SelectedValue.ToEntero, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero("")
Dim CveSubProyecto As Integer = DdlSubProyectos.SelectedValue.ToEntero Dim CveSubProyecto As Integer = DdlSubProyectos.SelectedValue.ToEntero
@@ -215,14 +214,12 @@ Partial Class Bancos_DepositosCaja
If drOrigen IsNot Nothing Then If drOrigen IsNot Nothing Then
CveMoneda = drOrigen("CveMoneda").ToString.ToEntero CveMoneda = drOrigen("CveMoneda").ToString.ToEntero
IdCuentaBancariaOrigen = drOrigen("IdCtaContable").ToString.ToEntero IdCuentaBancariaOrigen = drOrigen("IdCtaContable").ToString.ToEntero
CveCuentaBancariaOrigen = drOrigen("IdCtaContableSIG").ToString.ToEntero
End If End If
If drDestino IsNot Nothing Then If drDestino IsNot Nothing Then
CveMoneda = drDestino("CveMoneda").ToString.ToEntero CveMoneda = drDestino("CveMoneda").ToString.ToEntero
IdCuentaBancariaDestino = drDestino("IdCtaContable").ToString.ToEntero IdCuentaBancariaDestino = drDestino("IdCtaContable").ToString.ToEntero
CveCuentaBancariaDestino = drDestino("IdCtaContableSIG").ToString.ToEntero
End If End If
NuevaCvePrePoliza = ObjContabilidad.AddPrePolizas("DepCaja", 13, TotalImportePrePoliza, TotalImportePrePoliza, CveMoneda, Fecha, "Depósito Bancario", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoPoliza:=1) NuevaCvePrePoliza = ObjContabilidad.AddPrePolizas("DepCaja", 13, TotalImportePrePoliza, TotalImportePrePoliza, CveMoneda, Fecha, "Depósito Bancario", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoPoliza:=1)

2
Bancos/IE.aspx.vb
View File

@@ -3830,7 +3830,7 @@ Partial Class Bancos_IE
End If End If
Else Else
MsgError = "No se insertó el encabezado" MsgError = "No se insertó el encabezado en prepóliza"
End If End If
End If End If

1
Bancos/PopIEVentas.aspx.vb
View File

@@ -1060,7 +1060,6 @@ Partial Class Bancos_PopIEVentas
IdCuentaBancaria = dr("IdCtaContable").ToString.ToEntero IdCuentaBancaria = dr("IdCtaContable").ToString.ToEntero
IdCuentaBancariaComplementaria = dr("IdCtaContableComplementaria").ToString.ToEntero IdCuentaBancariaComplementaria = dr("IdCtaContableComplementaria").ToString.ToEntero
CveCuentaBancaria = dr("IdCtaContableSIG").ToString.ToEntero
If dr("UsaTarjeta").ToString = "True" Then If dr("UsaTarjeta").ToString = "True" Then
CargaGridTarjetas() CargaGridTarjetas()

11
Bancos/RegistroPagoIntermediario.aspx.vb
View File

@@ -22,14 +22,6 @@ Partial Class Bancos_PagosIntermediarios
ViewState("IdCuentaBancaria") = value ViewState("IdCuentaBancaria") = value
End Set End Set
End Property End Property
Private Property CveCuentaBancaria As Integer
Get
Return ViewState("CveCuentaBancaria").ToString.ToEntero
End Get
Set(value As Integer)
ViewState("CveCuentaBancaria") = value
End Set
End Property
Private Property CveMoneda As Integer Private Property CveMoneda As Integer
Get Get
Return ViewState("CveMoneda").ToString.ToEntero Return ViewState("CveMoneda").ToString.ToEntero
@@ -89,7 +81,6 @@ Partial Class Bancos_PagosIntermediarios
If dr IsNot Nothing Then If dr IsNot Nothing Then
CveMoneda = dr("CveMoneda").ToString.ToEntero CveMoneda = dr("CveMoneda").ToString.ToEntero
IdCuentaBancaria = dr("IdCtaContable").ToString.ToEntero IdCuentaBancaria = dr("IdCtaContable").ToString.ToEntero
CveCuentaBancaria = dr("IdCtaContableSIG").ToString.ToEntero
End If End If
If UsuarioActual.Empresa.Funcionalidad(505) <> "1" Then If UsuarioActual.Empresa.Funcionalidad(505) <> "1" Then
@@ -215,7 +206,7 @@ Partial Class Bancos_PagosIntermediarios
End If End If
Next Next
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, TxtTotalBancos.Text.ToDecimal, ConceptoMovimientoBancos, 30, ConceptoMovimientoBancos, FechaMovimiento, IdCuentaBancaria, -1, CveIE, -1, -1, -1, CveCliente, ImporteMX:=TxtTotalBancos.Text.ToDecimal * tipoCambio, CveCuenta:=CveCuentaBancaria) Then If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, TxtTotalBancos.Text.ToDecimal, ConceptoMovimientoBancos, 30, ConceptoMovimientoBancos, FechaMovimiento, IdCuentaBancaria, -1, CveIE, -1, -1, -1, CveCliente, ImporteMX:=TxtTotalBancos.Text.ToDecimal * tipoCambio) Then
MsgError = "No se pudo insertar la póliza" MsgError = "No se pudo insertar la póliza"
End If End If

2
Bancos/Transferencias.aspx.vb
View File

@@ -330,12 +330,10 @@ Partial Class Bancos_Transferencias
If RowCuentaOrigen IsNot Nothing Then If RowCuentaOrigen IsNot Nothing Then
IdCtaContableOrigen = RowCuentaOrigen("IdCtaContable").ToString.ToEntero IdCtaContableOrigen = RowCuentaOrigen("IdCtaContable").ToString.ToEntero
IDCtaContableComplementariaOrigen = RowCuentaOrigen("IDCtaContableComplementaria").ToString.ToEntero IDCtaContableComplementariaOrigen = RowCuentaOrigen("IDCtaContableComplementaria").ToString.ToEntero
CveCuentaOrigen = RowCuentaOrigen("IdCtaContableSIG").ToString.ToEntero
End If End If
If RowCuentaDestino IsNot Nothing Then If RowCuentaDestino IsNot Nothing Then
IdCtaContableDestino = RowCuentaDestino("IdCtaContable").ToString.ToEntero IdCtaContableDestino = RowCuentaDestino("IdCtaContable").ToString.ToEntero
IDCtaContableComplementariaDestino = RowCuentaDestino("IDCtaContableComplementaria").ToString.ToEntero IDCtaContableComplementariaDestino = RowCuentaDestino("IDCtaContableComplementaria").ToString.ToEntero
CveCuentaDestino = RowCuentaDestino("IdCtaContableSIG").ToString.ToEntero
End If End If
'Conta ContPAQ 'Conta ContPAQ

11
Ventas/RepAnticipo-NC-IXCDetalle.aspx.cs
View File

@@ -358,7 +358,7 @@ public partial class Ventas_RepAnticipo_NC_IXCDetalle : ClsPaginas
Saldo = Gv.DataKey("Saldo").ToDecimal(); Saldo = Gv.DataKey("Saldo").ToDecimal();
} }
int IdCtaContable = 0, CveCuenta = 0; int IdCtaContable = 0;
if (ObjConta.GetRetCuenta(ConceptoContable1, Gv.DataKey("CveCliente").ToEntero())) if (ObjConta.GetRetCuenta(ConceptoContable1, Gv.DataKey("CveCliente").ToEntero()))
{ {
if (ObjConta.DtResultados.Rows.Count > 0) if (ObjConta.DtResultados.Rows.Count > 0)
@@ -366,13 +366,10 @@ public partial class Ventas_RepAnticipo_NC_IXCDetalle : ClsPaginas
if (Tipo == 1 || Tipo == 2) if (Tipo == 1 || Tipo == 2)
{ {
IdCtaContable = ObjConta.DtResultados.Rows[0]["IdCtaContable"].ToString().ToEntero(); IdCtaContable = ObjConta.DtResultados.Rows[0]["IdCtaContable"].ToString().ToEntero();
CveCuenta = ObjConta.DtResultados.Rows[0]["IdCtaContableSIG"].ToString().ToEntero();
} }
else if (Tipo == 3) else if (Tipo == 3)
{ {
IdCtaContable = ObjConta.DtResultados.Rows[0]["IdCtaContClientes"].ToString().ToEntero(); IdCtaContable = ObjConta.DtResultados.Rows[0]["IdCtaContClientes"].ToString().ToEntero();
CveCuenta = ObjConta.DtResultados.Rows[0]["CveCuentaCliente"].ToString().ToEntero();
} }
} }
} }
@@ -382,13 +379,13 @@ public partial class Ventas_RepAnticipo_NC_IXCDetalle : ClsPaginas
} }
CvePrePoliza = ObjConta.AddPrePolizas("Bancos/RepNCXAplicar", 6, Gv.DataKey("Saldo").ToDouble(), Gv.DataKey("Saldo").ToDouble(), Gv.DataKey("CveMoneda").ToEntero(), TxtFecha.Text.ToDate(), "Saldo de NC por Sistema", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa); CvePrePoliza = ObjConta.AddPrePolizas("Bancos/RepNCXAplicar", 6, Gv.DataKey("Saldo").ToDouble(), Gv.DataKey("Saldo").ToDouble(), Gv.DataKey("CveMoneda").ToEntero(), TxtFecha.Text.ToDate(), "Saldo de NC por Sistema", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa);
if (!ObjConta.AddPrePolizasDetalle(CvePrePoliza, true, Saldo, Gv.DataKey("Folio").ToString(), ConceptoContable2, TxtConcepto.Text, TxtFecha.Text.ToDate(), IdCtaContable, -1, CveIE, CveVenta, CveCliente: Gv.DataKey("CveCliente").ToEntero(), ImporteMX: Saldo, CveCuenta: CveCuenta)) if (!ObjConta.AddPrePolizasDetalle(CvePrePoliza, true, Saldo, Gv.DataKey("Folio").ToString(), ConceptoContable2, TxtConcepto.Text, TxtFecha.Text.ToDate(), IdCtaContable, -1, CveIE, CveVenta, CveCliente: Gv.DataKey("CveCliente").ToEntero(), ImporteMX: Saldo))
{ {
MsgError = "Ocurrio un error al saldar el movimiento"; MsgError = "Ocurrio un error al saldar el movimiento";
break; break;
} }
if (!ObjConta.AddPrePolizasDetalle(CvePrePoliza, true, Gv.DataKey("Saldo").ToDecimal(), Gv.DataKey("Folio").ToString(), 78, TxtConcepto.Text, TxtFecha.Text.ToDate(), UsuarioActual.Empresa.IdCuentaOtrosIngresos, -1, CveIE, CveVenta, ImporteMX: Gv.DataKey("Saldo").ToDecimal(), CveCuenta: -1, CveSubProyecto: DdlSubProyectoSaldar.SelectedValue.ToEntero())) if (!ObjConta.AddPrePolizasDetalle(CvePrePoliza, true, Gv.DataKey("Saldo").ToDecimal(), Gv.DataKey("Folio").ToString(), 78, TxtConcepto.Text, TxtFecha.Text.ToDate(), UsuarioActual.Empresa.IdCuentaOtrosIngresos, -1, CveIE, CveVenta, ImporteMX: Gv.DataKey("Saldo").ToDecimal(), CveSubProyecto: DdlSubProyectoSaldar.SelectedValue.ToEntero()))
{ {
MsgError = "Ocurrio un error al saldar el movimiento"; MsgError = "Ocurrio un error al saldar el movimiento";
break; break;

15
Ventas/RepNCxAplicar.aspx.cs
View File

@@ -197,7 +197,7 @@ public partial class Ventas_RepNCxAplicar : ClsPaginas
{ {
if (Gv.FCCheckBox("Chk").Checked) if (Gv.FCCheckBox("Chk").Checked)
{ {
int IdCtaContable = 0, CveCuenta = 0; int IdCtaContable = 0;
if (ObjConta.GetRetCuenta(91, Gv.DataKey("CveCliente").ToEntero())) if (ObjConta.GetRetCuenta(91, Gv.DataKey("CveCliente").ToEntero()))
{ {
if (ObjConta.DtResultados.Rows.Count > 0) if (ObjConta.DtResultados.Rows.Count > 0)
@@ -205,13 +205,11 @@ public partial class Ventas_RepNCxAplicar : ClsPaginas
if (Gv.DataKey("CveMoneda").ToEntero() > 1) if (Gv.DataKey("CveMoneda").ToEntero() > 1)
{ {
IdCtaContable = ObjConta.DtResultados.Rows[0]["IdCtaContMonedaExtranjera"].ToString().ToEntero(); IdCtaContable = ObjConta.DtResultados.Rows[0]["IdCtaContMonedaExtranjera"].ToString().ToEntero();
CveCuenta = -1;
} }
else else
{ {
IdCtaContable = ObjConta.DtResultados.Rows[0]["IdCtaContable"].ToString().ToEntero(); IdCtaContable = ObjConta.DtResultados.Rows[0]["IdCtaContable"].ToString().ToEntero();
CveCuenta = ObjConta.DtResultados.Rows[0]["IdCtaContableSIG"].ToString().ToEntero();
} }
} }
@@ -220,7 +218,7 @@ public partial class Ventas_RepNCxAplicar : ClsPaginas
string ConceptoPartida = string.Format("{0} {1} ", TxtConcepto.Text, Gv.DataKey("Folio").ToString()); string ConceptoPartida = string.Format("{0} {1} ", TxtConcepto.Text, Gv.DataKey("Folio").ToString());
CvePrePoliza = ObjConta.AddPrePolizas("Bancos/RepNCXAplicar", 11, Gv.DataKey("Saldo").ToDouble(), Gv.DataKey("Saldo").ToDouble(), Gv.DataKey("CveMoneda").ToEntero(), TxtFecha.Text.ToDate(), $"{TextAdicionalJAM} {TxtConcepto.Text}", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa); CvePrePoliza = ObjConta.AddPrePolizas("Bancos/RepNCXAplicar", 11, Gv.DataKey("Saldo").ToDouble(), Gv.DataKey("Saldo").ToDouble(), Gv.DataKey("CveMoneda").ToEntero(), TxtFecha.Text.ToDate(), $"{TextAdicionalJAM} {TxtConcepto.Text}", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa);
if (!ObjConta.AddPrePolizasDetalle(CvePrePoliza, true, -Gv.DataKey("Saldo").ToDecimal(), Gv.DataKey("Folio").ToString(), 12, TxtConcepto.Text, TxtFecha.Text.ToDate(), IdCtaContable, -1, -1, Gv.DataKey("CveVenta").ToEntero(), CveCliente: Gv.DataKey("CveCliente").ToEntero(), ImporteMX: -Gv.DataKey("Saldo").ToDecimal(), CveCuenta: CveCuenta)) if (!ObjConta.AddPrePolizasDetalle(CvePrePoliza, true, -Gv.DataKey("Saldo").ToDecimal(), Gv.DataKey("Folio").ToString(), 12, TxtConcepto.Text, TxtFecha.Text.ToDate(), IdCtaContable, -1, -1, Gv.DataKey("CveVenta").ToEntero(), CveCliente: Gv.DataKey("CveCliente").ToEntero(), ImporteMX: -Gv.DataKey("Saldo").ToDecimal()))
{ {
MsgError = "Ocurrio un error al saldar el movimiento"; MsgError = "Ocurrio un error al saldar el movimiento";
} }
@@ -231,11 +229,10 @@ public partial class Ventas_RepNCxAplicar : ClsPaginas
{ {
if (ObjConta.DtResultados.Rows.Count > 0) if (ObjConta.DtResultados.Rows.Count > 0)
{ {
IdCtaContable = ObjConta.DtResultados.Rows[0]["IdCtaContable"].ToString().ToEntero(); IdCtaContable = ObjConta.DtResultados.Rows[0]["IdCtaContable"].ToString().ToEntero();
CveCuenta = ObjConta.DtResultados.Rows[0]["IdCtaContableSIG"].ToString().ToEntero();
} }
} }
if (!ObjConta.AddPrePolizasDetalle(CvePrePoliza, true, -Gv.DataKey("Saldo").ToDecimal(), Gv.DataKey("Folio").ToString(), 203, TxtConcepto.Text, TxtFecha.Text.ToDate(), IdCtaContable, -1, -1, Gv.DataKey("CveVenta").ToEntero(), CveCliente: Gv.DataKey("CveCliente").ToEntero(), ImporteMX: -((Gv.DataKey("Saldo").ToDecimal() * Gv.DataKey("TipoCambioValuacion").ToDecimal()) - Gv.DataKey("Saldo").ToDecimal()), CveCuenta: CveCuenta, TipoCambio: Gv.DataKey("TipoCambioValuacion").ToString().ToDecimal(), ImporteME: -Gv.DataKey("Saldo").ToDecimal())) if (!ObjConta.AddPrePolizasDetalle(CvePrePoliza, true, -Gv.DataKey("Saldo").ToDecimal(), Gv.DataKey("Folio").ToString(), 203, TxtConcepto.Text, TxtFecha.Text.ToDate(), IdCtaContable, -1, -1, Gv.DataKey("CveVenta").ToEntero(), CveCliente: Gv.DataKey("CveCliente").ToEntero(), ImporteMX: -((Gv.DataKey("Saldo").ToDecimal() * Gv.DataKey("TipoCambioValuacion").ToDecimal()) - Gv.DataKey("Saldo").ToDecimal()), TipoCambio: Gv.DataKey("TipoCambioValuacion").ToString().ToDecimal(), ImporteME: -Gv.DataKey("Saldo").ToDecimal()))
{ {
MsgError = "Ocurrio un error al saldar el movimiento"; MsgError = "Ocurrio un error al saldar el movimiento";
} }