From 1b8ea4e25675fe46ba87dfb578eb0791d644540e Mon Sep 17 00:00:00 2001
From: HECTOR RODRIGUEZ <hecttor201@gmail.com>
Date: Tue, 22 Jun 2021 10:19:19 -0700
Subject: [PATCH] cargar de codigo sat para el ps

---
 Compras/Compras.aspx    |  3 +++
 Compras/Compras.aspx.vb | 10 ++++++++--
 2 files changed, 11 insertions(+), 2 deletions(-)

diff --git a/Compras/Compras.aspx b/Compras/Compras.aspx
index 6015bbbd6..6e663ced8 100644
--- a/Compras/Compras.aspx
+++ b/Compras/Compras.aspx
@@ -4563,6 +4563,9 @@
                                     <asp:HiddenField ID="HdnAliasInd" ClientIDMode="Static" runat="server" />
                                     <asp:HiddenField ID="HdnPSAliasCveClasificacion" ClientIDMode="Static" runat="server" />
                                     <asp:HiddenField ID="HdnPSAliasClasificacion" ClientIDMode="Static" runat="server" />
+                                    <asp:HiddenField ID="HdnPSAliasCveSATPS" ClientIDMode="Static" runat="server" />
+                                    <asp:HiddenField ID="HdnPSAliasSATClavePS" ClientIDMode="Static" runat="server" />
+
                                 </div>
                             </div>
                             <div class="row">
diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index ce5eb995c..d7f686134 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -18664,6 +18664,9 @@ Partial Class Compras_Compras
                 DdlUnidadAlias.DataBind()
                 HdnPSAliasCveClasificacion.Value = DrPS("CveClasificacion").ToString
                 HdnPSAliasClasificacion.Value = DrPS("Clasificacion").ToString
+                HdnPSAliasCveSATPS.Value = DrPS("CveSATPS").ToString
+                HdnPSAliasSATClavePS.Value = DrPS("SATClavePS").ToString
+
             End If
         End If
         UpPSAlias.Update()
@@ -18686,6 +18689,8 @@ Partial Class Compras_Compras
             TmpDT.Rows(HdnAliasInd.Value.ToEntero)("CveClasificacion") = HdnPSAliasCveClasificacion.Value.ToEntero
             TmpDT.Rows(HdnAliasInd.Value.ToEntero)("Clasificacion") = HdnPSAliasClasificacion.Value
             TmpDT.Rows(HdnAliasInd.Value.ToEntero)("Obs") = TxtPSAlias.Text.Trim
+            TmpDT.Rows(HdnAliasInd.Value.ToEntero)("CveSATPS") = HdnPSAliasCveSATPS.Value
+            TmpDT.Rows(HdnAliasInd.Value.ToEntero)("SATClaveProductoServicio") = HdnPSAliasSATClavePS.Value
 
             'busco si el producto está en otros renglones QUE NO LO TENGAN ASIGNADO, LO VINCULE
             For Each drt As DataRow In TmpDT.Select($"PS ='{TxtPSAlias.Text.Trim}' and ISNULL(CvePS,0) = 0")
@@ -18696,10 +18701,11 @@ Partial Class Compras_Compras
                 drt("CveClasificacion") = HdnPSAliasCveClasificacion.Value.ToEntero
                 drt("Clasificacion") = HdnPSAliasClasificacion.Value
                 drt("Obs") = TxtPSAlias.Text.Trim
+                drt("CveSATPS") = HdnPSAliasCveSATPS.Value
+                drt("SATClaveProductoServicio") = HdnPSAliasSATClavePS.Value
+
             Next
-
             TmpDT.AcceptChanges()
-
             GvPS.DataSource = TmpDT
             GvPS.DataBind()
             UpPS.Update()