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

Merge branch 'master' of http://jperez@192.168.10.111:8383/SIG.git

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2023-12-08 11:56:03 -07:00
parent 2fa725ce80 6350da7678
commit 4621c814ed
39 changed files with 650 additions and 294 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
Inventarios/CatAlmacenes.aspx
View File

@@ -267,12 +267,12 @@
<div class="col-md-6">
<asp:Panel CssClass="" ID="divddlcc" runat="server">
<asp:Panel CssClass="form-group form-md-line-input input-iconright" ID="divCuentasCompac" Visible="false" runat="server">
<asp:DropDownList ID="DdlCuentasContables" runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id" Width="100%" ValidationGroup="GrpObligatorio" CssClass="form-control input-sm select2me"></asp:DropDownList>
<asp:DropDownList ID="DdlCuentasContables" runat="server" AppendDataBoundItems="true" DataTextField="CuentaFormatoNombre" DataValueField="Id" Width="100%" ValidationGroup="GrpObligatorio" CssClass="form-control input-sm select2me"></asp:DropDownList>
<asp:Label AssociatedControlID="DdlCuentasContables" runat="server" Text="Cuenta Contable:"></asp:Label>
</asp:Panel>
<asp:Panel CssClass="form-group form-md-line-input input-iconright" ID="pnlCuentassig" Visible="false" runat="server">
<asp:DropDownList ID="DdlCuentasSig" runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="CveCuenta" Width="100%" ValidationGroup="GrpObligatorio" CssClass="form-control input-sm select2me"></asp:DropDownList>
<asp:DropDownList ID="DdlCuentasSig" runat="server" AppendDataBoundItems="true" DataTextField="CuentaFormatoNombre" DataValueField="CveCuenta" Width="100%" ValidationGroup="GrpObligatorio" CssClass="form-control input-sm select2me"></asp:DropDownList>
<asp:Label AssociatedControlID="DdlCuentasSig" runat="server" Text="Cuenta Contable:"></asp:Label>
</asp:Panel>
</asp:Panel>

10
Inventarios/EntradasSalidas.aspx.vb
View File

@@ -1937,9 +1937,7 @@ Partial Class Inventarios_EntradasSalidas
CveConceptoContable = 181
TipoMovtoOtro = False
If DdlSubProyecto.Visible = True AndAlso DdlSubProyecto.SelectedValue.ToEntero > 0 Then tCveSubProyecto = DdlSubProyecto.SelectedValue.ToEntero
'If UsuarioActual.Empresa.Funcionalidad(342).ToEntero > 0 Then
' IdCtaContableOtro = UsuarioActual.Empresa.Funcionalidad(342).ToEntero
'End If
Case 34
CveConceptoContable = 51
EsContabilizable = True
@@ -3901,9 +3899,6 @@ Partial Class Inventarios_EntradasSalidas
' Exit For
' End If
' Else
' If ObjConta.GetRetCuenta(176, UsuarioActual.CveEmpresa) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then
' IdCtaContable = ObjConta.DtResultados.FiltroPrimeroValor("IdCtaContable").ToEntero
' End If
' If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ValorInventario, Concepto, 176, Concepto, TxtFecha.Text.ToDate, IdCtaContable, -1, CveVenta:=CveVenta, CveMovimientoAlmacen:=CveMovimiento, ImporteMX:=ValorInventario, CveOC:=HdnCveOrdenCompra.Value.ToEntero, CveOCDetalle:=RowOC("CveOrdenCompraDetalle").ToString.ToEntero) Then
' ErrorMovInv = True
@@ -3947,7 +3942,7 @@ Partial Class Inventarios_EntradasSalidas
ErrorMovInv = True
End If
Else
If DdlConcepto.SelectedValue.Contiene("6", "22", "23", "7", "16", "21", "24", "32") Then
If DdlConcepto.SelectedValue.Contiene("1", "6", "22", "23", "7", "16", "21", "24", "32") Then
'genero las prepolizas manuales
Dim tCveConcepto As Integer = 95
Dim CveCuenta As Integer
@@ -5486,7 +5481,6 @@ Partial Class Inventarios_EntradasSalidas
tCveSubProyecto = drAlmacenVirtual("CveSubProyecto").ToString.ToEntero
End If
'VERIFICA SI TIENE ALMACEN VIRTUAL
If CveAlmacenVirtual > 0 Then
If ObjInventario.GetMovimientosDetalleVirtual(CveMovimiento, UsuarioActual.CveEmpresa) Then

2
Inventarios/EntregaAlmacen.aspx
View File

@@ -211,7 +211,7 @@
</div>
</td>
</tr>
<tr style="display: none;">
<tr runat="server" id="trGuia" visible="false">
<td>Guía:</td>
<td>
<asp:TextBox ID="TxtGuia" runat="server" CssClass="form-control input-sm" MaxLength="20" Width="320px"></asp:TextBox>

13
Inventarios/EntregaAlmacen.aspx.vb
View File

@@ -381,11 +381,16 @@ Partial Class Inventarios_EntregaAlmacen
DdlFolio.Items.Insert(0, New ListItem("Seleccione", "-1"))
TxtFechaPendientes.Text = NowADS().ToShortDateString
'TxtFechaCaducidad.Text = NowADS().ToShortDateString
TxtFechaPendientes.Text = NowADS().ToShortDateString
TxtFecha.Text = NowADS().ToShortDateString
RVFecha.MaximumValue = MaxFecha.ToShortDateString
If UsuarioActual.CveEmpresa.Contiene(119) Then RVFecha.MinimumValue = NowADS().ToShortDateString : CEFecha.StartDate = NowADS() Else RVFecha.MinimumValue = MinFecha.ToShortDateString
If UsuarioActual.CveEmpresa.Contiene(119) Then
RVFecha.MinimumValue = NowADS().ToShortDateString
CEFecha.StartDate = NowADS()
trGuia.Visible = True
Else
RVFecha.MinimumValue = MinFecha.ToShortDateString
End If
If Not UsuarioActual.TienePermisoProceso(190) Then
'CARGA SOLO LAS SUCURSALES DE LOS ALMCENES QUE TIENE ASIGNADO EL USUARIO
@@ -406,8 +411,6 @@ Partial Class Inventarios_EntregaAlmacen
CreaDtDetalle()
CreaDtDetalleLote()
CargaPendientes()
LimpiaCampos()
End Sub