Corrcciones AF, Compras CodigoPS en GV

Compras/Compras.aspx

@@ -775,7 +775,7 @@
                                                             <asp:Label ID="LblClasificacion" runat="server" Text='<%# Eval("Clasificacion") %>'></asp:Label>
                                                         </span>
                                                         <br />
-                                                        <asp:HyperLink Style="display: initial;" ID="HplPS" Width="200px" NavigateUrl='<%# If(CInt(Eval("CvePS").ToString) > 0, String.Format("/Ventas/ProductosServicios.aspx?CvePS={0}&Ret=Comp&Popup=1&TB_iframe=true&height=500&width=950&Ret=Comp", Eval("CvePS")), "")%>' CssClass='<%# If(CInt(Eval("CvePS").ToString) > 0, "Texto thickbox", "") %>' runat="server" Text='<%# Eval("PS") %>'></asp:HyperLink>
+                                                        <asp:HyperLink Style="display: initial;" ID="HplPS" Width="200px" NavigateUrl='<%# If(CInt(Eval("CvePS").ToString) > 0, String.Format("/Ventas/ProductosServicios.aspx?CvePS={0}&Ret=Comp&Popup=1&TB_iframe=true&height=500&width=950&Ret=Comp", Eval("CvePS")), "")%>' CssClass='<%# If(CInt(Eval("CvePS").ToString) > 0, "Texto thickbox", "") %>' runat="server" Text='<%# Eval("CodigoPS") %>'></asp:HyperLink>
                                                     </div>
                                                 </ItemTemplate>
                                             </asp:TemplateField>

Compras/Compras.aspx.vb

@@ -17044,6 +17044,8 @@ Partial Class Compras_Compras
         '    End If
         'End If
 
+
+
         Select Case Modalidad
             Case "A" 'ADD
 
@@ -17058,11 +17060,13 @@ Partial Class Compras_Compras
                 Else
                     IVA = Math.Round(DdlIVA.SelectedValue.ToDecimal - 1, 2)
                 End If
+
+
                 AddPS(TxtCantidad.Text.Trim.ToDecimal, ddlUM.SelectedValue.ToEntero, ddlUM.SelectedItem.Text, DdlClasificacion.SelectedValue.ToEntero, DdlClasificacion.SelectedItem.Text, DdlPS.SelectedValue.ToEntero, DdlPS.SelectedText, HdnTipoPS.Value.ToEntero,
                                   DdlSubProyecto.SelectedValue.ToString, DdlSubProyecto.SelectedItem.Text, DdlProyecto.SelectedItem.Text, DdlProyecto.SelectedValue.ToString, TxtObsPS.Text.Trim, TxtPrecio.Text.Trim.ToDecimal, Total, IVA,
                                   TxtRetIVAModal.Text.ToDecimal / 100, TxtRetISRModal.Text.ToDecimal / 100, TxtIEPSModal.Text.ToDecimal / 100, 0, TxtDescuentoModal.Text.ToDecimal, OtrosGastos:=0, CveTipoGasto:=DdlTipoGasto.SelectedValue.ToEntero, TipoGasto:=DdlTipoGasto.SelectedItem.Text,
                                   NoDeducible:=ChkEsNoDeduciblePS.Checked, CveSATPS:=SATClavePS, CveContratoDetalle:=CveContratoDetalle,
-                                  CveCultivoCuadroDetalle:=If(DdlCultivosCuadro.SelectedValue.ToEntero > 0, DdlCultivosCuadro.SelectedValue.ToEntero, -1), TemporadaCuadro:=If(DdlCultivosCuadro.SelectedValue.ToEntero > 0, DdlCultivosCuadro.SelectedItem.Text, ""))
+                                  CveCultivoCuadroDetalle:=If(DdlCultivosCuadro.SelectedValue.ToEntero > 0, DdlCultivosCuadro.SelectedValue.ToEntero, -1), TemporadaCuadro:=If(DdlCultivosCuadro.SelectedValue.ToEntero > 0, DdlCultivosCuadro.SelectedItem.Text, ""), CodigoPS:=CodigoPS)
 
                 AddPS2()
                 LimpiaAgregar()
@@ -17135,11 +17139,13 @@ Partial Class Compras_Compras
                       Optional PSCodigo As String = "-", Optional PSDescripcion As String = "-", Optional CantidadF As Double = -1, Optional EntregaDirecta As Integer = -1, Optional OtrosGastos As Decimal = 0,
                       Optional CveSATPS As Integer = -1, Optional CargaXml As Boolean = False, Optional CveTipoGasto As Integer = -1, Optional TipoGasto As String = "", Optional PorcentajeIVA As Decimal = 0,
                       Optional PorcentajeIEPS As Decimal = 0, Optional PorcentajeRetIVA As Decimal = 0, Optional PorcentajeRetISR As Decimal = 0, Optional NoDeducible As Boolean = False, Optional CveContratoDetalle As Integer = -1, Optional CveCultivoCuadroDetalle As Integer = -1,
-                      Optional CveSATPSActualizado As Boolean = False, Optional TemporadaCuadro As String = "") As Integer
+                      Optional CveSATPSActualizado As Boolean = False, Optional TemporadaCuadro As String = "", Optional CodigoPS As String = "") As Integer
 
         Dim Row As DataRow = Nothing
 
-
+        If Not TmpDT.Columns.Contains("CodigoPS") Then
+            TmpDT.Columns.Add("CodigoPS")
+        End If
 
         Row = TmpDT.NewRow()
         Dim Retorno As Integer = 0
@@ -17224,6 +17230,12 @@ Partial Class Compras_Compras
         Row("Clasificacion") = Clasificacion
         Row("CvePS") = CvePS
         Row("PS") = PS
+
+        If CodigoPS.Trim = "" Then
+            CodigoPS = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePS).FiltroPrimeroValor("CodigoPS")
+        End If
+        Row("CodigoPS") = CodigoPS
+
         Row("CveTipoPS") = CveTipoPS
 
         Row("PSDescripcion") = PSDescripcion
@@ -17407,6 +17419,9 @@ Partial Class Compras_Compras
                 DrPS("Clasificacion") = PSRow("Clasificacion").ToString
                 DrPS("CvePS") = DdlPS.SelectedValue
                 DrPS("PS") = PSRow("PS").ToString
+
+                DrPS("CodigoPS") = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=DdlPS.SelectedValue.ToEntero).FiltroPrimeroValor("CodigoPS")
+
                 DrPS("CveTipoPS") = CveTipoPS
                 DrPS("CveSATPS") = PSRow("CveSATPS").ToString.ToEntero
                 DrPS("SATClaveProductoServicio") = PSRow("SATClaveProductoServicio").ToString