Commit inicial Ventas Productivo
This commit is contained in:
JORGE LUIS CAUDILLO ESPARZA
818
Bancos/FluctuacionCambiaria.aspx.vb
Normal file
818
Bancos/FluctuacionCambiaria.aspx.vb
Normal file
@@ -0,0 +1,818 @@
|
||||
Option Explicit On
|
||||
Option Strict On
|
||||
|
||||
Imports System.Data
|
||||
Imports Extensiones
|
||||
Partial Class Bancos_FluctuacionCambiaria
|
||||
Inherits ClsPaginas
|
||||
|
||||
#Region "PROPIEDADES"
|
||||
|
||||
#End Region
|
||||
|
||||
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
|
||||
If Not Page.IsPostBack Then
|
||||
CargaUltimaFluctuacion()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
#Region "CARGAS"
|
||||
|
||||
Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles BtnConsultar.Click
|
||||
CargaTipoCambio()
|
||||
If T.ActiveTabIndex = 0 Then CargaDatosCompra()
|
||||
If T.ActiveTabIndex = 1 Then CargaDatosVentas()
|
||||
If T.ActiveTabIndex = 2 Then CargaDatosCuentas()
|
||||
If T.ActiveTabIndex = 3 Then CargaDatosDeudores()
|
||||
If T.ActiveTabIndex = 4 Then CargaDatosAcreedores()
|
||||
If T.ActiveTabIndex = 5 Then CargaDatosFiliales()
|
||||
UpTabs.Update()
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub CargaTipoCambio()
|
||||
Dim ObjGenerales As New ClsGenerales
|
||||
ObjGenerales.GetTipoCambio(-1, TxtFecha.Text.ToDate)
|
||||
If ObjGenerales.DtResultados.Rows.Count > 0 Then
|
||||
LtTipoCambioActual.Text = ObjGenerales.DtResultados.Rows(0)("TipoCambio").ToString
|
||||
TxtConceptoFluctuacion.Text = "Fluctuación a " & TxtFecha.Text
|
||||
End If
|
||||
ObjGenerales.Dispose()
|
||||
End Sub
|
||||
|
||||
Private Sub CargaUltimaFluctuacion()
|
||||
Dim Obj As New ClsBancos
|
||||
If Obj.GetFluctuacionesBitacora(UsuarioActual.CveEmpresa) Then
|
||||
Dim dt As DataTable = Obj.DtResultados.FiltraParametros("TipoFluctuacion = 1", "Fecha DESC")
|
||||
If dt.Rows.Count > 0 Then
|
||||
LtlUltimaFluctuacion.Text = String.Format("Ultima Fluctuación : {0}", dt.Rows(0)("Fecha").ToString.ToDate.ToShortDateString)
|
||||
'si la ultima fluctuacion es mayor o igual al fin de mes anterior, entonces pon la fecha actual
|
||||
If dt.Rows(0)("Fecha").ToString.ToDate >= Now.AddMonths(-1).LastDayOfMonth Then
|
||||
TxtFecha.Text = Now.ToShortDateString
|
||||
Else
|
||||
TxtFecha.Text = Now.AddMonths(-1).LastDayOfMonth.ToShortDateString()
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
Obj.Dispose()
|
||||
CargaTipoCambio()
|
||||
End Sub
|
||||
|
||||
Private Sub CargaDatosCompra()
|
||||
Dim ObjBancos As New ClsBancos
|
||||
LblTotalCompras.Text = "0.00"
|
||||
If ObjBancos.GetFluctuaciones(TxtFecha.Text.ToDate, 1, UsuarioActual.CveEmpresa) Then
|
||||
GvCompras.DataSource = ObjBancos.DtResultados
|
||||
LblTotalCompras.Text = ObjBancos.DtResultados.SUM("Fluctuacion").FormatoNumero
|
||||
Else
|
||||
GvCompras.DataSource = Nothing
|
||||
Alert("Ocurrio un error al cargar las compras", TipoMensaje.MsgAdvertencia)
|
||||
End If
|
||||
ObjBancos.Dispose()
|
||||
GvCompras.DataBind()
|
||||
End Sub
|
||||
|
||||
Private Sub CargaDatosVentas()
|
||||
Dim ObjBancos As New ClsBancos
|
||||
LblTotalVentas.Text = "0.00"
|
||||
If ObjBancos.GetFluctuaciones(TxtFecha.Text.ToDate, 2, UsuarioActual.CveEmpresa) Then
|
||||
GvVentas.DataSource = ObjBancos.DtResultados
|
||||
LblTotalVentas.Text = ObjBancos.DtResultados.SUM("Fluctuacion").FormatoNumero
|
||||
Else
|
||||
GvVentas.DataSource = Nothing
|
||||
Alert("Ocurrio un error al cargar las compras", TipoMensaje.MsgAdvertencia)
|
||||
End If
|
||||
ObjBancos.Dispose()
|
||||
GvVentas.DataBind()
|
||||
End Sub
|
||||
|
||||
Private Sub CargaDatosCuentas()
|
||||
Dim ObjBancos As New ClsBancos
|
||||
LblTotalBancos.Text = "0.00"
|
||||
If ObjBancos.GetFluctuaciones(TxtFecha.Text.ToDate, 4, UsuarioActual.CveEmpresa) Then
|
||||
Dim DtTemp As DataTable = ObjBancos.DtResultados.Copy
|
||||
Dim TCCierreFluctuacion As Decimal = LtTipoCambioActual.Text.ToDecimal
|
||||
Dim TotAcumulado As Decimal = 0
|
||||
Dim Conta As New ClsContabilidad
|
||||
For Each Dr As DataRow In DtTemp.Rows
|
||||
Dim Total As Decimal = 0
|
||||
Dim CveCuentaExtranjera As Integer = Dr("CveCuentaExtranjera").ToString.ToEntero
|
||||
If CveCuentaExtranjera > 0 Then
|
||||
If Conta.GetMovimientosAuxiliaresCatalogo(CveCuentaExtranjera, MinFecha, TxtFecha.Text.ToDate, 2, "-1", UsuarioActual.CveEmpresa, "1") Then
|
||||
If Conta.DtResultados.Rows.Count > 1 Then
|
||||
Total = Conta.DtResultados.Rows(1)("SaldoActual").ToString.ToDecimal
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
Dr("Saldo") = Total
|
||||
Total = Total * TCCierreFluctuacion - Total
|
||||
Dim SaldoActualContabilidad As Decimal = 0
|
||||
Dim CveCuentaComplementaria As Integer = Dr("CveCuentaComplementaria").ToString.ToEntero
|
||||
If CveCuentaComplementaria > 0 Then
|
||||
If Conta.GetMovimientosAuxiliaresCatalogo(CveCuentaComplementaria, MinFecha, TxtFecha.Text.ToDate, 2, "-1", UsuarioActual.CveEmpresa, "1") Then
|
||||
If Conta.DtResultados.Rows.Count > 1 Then
|
||||
SaldoActualContabilidad = Conta.DtResultados.Rows(1)("SaldoActual").ToString.ToDecimal
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
|
||||
Total = Total - SaldoActualContabilidad
|
||||
TotAcumulado += Math.Round(Total, 2)
|
||||
Dr("Fluctuacion") = Total
|
||||
Next
|
||||
DtTemp.AcceptChanges()
|
||||
Conta.Dispose()
|
||||
|
||||
GvCuentas.DataSource = DtTemp
|
||||
LblTotalBancos.Text = TotAcumulado.FormatoNumero
|
||||
Else
|
||||
GvCuentas.DataSource = Nothing
|
||||
Alert("Ocurrio un error al cargar las cuentas", TipoMensaje.MsgAdvertencia)
|
||||
End If
|
||||
ObjBancos.Dispose()
|
||||
GvCuentas.DataBind()
|
||||
End Sub
|
||||
|
||||
Private Sub CargaDatosDeudores()
|
||||
Dim ObjBancos As New ClsBancos
|
||||
LblTotalDeudores.Text = "0.00"
|
||||
If ObjBancos.GetFluctuaciones(TxtFecha.Text.ToDate, 5, UsuarioActual.CveEmpresa) Then
|
||||
GvDeudores.DataSource = ObjBancos.DtResultados
|
||||
LblTotalDeudores.Text = ObjBancos.DtResultados.SUM("Fluctuacion").FormatoNumero
|
||||
Else
|
||||
GvDeudores.DataSource = Nothing
|
||||
Alert("Ocurrio un error al cargar los deudores", TipoMensaje.MsgAdvertencia)
|
||||
End If
|
||||
ObjBancos.Dispose()
|
||||
GvDeudores.DataBind()
|
||||
End Sub
|
||||
|
||||
Private Sub CargaDatosAcreedores()
|
||||
Dim ObjBancos As New ClsBancos
|
||||
LblTotalAcreedores.Text = "0.00"
|
||||
If ObjBancos.GetFluctuaciones(TxtFecha.Text.ToDate, 6, UsuarioActual.CveEmpresa) Then
|
||||
GvAcreedores.DataSource = ObjBancos.DtResultados
|
||||
LblTotalAcreedores.Text = ObjBancos.DtResultados.SUM("Fluctuacion").FormatoNumero
|
||||
Else
|
||||
GvAcreedores.DataSource = Nothing
|
||||
Alert("Ocurrio un error al cargar los acreedores", TipoMensaje.MsgAdvertencia)
|
||||
End If
|
||||
ObjBancos.Dispose()
|
||||
GvAcreedores.DataBind()
|
||||
End Sub
|
||||
|
||||
Private Sub CargaDatosFiliales()
|
||||
Dim ObjBancos As New ClsBancos
|
||||
LblTotalAcreedores.Text = "0.00"
|
||||
If ObjBancos.GetFluctuaciones(TxtFecha.Text.ToDate, 7, UsuarioActual.CveEmpresa) Then
|
||||
GvFiliales.DataSource = ObjBancos.DtResultados.FiltraParametros("Saldo > 0")
|
||||
LblTotalAcreedores.Text = ObjBancos.DtResultados.SUM("Fluctuacion").FormatoNumero
|
||||
Else
|
||||
GvFiliales.DataSource = Nothing
|
||||
Alert("Ocurrio un error al cargar los acreedores", TipoMensaje.MsgAdvertencia)
|
||||
End If
|
||||
ObjBancos.Dispose()
|
||||
GvFiliales.DataBind()
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
#Region "FLUCTUACION COMPRAS"
|
||||
|
||||
Protected Sub BtnGeneraCompras_Click(sender As Object, e As EventArgs)
|
||||
Dim Total As Decimal = 0
|
||||
Dim Conta As New ClsContabilidad
|
||||
Conta.IniciaTransacSQL()
|
||||
Dim CvePrePoliza As Integer = Conta.AddPrePolizas("Banc/Fluctua", 1, 0, 0, 1, TxtFecha.Text.ToDate, "Fluctuación", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
|
||||
Dim idCta As Integer = 0
|
||||
Dim CveCuenta As Integer = 0
|
||||
Dim CveCuentaPerdida, CveCuentaGanancia As Integer
|
||||
Dim idCtaPerdida, IdCtaGanancia As Integer
|
||||
Dim TipoMovto As Boolean = False
|
||||
Dim CveConceptoContable As Integer = 0
|
||||
Dim CveCuentaComplementaria As Integer = 55175
|
||||
Dim IdCtaComplementaria As Integer = 1248
|
||||
Dim ErrorRegistrar As Boolean = False
|
||||
|
||||
CveCuentaPerdida = 0 '55379
|
||||
CveCuentaGanancia = 0 ' 55382
|
||||
idCtaPerdida = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria '1227
|
||||
IdCtaGanancia = UsuarioActual.Empresa.IdCuentaGananciaCambiaria '1230
|
||||
Dim TC As Decimal = 2 ' se pone 2, para que cumpla con el check constrains de complementarias
|
||||
|
||||
|
||||
Total = LblTotalCompras.Text.ToDecimal
|
||||
If Total > 0 Then
|
||||
CveConceptoContable = 64
|
||||
CveCuenta = CveCuentaGanancia
|
||||
idCta = IdCtaGanancia
|
||||
Else
|
||||
CveConceptoContable = 65
|
||||
CveCuenta = CveCuentaPerdida
|
||||
idCta = idCtaPerdida
|
||||
End If
|
||||
If Not Conta.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Math.Abs(Total), " ", CveConceptoContable, "Fluctuación", Now, idCta, 0, ImporteMX:=Math.Abs(Total), CveCuenta:=CveCuenta) Then
|
||||
ErrorRegistrar = True
|
||||
End If
|
||||
|
||||
|
||||
'saco las cuentas de pérdida y ganancia
|
||||
For Each gvr As GridViewRow In GvCompras.Rows
|
||||
Total = gvr.DataKey("Fluctuacion").ToDecimal
|
||||
'si es pérdida o ganancia
|
||||
|
||||
|
||||
'movimiento de complementaria
|
||||
If Not Conta.AddPrePolizasDetalle(CvePrePoliza, True, Total, gvr.DataKey("SerieFolio"), 201, gvr.DataKey("SerieFolio"), Now, IdCtaComplementaria, 0, CveCompra:=gvr.DataKey("CveCompra").ToEntero, TipoCambio:=TC, ImporteMX:=Total, ImporteME:=Total, CveCuenta:=CveCuentaComplementaria) Then
|
||||
ErrorRegistrar = True
|
||||
Exit For
|
||||
End If
|
||||
Next
|
||||
|
||||
If Not ErrorRegistrar Then
|
||||
Conta.Commit()
|
||||
Alert("La Fluctuación se ha generado", TipoMensaje.MsgInformacion)
|
||||
Else
|
||||
Conta.RollBack()
|
||||
End If
|
||||
Conta.Dispose()
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
#Region "FLUCTUACION VENTAS"
|
||||
|
||||
Protected Sub BtnGeneraVentas_Click(sender As Object, e As EventArgs)
|
||||
Dim Total As Decimal = 0
|
||||
Dim Conta As New ClsContabilidad
|
||||
Conta.IniciaTransacSQL()
|
||||
Dim CvePrePoliza As Integer = Conta.AddPrePolizas("Banc/Fluctua", 1, 0, 0, 1, TxtFecha.Text.ToDate, "Fluctuación", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
|
||||
Dim idCta As Integer = 0
|
||||
Dim CveCuenta As Integer = 0
|
||||
Dim CveCuentaPerdida, CveCuentaGanancia As Integer
|
||||
Dim idCtaPerdida, IdCtaGanancia As Integer
|
||||
Dim TipoMovto As Boolean = False
|
||||
Dim CveConceptoContable As Integer = 0
|
||||
Dim CveCuentaComplementaria As Integer = 54141
|
||||
Dim IdCtaComplementaria As Integer = 70
|
||||
Dim ErrorRegistrar As Boolean = False
|
||||
|
||||
CveCuentaPerdida = 0 '55379
|
||||
CveCuentaGanancia = 0 ' 55382
|
||||
idCtaPerdida = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria '1227
|
||||
IdCtaGanancia = UsuarioActual.Empresa.IdCuentaGananciaCambiaria '1230
|
||||
Dim TC As Decimal = 2 ' se pone 2, para que cumpla con el check constrains de complementarias
|
||||
|
||||
Total = LblTotalVentas.Text.ToDecimal
|
||||
If Total < 0 Then
|
||||
CveConceptoContable = 64
|
||||
CveCuenta = CveCuentaGanancia
|
||||
TipoMovto = True
|
||||
idCta = IdCtaGanancia
|
||||
Else
|
||||
CveConceptoContable = 65
|
||||
CveCuenta = CveCuentaPerdida
|
||||
idCta = idCtaPerdida
|
||||
TipoMovto = False
|
||||
End If
|
||||
If Not Conta.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Math.Abs(Total), " ", CveConceptoContable, "Fluctuación", Now, idCta, 0, ImporteMX:=Math.Abs(Total), CveCuenta:=CveCuenta) Then
|
||||
ErrorRegistrar = True
|
||||
End If
|
||||
|
||||
Dim CveConconceptoCliente As Integer = 203
|
||||
|
||||
'saco las cuentas de pérdida y ganancia
|
||||
For Each gvr As GridViewRow In GvVentas.Rows
|
||||
Total = gvr.DataKey("Fluctuacion").ToDecimal
|
||||
|
||||
If gvr.DataKey("CveIE").ToEntero > 0 AndAlso gvr.DataKey("CveVenta").ToEntero < 0 Then
|
||||
CveConconceptoCliente = 226
|
||||
Else
|
||||
CveConconceptoCliente = 203
|
||||
End If
|
||||
|
||||
'movimiento de complementaria
|
||||
If Not Conta.AddPrePolizasDetalle(CvePrePoliza, False, Total, gvr.DataKey("SerieFolio"), CveConconceptoCliente, gvr.DataKey("SerieFolio"), Now, IdCtaComplementaria, 0, CveVenta:=gvr.DataKey("CveVenta").ToEntero, TipoCambio:=TC, ImporteMX:=Total, ImporteME:=Total, CveCuenta:=CveCuentaComplementaria, CveIE:=gvr.DataKey("CveIE").ToEntero) Then
|
||||
ErrorRegistrar = True
|
||||
Exit For
|
||||
End If
|
||||
Next
|
||||
|
||||
If Not ErrorRegistrar Then
|
||||
Conta.Commit()
|
||||
Alert("La Fluctuación se ha generado", TipoMensaje.MsgInformacion)
|
||||
Else
|
||||
Conta.RollBack()
|
||||
End If
|
||||
Conta.Dispose()
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
#Region "FLUCTUACION BANCOS"
|
||||
|
||||
Protected Sub BtnGeneraBancos_Click(sender As Object, e As EventArgs)
|
||||
Dim Total As Decimal = 0
|
||||
Dim Conta As New ClsContabilidad
|
||||
Conta.IniciaTransacSQL()
|
||||
Dim CvePrePoliza As Integer = Conta.AddPrePolizas("Banc/Fluctua", 1, 0, 0, 1, TxtFecha.Text.ToDate, "Fluctuación", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
|
||||
Dim idCta As Integer = 0
|
||||
Dim CveCuenta As Integer = 0
|
||||
Dim CveCuentaPerdida, CveCuentaGanancia As Integer
|
||||
Dim idCtaPerdida, IdCtaGanancia As Integer
|
||||
Dim TipoMovto As Boolean = False
|
||||
Dim CveConceptoContable As Integer = 0
|
||||
Dim ErrorRegistrar As Boolean = False
|
||||
Dim TCCierreFluctuacion As Decimal = LtTipoCambioActual.Text.ToDecimal
|
||||
|
||||
CveCuentaPerdida = 0 ' 55379
|
||||
CveCuentaGanancia = 0 ' 55382
|
||||
idCtaPerdida = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria '1227
|
||||
IdCtaGanancia = UsuarioActual.Empresa.IdCuentaGananciaCambiaria '1230
|
||||
Dim TC As Decimal = 2 ' se pone 2, para que cumpla con el check constrains de complementarias
|
||||
Total = LblTotalBancos.Text.ToDecimal
|
||||
|
||||
|
||||
|
||||
|
||||
Dim CveConconceptoBancos As Integer = 204
|
||||
|
||||
|
||||
'saco las cuentas de pérdida y ganancia
|
||||
For Each gvr As GridViewRow In GvCuentas.Rows
|
||||
Dim cb As CheckBox = gvr.FCCheckBox("ChkGenerarBancos")
|
||||
If cb.Checked Then
|
||||
Total = gvr.DataKey("Fluctuacion").ToDecimal
|
||||
Dim IdCtaComplementaria As Integer = gvr.DataKey("IdCtaAfectable").ToEntero
|
||||
Dim ConceptoReferencia As String = $"{gvr.DataKey("Banco")} - {gvr.DataKey("NumCuenta")} "
|
||||
|
||||
|
||||
'MOVIMIENTO DE FLUCTUACION
|
||||
If Total > 0 Then
|
||||
CveConceptoContable = 64
|
||||
CveCuenta = CveCuentaGanancia
|
||||
TipoMovto = True
|
||||
idCta = IdCtaGanancia
|
||||
Else
|
||||
CveConceptoContable = 65
|
||||
CveCuenta = CveCuentaPerdida
|
||||
idCta = idCtaPerdida
|
||||
TipoMovto = False
|
||||
End If
|
||||
|
||||
'movimiento de complementaria
|
||||
If Not Conta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovto, Math.Abs(Total), ConceptoReferencia, CveConconceptoBancos, ConceptoReferencia, Now, IdCtaComplementaria, 0, TipoCambio:=TC, ImporteMX:=Math.Abs(Total), ImporteME:=Math.Abs(Total)) Then
|
||||
ErrorRegistrar = True
|
||||
Exit For
|
||||
End If
|
||||
|
||||
If Not Conta.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Math.Abs(Total), " ", CveConceptoContable, "Fluctuación", Now, idCta, 0, ImporteMX:=Math.Abs(Total), CveCuenta:=CveCuenta) Then
|
||||
ErrorRegistrar = True
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
|
||||
|
||||
If Not ErrorRegistrar Then
|
||||
Conta.Commit()
|
||||
Alert(String.Format("La Fluctuación se ha generado <br/> <a href='/Contabilidad/RegPrePoliza.aspx?CvePrePoliza={0}'>Ver Póliza</a>", CvePrePoliza), TipoMensaje.MsgInformacion)
|
||||
CargaDatosCuentas()
|
||||
Else
|
||||
Conta.RollBack()
|
||||
End If
|
||||
Conta.Dispose()
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
#Region "FLUCTUACION DEUDOR"
|
||||
|
||||
Protected Sub BtnGeneraDedudores_Click(sender As Object, e As EventArgs)
|
||||
Dim Total As Decimal = 0
|
||||
Dim Conta As New ClsContabilidad
|
||||
Dim Banco As New ClsBancos(Conta.IniciaTransacSQL())
|
||||
Dim CvePrePoliza As Integer = Conta.AddPrePolizas("Banc/FluctuaDD", 1, 0, 0, 1, TxtFecha.Text.ToDate, "Fluctuación Deudor", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
|
||||
Dim idCta As Integer = 0
|
||||
Dim CveCuenta As Integer = 0
|
||||
Dim CveCuentaPerdida, CveCuentaGanancia As Integer
|
||||
Dim idCtaPerdida, IdCtaGanancia As Integer
|
||||
Dim TipoMovto As Boolean = False
|
||||
Dim CveConceptoContable As Integer = 0
|
||||
Dim ErrorRegistrar As Boolean = False
|
||||
|
||||
CveCuentaPerdida = 0 '55379
|
||||
CveCuentaGanancia = 0 ' 55382
|
||||
idCtaPerdida = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria '1227
|
||||
IdCtaGanancia = UsuarioActual.Empresa.IdCuentaGananciaCambiaria '1230
|
||||
Dim TC As Decimal = 2 ' se pone 2, para que cumpla con el check constrains de complementarias
|
||||
Dim TCCierreFluctuacion As Decimal = LtTipoCambioActual.Text.ToDecimal
|
||||
|
||||
Total = LblTotalAcreedores.Text.ToDecimal
|
||||
Dim ConceptoFluctuacion As String = String.Format("Fluctuación Filiales {0} ", TxtFecha.Text)
|
||||
|
||||
Dim CveConconceptoDeudores As Integer = 256
|
||||
|
||||
'saco las cuentas de pérdida y ganancia
|
||||
For Each gvr As GridViewRow In GvDeudores.Rows
|
||||
Total = gvr.DataKey("Fluctuacion").ToDecimal.RoundSQL
|
||||
|
||||
If gvr.DataKey("CveIE").ToEntero = 0 Then
|
||||
If Total < 0 Then
|
||||
CveConceptoContable = 64
|
||||
CveCuenta = CveCuentaGanancia
|
||||
idCta = IdCtaGanancia
|
||||
TipoMovto = True
|
||||
Else
|
||||
CveConceptoContable = 65
|
||||
CveCuenta = CveCuentaPerdida
|
||||
idCta = idCtaPerdida
|
||||
TipoMovto = False
|
||||
End If
|
||||
If Not Conta.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Math.Abs(Total), " ", CveConceptoContable, ConceptoFluctuacion, Now, idCta, 0, ImporteMX:=Math.Abs(Total), CveCuenta:=CveCuenta) Then
|
||||
ErrorRegistrar = True
|
||||
End If
|
||||
|
||||
Dim IdCtaComplementaria As Integer = gvr.DataKey("IdCtaAfectable").ToEntero
|
||||
|
||||
'movimiento de complementaria
|
||||
If Not Conta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovto, Math.Abs(Total), ConceptoFluctuacion, CveConconceptoDeudores, ConceptoFluctuacion & gvr.DataKey("RazonSocial"), Now, IdCtaComplementaria, 0, TipoCambio:=TC, ImporteMX:=Math.Abs(Total), ImporteME:=Math.Abs(Total)) Then
|
||||
ErrorRegistrar = True
|
||||
Exit For
|
||||
End If
|
||||
Else
|
||||
'actualizar el TC del IE, al nuevo TC de la fluctuación
|
||||
Banco.UpdateBancosTipoCambioValuacion(TCCierreFluctuacion, gvr.DataKey("CveIE").ToEntero, UsuarioActual.CveEmpresa)
|
||||
|
||||
End If
|
||||
Next
|
||||
|
||||
If Not ErrorRegistrar Then
|
||||
Conta.Commit()
|
||||
Alert(String.Format("La Fluctuación se ha generado <br/> <a href='/Contabilidad/RegPrePoliza.aspx?CvePrePoliza={0}'>Ver Póliza</a>", CvePrePoliza), TipoMensaje.MsgInformacion)
|
||||
Else
|
||||
Conta.RollBack()
|
||||
End If
|
||||
Conta.Dispose()
|
||||
Banco.Dispose()
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
#Region "FLUCTUACION FILIALES"
|
||||
|
||||
Protected Sub BtnGeneraFiliales_Click(sender As Object, e As EventArgs)
|
||||
|
||||
Dim Total As Decimal = 0
|
||||
Dim Conta As New ClsContabilidad
|
||||
Dim Banco As New ClsBancos(Conta.IniciaTransacSQL())
|
||||
Dim CvePrePoliza As Integer = Conta.AddPrePolizas("Banc/FluctuaFilial", 1, 0, 0, 1, TxtFecha.Text.ToDate, "Fluctuación Filiales", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
|
||||
Dim idCta As Integer = 0
|
||||
Dim CveCuenta As Integer = 0
|
||||
Dim CveCuentaPerdida, CveCuentaGanancia As Integer
|
||||
Dim idCtaPerdida, IdCtaGanancia As Integer
|
||||
Dim TipoMovto As Boolean = False
|
||||
Dim CveConceptoContable As Integer = 0
|
||||
Dim CveCuentaComplementaria As Integer = 55201
|
||||
Dim IdCtaComplementaria As Integer = 1274
|
||||
Dim ErrorRegistrar As Boolean = False
|
||||
|
||||
CveCuentaPerdida = 0 '55379
|
||||
CveCuentaGanancia = 0 ' 55382
|
||||
idCtaPerdida = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria '1227
|
||||
IdCtaGanancia = UsuarioActual.Empresa.IdCuentaGananciaCambiaria '1230
|
||||
Dim TC As Decimal = 2 ' se pone 2, para que cumpla con el check constrains de complementarias
|
||||
Dim TCCierreFluctuacion As Decimal = LtTipoCambioActual.Text.ToDecimal
|
||||
|
||||
Total = LblTotalAcreedores.Text.ToDecimal
|
||||
Dim ConceptoFluctuacion As String = String.Format("Fluctuación Filiales {0} ", TxtFecha.Text)
|
||||
|
||||
'saco las cuentas de pérdida y ganancia
|
||||
For Each gvr As GridViewRow In GvFiliales.Rows
|
||||
Total = gvr.DataKey("Fluctuacion").ToDecimal
|
||||
'si es pérdida o ganancia
|
||||
|
||||
'cuando es acumulado, SOLO REGISTRA
|
||||
If gvr.DataKey("CveIE").ToEntero = 0 Then
|
||||
If Total < 0 Then
|
||||
CveConceptoContable = 64
|
||||
CveCuenta = CveCuentaGanancia
|
||||
idCta = IdCtaGanancia
|
||||
TipoMovto = True
|
||||
Else
|
||||
CveConceptoContable = 65
|
||||
CveCuenta = CveCuentaPerdida
|
||||
idCta = idCtaPerdida
|
||||
TipoMovto = False
|
||||
End If
|
||||
If Not Conta.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Math.Abs(Total), " ", CveConceptoContable, ConceptoFluctuacion, Now, idCta, 0, ImporteMX:=Math.Abs(Total), CveCuenta:=CveCuenta) Then
|
||||
ErrorRegistrar = True
|
||||
End If
|
||||
|
||||
'movimiento de complementaria
|
||||
If Not Conta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovto, Math.Abs(Total), ConceptoFluctuacion, 202, ConceptoFluctuacion & gvr.DataKey("RazonSocial"), Now, IdCtaComplementaria, 0, TipoCambio:=TC, ImporteMX:=Math.Abs(Total), ImporteME:=Math.Abs(Total), CveCuenta:=CveCuentaComplementaria) Then
|
||||
ErrorRegistrar = True
|
||||
Exit For
|
||||
End If
|
||||
Else
|
||||
'actualizar el TC del IE, al nuevo TC de la fluctuación
|
||||
Banco.UpdateBancosTipoCambioValuacion(TCCierreFluctuacion, gvr.DataKey("CveIE").ToEntero, UsuarioActual.CveEmpresa)
|
||||
|
||||
End If
|
||||
|
||||
|
||||
|
||||
Next
|
||||
|
||||
If Not ErrorRegistrar Then
|
||||
Conta.Commit()
|
||||
Alert(String.Format("La Fluctuación se ha generado <br/> <a href='/Contabilidad/RegPrePoliza.aspx?CvePrePoliza={0}'>Ver Póliza</a>", CvePrePoliza), TipoMensaje.MsgInformacion)
|
||||
Else
|
||||
Conta.RollBack()
|
||||
End If
|
||||
Conta.Dispose()
|
||||
Banco.Dispose()
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
#Region "FLUCTUACION ACREEDORES"
|
||||
|
||||
Protected Sub BtnGeneraAcreedores_Click(sender As Object, e As EventArgs)
|
||||
|
||||
Dim Total As Decimal = 0
|
||||
Dim Conta As New ClsContabilidad
|
||||
Conta.IniciaTransacSQL()
|
||||
Dim CvePrePoliza As Integer = Conta.AddPrePolizas("Banc/Fluctua", 1, 0, 0, 1, TxtFecha.Text.ToDate, "Fluctuación", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
|
||||
Dim idCta As Integer = 0
|
||||
Dim CveCuenta As Integer = 0
|
||||
Dim CveCuentaPerdida, CveCuentaGanancia As Integer
|
||||
Dim idCtaPerdida, IdCtaGanancia As Integer
|
||||
Dim TipoMovto As Boolean = False
|
||||
Dim CveConceptoContable As Integer = 0
|
||||
Dim CveCuentaComplementaria As Integer = 0
|
||||
Dim IdCtaComplementaria As Integer = 0
|
||||
Dim ErrorRegistrar As Boolean = False
|
||||
|
||||
CveCuentaPerdida = 0 '55379
|
||||
CveCuentaGanancia = 0 ' 55382
|
||||
idCtaPerdida = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria '1227
|
||||
IdCtaGanancia = UsuarioActual.Empresa.IdCuentaGananciaCambiaria '1230
|
||||
Dim TC As Decimal = 2 ' se pone 2, para que cumpla con el check constrains de complementarias
|
||||
|
||||
|
||||
Total = LblTotalAcreedores.Text.ToDecimal
|
||||
If Total > 0 Then
|
||||
CveConceptoContable = 64
|
||||
CveCuenta = CveCuentaGanancia
|
||||
idCta = IdCtaGanancia
|
||||
Else
|
||||
CveConceptoContable = 65
|
||||
CveCuenta = CveCuentaPerdida
|
||||
idCta = idCtaPerdida
|
||||
End If
|
||||
If Not Conta.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Math.Abs(Total), " ", CveConceptoContable, "Fluctuación", Now, idCta, 0, ImporteMX:=Math.Abs(Total), CveCuenta:=CveCuenta) Then
|
||||
ErrorRegistrar = True
|
||||
End If
|
||||
|
||||
|
||||
'saco las cuentas de pérdida y ganancia
|
||||
For Each gvr As GridViewRow In GvAcreedores.Rows
|
||||
Total = gvr.DataKey("Fluctuacion").ToDecimal
|
||||
'si es pérdida o ganancia
|
||||
|
||||
|
||||
'movimiento de complementaria
|
||||
If Not Conta.AddPrePolizasDetalle(CvePrePoliza, True, Total, gvr.DataKey("SerieFolio"), 202, gvr.DataKey("SerieFolio"), Now, IdCtaComplementaria, 0, CveCompra:=gvr.DataKey("CveCompra").ToEntero, TipoCambio:=TC, ImporteMX:=Total, ImporteME:=Total, CveCuenta:=CveCuentaComplementaria) Then
|
||||
ErrorRegistrar = True
|
||||
Exit For
|
||||
End If
|
||||
Next
|
||||
|
||||
If Not ErrorRegistrar Then
|
||||
Conta.Commit()
|
||||
Alert(String.Format("La Fluctuación se ha generado <br/> <a href='/Contabilidad/RegPrePoliza.aspx?CvePrePoliza={0}'>Ver Póliza</a>", CvePrePoliza), TipoMensaje.MsgInformacion)
|
||||
Else
|
||||
Conta.RollBack()
|
||||
End If
|
||||
Conta.Dispose()
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
#Region "FLUCTUACION GENERAL"
|
||||
|
||||
' Protected Sub BtnGenerar_Click(sender As Object, e As EventArgs)
|
||||
' Dim AcumuladoGananciaCompras = 0.0, AcumuladoPerdidaCompras = 0.0, AcumuladoGananciaBancos = 0.0, AcumuladoPerdidaBancos = 0.0
|
||||
' Dim IDPoliza = -1
|
||||
|
||||
' 'Valida datos de Compras
|
||||
' For Each gvr As GridViewRow In GvCompras.Rows
|
||||
' If gvr.DataKey("SinTipoCambio").ToString.ToEntero > 0 AndAlso Not gvr.DataKey("IdCtaAfectable").ToString.ToEntero > 0 Then
|
||||
' Alert("No se puede Generar la Fluctuación ya que faltan datos en Compras")
|
||||
' 'Exit Sub
|
||||
' Else
|
||||
' If gvr.DataKey("IdCtaAfectable").ToString.ToEntero > 0 Then
|
||||
' If gvr.DataKey("Fluctuacion").ToString.ToDouble > 0 Then
|
||||
' AcumuladoGananciaCompras += gvr.DataKey("Fluctuacion").ToString.ToDouble
|
||||
' Else
|
||||
' AcumuladoPerdidaCompras += gvr.DataKey("Fluctuacion").ToString.ToDouble * -1
|
||||
' End If
|
||||
' End If
|
||||
|
||||
' End If
|
||||
' Next
|
||||
|
||||
' 'Valida datos de Bancos
|
||||
' For Each gvr As GridViewRow In GvCuentas.Rows
|
||||
' If Not gvr.DataKey("TipoCambio").ToString.ToEntero > 0 AndAlso Not gvr.DataKey("IdCtaAfectable").ToString.ToEntero > 0 Then
|
||||
' Alert("No se puede Generar la Fluctuación ya que faltan datos en Cuentas Bancarias")
|
||||
' 'Exit Sub
|
||||
' Else
|
||||
' If gvr.DataKey("IdCtaAfectable").ToString.ToEntero > 0 Then
|
||||
' If gvr.DataKey("Fluctuacion").ToString.ToDouble > 0 Then
|
||||
' AcumuladoGananciaBancos += gvr.DataKey("Fluctuacion").ToString.ToDouble
|
||||
' Else
|
||||
' AcumuladoPerdidaBancos += gvr.DataKey("Fluctuacion").ToString.ToDouble * -1
|
||||
' End If
|
||||
' End If
|
||||
|
||||
' End If
|
||||
' Next
|
||||
|
||||
' Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
|
||||
' ObjConta.IniciaTransacSQL()
|
||||
' Dim ObjBancos As New ClsBancos
|
||||
' ObjBancos.IniciaTransacSQL()
|
||||
' Dim ErrorGenerar = False
|
||||
' Dim Fecha As Date = TxtFecha.Text.ToDate
|
||||
|
||||
' IDPoliza = ObjConta.AddPoliza(3, "Fluctuación Cambiaria", (AcumuladoGananciaCompras + AcumuladoPerdidaCompras) * 2, (AcumuladoGananciaCompras + AcumuladoPerdidaCompras) * 2, UsuarioActual.CveUsuario, Fecha)
|
||||
|
||||
' If IDPoliza > 0 Then
|
||||
|
||||
' 'COMIENZA: AGREGA CUENTAS BANCARIAS
|
||||
' If AcumuladoGananciaBancos > 0 Or AcumuladoPerdidaBancos > 0 Then
|
||||
' 'Agrega movimientos
|
||||
' Dim Fluc As Double
|
||||
' For Each gvr As GridViewRow In GvCuentas.Rows
|
||||
' Fluc = gvr.DataKey("Fluctuacion").ToString.ToDouble
|
||||
' If Math.Abs(Fluc) > 0 AndAlso gvr.DataKey("IdCtaAfectable").ToString.ToEntero > 0 Then
|
||||
' If Not ObjConta.AddMovimiento(IDPoliza, gvr.DataKey("IdCtaAfectable").ToString.ToEntero, Not Fluc > 0, Math.Abs(Fluc), "", String.Format("{0} Cambiaria de Cuentas Bancarias", If(Fluc > 0, "Ganancia", "Perdida")), 0, Fecha, "") Then
|
||||
' ErrorGenerar = True
|
||||
' Exit For
|
||||
' End If
|
||||
' End If
|
||||
' Next
|
||||
|
||||
' 'Agrega acumulados
|
||||
' If Not ErrorGenerar AndAlso AcumuladoGananciaBancos > 0 Then
|
||||
' If Not ObjConta.AddMovimiento(IDPoliza, 2195, AcumuladoGananciaBancos > 0, AcumuladoGananciaBancos, "", "Acumulado Ganancia Cambiaria de Cuentas Bancarias", 0, Fecha, "") Then
|
||||
' ErrorGenerar = True
|
||||
' End If
|
||||
' End If
|
||||
' If Not ErrorGenerar AndAlso AcumuladoPerdidaBancos > 0 Then
|
||||
' If Not ObjConta.AddMovimiento(IDPoliza, 4695, AcumuladoPerdidaBancos > 0, AcumuladoPerdidaBancos, "", "Acumulado Pérdida Cambiaria de Cuentas Bancarias", 0, Fecha, "") Then
|
||||
' ErrorGenerar = True
|
||||
' End If
|
||||
' End If
|
||||
' Else
|
||||
' ErrorGenerar = True
|
||||
' End If
|
||||
' 'TERMINA: AGREGA CUENTAS BANCARIAS
|
||||
|
||||
|
||||
' 'COMIENZA: AGREGA COMPRAS
|
||||
' If AcumuladoGananciaCompras > 0 Or AcumuladoPerdidaCompras > 0 Then
|
||||
' 'Agrega movimientos
|
||||
' Dim Fluc As Double
|
||||
' For Each gvr As GridViewRow In GvCompras.Rows
|
||||
' Fluc = gvr.DataKey("Fluctuacion").ToString.ToDouble
|
||||
' If Math.Abs(Fluc) > 0 AndAlso gvr.DataKey("IdCtaAfectable").ToString.ToEntero > 0 Then
|
||||
' If Not ObjConta.AddMovimiento(IDPoliza, gvr.DataKey("IdCtaAfectable").ToString.ToEntero, Not Fluc > 0, Math.Abs(Fluc), "", String.Format("{0} Cambiaria de Compras", If(Fluc > 0, "Ganancia", "Pérdida")), 0, Fecha, "") Then
|
||||
' ErrorGenerar = True
|
||||
' Exit For
|
||||
' End If
|
||||
' End If
|
||||
' Next
|
||||
|
||||
' 'Agrega acumulados
|
||||
' If Not ErrorGenerar AndAlso AcumuladoGananciaCompras > 0 Then
|
||||
' If Not ObjConta.AddMovimiento(IDPoliza, UsuarioActual.Empresa.IdCuentaGananciaCambiaria, Not AcumuladoGananciaCompras > 0, AcumuladoGananciaCompras, "", "Acumulado Ganancia Cambiaria de Compras", 0, Fecha, "") Then
|
||||
' ErrorGenerar = True
|
||||
' End If
|
||||
' End If
|
||||
' If Not ErrorGenerar AndAlso AcumuladoPerdidaCompras > 0 Then
|
||||
' If Not ObjConta.AddMovimiento(IDPoliza, UsuarioActual.Empresa.IdCuentaPerdidaCambiaria, Not AcumuladoPerdidaCompras > 0, AcumuladoPerdidaCompras, "", "Acumulado Pérdida Cambiaria de Compras", 0, Fecha, "") Then
|
||||
' ErrorGenerar = True
|
||||
' End If
|
||||
' End If
|
||||
' Else
|
||||
' ErrorGenerar = True
|
||||
' End If
|
||||
' 'TERMINA: AGREGA COMPRAS
|
||||
|
||||
|
||||
' Else
|
||||
' ErrorGenerar = True
|
||||
' End If
|
||||
|
||||
|
||||
' 'Agrega en Bitacoras
|
||||
' If Not ErrorGenerar Then
|
||||
' If ObjBancos.AddFluctuacionesBitacora(IDPoliza, Fecha, 1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
|
||||
' If Not ObjBancos.AddFluctuacionesBitacora(IDPoliza, Fecha, 2, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
|
||||
' ErrorGenerar = True
|
||||
' End If
|
||||
' Else
|
||||
' ErrorGenerar = True
|
||||
' End If
|
||||
' End If
|
||||
|
||||
|
||||
' If Not ErrorGenerar Then
|
||||
|
||||
' ObjConta.AjustaPoliza(IDPoliza)
|
||||
|
||||
' ObjConta.Commit()
|
||||
' ObjBancos.Commit()
|
||||
' Alert(String.Format("Fluctuación realizada con exito.<br/><br/><a class=""Texto"" target='_blank' href=""/Contabilidad/RegPoliza.aspx?IdPoliza={0}"">Ver Póliza</a>", IDPoliza))
|
||||
' Else
|
||||
' ObjConta.RollBack()
|
||||
' ObjBancos.RollBack()
|
||||
' Alert("Ocurrio un error al generar la poliza", TipoMensaje.MsgAdvertencia)
|
||||
' End If
|
||||
|
||||
' ObjConta.Dispose()
|
||||
' ObjBancos.Dispose()
|
||||
' End Sub
|
||||
|
||||
|
||||
#End Region
|
||||
|
||||
#Region "GRIDVIEWS"
|
||||
|
||||
Protected Sub GvCompras_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvCompras.RowDataBound
|
||||
If e.Row.RowType = DataControlRowType.DataRow Then
|
||||
'TipoCambio = e.Row.DBCampo("TipoCambio").ToString.ToDouble
|
||||
'e.Row.FCLabel("LbTipoCambioActual").Text = TipoCambioActual.ToString
|
||||
'e.Row.FCLabel("LbTipoCambio").Text = If(TipoCambio > 0, TipoCambio.ToString, "No hay TipoCambio")
|
||||
'e.Row.FCLabel("LbFluctuacion").Text = If(TipoCambio > 0, ((TipoCambio - TipoCambioActual) * e.Row.DBCampo("Saldo").ToString.ToDouble).ToString.FormatoNumero, "No aplica")
|
||||
'If e.Row.FCLabel("LbFluctuacion").Text = "No aplica" Then
|
||||
' e.Row.BackColor = Drawing.Color.LightSalmon
|
||||
'ElseIf e.Row.FCLabel("LbFluctuacion").Text.ToDouble < 0 Then
|
||||
' e.Row.BackColor = Drawing.Color.LightGoldenrodYellow
|
||||
'End If
|
||||
|
||||
'e.Row.FCHyperLink("HLProveedor").NavigateUrl = String.Format("/Compras/Proveedores.aspx?CveProveedor={0}", e.Row.DBCampo("CveProveedor").ToString.ToEntero)
|
||||
|
||||
'If Not e.Row.DBCampo("IdCtaContProveedores").ToString.ToEntero > 0 Then
|
||||
' e.Row.FCHyperLink("HLProveedor").ForeColor = Drawing.Color.Red
|
||||
'End If
|
||||
|
||||
|
||||
'If e.Row.DBCampo("Fluctuacion").ToString.ToDouble < 0 Then
|
||||
' e.Row.BackColor = Drawing.Color.LightGoldenrodYellow
|
||||
'End If
|
||||
'If e.Row.DBCampo("SinTipoCambio").ToString.ToEntero > 0 Then
|
||||
' e.Row.BackColor = Drawing.Color.LightSalmon
|
||||
'End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Protected Sub GvCuentas_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvCuentas.RowDataBound
|
||||
If e.Row.RowType = DataControlRowType.DataRow Then
|
||||
'TipoCambio = e.Row.DBCampo("TipoCambio").ToString.ToDouble
|
||||
'e.Row.FCLabel("LbTipoCambioActual").Text = TipoCambioActual.ToString
|
||||
'e.Row.FCLabel("LbTipoCambio").Text = If(TipoCambio > 0, TipoCambio.ToString, "No hay TipoCambio")
|
||||
'e.Row.FCLabel("LbFluctuacion").Text = If(TipoCambio > 0, ((TipoCambio - TipoCambioActual) * e.Row.DBCampo("Saldo").ToString.ToDouble).ToString, "No aplica")
|
||||
|
||||
If Not e.Row.DBCampo("IdCtaContable").ToString.ToEntero > 0 Then
|
||||
' e.Row.FCLabel("LabelBanco").ForeColor = Drawing.Color.Red
|
||||
End If
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub GvFiliales_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvFiliales.RowDataBound
|
||||
If e.Row.RowType = DataControlRowType.DataRow Then
|
||||
|
||||
If e.Row.DBCampo("CveIE").ToString.ToEntero = 0 Then
|
||||
e.Row.CssClass = "SubTotales"
|
||||
End If
|
||||
|
||||
End If
|
||||
End Sub
|
||||
Private Sub GvDeudores_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvDeudores.RowDataBound
|
||||
If e.Row.RowType = DataControlRowType.DataRow Then
|
||||
|
||||
If e.Row.DBCampo("CveIE").ToString.ToEntero = 0 Then
|
||||
e.Row.CssClass = "SubTotales"
|
||||
End If
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
End Class
|
||||
Reference in New Issue
Block a user