-- cobro de crédito. generación de plazo cobranza

Ventas/PVCobranza.aspx

@@ -328,7 +328,7 @@
                                         <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" Width="100%"
                                             EmptyDataText="No se encontraron Ventas con los filtros especificados" data-sort="true" ToolTip="Listado de Ventas"
                                             CssClass="ScrollAD table table-striped table-hover Widthall mysmallbtn" data-heighterror="320" data-freezecols="0" data-freezerows="0" GridLines="None"
-                                            DataKeyNames="CveVenta,TipoDocto,Saldo,AtencionA,CveFormaPago33,SerieFolio,CondicionesPago">
+                                            DataKeyNames="CveVenta,TipoDocto,Saldo,AtencionA,CveFormaPago33,SerieFolio,CondicionesPago,PlazoCobranza">
                                             <Columns>
                                                 <asp:BoundField HeaderText="Atención" DataField="AtencionA" />
                                                 <asp:HyperLinkField HeaderText="Folio" DataNavigateUrlFields="CveVenta" DataNavigateUrlFormatString="/Ventas/Ventas.aspx?CveVenta={0}" DataTextField="SerieFolio" ItemStyle-HorizontalAlign="Center" />
@@ -615,6 +615,7 @@
                                         <div class="row">
                                             <div class="col-md-12" style="text-align: center;">
                                                 <asp:HiddenField ID="HdnCveVenta" runat="server" />
+                                                <asp:HiddenField ID="HdnPlazoCobranza" runat="server" />
                                                 <asp:HiddenField ID="HdnVentaCondicionesPago" runat="server" />
                                                 <asp:HiddenField ID="HdnTotal" runat="server" ClientIDMode="Static" />
                                                 <asp:Button ID="BtnPagar" CssClass="btn btn-large btn-success e-big-btn" runat="server" Text="Pagar" />

Ventas/PVCobranza.aspx.vb

@@ -402,6 +402,7 @@ Partial Class Ventas_PVCobranza
                 LtlFolio.Text = GvRow.DataKey("SerieFolio")
                 LtlSaldo.Text = GvRow.DataKey("Saldo").ToDecimal.FormatoNumero
                 HdnVentaCondicionesPago.Value = GvRow.DataKey("CondicionesPago")
+                HdnPlazoCobranza.Value = GvRow.DataKey("PlazoCobranza")
 
                 If UsuarioActual.CveEmpresa = 189 AndAlso GvRow.DataKey("TipoDocto") = "Rem" Then
                     DivAnticipo.Visible = True
@@ -536,13 +537,14 @@ Partial Class Ventas_PVCobranza
             Dim respFactura As Modelos.Factura.MMensajeFactura = Nothing
             Dim respNC As Modelos.Factura.MMensajeFactura = Nothing
             Dim RegistrarPago As Boolean = True
+            Dim PlazoCobranza As Integer = HdnPlazoCobranza.Value.ToEntero
             Try
                 'FACTURAR LA REMISION PARA HACER EL PAGO
                 If UsuarioActual.CveEmpresa.Contiene(189, 197) AndAlso VentaActual.TipoDocto = "Rem" Then
 
                     CveVentaRemision = HdnCveVenta.Value.ToEntero
 
-                    respFactura = GenerarFactura(CveVendedor, VentaActual, ObjVentas2, ObjClientes, ObservacionesAlmacen, VentaContado)
+                    respFactura = GenerarFactura(CveVendedor, VentaActual, ObjVentas2, ObjClientes, ObservacionesAlmacen, VentaContado, PlazoCobranza)
 
                     If respFactura Is Nothing Then
                         MsgError = "Ocurrió un error al generar la factura"
@@ -773,7 +775,7 @@ Partial Class Ventas_PVCobranza
         UpL.Update()
     End Sub
 
-    Private Function GenerarFactura(CveVendedor As Integer, ByRef VentaRemision As Venta, ByRef ObjVentas As ClsVentas, ByRef ObjClientes As ClsClientes, ObservacionesAlmacen As String, VentaConta As Boolean) As Modelos.Factura.MMensajeFactura
+    Private Function GenerarFactura(CveVendedor As Integer, ByRef VentaRemision As Venta, ByRef ObjVentas As ClsVentas, ByRef ObjClientes As ClsClientes, ObservacionesAlmacen As String, VentaConta As Boolean, PlazoCobranza As Integer) As Modelos.Factura.MMensajeFactura
         Dim Retorno As Modelos.Factura.MMensajeFactura = Nothing
         Dim SbAlert As New StringBuilder()
 
@@ -799,6 +801,7 @@ Partial Class Ventas_PVCobranza
             ObjFactura.RemisionesLista = RemisionesLista
             ObjFactura.DtRemisionesPS = DtRemisionesPS
             ObjFactura.DtRemisiones = DtRemisiones
+            ObjFactura.FechaPago = ObjFactura.Fecha.AddDays(PlazoCobranza)
 
             Dim DtPagos As DataTable = New DataTable("DtPagosFactura")
             DtPagos.Columns.Add(New DataColumn("CveFormaPago", GetType(Integer)))
@@ -821,6 +824,7 @@ Partial Class Ventas_PVCobranza
                     ObjFactura.CveFormaPago33 = CveFormaPago
                     ObjFactura.CveMetodoPago33 = 1
                 End If
+                ObjFactura.FechaPago = Now 'venta de cantado el mismo dia
             Else
                 'venta a crédito
                 ObjFactura.CveFormaPago33 = 20 ' por definir