This commit is contained in:
2019-12-06 19:54:48 -07:00
21 changed files with 1690 additions and 123 deletions

View File

@@ -9185,7 +9185,7 @@ Partial Class Clientes
Dim Serie As String = ""
If FolioNotaCredito(Tipo) Then
Folio = FolioNotaAcumulador
Folio = -1
Serie = SerieNotaAcumulador
End If
@@ -9291,9 +9291,9 @@ Partial Class Clientes
End If
ObjFactura.FechaEjecucion = Now
ObjFactura.CveSubProyecto = DdlSubProyecto.SelectedValue.ToEntero
ObjFactura.CveSubProyectoCobranza = DdlSubProyecto.SelectedValue.ToEntero
ObjFactura.CveSubProyectoEjecucion = DdlSubProyecto.SelectedValue.ToEntero
ObjFactura.CveSubProyecto = UsuarioActual.CveSubProyecto
ObjFactura.CveSubProyectoCobranza = UsuarioActual.CveSubProyecto
ObjFactura.CveSubProyectoEjecucion = UsuarioActual.CveSubProyecto
ObjFactura.AtencionA = "-1"
ObjFactura.MotivoDescuento = ""
ObjFactura.Observaciones = ""