-- option strict on
This commit is contained in:
@@ -44,7 +44,7 @@ Partial Class Contabilidad2_CatCuentas
|
||||
|
||||
Private Property Afectable As Boolean
|
||||
Get
|
||||
Return ViewState("Afectable").ToString
|
||||
Return CBool(ViewState("Afectable").ToString)
|
||||
End Get
|
||||
Set(value As Boolean)
|
||||
ViewState("Afectable") = value
|
||||
@@ -204,7 +204,7 @@ Partial Class Contabilidad2_CatCuentas
|
||||
DTcuenta.SelectedValue = dr("Tipo").ToString()
|
||||
DcuentaMayor.SelectedValue = dr("CtaMayor").ToString
|
||||
LblSubCuenta.Text = dr("Nombre").ToString
|
||||
Afectable = dr("Afectable").ToString
|
||||
Afectable = CBool(dr("Afectable").ToString)
|
||||
CvePadre = dr("CvePadre").ToString.ToEntero
|
||||
End If
|
||||
|
||||
@@ -230,10 +230,10 @@ Partial Class Contabilidad2_CatCuentas
|
||||
onconceptochange()
|
||||
CveProveedor = -1
|
||||
DdlProveedores.SelectedText = ""
|
||||
DdlProveedores.SelectedValue = CveProveedor
|
||||
DdlProveedores.SelectedValue = CveProveedor.ToString
|
||||
CveCliente = -1
|
||||
DdlClientesWS.SelectedText = ""
|
||||
DdlClientesWS.SelectedValue = CveCliente
|
||||
DdlClientesWS.SelectedValue = CveCliente.ToString
|
||||
Dim PorcentajeImpuesto As Decimal = -1
|
||||
DdlClasificacion.SelectedValueExist(PorcentajeImpuesto)
|
||||
CveClasificacion = -1
|
||||
@@ -266,24 +266,24 @@ Partial Class Contabilidad2_CatCuentas
|
||||
objconta.GetConta_CuentasDataContabilidad(IDSelected, UsuarioActual.CveEmpresa)
|
||||
If objconta.DtResultados.Rows.Count > 0 Then
|
||||
Dim rowcc As DataRow = objconta.DtResultados.Rows(0)
|
||||
DdlConcepto.SelectedValue = -1
|
||||
DdlConcepto.SelectedValue = "-1"
|
||||
DdlConcepto.SelectedValueExist(rowcc("CveConceptoAdmin").ToString().ToEntero())
|
||||
onconceptochange()
|
||||
CveProveedor = rowcc("CveProveedor").ToString().ToEntero()
|
||||
DdlProveedores.SelectedText = rowcc("Proveedor").ToString().ToEntero()
|
||||
DdlProveedores.SelectedValue = CveProveedor
|
||||
DdlProveedores.SelectedText = rowcc("Proveedor").ToString()
|
||||
DdlProveedores.SelectedValue = CveProveedor.ToString
|
||||
CveCliente = rowcc("CveCliente").ToString().ToEntero()
|
||||
DdlClientesWS.SelectedText = rowcc("Cliente").ToString().ToEntero()
|
||||
DdlClientesWS.SelectedValue = CveCliente
|
||||
DdlClientesWS.SelectedText = rowcc("Cliente").ToString
|
||||
DdlClientesWS.SelectedValue = CveCliente.ToString
|
||||
Dim PorcentajeImpuesto As Decimal = rowcc("PorcentajeImpuesto").ToString().ToDecimal() * 100
|
||||
TxtPorcentaje.Text = (PorcentajeImpuesto)
|
||||
TxtPorcentaje.Text = PorcentajeImpuesto.ToString
|
||||
CveClasificacion = rowcc("CveClasificacion").ToString().ToEntero()
|
||||
DdlClasificacion.SelectedValueExist(CveClasificacion)
|
||||
CveBancoCuenta = rowcc("CveBancoCuenta").ToString().ToEntero()
|
||||
ddlBancos.SelectedValue = -1
|
||||
ddlBancos.SelectedValue = "-1"
|
||||
ddlBancos.SelectedValueExist(CveBancoCuenta)
|
||||
CveAlmacen = rowcc("CveAlmacen").ToString().ToEntero()
|
||||
DdlAlmacen.SelectedValue = -1
|
||||
DdlAlmacen.SelectedValue = "-1"
|
||||
DdlAlmacen.SelectedValueExist(CveAlmacen)
|
||||
DdlPersonal.SelectedValueExist(rowcc("CvePersonal").ToString().ToEntero())
|
||||
End If
|
||||
@@ -291,7 +291,7 @@ Partial Class Contabilidad2_CatCuentas
|
||||
End Using
|
||||
|
||||
If dr("CveAgrupadorSAT").ToString.ToEntero = 0 Then
|
||||
DdlAgrupadorSAT.SelectedValue = -1
|
||||
DdlAgrupadorSAT.SelectedValue = "-1"
|
||||
Else
|
||||
DdlAgrupadorSAT.SelectedValueExist(dr("CveAgrupadorSAT").ToString)
|
||||
End If
|
||||
@@ -464,28 +464,28 @@ Partial Class Contabilidad2_CatCuentas
|
||||
End If
|
||||
If Not IsNothing(row) Then
|
||||
If CveTipoSaldo = 3 Then
|
||||
PorcentajeIVA = TxtPorcentaje.ToEntero / 100
|
||||
PorcentajeIVA = TxtPorcentaje.Text.ToDecimal / 100D
|
||||
End If
|
||||
End If
|
||||
ObjConta.IniciaTransacSQL()
|
||||
If Afectable Then
|
||||
If ObjConta.GetCuentas(IDSelected, "-1", -1, UsuarioActual.CveEmpresa) Then
|
||||
drt = ObjConta.DtResultados.FiltroPrimero(String.Format("CveCuenta={0}", IDSelected))
|
||||
CveConceptoAdmin = IIf(drt("CveConceptoAdmin").ToString.ToEntero = 0, -1, drt("CveConceptoAdmin").ToString.ToEntero)
|
||||
CveProveedor = IIf(drt("CveProveedor").ToString.ToEntero = 0, -1, drt("CveProveedor").ToString.ToEntero)
|
||||
CveCliente = IIf(drt("CveCliente").ToString.ToEntero = 0, -1, drt("CveCliente").ToString.ToEntero)
|
||||
CveClasificacion = IIf(drt("CveClasificacion").ToString.ToEntero = 0, -1, drt("CveClasificacion").ToString.ToEntero)
|
||||
PorcentajeImpuesto = IIf(drt("PorcentajeImpuesto").ToString.ToEntero = 0, -1, drt("PorcentajeImpuesto").ToString.ToEntero)
|
||||
CveBancoCuenta = IIf(drt("CveBancoCuenta").ToString.ToEntero = 0, -1, drt("CveBancoCuenta").ToString.ToEntero)
|
||||
CveConceptoAdmin = If(drt("CveConceptoAdmin").ToString.ToEntero = 0, -1, drt("CveConceptoAdmin").ToString.ToEntero)
|
||||
CveProveedor = If(drt("CveProveedor").ToString.ToEntero = 0, -1, drt("CveProveedor").ToString.ToEntero)
|
||||
CveCliente = If(drt("CveCliente").ToString.ToEntero = 0, -1, drt("CveCliente").ToString.ToEntero)
|
||||
CveClasificacion = If(drt("CveClasificacion").ToString.ToEntero = 0, -1, drt("CveClasificacion").ToString.ToEntero)
|
||||
PorcentajeImpuesto = If(drt("PorcentajeImpuesto").ToString.ToEntero = 0, -1, drt("PorcentajeImpuesto").ToString.ToEntero)
|
||||
CveBancoCuenta = If(drt("CveBancoCuenta").ToString.ToEntero = 0, -1, drt("CveBancoCuenta").ToString.ToEntero)
|
||||
'CveAlmacen = IIf(drt("CveAlmacen").ToString.ToEntero = 0, -1, drt("CveAlmacen").ToString.ToEntero)
|
||||
'CvePersonal = IIf(drt("CvePersonal").ToString.ToEntero = 0, -1, drt("CvePersonal").ToString.ToEntero)
|
||||
NombreCuenta = IIf(drt("Nombre").ToString = "", "", drt("Nombre").ToString.ToEntero)
|
||||
TipoCuenta = IIf(drt("Tipo").ToString = "", "", drt("Tipo").ToString.ToEntero)
|
||||
CuentaMayor = IIf(drt("CtaMayor").ToString.ToEntero = 0, 0, drt("CtaMayor").ToString.ToEntero)
|
||||
CveMoneda = IIf(drt("CveMoneda").ToString.ToEntero = -1, -1, drt("CveMoneda").ToString.ToEntero)
|
||||
DigAgrup = IIf(drt("DigAgrup").ToString.ToEntero = -1, -1, drt("DigAgrup").ToString.ToEntero)
|
||||
CveAgrupadorSat = IIf(drt("CveAgrupadorSAT").ToString.ToEntero = 0, -1, drt("CveAgrupadorSAT").ToString.ToEntero)
|
||||
NomIdioma = IIf(drt("NomIdioma").ToString = "", "", drt("NomIdioma").ToString.ToEntero)
|
||||
NombreCuenta = If(drt("Nombre").ToString = "", "", drt("Nombre").ToString)
|
||||
TipoCuenta = If(drt("Tipo").ToString = "", "", drt("Tipo").ToString)
|
||||
CuentaMayor = If(drt("CtaMayor").ToString.ToEntero = 0, 0, drt("CtaMayor").ToString.ToEntero)
|
||||
CveMoneda = If(drt("CveMoneda").ToString.ToEntero = -1, -1, drt("CveMoneda").ToString.ToEntero)
|
||||
DigAgrup = If(drt("DigAgrup").ToString.ToEntero = -1, -1, drt("DigAgrup").ToString.ToEntero)
|
||||
CveAgrupadorSat = If(drt("CveAgrupadorSAT").ToString.ToEntero = 0, -1, drt("CveAgrupadorSAT").ToString.ToEntero)
|
||||
NomIdioma = If(drt("NomIdioma").ToString = "", "", drt("NomIdioma").ToString)
|
||||
idnew = ObjConta.AddCuenta(CvePadre, TxtCuenta.Text.Replace("-", ""), Tnombre.Text, DTcuenta.SelectedValue.ToString, DcuentaMayor.SelectedValue.ToString.ToEntero,
|
||||
DdlMoneda.SelectedValue.ToEntero, TxtDigAgrup.Text.ToEntero, DdlAgrupadorSAT.SelectedValue.ToEntero, TxtNomIngles.Text.ToString, CveConceptoAdmin:=CveConceptoAdmin, CveProveedor:=CveProveedor, CveCliente:=CveCliente,
|
||||
CveClasificacion:=CveClasificacion, PorcentajeImpuesto:=PorcentajeImpuesto, CveBancoCuenta:=CveBancoCuenta)
|
||||
@@ -573,7 +573,7 @@ Partial Class Contabilidad2_CatCuentas
|
||||
ArbolCuentas.DataSource = DtDatos
|
||||
'.Attributes.Add("data-hijos","0");
|
||||
Dim item As ADServerControl.DragableItem = DirectCast(ArbolCuentas.FindControl(String.Format("{0}", IDSelected)), ADServerControl.DragableItem)
|
||||
item.Attributes.Item("data-hijos") = item.Attributes.Item("data-hijos").ToEntero + 1
|
||||
item.Attributes.Item("data-hijos") = (item.Attributes.Item("data-hijos").ToEntero + 1).ToString
|
||||
Dim objul As ADServerControl.DragableUL = DirectCast(ArbolCuentas.FindControl(String.Format("ul{0}", IDSelected)), ADServerControl.DragableUL)
|
||||
If (IsNothing(objul)) Then
|
||||
objul = New ADServerControl.DragableUL
|
||||
@@ -636,7 +636,6 @@ Partial Class Contabilidad2_CatCuentas
|
||||
'ObjConta.IniciaTransacSQL()
|
||||
|
||||
If ObjConta.RemoveCuenta(IDSelected.ToEntero) Then
|
||||
' ObjConta.Commit()
|
||||
|
||||
Dim customerRow As Data.DataRow
|
||||
customerRow = DtDatos.Select(String.Format("CveCuenta = {0}", IDSelected))(0)
|
||||
@@ -646,7 +645,7 @@ Partial Class Contabilidad2_CatCuentas
|
||||
ArbolCuentas.DataSource = DtDatos
|
||||
Dim item As ADServerControl.DragableItem = DirectCast(ArbolCuentas.FindControl(String.Format("{0}", IDSelected)), ADServerControl.DragableItem)
|
||||
Dim padre As ADServerControl.DragableItem = DirectCast(ArbolCuentas.FindControl(String.Format("{0}", item.CvePadre)), ADServerControl.DragableItem)
|
||||
padre.Attributes.Item("data-hijos") = padre.Attributes.Item("data-hijos").ToEntero - 1
|
||||
padre.Attributes.Item("data-hijos") = (padre.Attributes.Item("data-hijos").ToEntero - 1).ToString
|
||||
ArbolCuentas.Controls.Remove(item)
|
||||
RegistraScript(String.Format("$('#{0}').click();", editar.ClientID))
|
||||
|
||||
|
||||
Reference in New Issue
Block a user