-- se quitaron propiedades de empresa
idcuenta, perdida,ganancia,ieps,iva -- se quitó globaldtclasificación porcentaje
This commit is contained in:
@@ -340,93 +340,93 @@ Partial Class Sistemas_Empresa
|
||||
CargaCuentasContables()
|
||||
CargaDDLs()
|
||||
|
||||
Dim Row As DataRow
|
||||
Row = DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaIVAxAcreditar.ToString))
|
||||
If Not IsNothing(Row) Then
|
||||
DdlIVAxAcreditar.Items.Add(New ListItem(Row("CtaCodigo").ToString, .IdCuentaIVAxAcreditar.ToString))
|
||||
DdlIVAxAcreditar.SelectedValue = .IdCuentaIVAxAcreditar.ToString
|
||||
End If
|
||||
'Dim Row As DataRow
|
||||
'Row = DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaIVAxAcreditar.ToString))
|
||||
'If Not IsNothing(Row) Then
|
||||
' DdlIVAxAcreditar.Items.Add(New ListItem(Row("CtaCodigo").ToString, .IdCuentaIVAxAcreditar.ToString))
|
||||
' DdlIVAxAcreditar.SelectedValue = .IdCuentaIVAxAcreditar.ToString
|
||||
'End If
|
||||
|
||||
Row = DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaIVAAcreditable.ToString))
|
||||
If Not IsNothing(Row) Then
|
||||
DdlIVAAcreditable.Items.Add(New ListItem(Row("CtaCodigo").ToString, .IdCuentaIVAAcreditable.ToString))
|
||||
DdlIVAAcreditable.SelectedValue = .IdCuentaIVAAcreditable.ToString
|
||||
End If
|
||||
'Row = DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaIVAAcreditable.ToString))
|
||||
'If Not IsNothing(Row) Then
|
||||
' DdlIVAAcreditable.Items.Add(New ListItem(Row("CtaCodigo").ToString, .IdCuentaIVAAcreditable.ToString))
|
||||
' ' DdlIVAAcreditable.SelectedValue = .IdCuentaIVAAcreditable.ToString
|
||||
'End If
|
||||
|
||||
Row = DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaIVAxTrasladar.ToString))
|
||||
If Not IsNothing(Row) Then
|
||||
DdlIVAxTrasladar.Items.Add(New ListItem(DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaIVAxTrasladar.ToString))("CtaCodigo").ToString, .IdCuentaIVAxTrasladar.ToString))
|
||||
DdlIVAxTrasladar.SelectedValue = .IdCuentaIVAxTrasladar.ToString
|
||||
End If
|
||||
'Row = DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaIVAxTrasladar.ToString))
|
||||
'If Not IsNothing(Row) Then
|
||||
' DdlIVAxTrasladar.Items.Add(New ListItem(DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaIVAxTrasladar.ToString))("CtaCodigo").ToString, .IdCuentaIVAxTrasladar.ToString))
|
||||
' DdlIVAxTrasladar.SelectedValue = .IdCuentaIVAxTrasladar.ToString
|
||||
'End If
|
||||
|
||||
Row = DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaIVATrasladado.ToString))
|
||||
If Not IsNothing(Row) Then
|
||||
DdlIVATrasladado.Items.Add(New ListItem(DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaIVATrasladado.ToString))("CtaCodigo").ToString, .IdCuentaIVATrasladado.ToString))
|
||||
DdlIVATrasladado.SelectedValue = .IdCuentaIVATrasladado.ToString
|
||||
End If
|
||||
'Row = DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaIVATrasladado.ToString))
|
||||
'If Not IsNothing(Row) Then
|
||||
' DdlIVATrasladado.Items.Add(New ListItem(DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaIVATrasladado.ToString))("CtaCodigo").ToString, .IdCuentaIVATrasladado.ToString))
|
||||
' DdlIVATrasladado.SelectedValue = .IdCuentaIVATrasladado.ToString
|
||||
'End If
|
||||
|
||||
Row = DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaRetIVACirculacion.ToString))
|
||||
If Not IsNothing(Row) Then
|
||||
DdlIVARetenciones.Items.Add(New ListItem(DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaRetIVACirculacion.ToString))("CtaCodigo").ToString, .IdCuentaRetIVACirculacion.ToString))
|
||||
DdlIVARetenciones.SelectedValue = .IdCuentaRetIVACirculacion.ToString
|
||||
End If
|
||||
'Row = DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaRetIVACirculacion.ToString))
|
||||
'If Not IsNothing(Row) Then
|
||||
' DdlIVARetenciones.Items.Add(New ListItem(DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaRetIVACirculacion.ToString))("CtaCodigo").ToString, .IdCuentaRetIVACirculacion.ToString))
|
||||
' DdlIVARetenciones.SelectedValue = .IdCuentaRetIVACirculacion.ToString
|
||||
'End If
|
||||
|
||||
Row = DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaRetISRCirculacion.ToString))
|
||||
If Not IsNothing(Row) Then
|
||||
DdlISRCirculacion.Items.Add(New ListItem(DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaRetISRCirculacion.ToString))("CtaCodigo").ToString, .IdCuentaRetISRCirculacion.ToString))
|
||||
DdlISRCirculacion.SelectedValue = .IdCuentaRetISRCirculacion.ToString
|
||||
End If
|
||||
'Row = DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaRetISRCirculacion.ToString))
|
||||
'If Not IsNothing(Row) Then
|
||||
' DdlISRCirculacion.Items.Add(New ListItem(DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaRetISRCirculacion.ToString))("CtaCodigo").ToString, .IdCuentaRetISRCirculacion.ToString))
|
||||
' DdlISRCirculacion.SelectedValue = .IdCuentaRetISRCirculacion.ToString
|
||||
'End If
|
||||
|
||||
Row = DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaPerdidaCambiaria.ToString))
|
||||
If Not IsNothing(Row) Then
|
||||
DdlCuentaPerdidaCambiaria.Items.Add(New ListItem(DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaPerdidaCambiaria.ToString))("CtaCodigo").ToString, .IdCuentaPerdidaCambiaria.ToString))
|
||||
DdlCuentaPerdidaCambiaria.SelectedValue = .IdCuentaPerdidaCambiaria.ToString
|
||||
End If
|
||||
'Row = DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaPerdidaCambiaria.ToString))
|
||||
'If Not IsNothing(Row) Then
|
||||
' DdlCuentaPerdidaCambiaria.Items.Add(New ListItem(DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaPerdidaCambiaria.ToString))("CtaCodigo").ToString, .IdCuentaPerdidaCambiaria.ToString))
|
||||
' DdlCuentaPerdidaCambiaria.SelectedValue = .IdCuentaPerdidaCambiaria.ToString
|
||||
'End If
|
||||
|
||||
Row = DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaGananciaCambiaria.ToString))
|
||||
If Not IsNothing(Row) Then
|
||||
DddlCuentaGananciaCambiaria.Items.Add(New ListItem(DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaGananciaCambiaria.ToString))("CtaCodigo").ToString, .IdCuentaGananciaCambiaria.ToString))
|
||||
DddlCuentaGananciaCambiaria.SelectedValue = .IdCuentaGananciaCambiaria.ToString
|
||||
End If
|
||||
'Row = DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaGananciaCambiaria.ToString))
|
||||
'If Not IsNothing(Row) Then
|
||||
' DddlCuentaGananciaCambiaria.Items.Add(New ListItem(DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaGananciaCambiaria.ToString))("CtaCodigo").ToString, .IdCuentaGananciaCambiaria.ToString))
|
||||
' DddlCuentaGananciaCambiaria.SelectedValue = .IdCuentaGananciaCambiaria.ToString
|
||||
'End If
|
||||
|
||||
Row = DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaDSV.ToString))
|
||||
If Not IsNothing(Row) Then
|
||||
DdlDSV.Items.Add(New ListItem(DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaDSV.ToString))("CtaCodigo").ToString, .IdCuentaDSV.ToString))
|
||||
DdlDSV.SelectedValue = .IdCuentaDSV.ToString
|
||||
End If
|
||||
'Row = DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaDSV.ToString))
|
||||
'If Not IsNothing(Row) Then
|
||||
' DdlDSV.Items.Add(New ListItem(DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaDSV.ToString))("CtaCodigo").ToString, .IdCuentaDSV.ToString))
|
||||
' DdlDSV.SelectedValue = .IdCuentaDSV.ToString
|
||||
'End If
|
||||
|
||||
Row = DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaImpuestosLocales.ToString))
|
||||
If Not IsNothing(Row) Then
|
||||
DdlImpuestosLocales.Items.Add(New ListItem(DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaImpuestosLocales.ToString))("CtaCodigo").ToString, .IdCuentaImpuestosLocales.ToString))
|
||||
DdlImpuestosLocales.SelectedValue = .IdCuentaImpuestosLocales.ToString
|
||||
End If
|
||||
'Row = DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaImpuestosLocales.ToString))
|
||||
'If Not IsNothing(Row) Then
|
||||
' DdlImpuestosLocales.Items.Add(New ListItem(DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaImpuestosLocales.ToString))("CtaCodigo").ToString, .IdCuentaImpuestosLocales.ToString))
|
||||
' DdlImpuestosLocales.SelectedValue = .IdCuentaImpuestosLocales.ToString
|
||||
'End If
|
||||
|
||||
|
||||
'NUEVOS DATOS
|
||||
|
||||
Row = DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaIEPSxAcreditar.ToString))
|
||||
If Not IsNothing(Row) Then
|
||||
DdlIEPSxAcreditar.Items.Add(New ListItem(DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaIEPSxAcreditar.ToString))("CtaCodigo").ToString, .IdCuentaIEPSxAcreditar.ToString))
|
||||
DdlIEPSxAcreditar.SelectedValue = .IdCuentaIEPSxAcreditar.ToString
|
||||
End If
|
||||
'Row = DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaIEPSxAcreditar.ToString))
|
||||
'If Not IsNothing(Row) Then
|
||||
' DdlIEPSxAcreditar.Items.Add(New ListItem(DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaIEPSxAcreditar.ToString))("CtaCodigo").ToString, .IdCuentaIEPSxAcreditar.ToString))
|
||||
' DdlIEPSxAcreditar.SelectedValue = .IdCuentaIEPSxAcreditar.ToString
|
||||
'End If
|
||||
|
||||
Row = DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaIEPSAcreditable.ToString))
|
||||
If Not IsNothing(Row) Then
|
||||
DdlIEPSAcreditable.Items.Add(New ListItem(DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaIEPSAcreditable.ToString))("CtaCodigo").ToString, .IdCuentaIEPSAcreditable.ToString))
|
||||
DdlIEPSAcreditable.SelectedValue = .IdCuentaIEPSAcreditable.ToString
|
||||
End If
|
||||
'Row = DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaIEPSAcreditable.ToString))
|
||||
'If Not IsNothing(Row) Then
|
||||
' DdlIEPSAcreditable.Items.Add(New ListItem(DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaIEPSAcreditable.ToString))("CtaCodigo").ToString, .IdCuentaIEPSAcreditable.ToString))
|
||||
' DdlIEPSAcreditable.SelectedValue = .IdCuentaIEPSAcreditable.ToString
|
||||
'End If
|
||||
|
||||
Row = DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaIEPSxTrasladar.ToString))
|
||||
If Not IsNothing(Row) Then
|
||||
DdlIEPSxTrasladar.Items.Add(New ListItem(DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaIEPSxTrasladar.ToString))("CtaCodigo").ToString, .IdCuentaIEPSxTrasladar.ToString))
|
||||
DdlIEPSxTrasladar.SelectedValue = .IdCuentaIEPSxTrasladar.ToString
|
||||
End If
|
||||
'Row = DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaIEPSxTrasladar.ToString))
|
||||
'If Not IsNothing(Row) Then
|
||||
' DdlIEPSxTrasladar.Items.Add(New ListItem(DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaIEPSxTrasladar.ToString))("CtaCodigo").ToString, .IdCuentaIEPSxTrasladar.ToString))
|
||||
' DdlIEPSxTrasladar.SelectedValue = .IdCuentaIEPSxTrasladar.ToString
|
||||
'End If
|
||||
|
||||
Row = DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaIEPSTrasladado.ToString))
|
||||
If Not IsNothing(Row) Then
|
||||
DdlIEPSTrasladado.Items.Add(New ListItem(DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaIEPSTrasladado.ToString))("CtaCodigo").ToString, .IdCuentaIEPSTrasladado.ToString))
|
||||
DdlIEPSTrasladado.SelectedValue = .IdCuentaIEPSTrasladado.ToString
|
||||
End If
|
||||
'Row = DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaIEPSTrasladado.ToString))
|
||||
'If Not IsNothing(Row) Then
|
||||
' DdlIEPSTrasladado.Items.Add(New ListItem(DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaIEPSTrasladado.ToString))("CtaCodigo").ToString, .IdCuentaIEPSTrasladado.ToString))
|
||||
' DdlIEPSTrasladado.SelectedValue = .IdCuentaIEPSTrasladado.ToString
|
||||
'End If
|
||||
|
||||
End If
|
||||
|
||||
@@ -665,7 +665,7 @@ Partial Class Sistemas_Empresa
|
||||
Next
|
||||
End If
|
||||
|
||||
GlobalDTClasificacionPorcentaje(CveEmpresa) = Nothing
|
||||
' GlobalDTClasificacionPorcentaje(CveEmpresa) = Nothing
|
||||
|
||||
End If
|
||||
|
||||
|
||||
Reference in New Issue
Block a user