AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Quitar serie folio de factura en clientes

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2020-02-05 15:56:07 -07:00
parent 64bd98a433
commit 15f3bf2357
1 changed files with 9 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
Ventas/Clientes.aspx.vb
View File

@@ -9197,12 +9197,17 @@ Partial Class Clientes
AgregarProductoServicio(1, CveUnidadMedida, UnidadMedida, CveClasificacion, Clasificacion, CvePS, PS, "Clientes/Usados", SubTotal, 0, -1, "", DdlSubProyecto.SelectedValue.ToEntero, AgregarProductoServicio(1, CveUnidadMedida, UnidadMedida, CveClasificacion, Clasificacion, CvePS, PS, "Clientes/Usados", SubTotal, 0, -1, "", DdlSubProyecto.SelectedValue.ToEntero,
DdlSubProyecto.SelectedItem.Text, PorcentajeIVA:=PorcentajeIVA) DdlSubProyecto.SelectedItem.Text, PorcentajeIVA:=PorcentajeIVA)
Dim Folio As Integer = 0 Dim Folio As Integer = -1
Dim Serie As String = "" Dim Serie As String = ""
If FolioNotaCredito(Tipo) Then 'If FolioNotaCredito(Tipo) Then
Folio = FolioNotaAcumulador ' Folio = FolioNotaAcumulador
Serie = SerieNotaAcumulador ' Serie = SerieNotaAcumulador
'End If
If ObjFactura IsNot Nothing Then
ObjFactura.Dispose()
ObjFactura = Nothing
End If End If
ObjFactura = New Modelos.Factura(UsuarioActual) ObjFactura = New Modelos.Factura(UsuarioActual)