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

-- cvemovtorelacionado transitorio

Browse Source
This commit is contained in:
rrene
2022-07-11 17:26:21 -07:00
parent 3ad9bcae77
commit 63ba2f3d83
2 changed files with 33 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
Inventarios/EntradasSalidas.aspx
View File

@@ -513,6 +513,14 @@
<asp:HyperLink ID="HplMtoVirtual" CssClass="Texto" runat="server" Target="_blank">Virtual</asp:HyperLink> <asp:HyperLink ID="HplMtoVirtual" CssClass="Texto" runat="server" Target="_blank">Virtual</asp:HyperLink>
</div> </div>
</div> </div>
<div class="row" runat="server" id="DivMovtoTransitorio" visible="false" style="margin-top: 5px;">
<label class="col-md-4 truncate">
Mto. Transitorio.:
</label>
<div class="col-md-8">
<asp:HyperLink ID="HplMtoTransitorio" CssClass="Texto" runat="server" Target="_blank">Transitorio</asp:HyperLink>
</div>
</div>
</div> </div>
</div> </div>

13
Inventarios/EntradasSalidas.aspx.vb
View File

@@ -730,8 +730,17 @@ Partial Class Inventarios_EntradasSalidas
If Mov.CveMovimientoVirtual > 0 Then If Mov.CveMovimientoVirtual > 0 Then
DivMovtoVirtual.Visible = True DivMovtoVirtual.Visible = True
HplMtoVirtual.NavigateUrl = "/Inventarios/EntradasSalidas.aspx?CveMovimiento=" & Mov.CveMovimientoVirtual HplMtoVirtual.NavigateUrl = "/Inventarios/EntradasSalidas.aspx?CveMovimiento=" & Mov.CveMovimientoVirtual
HplMtoVirtual.Text = Mov.FolioVirtual.ToString
End If End If
If Mov.CveMovimientoTransitorio > 0 Then
DivMovtoTransitorio.Visible = True
HplMtoTransitorio.NavigateUrl = "/Inventarios/EntradasSalidas.aspx?CveMovimiento=" & Mov.CveMovimientoTransitorio
HplMtoTransitorio.Text = Mov.FolioTransitorio.ToString
End If
If (DdlAlmacen.Items.FindByValue(Mov.CveAlmacen.ToString()) Is Nothing) Then If (DdlAlmacen.Items.FindByValue(Mov.CveAlmacen.ToString()) Is Nothing) Then
Dim dr As DataRow = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveEstatus:=-1).FiltroPrimero(String.Format("CveAlmacen = {0}", Mov.CveAlmacen)) Dim dr As DataRow = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveEstatus:=-1).FiltroPrimero(String.Format("CveAlmacen = {0}", Mov.CveAlmacen))
If dr IsNot Nothing Then If dr IsNot Nothing Then
@@ -1798,7 +1807,7 @@ Partial Class Inventarios_EntradasSalidas
If DdlConcepto.SelectedValue.ToEntero = 31 Then If DdlConcepto.SelectedValue.ToEntero = 31 Then
IdCtaContableOtro = 1319 IdCtaContableOtro = 1319
End If End If
EsContabilizable = False
Case 30 Case 30
CveConceptoContable = 181 CveConceptoContable = 181
TipoMovtoOtro = False TipoMovtoOtro = False
@@ -3819,7 +3828,7 @@ Partial Class Inventarios_EntradasSalidas
Dim tCveSubProyecto = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen={DdlAlmacen.SelectedValue.ToEntero}").ToEntero Dim tCveSubProyecto = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen={DdlAlmacen.SelectedValue.ToEntero}").ToEntero
Dim tCveConcepto As Integer = 69 Dim tCveConcepto As Integer = 69
If DdlConcepto.SelectedValue = "30" Then If ObjInventario.CveConcepto = 37 Then
tCveConcepto = 181 tCveConcepto = 181
IdCtaContable = UsuarioActual.Empresa.Funcionalidad(342).ToEntero IdCtaContable = UsuarioActual.Empresa.Funcionalidad(342).ToEntero
End If End If