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

-- desglose de liga de folio relacionado

Browse Source
This commit is contained in:
rrene
2022-06-30 07:37:44 -07:00
parent d462bafc19
commit aafc115910
3 changed files with 73 additions and 64 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
App_Code/ClsInventarios.vb
View File

@@ -63,6 +63,8 @@ Public Class ClsInventarios
Public Property FolioRelacionado As Integer Public Property FolioRelacionado As Integer
Public Property TieneRelacionado As Integer Public Property TieneRelacionado As Integer
Public Property ConceptoRelacionado As String Public Property ConceptoRelacionado As String
Public Property CveMovimientoVirtual As Integer
Public Property FolioVirtual As Integer
Public Property Folio As Integer Public Property Folio As Integer
Public Property IDPoliza As Integer Public Property IDPoliza As Integer
Public Property CvePrePoliza As Integer Public Property CvePrePoliza As Integer
@@ -826,6 +828,9 @@ Public Class ClsInventarios
FolioRelacionado = dr("FolioRelacionado").ToString.ToEntero FolioRelacionado = dr("FolioRelacionado").ToString.ToEntero
TieneRelacionado = If(dr("TieneRelacionado").ToString.ToEntero > 0, 1, -1) TieneRelacionado = If(dr("TieneRelacionado").ToString.ToEntero > 0, 1, -1)
ConceptoRelacionado = dr("ConceptoRelacionado").ToString ConceptoRelacionado = dr("ConceptoRelacionado").ToString
CveMovimientoVirtual = dr("CveMovimientoVirtual").ToString.ToEntero
FolioVirtual = dr("FolioVirtual").ToString.ToEntero
TipoCambio = dr("TipoCambio").ToString.ToDouble TipoCambio = dr("TipoCambio").ToString.ToDouble
FolioVenta = dr("FolioVenta").ToString FolioVenta = dr("FolioVenta").ToString
CveOrdenCompra = dr("CveOrdenCompra").ToString.ToEntero CveOrdenCompra = dr("CveOrdenCompra").ToString.ToEntero

33
Inventarios/EntradasSalidas.aspx
View File

@@ -456,29 +456,23 @@
<div class="row"> <div class="row">
<label class="col-md-3 truncate"> <label class="col-md-3 truncate">
Usuario: Usuario:
</label> </label>
<div class="col-md-6"> <div class="col-md-9">
<asp:Label ID="LblUsuarioRegistro" runat="server"></asp:Label> <asp:Label ID="LblUsuarioRegistro" runat="server"></asp:Label>
</div> </div>
</div> </div>
<div class="row" style="margin-top: 10px;"> <div class="row" style="margin-top: 5px;">
<label class="col-md-3 truncate"> <label class="col-md-3 truncate">
Fecha: Fecha:
</label> </label>
<div class="col-md-6"> <div class="col-md-6">
<asp:Label ID="LblFechaRegistro" runat="server"></asp:Label> <asp:Label ID="LblFechaRegistro" runat="server"></asp:Label>
</div> </div>
</div> </div>
<div class="row" style="margin-top: 10px;"> <div class="row" style="margin-top: 5px;">
<label class="col-md-3 truncate"> <label class="col-md-3 truncate">
Referencia: Referencia:
</label> </label>
<div class="col-md-6"> <div class="col-md-6">
<asp:HyperLink ID="HplCompra" Target="_blank" runat="server" Visible="False" CssClass="Texto">Ver Compra</asp:HyperLink> <asp:HyperLink ID="HplCompra" Target="_blank" runat="server" Visible="False" CssClass="Texto">Ver Compra</asp:HyperLink>
@@ -488,35 +482,38 @@
<asp:HiddenField ID="HdnCveOrdenCompra" runat="server" /> <asp:HiddenField ID="HdnCveOrdenCompra" runat="server" />
</div> </div>
</div> </div>
<div class="row" runat="server" id="RowConsignacion" visible="false" style="margin-top: 10px;"> <div class="row" runat="server" id="RowConsignacion" visible="false" style="margin-top: 5px;">
<label class="col-md-3 truncate"> <label class="col-md-3 truncate">
Consignación: Consignación:
</label> </label>
<div class="col-md-6"> <div class="col-md-6">
<asp:HyperLink ID="HLConsignacion" Target="_blank" NavigateUrl="#" Text="" runat="server" /> <asp:HyperLink ID="HLConsignacion" Target="_blank" NavigateUrl="#" Text="" runat="server" />
<%--<asp:Label Text="" ID="LbConsignacion" runat="server" />--%> <%--<asp:Label Text="" ID="LbConsignacion" runat="server" />--%>
</div> </div>
</div> </div>
<div class="row" runat="server" id="RowTipoCambio" visible="false" style="margin-top: 10px;"> <div class="row" runat="server" id="RowTipoCambio" visible="false" style="margin-top: 5px;">
<label class="col-md-3 truncate"> <label class="col-md-3 truncate">
Tipo Cambio: Tipo Cambio:
</label> </label>
<div class="col-md-6"> <div class="col-md-6">
<asp:Label Text="" ID="LbTipoCambio" runat="server" /> <asp:Label Text="" ID="LbTipoCambio" runat="server" />
</div> </div>
</div> </div>
<div class="row" runat="server" id="RowMtoRel" visible="false" style="margin-top: 10px;"> <div class="row" runat="server" id="RowMtoRel" visible="false" style="margin-top: 5px;">
<label class="col-md-3 truncate"> <label class="col-md-3 truncate">
Mto. Rel.: Mto. Rel.:
</label> </label>
<div class="col-md-6"> <div class="col-md-6">
<asp:HyperLink ID="lnkMtoRelaioando" CssClass="Texto" runat="server" Target="_blank">ver</asp:HyperLink> <asp:HyperLink ID="lnkMtoRelacionado" CssClass="Texto" runat="server" Target="_blank">ver</asp:HyperLink>
</div>
</div>
<div class="row" runat="server" id="DivMovtoVirtual" visible="false" style="margin-top: 5px;">
<label class="col-md-3 truncate">
Mto. Virtual.:
</label>
<div class="col-md-6">
<asp:HyperLink ID="HplMtoVirtual" CssClass="Texto" runat="server" Target="_blank">Virtual</asp:HyperLink>
</div> </div>
</div> </div>
</div> </div>

33
Inventarios/EntradasSalidas.aspx.vb
View File

@@ -724,12 +724,12 @@ Partial Class Inventarios_EntradasSalidas
Dim TMDsTR = DtMov.Rows(0)("CveMtoRel").ToString Dim TMDsTR = DtMov.Rows(0)("CveMtoRel").ToString
If DtMov.Rows(0)("CveMtoRel").ToString.Length > 0 Then If DtMov.Rows(0)("CveMtoRel").ToString.Length > 0 Then
RowMtoRel.Visible = True RowMtoRel.Visible = True
lnkMtoRelacionado.NavigateUrl = "/Inventarios/EntradasSalidas.aspx?CveMovimiento=" & DtMov.Rows(0)("CveMtoRel").ToString
End If
lnkMtoRelaioando.NavigateUrl = "./EntradasSalidas.aspx?CveMovimiento=" & DtMov.Rows(0)("CveMtoRel").ToString If Mov.CveMovimientoVirtual > 0 Then
'lnkMtoRelaioando.Attributes.Add("hreh", "./EntradasSalidas.aspx?CveMoviento=" & DtMov.Rows(0)("CveMtoRel").ToString) DivMovtoVirtual.Visible = True
'lnkMtoRelaioando.Attributes.Add("target", "_blank") HplMtoVirtual.NavigateUrl = "/Inventarios/EntradasSalidas.aspx?CveMovimiento=" & Mov.CveMovimientoVirtual
Else
RowMtoRel.Visible = False
End If End If
If (DdlAlmacen.Items.FindByValue(Mov.CveAlmacen.ToString()) Is Nothing) Then If (DdlAlmacen.Items.FindByValue(Mov.CveAlmacen.ToString()) Is Nothing) Then
@@ -3780,6 +3780,12 @@ Partial Class Inventarios_EntradasSalidas
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not MovAlmacen, DtCostos.SUMD("Total").RoundSQL, Concepto, 289, Concepto, TxtFecha.Text.ToDate, IdCtaContable, -1, CveVenta:=CveVenta, CveMovimientoAlmacen:=CveMovimientoRelacionado, ImporteMX:=DtCostos.SUMD("Total").RoundSQL, Contabilizable:=Contabilizable) Then If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not MovAlmacen, DtCostos.SUMD("Total").RoundSQL, Concepto, 289, Concepto, TxtFecha.Text.ToDate, IdCtaContable, -1, CveVenta:=CveVenta, CveMovimientoAlmacen:=CveMovimientoRelacionado, ImporteMX:=DtCostos.SUMD("Total").RoundSQL, Contabilizable:=Contabilizable) Then
ErrorMovInv = True ErrorMovInv = True
End If End If
Else
If ObjInventario.Modulo.Contiene("Consig") Then
Contabilizable = False
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not MovAlmacen, DtCostos.SUMD("Total").RoundSQL, Concepto, 95, Concepto, TxtFecha.Text.ToDate, IdCtaContable, -1, CveVenta:=CveVenta, CveMovimientoAlmacen:=CveMovimientoRelacionado, ImporteMX:=DtCostos.SUMD("Total").RoundSQL, Contabilizable:=Contabilizable) Then
ErrorMovInv = True
End If
Else Else
If ObjInventario.Modulo = "ASA/G1" Then If ObjInventario.Modulo = "ASA/G1" Then
Contabilizable = False Contabilizable = False
@@ -3819,7 +3825,7 @@ Partial Class Inventarios_EntradasSalidas
End If End If
Next Next
End If
End If End If
End If End If
End If End If
@@ -4456,8 +4462,6 @@ Partial Class Inventarios_EntradasSalidas
End If End If
End If End If
If Not ErrorMovInv Then If Not ErrorMovInv Then
If ObjConta.ValidacionPrePolizaCuadre(CvePrePoliza, -1) Then If ObjConta.ValidacionPrePolizaCuadre(CvePrePoliza, -1) Then
ObjConta.GetPrePolizasDetalle(CvePrePoliza, UsuarioActual.CveEmpresa) ObjConta.GetPrePolizasDetalle(CvePrePoliza, UsuarioActual.CveEmpresa)
@@ -4470,12 +4474,15 @@ Partial Class Inventarios_EntradasSalidas
Dim RetornoVirtual As MMovimientoVirtual = Nothing Dim RetornoVirtual As MMovimientoVirtual = Nothing
If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
RetornoVirtual = GenerarMovimientoVirtual(CveMovimiento, ObjInventario) If CveMovimientoSalida > 0 Then RetornoVirtual = GenerarMovimientoVirtual(CveMovimientoSalida, ObjInventario)
If RetornoVirtual IsNot Nothing Then ErrorMovInv = RetornoVirtual.TieneError
If CveMovimientoEntrada > 0 AndAlso Not ErrorMovInv Then RetornoVirtual = GenerarMovimientoVirtual(CveMovimientoEntrada, ObjInventario)
If RetornoVirtual IsNot Nothing Then ErrorMovInv = RetornoVirtual.TieneError
End If End If
If RetornoVirtual IsNot Nothing Then
ErrorMovInv = RetornoVirtual.TieneError
End If
If Not ErrorMovInv Then If Not ErrorMovInv Then
ObjInventario.Commit() ' aplica los movimientos insertados ObjInventario.Commit() ' aplica los movimientos insertados
@@ -5266,7 +5273,7 @@ Partial Class Inventarios_EntradasSalidas
End Sub End Sub
Private Function GenerarMovimientoVirtual(CveMovimiento As Integer, ObjInventario As ClsInventarios) As MMovimientoVirtual Private Function GenerarMovimientoVirtual(CveMovimiento As Integer, ByRef ObjInventario As ClsInventarios) As MMovimientoVirtual
Dim ErrorMovInv As Boolean = False Dim ErrorMovInv As Boolean = False
Dim DtPSVirtual As New DataTable("DtTamanios") Dim DtPSVirtual As New DataTable("DtTamanios")