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

-- liga de OP

Browse Source
This commit is contained in:
rrene
2025-04-16 17:32:17 -07:00
parent 5631c57b7a
commit 8692adba40
2 changed files with 45 additions and 25 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
Inventarios/EntradasSalidas.aspx
View File

@@ -432,6 +432,14 @@
<asp:HyperLink ID="HplOS" CssClass="Texto" runat="server" Target="_blank"></asp:HyperLink> <asp:HyperLink ID="HplOS" CssClass="Texto" runat="server" Target="_blank"></asp:HyperLink>
</div> </div>
</div> </div>
<div class="row" runat="server" id="divOP" visible="false" style="margin-top: 5px;">
<label class="col-md-4 truncate">
OP:
</label>
<div class="col-md-8">
<asp:HyperLink ID="HplOP" CssClass="Texto" runat="server" Target="_blank"></asp:HyperLink>
</div>
</div>
</div> </div>
</div> </div>

14
Inventarios/EntradasSalidas.aspx.vb
View File

@@ -921,6 +921,11 @@ Partial Class Inventarios_EntradasSalidas
HplOS.NavigateUrl = $"/OS/OrdenesServicios.aspx?CveOS={DtMov.Rows(0)("CveOS")}" HplOS.NavigateUrl = $"/OS/OrdenesServicios.aspx?CveOS={DtMov.Rows(0)("CveOS")}"
End If End If
If DtMov.Rows(0)("CveOP").ToString.ToEntero() > 0 Then
divOP.Visible = True
HplOP.Text = "1" 'DtMov.Rows(0)("OSFolio").ToString
HplOP.NavigateUrl = $"/OP/OP.aspx?CveOP={DtMov.Rows(0)("CveOP")}"
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))
@@ -4069,7 +4074,13 @@ Partial Class Inventarios_EntradasSalidas
ErrorMovInv = True ErrorMovInv = True
End If End If
Else Else
If ObjInventario.Modulo.Contiene("TA/G1", "Recons", "API-PT/C1") Then If ObjInventario.Modulo.Contiene("API-Traspaso-PT-Pallet") Then
Contabilizable = True
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not MovAlmacen, DtCostos.SUMD("Total").RoundSQL, DtCostos.SUMD("Total").RoundSQL, 68, Concepto, Concepto, CveVenta:=CveVenta, CveMovimientoAlmacen:=CveMovimientoRelacionado, Contabilizable:=Contabilizable) Then
ErrorMovInv = True
End If
Else
If ObjInventario.Modulo.Contiene("TA/G1", "Recons", "API-PT/C1", "API-Traspaso-PT-Pallet") Then
Contabilizable = False Contabilizable = False
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not MovAlmacen, DtCostos.SUMD("Total").RoundSQL, DtCostos.SUMD("Total").RoundSQL, 68, Concepto, Concepto, CveVenta:=CveVenta, CveMovimientoAlmacen:=CveMovimientoRelacionado, Contabilizable:=Contabilizable) Then If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not MovAlmacen, DtCostos.SUMD("Total").RoundSQL, DtCostos.SUMD("Total").RoundSQL, 68, Concepto, Concepto, CveVenta:=CveVenta, CveMovimientoAlmacen:=CveMovimientoRelacionado, Contabilizable:=Contabilizable) Then
ErrorMovInv = True ErrorMovInv = True
@@ -4119,6 +4130,7 @@ Partial Class Inventarios_EntradasSalidas
End If End If
End If End If
End If End If
End If
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, MovAlmacen, DtCostos.SUMD("Total").RoundSQL, DtCostos.SUMD("Total").RoundSQL, 68, Concepto, Concepto, CveVenta:=CveVenta, CveMovimientoAlmacen:=CveMovimiento, Contabilizable:=Contabilizable) Then If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, MovAlmacen, DtCostos.SUMD("Total").RoundSQL, DtCostos.SUMD("Total").RoundSQL, 68, Concepto, Concepto, CveVenta:=CveVenta, CveMovimientoAlmacen:=CveMovimiento, Contabilizable:=Contabilizable) Then
ErrorMovInv = True ErrorMovInv = True