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

-- EN LA devolución que afecta al almacen de recepción, considerar si tiene oc vinculada, de ser así, que mande el dato al registro de comprasdetalle

Browse Source
This commit is contained in:
rrene
2023-06-19 19:46:09 -07:00
parent 893a317cf7
commit 6f5f41793b
2 changed files with 41 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
Compras/Compras.aspx
View File

@@ -4886,11 +4886,10 @@
<div class="col-md-6 h4 text-right"> <div class="col-md-6 h4 text-right">
Saldo: $<asp:Label Text="0.00" ID="LbNCInvSaldoAlmacen" runat="server" /> Saldo: $<asp:Label Text="0.00" ID="LbNCInvSaldoAlmacen" runat="server" />
</div> </div>
</div> </div>
<br />
<div class="row"> <div class="row">
<div class="col-md-12"> <div class="col-md-12">
<asp:GridView ID="GVNCInvAlmacen" runat="server" EmptyDataText="Aun no hay registros." Width="100%" AutoGenerateColumns="False" ShowHeader="true" ShowHeaderWhenEmpty="True" DataKeyNames="CveCompraDetalle,CveCompra,TipoCambio,PU,IVA,IEPSPS" CssClass="table table-striped table-hover Widthall ScrollAD" data-heighterror="450" data-freezerows="1" GridLines="None"> <asp:GridView ID="GVNCInvAlmacen" runat="server" EmptyDataText="Aun no hay registros." Width="650px" AutoGenerateColumns="False" ShowHeader="true" ShowHeaderWhenEmpty="True" DataKeyNames="CveCompraDetalle,CveCompra,TipoCambio,PU,IVA,IEPSPS,CveOrdenCompraDetalle" CssClass="table table-striped table-hover Widthall ScrollAD" data-heighterror="450" data-freezerows="1" GridLines="None">
<Columns> <Columns>
<asp:TemplateField HeaderText="Cantidad"> <asp:TemplateField HeaderText="Cantidad">
<ItemTemplate> <ItemTemplate>
@@ -4915,6 +4914,11 @@
<asp:Label ID="LbTotal" Text='<%# (CDbl(Eval("PU").ToString) * CDbl(Eval("CantidadF").ToString)).ToString("N2") %>' runat="server"></asp:Label> <asp:Label ID="LbTotal" Text='<%# (CDbl(Eval("PU").ToString) * CDbl(Eval("CantidadF").ToString)).ToString("N2") %>' runat="server"></asp:Label>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField HeaderText="OC" ItemStyle-Width="2%">
<ItemTemplate>
<asp:Label ID="LblOC" Text='<%# Eval("FolioOC") %>' runat="server"></asp:Label>
</ItemTemplate>
</asp:TemplateField>
</Columns> </Columns>
</asp:GridView> </asp:GridView>
</div> </div>

51
Compras/Compras.aspx.vb
View File

@@ -3048,8 +3048,10 @@ Partial Class Compras_Compras
'ELIMINAR A FUERZAS 'ELIMINAR A FUERZAS
If UsuarioActual.TienePermisoProceso(77) Then If UsuarioActual.TienePermisoProceso(77) Then
If Not (IdPoliza > 0) Then BtnEliminarCompra.Visible = True
BtnEliminarCompra.Visible = True If CompraSaldo <> TxtTotal.Text.ToDouble AndAlso dr("TipoDocto").ToString = "Fac" Then
BtnEliminarCompra.Enabled = False
BtnEliminarCompra.ToolTip = "La compra tiene pagos asociados, elimine los pagos primero."
End If End If
End If End If
@@ -3061,7 +3063,7 @@ Partial Class Compras_Compras
If UsuarioActual.Empresa.UsaAC Then If UsuarioActual.Empresa.UsaAC Then
BtnEliminarCompra.Attributes.Add("data-original-title", String.Format("¿Está seguro que desea eliminar la Compra, {0} y la <b>Poliza Asociada</b>?", StrInventario)) BtnEliminarCompra.Attributes.Add("data-original-title", String.Format("¿Está seguro que desea eliminar la Compra, {0} y la <b>Poliza Asociada</b>?", StrInventario))
Else ElseIf BtnEliminarCompra.Enabled Then
BtnEliminarCompra.Attributes.Add("data-original-title", String.Format("¿Está seguro que desea eliminar la Compra y {0}?", StrInventario)) BtnEliminarCompra.Attributes.Add("data-original-title", String.Format("¿Está seguro que desea eliminar la Compra y {0}?", StrInventario))
End If End If
End If End If
@@ -6600,7 +6602,7 @@ Partial Class Compras_Compras
'no es necesario, ya se está interpretandoe l usado como producto 'no es necesario, ya se está interpretandoe l usado como producto
Dim ConceptoContabilizacionNC = 225 Dim ConceptoContabilizacionNC = 225
Dim tCveClasif As Integer = -1 Dim tCveClasif As Integer = TmpDT.FiltroPrimeroValor("CveClasificacion", "CveClasificacion > 0 ").ToEntero
Dim tCveSubProyecto As Integer = TmpDT.FiltroPrimeroValor("CveSubProyecto", "CveSubProyecto > 0 ").ToEntero Dim tCveSubProyecto As Integer = TmpDT.FiltroPrimeroValor("CveSubProyecto", "CveSubProyecto > 0 ").ToEntero
Dim CveMovimientoDevolucion As Integer = -1 Dim CveMovimientoDevolucion As Integer = -1
@@ -6612,11 +6614,14 @@ Partial Class Compras_Compras
'cuando es garantía. 'cuando es garantía.
If DdlTipoCompra.SelectedValue = "12" Then If DdlTipoCompra.SelectedValue = "12" Then
ConceptoContabilizacionNC = 259 ConceptoContabilizacionNC = 259
tCveClasif = TmpDT.FiltroPrimeroValor("CveClasificacion", "CveClasificacion > 0 ").ToEntero
End If End If
Concepto = $"{NombreProveedor} {TxtSerie.Text} - {TxtFolio.Text}" Concepto = $"{NombreProveedor} {TxtSerie.Text} - {TxtFolio.Text}"
If Not ObjCompras.UpdateEstatusAlmacen(CveCompra, 2, UsuarioActual.CveUsuario) Then
ErrorMovInv = True
End If
If importeMovimiento > 0 Or TxtTotal.Text.ToDecimal = 0 Then If importeMovimiento > 0 Or TxtTotal.Text.ToDecimal = 0 Then
RegistroCuentaPuente = True RegistroCuentaPuente = True
Dim ImporteTransito As Decimal = 0 Dim ImporteTransito As Decimal = 0
@@ -16205,7 +16210,7 @@ Partial Class Compras_Compras
'HACEMOS CALCULOS 'HACEMOS CALCULOS
SubTotalIVA = TmpDT.SUM("IVA") SubTotalIVA = TmpDT.SUM("IVA")
SubTotalIEPSIVA = TmpDT.SUM("IEPSPSIVA") SubTotalIEPSIVA = TmpDT.SUM("IEPSPSIVA")
SubTotal = (TmpDT.SUM("Total") + TmpDT.SUM("Descuento")).RoundSQL(6) SubTotal = (TmpDT.SUM("Total") + TmpDT.SUM("Descuento")).RoundSQL(8)
RetIVA = TmpDT.SUM("RetIVA") RetIVA = TmpDT.SUM("RetIVA")
RetISR = TmpDT.SUM("RetISR") RetISR = TmpDT.SUM("RetISR")
IEPSPS = TmpDT.SUM("IEPSPS") IEPSPS = TmpDT.SUM("IEPSPS")
@@ -16674,7 +16679,7 @@ Partial Class Compras_Compras
ViewState("RetIVA") = GvRow.DataKey("RetIVAPorcentaje").ToDouble ViewState("RetIVA") = GvRow.DataKey("RetIVAPorcentaje").ToDouble
ViewState("RetISR") = GvRow.DataKey("RetISRPorcentaje").ToDouble ViewState("RetISR") = GvRow.DataKey("RetISRPorcentaje").ToDouble
TxtPrecio.Text = GvRow.DataKey("PU").ToDecimal.ToString("#,##0.00####") TxtPrecio.Text = GvRow.DataKey("PU").ToDecimal.ToString("#,##0.00########")
TxtDescuentoModal.Text = GvRow.DataKey("Descuento").ToDecimal.ToString("#,##0.00####") TxtDescuentoModal.Text = GvRow.DataKey("Descuento").ToDecimal.ToString("#,##0.00####")
LblTotalPS.Text = GvRow.DataKey("Total").FormatoNumero LblTotalPS.Text = GvRow.DataKey("Total").FormatoNumero
@@ -18271,7 +18276,7 @@ Partial Class Compras_Compras
End If End If
Else Else
If ChkNCInvNC.Checked Then If ChkNCInvNC.Checked Then
Alert("Niguna de las facturas seleccionadas cuenta con productos pendientes de darles entrada.", TipoMensaje.MsgAdvertencia) Alert("Ninguna de las facturas seleccionadas cuenta con productos pendientes de darles entrada.", TipoMensaje.MsgAdvertencia)
ChkNCInvNC.Checked = False ChkNCInvNC.Checked = False
UpChkNCInvNC.Update() UpChkNCInvNC.Update()
Exit Sub Exit Sub
@@ -18360,15 +18365,18 @@ Partial Class Compras_Compras
'Dim ObjCompras As New ClsCompras 'Dim ObjCompras As New ClsCompras
'Dim ObjConta As New ClsContabilidad(ObjCompras.IniciaTransacSQL) 'Dim ObjConta As New ClsContabilidad(ObjCompras.IniciaTransacSQL)
'Dim TieneError = False 'Dim TieneError = False
Dim i As Integer = 0
'For Each Gvr As GridViewRow In GVNCInvAlmacen.Rows For Each Gvr As GridViewRow In GVNCInvAlmacen.Rows
' If Gvr.FCTextBox("TxtCantidadNCInv").Text.ToDouble > 0 Then If Gvr.FCTextBox("TxtCantidadNCInv").Text.ToDouble > 0 Then
' If Not ObjCompras.ComprasDetalleDevolucionesAdd(Gvr.DataKey("CveCompraDetalle").ToEntero, Gvr.DataKey("CveCompra").ToEntero, Gvr.FCTextBox("TxtCantidadNCInv").Text.ToDouble, UsuarioActual.CveEmpresa) Then If i < TmpDT.Rows.Count Then
' TieneError = True TmpDT.Rows(i)("CveOrdenCompraDetalle") = Gvr.DataKey("CveOrdenCompraDetalle")
' Exit For End If
' End If 'If Not ObjCompras.ComprasDetalleDevolucionesAdd(Gvr.DataKey("CveCompraDetalle").ToEntero, Gvr.DataKey("CveCompra").ToEntero, Gvr.FCTextBox("TxtCantidadNCInv").Text.ToDouble, UsuarioActual.CveEmpresa) Then
' End If ' TieneError = True
'Next ' Exit For
'End If
End If
Next
'If Not TieneError Then 'If Not TieneError Then
' Alert("Se guardo la devolución correctamente", TipoMensaje.MsgInformacion) ' Alert("Se guardo la devolución correctamente", TipoMensaje.MsgInformacion)
@@ -20492,6 +20500,10 @@ Partial Class Compras_Compras
dRow8_5("Descuento") = dRow8_5("Descuento").ToString.ToDecimal * Mul85 dRow8_5("Descuento") = dRow8_5("Descuento").ToString.ToDecimal * Mul85
dRow8_5("Total") = dRow8_5("Total").ToString.ToDecimal * Mul85 dRow8_5("Total") = dRow8_5("Total").ToString.ToDecimal * Mul85
dRow8_5("NoDeducible") = 0 dRow8_5("NoDeducible") = 0
If DdlAsignaSubProyecto.SelectedValue.ToEntero > 0 Then
dRow8_5("CveSubProyecto") = DdlAsignaSubProyecto.SelectedValue.ToEntero
dRow8_5("SubProyecto") = DdlAsignaSubProyecto.SelectedItem.Text
End If
psCvePs = 700563 psCvePs = 700563
rowPS = GlobalDTPS(UsuarioActual.CveEmpresa, psCvePs).Rows(0) rowPS = GlobalDTPS(UsuarioActual.CveEmpresa, psCvePs).Rows(0)
@@ -20518,6 +20530,11 @@ Partial Class Compras_Compras
dRow91_5("Descuento") = dRow91_5("Descuento").ToString.ToDecimal * Mul91_5 dRow91_5("Descuento") = dRow91_5("Descuento").ToString.ToDecimal * Mul91_5
dRow91_5("Total") = dRow91_5("Total").ToString.ToDecimal * Mul91_5 dRow91_5("Total") = dRow91_5("Total").ToString.ToDecimal * Mul91_5
dRow91_5("NoDeducible") = 1 dRow91_5("NoDeducible") = 1
If DdlAsignaSubProyecto.SelectedValue.ToEntero > 0 Then
dRow91_5("CveSubProyecto") = DdlAsignaSubProyecto.SelectedValue.ToEntero
dRow91_5("SubProyecto") = DdlAsignaSubProyecto.SelectedItem.Text
End If
DTProtateo.Rows.Add(dRow8_5) DTProtateo.Rows.Add(dRow8_5)
DTProtateo.Rows.Add(dRow91_5) DTProtateo.Rows.Add(dRow91_5)
Consec = Consec + 2 Consec = Consec + 2