Compras Correcion al agregar ieps,

General/SaldosIniciales.aspx.vb

@@ -1113,6 +1113,8 @@ Partial Class General_SaldosIniciales
                     Dim ImpuestosLocales As Decimal = If(dt.Columns.Contains("ImpuestosLocales"), Row("ImpuestosLocales").ToString, "0").ToDecimal
 
 
+
+
                     If Not CvePS > 0 Then Alert(String.Format("No se encontró el Producto Servicio"), TipoMensaje.MsgError) : ErrorCompras = True
                     If Not CveUnidadMedida > 0 Then Alert(String.Format("No se encontró la Unidad de Medida."), TipoMensaje.MsgError) : ErrorCompras = True
                     If Not CveProveedor > 0 Then Alert(String.Format("No se encontró el Proveedor con el RFC: {0}", {RFC}), TipoMensaje.MsgError) : ErrorCompras = True : Exit For
@@ -1211,7 +1213,7 @@ Partial Class General_SaldosIniciales
                 Dim DtClientes = New DataTable
                 'Dim ExisteVenta As Boolean = False
                 'Dim Contador As Integer = 0
-                DtClientes = GlobalDTCliente(UsuarioActual.CveEmpresa)
+                DtClientes = GlobalDTCliente(UsuarioActual.CveEmpresa, Estatus:=-1)
                 Dim NoEncontrados As Integer = 0
                 Dim Encontrados As Integer = 0
                 Dim StrRFCNoencontrados As New StringBuilder
@@ -1220,6 +1222,7 @@ Partial Class General_SaldosIniciales
                 Dim CveUnidadMedida As Integer = drr("CveUnidadMedida").ToString.ToEntero
                 Dim CveClasificacion As Integer = drr("CveClasificacion").ToString.ToEntero
 
+
                 If Not CvePS > 0 Then Alert(String.Format("No se encontró el Producto Servicio"), TipoMensaje.MsgError) : ErrorVentas = True
                 '  If Not CveSucursal > 0 Then Alert("No se encontró la sucursal.", TipoMensaje.MsgError) : ErrorVentas = True
                 If Not CveUnidadMedida > 0 Then Alert(String.Format("No se encontró la Unidad de Medida."), TipoMensaje.MsgError) : ErrorVentas = True
@@ -1253,6 +1256,8 @@ Partial Class General_SaldosIniciales
                     Dim FolioFiscal As String = If(dt.Columns.Contains("Folio Fiscal"), Row("Folio Fiscal").ToString, "")
                     Dim PorcentajeIVA As Decimal = If(dt.Columns.Contains("PorcentajeIVA"), Round(Row("PorcentajeIVA").ToString.ToDecimal, 4), 0)
 
+                    Dim PedidoContrato As String = If(dt.Columns.Contains("Pedido"), Row("Pedido").ToString, "")
+
                     GuardaLog(Sucursal + "-" + Row("Folio").ToString)
                     'Temporalmente SE BORRARA
                     Dim Transaccion As String = "" ' Row("Transaccion2").ToString
@@ -1300,7 +1305,7 @@ Partial Class General_SaldosIniciales
                                                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,
-                                              ObservacionesAlmacen:=Transaccion, Entrega:=CodCliente, ImpuestoLocal:=ImpuestoLocal) Then
+                                              ObservacionesAlmacen:=Transaccion, Entrega:=CodCliente, ImpuestoLocal:=ImpuestoLocal, PedidoContrato:=PedidoContrato) Then
                                 ErrorVentas = True
                                 Exit For
                             End If