-

Contabilidad/RegPrePoliza.aspx

@@ -373,6 +373,9 @@
                         <asp:TemplateField ItemStyle-HorizontalAlign="Center">
                             <ItemTemplate>
                                 <asp:LinkButton ID="ImgBancos" runat="server" CausesValidation="False" CssClass="btn btn-circle btn-sm btn-warning" OnClick="Bancos_Click" Text="<i class='fa fa-money'></i>" Visible="false" />
+                                  <asp:DropDownList ID="DdlProveedores" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="RazonSocial" DataValueField="CveProveedor" Width="160px" Visible="false" AutoPostBack="true" OnSelectedIndexChanged="DdlProveedores_SelectedIndexChanged1"></asp:DropDownList><br />
+                                                    <asp:DropDownList ID="DdlCompras" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="SerieFolio" DataValueField="CveCompra" Width="160px" Visible="false"></asp:DropDownList><br />
+
                             </ItemTemplate>
                         </asp:TemplateField>
 

Contabilidad/RegPrePoliza.aspx.vb

@@ -794,6 +794,18 @@ Partial Class ContabilidadC_RegPrePoliza
                     e.Row.FCLinkButton("ImgBancos").CssClass = "btn btn-circle btn-sm green"
                 End If
             End If
+
+            If e.Row.DataKey("CveConcepto").ToEntero.Contiene(17) Then
+                e.Row.FCDropDownList("DdlProveedores").Visible = True
+                e.Row.FCDropDownList("DdlProveedores").DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
+                e.Row.FCDropDownList("DdlProveedores").DataBind()
+                e.Row.FCDropDownList("DdlProveedores").Items.Insert(0, New ListItem("  -  ", "-1"))
+
+                'If CveTipoTransaccion > 0 And CveCuenta > 0 And Folio.Length > 0 And ImporteDocumento > 0 And Beneficiario.Length > 0 Then
+                '    e.Row.FCLinkButton("ImgPagoCompra").CssClass = "btn btn-circle btn-sm green"
+                'End If
+            End If
+
         End If
     End Sub
 
@@ -854,15 +866,20 @@ Partial Class ContabilidadC_RegPrePoliza
                         If ObjIE.GetBancosIE(CveIE, -1, -1, "-1", -1, "-1", "-1", -1, -1, -1, -1, -1, MinFecha, MaxFecha, MinFecha, MaxFecha, MinFecha, MaxFecha, -1, -1, UsuarioActual.CveEmpresa) Then
                             FolioIE = ObjIE.Folio
                         End If
-                    End If
-
-
+                    End If
+
+
+                    Dim CveProveedor As Integer = -1
+                    Dim CveCompra As Integer = -1
 
                     'inserto las compras que voy a pagarDdlSaldos
                     For Each gvr As GridViewRow In GvMov.Rows
                         If gvr.DataKey("IDCuenta").ToEntero > 0 Then
                             IdCtaContable = gvr.DataKey("IDCuenta")
                         End If
+                        CveProveedor = gvr.DataKey("CveProveedor").ToEntero
+                        CveCompra = gvr.DataKey("CveCompra").ToEntero
+                        CveConcepto = gvr.DataKey("CveConcepto").ToEntero
 
                         If gvr.DataKey("TipoMovto").ToDouble <> 0 Then
                             Importe = gvr.FCTextBox("TxtAbono").Text.ToDouble
@@ -870,6 +887,11 @@ Partial Class ContabilidadC_RegPrePoliza
                         Else
                             Importe = gvr.FCTextBox("TxtCargo").Text.ToDouble
                             TipoMovto = False
+                        End If
+                        'Registra pago de compra
+                        If CveConcepto = 17 Then
+                            CveProveedor = gvr.FCDropDownList("DdlProveedores").SelectedValue.ToEntero
+                            CveCompra = gvr.FCDropDownList("DdlCompras").SelectedValue.ToEntero
                         End If
 
                         If CveConcepto = 41 Then
@@ -890,7 +912,7 @@ Partial Class ContabilidadC_RegPrePoliza
                         If Importe <> 0 Then
                             If ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Importe, gvr.FCLiteral("LtlReferencia").Text, gvr.DataKey("CveConcepto").ToEntero, gvr.FCTextBox("TxtConcepto").Text,
                                                            TxtFecha.Text.ToDate, IdCtaContable, -1, CveSubProyecto:=gvr.FCDropDownList("DdlSubProyecto").SelectedValue.ToEntero, CveIE:=CveIE,
-                                                           CveProveedor:=gvr.DataKey("CveProveedor").ToEntero, CveCompra:=gvr.DataKey("CveCompra").ToEntero,
+                                                           CveProveedor:=CveProveedor, CveCompra:=CveCompra,
                                                            CvePersonal:=gvr.DataKey("CvePersonal").ToEntero, CveClasificacion:=gvr.DataKey("CveClasificacion").ToEntero,
                                                             ImporteMX:=Importe, CveTipoGasto:=gvr.FCDropDownList("DdlTipoGasto").SelectedValue.ToEntero,
                                                             CveCliente:=gvr.DataKey("CveCliente").ToEntero, CveVenta:=gvr.DataKey("CveVenta").ToEntero, TipoCambio:=If(gvr.DataKey("TC").ToString.ToDouble > 0, gvr.DataKey("TC").ToString.ToDouble, 1),
@@ -1560,10 +1582,34 @@ Partial Class ContabilidadC_RegPrePoliza
 
     Protected Sub LnkComplementoPago_Click(sender As Object, e As EventArgs)
         GeneraTimbre(CvePrePoliza)
-    End Sub
+    End Sub
 #End Region
-
-
-
+
+
+
+    Protected Sub DdlProveedores_SelectedIndexChanged1(sender As Object, e As EventArgs)
+        Dim ddl As DropDownList = CType(sender, DropDownList)
+        Dim ddl2 As DropDownList = DirectCast(ddl.BindingContainer, GridViewRow).FCDropDownList("DdlCompras")
+        CargaCompras2(ddl.SelectedValue.ToEntero, ddl2)
+    End Sub
+
+    Private Sub CargaCompras2(CveProveedor As Integer, ddl As DropDownList)
+
+        Dim ObjCompras As New ClsCompras
+
+        ddl.ClearSelection()
+        If ObjCompras.GetCompras(-1, "-1", "-1", CveProveedor, -1, UsuarioActual.CveEmpresa) Then
+            ddl.DataSource = ObjCompras.DtResultados.FiltraParametros("Saldo > 0")
+            ddl.DataBind()
+            ddl.Items.Insert(0, New ListItem("  -  ", "-1"))
+            ddl.Visible = True
+        Else
+            ddl.DataSource = Nothing
+            ddl.DataBind()
+            ddl.Items.Insert(0, New ListItem("  -  ", "-1"))
+
+        End If
+        ObjCompras.Dispose()
+    End Sub
 End Class