- serie en Folios

- col impuestos locales, en saldos iniciales

App_Code/ClsGralFolios.vb

@@ -145,13 +145,14 @@ Public Class ClsGralFolios
     End Function
 
 
-    Public Function AddFolios(CveSubProyecto As Integer, TipoDocto As String, FInicial As Integer, FActual As Integer, FFinal As Integer, CBB As String, CveUsuario As Integer, CveEmpresa As Integer) As Boolean
+    Public Function AddFolios(CveSubProyecto As Integer, TipoDocto As String, Serie As String, FInicial As Integer, FActual As Integer, FFinal As Integer, CBB As String, CveUsuario As Integer, CveEmpresa As Integer) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Gral_FoliosAdd")
 
         With SqlAdapter.SelectCommand.Parameters
             .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
             .Add("@TipoDocto", SqlDbType.VarChar).Value = TipoDocto
+            .Add("@Serie", SqlDbType.VarChar).Value = Serie
             .Add("@FInicial", SqlDbType.Int).Value = FInicial
             .Add("@FActual", SqlDbType.Int).Value = FActual
             .Add("@FFinal", SqlDbType.Int).Value = FFinal

General/SaldosIniciales.aspx.vb

@@ -1323,6 +1323,7 @@ Partial Class General_SaldosIniciales
                     Dim CveVendedor As Integer = 0
                     Dim IEPS As Decimal = Row("IEPS").ToString.ToDecimal
                     Dim CveClienteSucursal As Integer = Row("CveClienteSucursal").ToString.ToEntero
+                    Dim ImpuestosLocales As Decimal = Row("ImpuestoLocal").ToString.ToDecimal
 
                     GuardaLog(Sucursal + "-" + Row("Sucursal").ToString)
                     'Temporalmente SE BORRARA
@@ -1357,9 +1358,10 @@ Partial Class General_SaldosIniciales
 
                     If FechaVencimiento = "".ToDate Or FechaVencimiento < "1900/01/01".ToDate Then
                         FechaVencimiento = Fecha
-                    End If
-
-                    'Venta
+                    End If
+
+
+                    'Venta
                     If CveCliente > 0 Then
 
 
@@ -1368,7 +1370,7 @@ Partial Class General_SaldosIniciales
                             If Not ObjVentas.AddVenta(TipoDocto, Folio, CveCliente.ToEntero, CveClienteSucursal, SubTotal, 0, 0, IVA, RetIVA, RetISR, Total, CveMoneda, TipoCambio.ToDouble,
                                                0, 0, 0, FechaVencimiento, Fecha, "", "", Fecha, CveVendedor, Folio2, "", "", 0, 0, 0, "-1".ToDate, "-1".ToDate, "-1".ToDate, -1, -1, 0, CvePrePoliza,
                                               UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Serie:=Serie, CveSubProyecto:=Sucursal.ToEntero, CveSubProyectoEjecucion:=Sucursal.ToEntero,
-                                              CveSubProyectoCobranza:=Sucursal.ToEntero, IEPS:=IEPS,
+                                              CveSubProyectoCobranza:=Sucursal.ToEntero, IEPS:=IEPS, ImpuestoLocal:=ImpuestosLocales,
                                               ObservacionesAlmacen:=Transaccion, Entrega:=CodCliente) Then
                                 ErrorVentas = True
                                 Exit For