Poliza Virtual en Ventas

2020-01-22 20:06:45 -07:00
parent 98af8ea8cc
commit 8b6fad60ba
7 changed files with 301 additions and 38 deletions
--- a/Ventas/Clientes.aspx.vb
+++ b/Ventas/Clientes.aspx.vb
@@ -9201,7 +9201,7 @@ Partial Class Clientes
        Dim Serie As String = ""

        If FolioNotaCredito(Tipo) Then
-            Folio = -1
+            Folio = FolioNotaAcumulador
            Serie = SerieNotaAcumulador
        End If

@@ -9220,8 +9220,8 @@ Partial Class Clientes
        ObjFactura.TipoDocto = "RNC"

        ObjFactura.Folio = Folio
-
        ObjFactura.Serie = Serie
+
        ObjFactura.Fecha = Now
        ObjFactura.CvePrePoliza = -1
        ObjFactura.CveMetodoPago = DdlMetodoPago.SelectedValue.ToEntero