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

-- cambios de idcta

Browse Source
This commit is contained in:
rrene
2023-11-16 21:06:11 -07:00
parent 6808a9cb3c
commit e3e4174c78
2 changed files with 2 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Inventarios/CatAlmacenes.aspx
View File

@@ -151,7 +151,7 @@
</div>
<asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="CveAlmacen,IdCtaContable,Inventariable,Modalidad,CveTipoAlmacen,Almacen,Estatus,CveSubProyecto,Orden,CveCuenta,CveUsuarioAutoriza,CveAlmacenVirtual" EmptyDataText="No se encontraron Almacenes" CssClass="table table-striped table-advance table-hover Widthall ScrollAD" data-sort="true" data-heighterror="300px" data-freezerows="1" GridLines="None">
<asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="CveAlmacen,Inventariable,Modalidad,CveTipoAlmacen,Almacen,Estatus,CveSubProyecto,Orden,CveCuenta,CveUsuarioAutoriza,CveAlmacenVirtual" EmptyDataText="No se encontraron Almacenes" CssClass="table table-striped table-advance table-hover Widthall ScrollAD" data-sort="true" data-heighterror="300px" data-freezerows="1" GridLines="None">
<Columns>
<asp:TemplateField ItemStyle-Width="20%" HeaderText="Almacen">
<ItemTemplate>

8
Inventarios/CatAlmacenes.aspx.vb
View File

@@ -166,11 +166,6 @@ Partial Class Inventarios_CatAlmacenes
'e.Row.Cells(6).HorizontalAlign = HorizontalAlign.Center
'e.Row.Cells(7).HorizontalAlign = HorizontalAlign.Center
If e.Row.DBCampo("IdCtaContable").ToEntero > 0 Then
e.Row.FCLiteral("LtlCuentaContable").Text = DtCuentasContables.FiltroPrimeroValor("CtaCodigo", $"Id = {e.Row.DBCampo("IdCtaContable")}")
'Else
' e.Row.FCLiteral("LtlCuentaContable").Text = "Sin Cuenta"
End If
End If
If e.Row.RowType = DataControlRowType.DataRow Then
@@ -243,7 +238,7 @@ Partial Class Inventarios_CatAlmacenes
Private Sub BtnAgregarAlmacen_Click(sender As Object, e As EventArgs) Handles BtnAgregarAlmacen.Click
'CargaSucursal()
Dim ObjAlmacen As New ClsInventarios
Dim TieneError = False
Dim TieneError As Boolean = False
Dim Estatus As Boolean = False
If ChkEstatus.Checked Then Estatus = True
Dim CuentaContable As Integer = 0
@@ -331,7 +326,6 @@ Partial Class Inventarios_CatAlmacenes
DdlInventariable.SelectedValueExist(If((GvRow.DataKey("Inventariable")) = "True", 1, 0))
DdlModalidad.SelectedValueExist(If((GvRow.DataKey("Modalidad")) = "Solo Existencia", 0, 1))
divddlcc.Visible = If((DdlModalidad.SelectedValue.ToEntero) = 1, True, False)
DdlCuentasContables.SelectedValueExist(GvRow.DataKey("IdCtaContable"))
DdlCuentasSig.SelectedValueExist(-1)
DdlCuentasSig.SelectedValueExist(GvRow.DataKey("CveCuenta"))
DdlSubProyecto.SelectedValueExist(GvRow.DataKey("CveSubProyecto"))