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

-- option strict on

Browse Source
This commit is contained in:
rrene
2023-08-23 00:03:55 -07:00
parent 7ee978059d
commit 3bc4f72658
23 changed files with 212 additions and 257 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
Contabilidad2/CatCuentasAsignaciones.aspx.vb
View File

@@ -165,15 +165,15 @@ Partial Class Contabilidad2_CatCuentasAsignaciones
If CveCliente > 0 Then
Dim drp As String = GlobalDTCliente(UsuarioActual.CveEmpresa, CveCliente:=CveCliente).FiltroPrimeroValor("Nombre")
DdlClientes.ddl.Items.Insert(0, New ListItem(drp, CveCliente))
DdlClientes.SelectedValue = CveCliente
DdlClientes.ddl.Items.Insert(0, New ListItem(drp, CveCliente.ToString))
DdlClientes.SelectedValue = CveCliente.ToString
DdlClientes.SelectedText = drp
End If
If CvePersonal > 0 Then
Dim drp As String = GlobalDTRHPersonal(UsuarioActual.CveEmpresa, CvePersonal:=CvePersonal).FiltroPrimeroValor("NombreCompleto")
DdlPersonal.ddl.Items.Insert(0, New ListItem(drp, CvePersonal))
DdlPersonal.SelectedValue = CvePersonal
DdlPersonal.ddl.Items.Insert(0, New ListItem(drp, CvePersonal.ToString))
DdlPersonal.SelectedValue = CvePersonal.ToString
DdlPersonal.SelectedText = drp
End If
@@ -301,12 +301,12 @@ Partial Class Contabilidad2_CatCuentasAsignaciones
Private Sub LimpiarDatos()
CveConceptoAsignacion = -1
DdlCconceptosContables.SelectedValue = -1
DdlCuenta.SelectedValue = -1
DdlProveedor.SelectedValue = -1
DdlClasificacion.SelectedValue = -1
DdlAlmacen.SelectedValue = -1
DdlConceptoNomina.SelectedValue = -1
DdlCconceptosContables.SelectedValue = "-1"
DdlCuenta.SelectedValue = "-1"
DdlProveedor.SelectedValue = "-1"
DdlClasificacion.SelectedValue = "-1"
DdlAlmacen.SelectedValue = "-1"
DdlConceptoNomina.SelectedValue = "-1"
DdlCuentaBancaria.SelectedValueExist("-1")
TxtPorcentajeIVA.Text = ""
DdlClientes.ddl.DataSource = ""