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

0 Comp: Dias de credito en OC que afecte a la compra, que se imprima en el PDF y que afecte al registro de la compra

Browse Source
This commit is contained in:
rakcsle
2025-01-16 11:39:43 -07:00
parent 44c11dd60d
commit 6759ddd037
1 changed files with 22 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
Compras/Compras.aspx.vb
View File

@@ -14914,6 +14914,7 @@ Partial Class Compras_Compras
Private Sub VinculaOC() Private Sub VinculaOC()
CveIEAnticipo = -1 CveIEAnticipo = -1
Dim DiasCredito As Integer = 0
If TxtOC.Text <> "" Then If TxtOC.Text <> "" Then
'VARIABLES 'VARIABLES
@@ -14935,6 +14936,8 @@ Partial Class Compras_Compras
Dim FoliosOCAnticipo As String = "", FoliosOCAnticipoIE As String = "" Dim FoliosOCAnticipo As String = "", FoliosOCAnticipoIE As String = ""
Dim StrPromos As New StringBuilder Dim StrPromos As New StringBuilder
For Each CveOCItem As String In ArrayCveOC.Distinct For Each CveOCItem As String In ArrayCveOC.Distinct
If ObjOC.GetOrdenesDetalle(CveOCItem.ToEntero, UsuarioActual.CveEmpresa) AndAlso ObjOC.DtResultados.Rows.Count > 0 Then If ObjOC.GetOrdenesDetalle(CveOCItem.ToEntero, UsuarioActual.CveEmpresa) AndAlso ObjOC.DtResultados.Rows.Count > 0 Then
If IsNothing(DTOCTemp) Then If IsNothing(DTOCTemp) Then
@@ -14943,6 +14946,14 @@ Partial Class Compras_Compras
DTOCTemp.Merge(ObjOC.DtResultados) DTOCTemp.Merge(ObjOC.DtResultados)
End If End If
Dim DiasCreditoOCActual As Integer = DTOCTemp.FiltroPrimeroValor("DiasCreditoOC").ToEntero
If DiasCreditoOCActual > DiasCredito Then
DiasCredito = DiasCreditoOCActual
End If
IvaAcumulado += ObjOC.DtResultados.Rows(0)("IVA").ToString.ToDouble IvaAcumulado += ObjOC.DtResultados.Rows(0)("IVA").ToString.ToDouble
TextoObservaciones += ObjOC.DtResultados.Rows(0)("Descripcion").ToString TextoObservaciones += ObjOC.DtResultados.Rows(0)("Descripcion").ToString
@@ -15063,9 +15074,16 @@ Partial Class Compras_Compras
DivOCPromocion.Visible = True DivOCPromocion.Visible = True
End If End If
If DiasCredito > 0 Then
TxtFechaPago.Text = Now.AddDays(DiasCredito).ToString("dd/MM/yyyy")
UPCondicionesPago.Update()
End If
'CARGA DATOS DE OC 'CARGA DATOS DE OC
CargaVinculacionOC(True) CargaVinculacionOC(True)
End If End If
End Sub End Sub
Protected Sub DdlOCVinculaInv_SelectedIndexChanged(sender As Object, e As EventArgs) Protected Sub DdlOCVinculaInv_SelectedIndexChanged(sender As Object, e As EventArgs)
@@ -15136,6 +15154,10 @@ Partial Class Compras_Compras
End Sub End Sub
Private Sub CargaGvsOC() Private Sub CargaGvsOC()
If Not TmpDT.Columns.Contains("NoIdentificacion") Then
TmpDT.Columns.Add("NoIdentificacion")
End If
'SI ES MAS DE UNA OC ORDENA POR PRODUCTO 'SI ES MAS DE UNA OC ORDENA POR PRODUCTO
Dim ArrayCveOC As String() = HdnVCveOC.Value.Split(New Char() {","c}) Dim ArrayCveOC As String() = HdnVCveOC.Value.Split(New Char() {","c})
'DTOCGV = If(ArrayCveOC.Length > 1, DTOCGV.FiltraParametros("", "Producto"), DTOCGV) 'DTOCGV = If(ArrayCveOC.Length > 1, DTOCGV.FiltraParametros("", "Producto"), DTOCGV)