Aplicar CveSubProyecto a conceptos 69,177,64,65,211

Bancos/FluctuacionCambiaria.aspx

@@ -145,9 +145,18 @@
                         <div class="col-md-1">
                             <h5>TC:<asp:Literal runat="server" ID="LtTipoCambioActual"></asp:Literal></h5>
                         </div>
-                        <div class="col-md-3">
+                        <div class="col-md-2">
                             <asp:TextBox ID="TxtConceptoFluctuacion" runat="server"></asp:TextBox>
                         </div>
+
+                         <div class="col-md-2" style="width: 80px;" runat="server" id="LiSubProyectoLbl">
+                                    <asp:Label runat="server" ID="LblSubProyecto"></asp:Label>
+                         </div>
+                         <div class="col-md-1 " runat="server" id="LiSubProyectoDdl">
+                                    <asp:DropDownList ID="DdlSubproyecto" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="form-control input-sm select2me" Style="max-width: 200px !important;">
+                                    </asp:DropDownList>
+                          </div>
+
                     </div>
                 </div>
                 <div class="portlet-body">

Bancos/FluctuacionCambiaria.aspx.vb

@@ -19,6 +19,7 @@ Partial Class Bancos_FluctuacionCambiaria
 
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
         If Not Page.IsPostBack Then
+            CargarCentrosDeCosto(Nothing, DdlSubproyecto, Nothing, LblSubProyecto)
             CargaUltimaFluctuacion()
         End If
     End Sub
@@ -225,6 +226,12 @@ Partial Class Bancos_FluctuacionCambiaria
 #Region "FLUCTUACION COMPRAS"
 
     Protected Sub BtnGeneraCompras_Click(sender As Object, e As EventArgs)
+
+        If DdlSubproyecto.SelectedValue.ToEntero < 0 Then
+            Alert($"Debe de seleccionar un {LblSubProyecto.Text}", TipoMensaje.MsgAdvertencia)
+            Exit Sub
+        End If
+
         Dim Total As Decimal = 0
         Dim Conta As New ClsContabilidad
         Conta.IniciaTransacSQL()
@@ -245,7 +252,6 @@ Partial Class Bancos_FluctuacionCambiaria
         IdCtaGanancia = UsuarioActual.Empresa.IdCuentaGananciaCambiaria '1230
         Dim TC As Decimal = 2 ' se pone 2, para que cumpla con el check constrains de complementarias
 
-
         Total = LblTotal.ToDecimal
         If Total > 0 Then
             CveConceptoContable = 64
@@ -258,7 +264,10 @@ Partial Class Bancos_FluctuacionCambiaria
             idCta = idCtaPerdida
             TipoMovto = False
         End If
-        If Not Conta.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Math.Abs(Total), " ", CveConceptoContable, "Fluctuación", Now, idCta, 0, ImporteMX:=Math.Abs(Total), CveCuenta:=CveCuenta) Then
+
+
+
+        If Not Conta.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Math.Abs(Total), " ", CveConceptoContable, "Fluctuación", Now, idCta, 0, ImporteMX:=Math.Abs(Total), CveCuenta:=CveCuenta, CveSubProyecto:=DdlSubproyecto.SelectedValue.ToEntero) Then
             ErrorRegistrar = True
         End If
 
@@ -291,6 +300,13 @@ Partial Class Bancos_FluctuacionCambiaria
 #Region "FLUCTUACION VENTAS"
 
     Protected Sub BtnGeneraVentas_Click(sender As Object, e As EventArgs)
+
+        If DdlSubproyecto.SelectedValue.ToEntero < 0 Then
+            Alert($"Debe de seleccionar un {LblSubProyecto.Text}", TipoMensaje.MsgAdvertencia)
+            Exit Sub
+        End If
+
+
         Dim Total As Decimal = 0
         Dim Conta As New ClsContabilidad
         Conta.IniciaTransacSQL()
@@ -323,7 +339,7 @@ Partial Class Bancos_FluctuacionCambiaria
             idCta = idCtaPerdida
             TipoMovto = False
         End If
-        If Not Conta.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Math.Abs(Total), " ", CveConceptoContable, "Fluctuación", Now, idCta, 0, ImporteMX:=Math.Abs(Total), CveCuenta:=CveCuenta) Then
+        If Not Conta.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Math.Abs(Total), " ", CveConceptoContable, "Fluctuación", Now, idCta, 0, ImporteMX:=Math.Abs(Total), CveCuenta:=CveCuenta, CveSubProyecto:=DdlSubproyecto.SelectedValue.ToEntero) Then
             ErrorRegistrar = True
         End If
 
@@ -361,6 +377,13 @@ Partial Class Bancos_FluctuacionCambiaria
 #Region "FLUCTUACION BANCOS"
 
     Protected Sub BtnGeneraBancos_Click(sender As Object, e As EventArgs)
+
+
+        If DdlSubproyecto.SelectedValue.ToEntero < 0 Then
+            Alert($"Debe de seleccionar un {LblSubProyecto.Text}", TipoMensaje.MsgAdvertencia)
+            Exit Sub
+        End If
+
         Dim Total As Decimal = 0
         Dim Conta As New ClsContabilidad
         Conta.IniciaTransacSQL()
@@ -417,7 +440,7 @@ Partial Class Bancos_FluctuacionCambiaria
                     Exit For
                 End If
 
-                If Not Conta.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Math.Abs(Total), " ", CveConceptoContable, "Fluctuación", Now, idCta, 0, ImporteMX:=Math.Abs(Total), CveCuenta:=CveCuenta) Then
+                If Not Conta.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Math.Abs(Total), " ", CveConceptoContable, "Fluctuación", Now, idCta, 0, ImporteMX:=Math.Abs(Total), CveCuenta:=CveCuenta, CveSubProyecto:=DdlSubproyecto.SelectedValue.ToEntero) Then
                     ErrorRegistrar = True
                 End If
             End If
@@ -453,6 +476,13 @@ Partial Class Bancos_FluctuacionCambiaria
 #Region "FLUCTUACION DEUDOR"
 
     Protected Sub BtnGeneraDedudores_Click(sender As Object, e As EventArgs)
+
+
+        If DdlSubproyecto.SelectedValue.ToEntero < 0 Then
+            Alert($"Debe de seleccionar un {LblSubProyecto.Text}", TipoMensaje.MsgAdvertencia)
+            Exit Sub
+        End If
+
         Dim Total As Decimal = 0
         Dim Conta As New ClsContabilidad
         Dim Banco As New ClsBancos(Conta.IniciaTransacSQL())
@@ -493,7 +523,7 @@ Partial Class Bancos_FluctuacionCambiaria
                     idCta = idCtaPerdida
                     TipoMovto = False
                 End If
-                If Not Conta.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Math.Abs(Total), " ", CveConceptoContable, ConceptoFluctuacion, Now, idCta, 0, ImporteMX:=Math.Abs(Total), CveCuenta:=CveCuenta) Then
+                If Not Conta.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Math.Abs(Total), " ", CveConceptoContable, ConceptoFluctuacion, Now, idCta, 0, ImporteMX:=Math.Abs(Total), CveCuenta:=CveCuenta, CveSubProyecto:=DdlSubproyecto.SelectedValue.ToEntero) Then
                     ErrorRegistrar = True
                 End If
 
@@ -527,6 +557,11 @@ Partial Class Bancos_FluctuacionCambiaria
 
     Protected Sub BtnGeneraFiliales_Click(sender As Object, e As EventArgs)
 
+        If DdlSubproyecto.SelectedValue.ToEntero < 0 Then
+            Alert($"Debe de seleccionar un {LblSubProyecto.Text}", TipoMensaje.MsgAdvertencia)
+            Exit Sub
+        End If
+
         Dim Total As Decimal = 0
         Dim Conta As New ClsContabilidad
         Dim Banco As New ClsBancos(Conta.IniciaTransacSQL())
@@ -571,7 +606,7 @@ Partial Class Bancos_FluctuacionCambiaria
                     idCta = idCtaPerdida
                     TipoMovto = False
                 End If
-                If Not Conta.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Math.Abs(Total), " ", CveConceptoContable, ConceptoFluctuacion, Now, idCta, 0, ImporteMX:=Math.Abs(Total), CveCuenta:=CveCuenta) Then
+                If Not Conta.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Math.Abs(Total), " ", CveConceptoContable, ConceptoFluctuacion, Now, idCta, 0, ImporteMX:=Math.Abs(Total), CveCuenta:=CveCuenta, CveSubProyecto:=DdlSubproyecto.SelectedValue.ToEntero) Then
                     ErrorRegistrar = True
                 End If
 
@@ -622,6 +657,12 @@ Partial Class Bancos_FluctuacionCambiaria
 
     Protected Sub BtnGeneraAcreedores_Click(sender As Object, e As EventArgs)
 
+
+        If DdlSubproyecto.SelectedValue.ToEntero < 0 Then
+            Alert($"Debe de seleccionar un {LblSubProyecto.Text}", TipoMensaje.MsgAdvertencia)
+            Exit Sub
+        End If
+
         Dim Total As Decimal = 0
         Dim Conta As New ClsContabilidad
         Conta.IniciaTransacSQL()
@@ -655,7 +696,7 @@ Partial Class Bancos_FluctuacionCambiaria
             idCta = idCtaPerdida
             TipoMovto = False
         End If
-        If Not Conta.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Math.Abs(Total), " ", CveConceptoContable, "Fluctuación", Now, idCta, 0, ImporteMX:=Math.Abs(Total), CveCuenta:=CveCuenta) Then
+        If Not Conta.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Math.Abs(Total), " ", CveConceptoContable, "Fluctuación", Now, idCta, 0, ImporteMX:=Math.Abs(Total), CveCuenta:=CveCuenta, CveSubProyecto:=DdlSubproyecto.SelectedValue.ToEntero) Then
             ErrorRegistrar = True
         End If
 

Bancos/PopIECompras.aspx.vb

@@ -451,6 +451,23 @@ Partial Class Bancos_PopIECompras
         End Set
     End Property
 
+    Private Property CveSubProyecto As Integer
+        Get
+
+            If ViewState("CveSubProyecto") Is Nothing Then
+                Return -1
+            Else
+                Return ViewState("CveSubProyecto").ToString.ToEntero
+            End If
+
+        End Get
+        Set(value As Integer)
+            ViewState("CveSubProyecto") = value
+        End Set
+    End Property
+
+
+
 
 
 #End Region
@@ -668,6 +685,8 @@ Partial Class Bancos_PopIECompras
                     TipoCambioOriginal = dr("TipoCambio").ToString.ToDecimal
                     NombreProveedor = GlobalDTCompProveedores(UsuarioActual.CveEmpresa).FiltroPrimeroValor("RazonSocial", String.Format("CveProveedor = {0}", CveProveedor))
 
+                    CveSubProyecto = dr("CveSubProyecto").ToString.ToEntero
+
                     LtlTitulo.Text = "Cuentas por Pagar"
                     LtlTipo2.Text = "Folio de la Compra"
                     LtlTipo3.Text = "Fecha de la Compra"
@@ -1475,6 +1494,7 @@ Partial Class Bancos_PopIECompras
 
         Dim CvePrePoliza As Integer = ObjMov.AddPrePolizas("Bancos/PopIECompras", CvePlantillaPoliza, ImportePagado, ImportePagado, CveMoneda, Fecha, ConceptoPoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoPoliza:=CveTipoPoliza)
 
+
         If Inserta Then
             If CvePrePoliza > 0 Then
                 'SE AGREGA DETALLE DE UNA COMPRA
@@ -1534,6 +1554,9 @@ Partial Class Bancos_PopIECompras
                             'inserto las compras que voy a pagar
                             If ObjMov.GetPlantillaConceptos(UsuarioActual.CveEmpresa, CvePlantillaPoliza) Then
                                 For Each Row As DataRow In ObjMov.DtResultados.Rows
+
+
+                                    Dim CveSubProyectoInsertar As Integer = -1
                                     Dim ConceptoContable = Row("CveConcepto").ToString.ToEntero
                                     TipoMovimiento = If(Row("TipoMovto").ToString = "True", True, False)
                                     Dim ImporteMovimiento As Decimal = 0
@@ -2704,6 +2727,14 @@ Partial Class Bancos_PopIECompras
                                                 End If
                                             End If
                                         Case 64 'Ganancia
+
+                                            CveSubProyectoInsertar = CveSubProyecto
+
+                                            If CveSubProyectoInsertar <= 0 Then
+                                                MsgError = "No se pudo obtener el sub proyecto o centro de costo"
+                                            End If
+
+
                                             If CveMoneda <> 1 OrElse CveMonedaCompra <> 1 Then
                                                 IdCtaContable = UsuarioActual.Empresa.IdCuentaGananciaCambiaria
                                                 CveCuenta = UsuarioActual.Empresa.CveCuentaGananciaCambiaria
@@ -2723,6 +2754,13 @@ Partial Class Bancos_PopIECompras
                                                 ImporteMovimiento = 0
                                             End If
                                         Case 65 'Perdida
+
+                                            CveSubProyectoInsertar = CveSubProyecto
+
+                                            If CveSubProyectoInsertar <= 0 Then
+                                                MsgError = "No se pudo obtener el sub proyecto o centro de costo"
+                                            End If
+
                                             If CveMoneda <> 1 OrElse CveMonedaCompra <> 1 Then
                                                 IdCtaContable = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria
                                                 CveCuenta = UsuarioActual.Empresa.CveCuentaPerdidaCambiaria
@@ -3331,7 +3369,11 @@ Partial Class Bancos_PopIECompras
                                         '    CveCuentaContabilizacion = 0
                                         'End If
 
-                                        If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteMovimiento, If(ConceptoContable = 30, TxtFolio.Text.Trim, TxtObservaciones.Text), ConceptoContable, ConceptoMovimiento, Fecha, IdCtaContable, -1, CveIE, -1, CveCompra, -1, CveProveedor:=CveProveedor2, ImporteMX:=ImporteMX, CveCuenta:=CveCuenta, TipoCambio:=TimpocambioGeneral, CvePersonal:=CvePersonal, PorcentajeImpuesto:=PorcentajeImpuesto) Then
+
+
+
+
+                                        If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteMovimiento, If(ConceptoContable = 30, TxtFolio.Text.Trim, TxtObservaciones.Text), ConceptoContable, ConceptoMovimiento, Fecha, IdCtaContable, -1, CveIE, -1, CveCompra, CveSubProyecto:=CveSubProyectoInsertar, CveProveedor:=CveProveedor2, ImporteMX:=ImporteMX, CveCuenta:=CveCuenta, TipoCambio:=TimpocambioGeneral, CvePersonal:=CvePersonal, PorcentajeImpuesto:=PorcentajeImpuesto) Then
                                             MsgError = "No se pudo insertar la póliza"
                                         End If
 

Bancos/ProveedoresAbonar.aspx.vb

@@ -3146,6 +3146,7 @@ Partial Class Bancos_ProveedoresAbonar
                 If gr.DataKey("CveTipoConcepto").ToEntero = 2 Then CveConceptoContableComplementaria = 310 'cuando es acreedor 
 
                 Dim ConceptoPartida As String = String.Format("Saldar compra {0}", gr.DataKey("SerieFolio").ToString)
+
                 CvePrePoliza = ObjConta.AddPrePolizas("Bancos/ProveedoresAbonar/Saldar", 98, gr.DataKey("Saldo").ToDecimal, gr.DataKey("Saldo").ToDecimal, gr.DataKey("CveMoneda").ToEntero, TxtFechaIncobrable.Text.ToDate, ConceptoPartida, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
 
                 If CveMoneda > 1 AndAlso (IdCtaContComplementaria > 0 Or UsuarioActual.CveEmpresa = 119) Then
@@ -3223,15 +3224,23 @@ Partial Class Bancos_ProveedoresAbonar
                 If CveMoneda > 1 Then
                     Dim ImporteFluctuacion As Decimal = 0
                     ImporteFluctuacion = Saldo * (TCPago - TCCompra)
+
+                    If CveSubProyecto <= 0 Then
+                        MsgError = "No se pudo obtener el sub proyecto o centro de costo"
+                    End If
+
+
                     If TCCompra > TCPago Then
-                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Math.Abs(ImporteFluctuacion), gr.DataKey("SerieFolio").ToString, 64, ConceptoPartida, TxtFechaIncobrable.Text.ToDate, IdCtaContable:=UsuarioActual.Empresa.IdCuentaGananciaCambiaria, CveIE:=-1, IdSegmentoNegocio:=-1, CveProveedor:=gr.DataKey("CveProveedor").ToEntero, CveCompra:=gr.DataKey("CveCompra").ToEntero, ImporteMX:=Math.Abs(ImporteFluctuacion), CveCuenta:=CveCuenta, TipoCambio:=TCCompra, TipoCambioPago:=TCPago) Then
+                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Math.Abs(ImporteFluctuacion), gr.DataKey("SerieFolio").ToString, 64, ConceptoPartida, TxtFechaIncobrable.Text.ToDate, IdCtaContable:=UsuarioActual.Empresa.IdCuentaGananciaCambiaria, CveIE:=-1, IdSegmentoNegocio:=-1, CveSubProyecto:=CveSubProyecto, CveProveedor:=gr.DataKey("CveProveedor").ToEntero, CveCompra:=gr.DataKey("CveCompra").ToEntero, ImporteMX:=Math.Abs(ImporteFluctuacion), CveCuenta:=CveCuenta, TipoCambio:=TCCompra, TipoCambioPago:=TCPago) Then
                             MsgError = "Ocurrio un error al saldar el movimiento"
                         End If
                     Else
-                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Math.Abs(ImporteFluctuacion), gr.DataKey("SerieFolio").ToString, 65, ConceptoPartida, TxtFechaIncobrable.Text.ToDate, IdCtaContable:=UsuarioActual.Empresa.IdCuentaPerdidaCambiaria, CveIE:=-1, IdSegmentoNegocio:=-1, CveProveedor:=gr.DataKey("CveProveedor").ToEntero, CveCompra:=gr.DataKey("CveCompra").ToEntero, ImporteMX:=Math.Abs(ImporteFluctuacion), CveCuenta:=CveCuenta, TipoCambio:=TCCompra, TipoCambioPago:=TCPago) Then
+                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Math.Abs(ImporteFluctuacion), gr.DataKey("SerieFolio").ToString, 65, ConceptoPartida, TxtFechaIncobrable.Text.ToDate, IdCtaContable:=UsuarioActual.Empresa.IdCuentaPerdidaCambiaria, CveIE:=-1, IdSegmentoNegocio:=-1, CveSubProyecto:=CveSubProyecto, CveProveedor:=gr.DataKey("CveProveedor").ToEntero, CveCompra:=gr.DataKey("CveCompra").ToEntero, ImporteMX:=Math.Abs(ImporteFluctuacion), CveCuenta:=CveCuenta, TipoCambio:=TCCompra, TipoCambioPago:=TCPago) Then
                             MsgError = "Ocurrio un error al saldar el movimiento"
                         End If
                     End If
+
+
                 End If
 
 

Compras/Compras.aspx.vb

@@ -3896,6 +3896,7 @@ Partial Class Compras_Compras
 
         '------------------INICIA VALIDACIONES------------------
         Dim EstatusCredito As Integer = 0
+        Dim CveSubProyecto As Integer = 0
         'Credito Multiple
         If RBLPago.SelectedValue.ToEntero = 4 Then
 
@@ -4062,11 +4063,14 @@ Partial Class Compras_Compras
         '    Dim NotHas117 As Boolean = Not UsuarioActual.TienePermisoProceso(117)
         '    'verifica que tenga proyecto y clasificacion
         For Each Row As DataRow In TmpDT.Rows
+
             If Row("CveSubProyecto").ToString.ToEntero <= 0 Then
                 Alert("No se ha completado la asignacion de proyectos en la compra. ", TipoMensaje.MsgAdvertencia)
                 Exit Sub
             End If
 
+            CveSubProyecto = Row("CveSubProyecto").ToString.ToEntero
+
             If Row("CveClasificacionActualizar").ToString.ToEntero <= 0 Then 'If NotHas117 AndAlso Row("CveClasificacionActualizar").ToString.ToEntero <= 0 Then
                 Alert("Hay productos que no tienen clasificación asignada.<br> Favor de asignarle una y darle guardar.", TipoMensaje.MsgAdvertencia)
                 Exit Sub
@@ -5690,6 +5694,8 @@ Partial Class Compras_Compras
 
                                                 For Each Row As DataRow In DTPlatilla.Rows
 
+                                                    Dim CveSubProyectoInsertar As Integer = -1
+
                                                     Dim ConceptoContable = Row("CveConcepto").ToString.ToEntero
                                                     Dim TipoMovimiento As Boolean = If(Row("TipoMovto").ToString = "True", True, False)
                                                     Dim importeMovimiento As Decimal = 0
@@ -6291,6 +6297,15 @@ Partial Class Compras_Compras
                                                         '        End If
                                                         '    End If
                                                         Case 64 'Ganancia
+
+
+                                                            CveSubProyectoInsertar = CveSubProyecto
+                                                            If CveSubProyectoInsertar <= 0 Then
+                                                                ErrorPrepoliza = True
+                                                                Alert("Concepto ganancia cambiaria sin sub proyecto", TipoMensaje.MsgAdvertencia)
+                                                            End If
+
+
                                                             If TCPago > 0 AndAlso TCPago <> 1 AndAlso TxtFechaPago.Text <> TxtFecha.Text Then
                                                                 IdCtaContable = UsuarioActual.Empresa.IdCuentaGananciaCambiaria
                                                                 CveCuenta = UsuarioActual.Empresa.CveCuentaGananciaCambiaria
@@ -6307,6 +6322,12 @@ Partial Class Compras_Compras
 
                                                         Case 65 'Perdida
 
+                                                            CveSubProyectoInsertar = CveSubProyecto
+                                                            If CveSubProyectoInsertar <= 0 Then
+                                                                ErrorPrepoliza = True
+                                                                Alert("Concepto perdida cambiaria sin sub proyecto", TipoMensaje.MsgAdvertencia)
+                                                            End If
+
                                                             If TCPago > 0 AndAlso TCPago <> 1 AndAlso TxtFechaPago.Text <> TxtFecha.Text Then
                                                                 IdCtaContable = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria
                                                                 CveCuenta = UsuarioActual.Empresa.CveCuentaPerdidaCambiaria
@@ -6597,11 +6618,17 @@ Partial Class Compras_Compras
                                                                                 'SumatoriaOCINV = -SumatoriaOCINV
 
                                                                                 Dim CveClasificacionCostoOC = TmpDT.FiltroPrimeroValor("CveClasificacion", "ISNULL(TipoAF, 0) <> 2 And ISNULL(CveAlmacen, 0) = 0 And ISNULL(AplicaCostoIndirecto, 0) <> 1 And ISNULL(CveTipoPS, 0) = 2").ToEntero
-                                                                                Dim CveSubProyecto As Integer = TmpDT.MAX("CveSubProyecto").ToEntero
+                                                                                Dim CveSubProyecto69 As Integer = TmpDT.MAX("CveSubProyecto").ToEntero
+
+                                                                                If CveSubProyecto69 <= 0 Then
+                                                                                    Alert("Debe de asignar un sub proyecto o centro de constos", TipoMensaje.MsgAdvertencia)
+                                                                                    ErrorPrepoliza = True
+                                                                                    Exit For
+                                                                                End If
 
                                                                                 IdCtaContable = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCuentaCostos", $"CveClasificacion = {CveClasificacionCostoOC}").ToString.ToEntero
                                                                                 CveCuenta = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCuentaGastoSIG", $"CveClasificacion = {CveClasificacionCostoOC}").ToString.ToEntero
-                                                                                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, SumatoriaOCINV, Referencia, 69, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveClasificacion:=CveClasificacionCostoOC, ImporteMX:=SumatoriaOCINV, CveCuenta:=CveCuenta, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza, CveSubProyecto:=CveSubProyecto) Then
+                                                                                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, SumatoriaOCINV, Referencia, 69, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveClasificacion:=CveClasificacionCostoOC, ImporteMX:=SumatoriaOCINV, CveCuenta:=CveCuenta, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza, CveSubProyecto:=CveSubProyecto69) Then
                                                                                     ErrorPrepoliza = True
                                                                                     Exit For
                                                                                 End If
@@ -6717,10 +6744,10 @@ Partial Class Compras_Compras
                                                                             Dim IdCtaContableDescCompra As Integer = UsuarioActual.Empresa.Funcionalidad(405).ToEntero
 
 
-                                                                            Dim CveSubProyecto As Integer = TmpDT.MAX("CveSubProyecto").ToEntero
+                                                                            Dim CveSubProyecto259 As Integer = TmpDT.MAX("CveSubProyecto").ToEntero
 
-                                                                            If ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importeMovimiento, Referencia, 259, Concepto, FechaMovimiento, IdCtaContableDescCompra, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza, CveSubProyecto:=CveSubProyecto) Then
+                                                                            If ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importeMovimiento, Referencia, 259, Concepto, FechaMovimiento, IdCtaContableDescCompra, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza, CveSubProyecto:=CveSubProyecto259) Then
-                                                                                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, -importeMovimiento, Referencia, 259, Concepto, FechaMovimiento, IdCtaContableDescCompra, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteMX:=-importeMN, ImporteME:=If(tipoCambioActual = 1, 0, -importeMovimiento), CveCuenta:=CveCuenta, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza, CveSubProyecto:=CveSubProyecto) Then
+                                                                                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, -importeMovimiento, Referencia, 259, Concepto, FechaMovimiento, IdCtaContableDescCompra, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteMX:=-importeMN, ImporteME:=If(tipoCambioActual = 1, 0, -importeMovimiento), CveCuenta:=CveCuenta, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza, CveSubProyecto:=CveSubProyecto259) Then
                                                                                     ErrorPrepoliza = True
                                                                                 End If
                                                                             Else
@@ -7528,7 +7555,8 @@ Partial Class Compras_Compras
                                                         End If
 
 
-                                                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, ConceptoContable, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=Math.Round(importeMN, 2, MidpointRounding.AwayFromZero), ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, TipoCambio:=tipoCambioActual, PorcentajeImpuesto:=PorcentajeImpuesto, Contabilizable:=SeContabiliza) Then
+
+                                                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, ConceptoContable, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveSubProyecto:=CveSubProyectoInsertar, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=Math.Round(importeMN, 2, MidpointRounding.AwayFromZero), ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, TipoCambio:=tipoCambioActual, PorcentajeImpuesto:=PorcentajeImpuesto, Contabilizable:=SeContabiliza) Then
                                                             ErrorPrepoliza = True
                                                             Exit For
                                                         End If
@@ -19617,7 +19645,18 @@ Partial Class Compras_Compras
 
                     Dim CveSubProyecto As Integer = TmpDT.MAX("CveSubProyecto").ToEntero
 
+
+
                     If DiferenciaInvOC.RoundSQL() <> 0 Then
+
+
+
+                        If CveSubProyecto <= 0 Then
+                            Alert("Debe de asignar un sub proyecto o centro de constos.", TipoMensaje.MsgAdvertencia)
+                            Retorno = False
+                        End If
+
+
                         CvePrePoliza = ObjConta.AddPrePolizas("Compras/OC-(OCAlmacen)", 74, DiferenciaInvOC, DiferenciaInvOC, 1, Fecha, ConceptoPartida, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
                         If CvePrePoliza > 0 Then
 

Compras/ReembolsosComprobaciones.aspx

@@ -291,7 +291,7 @@
 
             <asp:HiddenField runat="server" ID="HdnFechasComprasVinculadas" Value="-1" ClientIDMode="Static" />
 
-            <asp:GridView ID="GvCxP" GridLines="None" CssClass="table table-hover table-advance Widthall" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontraron Cuentas por Pagar pendientes" DataKeyNames="CveCompra,FechaCompra,Proveedor,SerieFolio,Original,SubTotal,IVA,RetIVA,RetISR,IdCtaContProveedores,IdCtaContProveedoresSIG,CvePrePoliza,IdPoliza,CveRetIVAConcepto,CveRetISRConcepto,IVAPorcentaje,IVADeducible,IVANoDeducible,CveTipoConcepto">
+            <asp:GridView ID="GvCxP" GridLines="None" CssClass="table table-hover table-advance Widthall" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontraron Cuentas por Pagar pendientes" DataKeyNames="CveCompra,FechaCompra,Proveedor,SerieFolio,Original,SubTotal,IVA,RetIVA,RetISR,IdCtaContProveedores,IdCtaContProveedoresSIG,CvePrePoliza,IdPoliza,CveRetIVAConcepto,CveRetISRConcepto,IVAPorcentaje,IVADeducible,IVANoDeducible,CveTipoConcepto,CveSubProyecto">
                 <Columns>
                     <asp:TemplateField>
                         <HeaderTemplate>

Compras/ReembolsosComprobaciones.aspx.vb

@@ -637,6 +637,9 @@ Partial Class Compras_ReembolsosComprobaciones
 
                 'inserto las compras que voy a pagar
                 For Each gvr As GridViewRow In GvCxP.Rows
+
+
+
                     If gvr.FCCheckBox("Chk").Checked Then
                         ConceptoMovimiento = $"{gvr.DataKey("Proveedor")} F:{gvr.DataKey("SerieFolio")} {If(DdlPersonal.Visible, DdlPersonal.SelectedItem.Text, DdlCajaChica.SelectedItem.Text)}"
                         Referencia = gvr.DataKey("SerieFolio").ToString
@@ -675,14 +678,19 @@ Partial Class Compras_ReembolsosComprobaciones
                                 CveIEPago = CveIERegistrado
                             End If
 
+
+
+
+
+
                             'Otros Ingresos
                             If (ChkAjusteOI.Checked Or ChkOtrosIngresosCheque.Checked) AndAlso gvr.FCTextBox("TxtComision").Text.ToDecimal > 0 Then
-                                If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaPago, False, gvr.FCTextBox("TxtComision").Text.ToDecimal, Referencia, 211, ConceptoMovimiento, gvr.FCLiteral("LtlFecha").Text.ToDate, IdCtaProveedor, -1, CveIE:=CveIERegistrado, CvePersonal:=CvePersonal, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero, ImporteME:=If(tipoCambio = 1, 0, gvr.FCTextBox("TxtComision").Text.ToDecimal), ImporteMX:=gvr.FCTextBox("TxtComision").Text.ToDecimal * tipoCambio, CveCuenta:=CveCuentaProveedor) Then
+                                If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaPago, False, gvr.FCTextBox("TxtComision").Text.ToDecimal, Referencia, 211, ConceptoMovimiento, gvr.FCLiteral("LtlFecha").Text.ToDate, IdCtaProveedor, -1, CveIE:=CveIERegistrado, CvePersonal:=CvePersonal, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveSubProyecto:=gvr.DataKey("CveSubProyecto").ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero, ImporteME:=If(tipoCambio = 1, 0, gvr.FCTextBox("TxtComision").Text.ToDecimal), ImporteMX:=gvr.FCTextBox("TxtComision").Text.ToDecimal * tipoCambio, CveCuenta:=CveCuentaProveedor) Then
                                     MsgError = "no se pudo insertar el detalle de la poliza de otros ingresos"
                                 End If
                                 If CveCajaChica > 0 AndAlso Not HdnCheque.Value.ToEntero > 0 Then
 
-                                    If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaPago, True, gvr.FCTextBox("TxtComision").Text.ToDecimal, Referencia, 211, ConceptoMovimiento, gvr.FCLiteral("LtlFecha").Text.ToDate, IdCtaProveedor, -1, CveIE:=CveIERegistrado, CvePersonal:=CvePersonal, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero, ImporteME:=If(tipoCambio = 1, 0, gvr.FCTextBox("TxtComision").Text.ToDecimal), ImporteMX:=gvr.FCTextBox("TxtComision").Text.ToDecimal * tipoCambio, CveCuenta:=CveCuentaProveedor, Contabilizable:=False) Then
+                                    If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaPago, True, gvr.FCTextBox("TxtComision").Text.ToDecimal, Referencia, 211, ConceptoMovimiento, gvr.FCLiteral("LtlFecha").Text.ToDate, IdCtaProveedor, -1, CveIE:=CveIERegistrado, CvePersonal:=CvePersonal, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveSubProyecto:=gvr.DataKey("CveSubProyecto").ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero, ImporteME:=If(tipoCambio = 1, 0, gvr.FCTextBox("TxtComision").Text.ToDecimal), ImporteMX:=gvr.FCTextBox("TxtComision").Text.ToDecimal * tipoCambio, CveCuenta:=CveCuentaProveedor, Contabilizable:=False) Then
                                         MsgError = "no se pudo insertar el detalle de la poliza de otros ingresos"
                                     End If
                                 End If

Compras/RepNotasCredito.aspx

@@ -98,8 +98,7 @@
         <ContentTemplate>
             <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontraron Notas de Crédito" OnRowDataBound="GvDatos_RowDataBound"
                 CssClass="table table-striped table-advance table-hover Widthall ScrollAD" data-sort="true" Style="text-align: center;" GridLines="None"
-                DataKeyNames="CveCompra,Saldo,CveIE,CveProveedor,CvePersonal,CveMoneda,IdCtaContProveedores,
+                DataKeyNames="CveCompra,Saldo,CveIE,CveProveedor,CvePersonal,CveMoneda,IdCtaContProveedores,IdCtaContExtranjera,IdCtaContComplementaria,TipoCambio,CveSubProyecto">
-                IdCtaContExtranjera,IdCtaContComplementaria,TipoCambio">
                 <Columns>
                     <asp:TemplateField ItemStyle-Width="7%">
                         <ItemTemplate>

Compras/RepNotasCredito.aspx.vb

@@ -145,6 +145,7 @@ Partial Class Compras_RepNotasCredito
 
                 CvePrePoliza = ObjConta.AddPrePolizas("Compras/RepNotasCredito", 103, gr.DataKey("Saldo").ToDecimal, gr.DataKey("Saldo").ToDecimal, gr.DataKey("CveMoneda").ToEntero, Now, "Saldado manual", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
 
+
                 If CveMoneda > 1 Then
                     IdCtaContable = gr.DataKey("IdCtaContExtranjera").ToEntero
                     ImporteMN = (gr.DataKey("Saldo").ToDecimal * TCCompra).RoundSQL
@@ -165,7 +166,7 @@ Partial Class Compras_RepNotasCredito
                 End If
 
                 IdCtaContable = UsuarioActual.Empresa.Funcionalidad(266).ToString.ToEntero
-                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Importe, "", 211, Concepto, TxtFechaSaldar.Text.ToDate, IdCtaContable, -1, gr.DataKey("CveIE").ToEntero, ImporteMX:=If(CveMoneda > 1, (Importe * TC), Importe).RoundSQL, CveCuenta:=-1, CveCompra:=gr.DataKey("CveCompra").ToEntero, CveProveedor:=gr.DataKey("CveProveedor").ToEntero) Then
+                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Importe, "", 211, Concepto, TxtFechaSaldar.Text.ToDate, IdCtaContable, -1, gr.DataKey("CveIE").ToEntero, ImporteMX:=If(CveMoneda > 1, (Importe * TC), Importe).RoundSQL, CveCuenta:=-1, CveCompra:=gr.DataKey("CveCompra").ToEntero, CveSubProyecto:=gr.DataKey("CveSubProyecto").ToEntero, CveProveedor:=gr.DataKey("CveProveedor").ToEntero) Then
                     MsgError = "Ocurrio un Error al saldar el movimiento"
                 End If
 

Compras/eFacturas.aspx

@@ -67,7 +67,7 @@
                 <asp:LinkButton ID="LnkBitacotaFacturas" runat="server" OnClick="LnkBitacotaFacturas_Click"><i class="fa fa-book"    ></i> Bitácora Facturas</asp:LinkButton>
             </li>
               <li>
-                <asp:LinkButton ID="LnkVinculacionMasivaComplementos" runat="server" OnClick="LnkVinculacionMasivaComplementos_Click" Visible ="true" data-toggle="confirmation" data-popout="true" data-original-title="¿Está seguro que desea realizar la vinculación masiva de complementos?" data-btn-ok-label="si"><i class="fa fa-tasks" ></i> Vinculación Masiva Complementos</asp:LinkButton>
+                <asp:LinkButton ID="LnkVinculacionMasivaComplementos" runat="server" OnClick="LnkVinculacionMasivaComplementos_Click" Visible ="false" data-toggle="confirmation" data-popout="true" data-original-title="¿Está seguro que desea realizar la vinculación masiva de complementos?" data-btn-ok-label="si"><i class="fa fa-tasks" ></i> Vinculación Masiva Complementos</asp:LinkButton>
             </li>
         </ContentTemplate>
         <Triggers>

Contabilidad/RegPrePolizaS.aspx.vb

@@ -816,10 +816,14 @@ Partial Class ContabilidadC_RegPrePolizaS
                             TipoMovto = False
                         End If
 
-                        If CveConcepto = 41 Then
+                        If CveConcepto <> 30 Then
-                            CveIE = gvr.FCDropDownList("DdlSaldos").SelectedValue.ToEntero
+
-                        Else
+                            If CveConcepto = 41 Then
-                            CveIE = -1
+                                CveIE = gvr.FCDropDownList("DdlSaldos").SelectedValue.ToEntero
+                            Else
+                                CveIE = -1
+                            End If
+
                         End If
 
 

Inventarios/PrestamosdeProveedor.aspx.vb

@@ -199,7 +199,10 @@ Partial Class Inventarios_PrestamosdeProveedor
                         CveSubProyecto = ObjInventario.DtResultados.FiltraParametros($"CveAlmacen = {DdlAlmacenOrigen.SelectedValue.ToEntero } ").FiltroPrimeroValor("CveSubProyecto").ToString.ToEntero
                     End If
 
-
+                    If CveSubProyecto <= 0 Then
+                        Alert("Debe de asignar un sub proyecto o centro de costos.", TipoMensaje.MsgAdvertencia)
+                        ErrorMovInv = True
+                    End If
 
                     Dim CveClasifCosto As Integer = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveClasificacion", String.Format("CvePS ={0} ", CvePS))
                     IdCtaContableOtro = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCuentaCostos", $"CveClasificacion = {CveClasifCosto}").ToEntero

OC/OC.aspx.vb

@@ -2819,6 +2819,12 @@ Partial Class OC
 
                                         If CvePrePoliza > 0 Then
 
+                                            If DdlSubProyecto.SelectedValue <= 0 Then
+                                                Alert("Debe de asignar un sub proyecto o centro de costos.", TipoMensaje.MsgAdvertencia)
+                                                TieneError = True
+                                                Exit For
+                                            End If
+
                                             If DdlMoneda.SelectedValue.ToEntero <> 1 And UsuarioActual.CveEmpresa.Contiene(119) Then
                                                 ImporteME = (DiferenciaInvOC / TCInvOC).RoundSQL()
                                                 ImporteMEComp = (DiferenciaInvOC - ImporteME).RoundSQL()
@@ -2834,8 +2840,6 @@ Partial Class OC
                                                 '    Exit For
                                                 'End If
 
-
-
                                                 If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, -DiferenciaInvOC, SerieFolio, 177, SerieFolio, Fecha, IdCtaContableRecepcionOCER, -1, CveProveedor:=CveProveedor, CveMovimientoAlmacen:=CveMovimientoAlmacen, CveOC:=CveOrdenCompra, ImporteMX:=-DiferenciaInvOC, CveOCDetalle:=CveOCDetalle, CveSubProyecto:=DdlSubProyecto.SelectedValue.ToEntero) Then
                                                     TieneError = True
                                                     Exit For

Ventas/ClientesAbonar.aspx.vb

@@ -2662,12 +2662,17 @@ Partial Class Ventas_ClientesAbonar
                     If tCveMoneda = 2 Then
                         Dim ImporteFluctuacion As Decimal = 0
                         ImporteFluctuacion = Saldo * (TCPago - TCVenta)
+
+                        If CveSubProyecto <= 0 Then
+                            MsgError = $"No se pudo obtener el sub proyecto de la venta {gr.DataKey("SerieFolio").ToString}"
+                        End If
+
                         If TCPago > TCVenta Then
-                            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Math.Abs(ImporteFluctuacion), gr.DataKey("SerieFolio").ToString, 64, ConceptoPartida, TxtFechaIncobrable.Text.ToDate, IdCtaContable:=UsuarioActual.Empresa.IdCuentaGananciaCambiaria, CveIE:=-1, IdSegmentoNegocio:=-1, CveCliente:=gr.DataKey("CveCliente").ToEntero, CveVenta:=gr.DataKey("CveVenta").ToEntero, ImporteMX:=Math.Abs(ImporteFluctuacion), CveCuenta:=CveCuenta, TipoCambio:=TCVenta, TipoCambioPago:=TCPago) Then
+                            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Math.Abs(ImporteFluctuacion), gr.DataKey("SerieFolio").ToString, 64, ConceptoPartida, TxtFechaIncobrable.Text.ToDate, IdCtaContable:=UsuarioActual.Empresa.IdCuentaGananciaCambiaria, CveIE:=-1, IdSegmentoNegocio:=-1, CveCliente:=gr.DataKey("CveCliente").ToEntero, CveVenta:=gr.DataKey("CveVenta").ToEntero, ImporteMX:=Math.Abs(ImporteFluctuacion), CveCuenta:=CveCuenta, TipoCambio:=TCVenta, TipoCambioPago:=TCPago, CveSubProyecto:=CveSubProyecto) Then
                                 MsgError = "Ocurrio un error al saldar el movimiento"
                             End If
                         Else
-                            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Math.Abs(ImporteFluctuacion), gr.DataKey("SerieFolio").ToString, 65, ConceptoPartida, TxtFechaIncobrable.Text.ToDate, IdCtaContable:=UsuarioActual.Empresa.IdCuentaPerdidaCambiaria, CveIE:=-1, IdSegmentoNegocio:=-1, CveCliente:=gr.DataKey("CveCliente").ToEntero, CveVenta:=gr.DataKey("CveVenta").ToEntero, ImporteMX:=Math.Abs(ImporteFluctuacion), CveCuenta:=CveCuenta, TipoCambio:=TCVenta, TipoCambioPago:=TCPago) Then
+                            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Math.Abs(ImporteFluctuacion), gr.DataKey("SerieFolio").ToString, 65, ConceptoPartida, TxtFechaIncobrable.Text.ToDate, IdCtaContable:=UsuarioActual.Empresa.IdCuentaPerdidaCambiaria, CveIE:=-1, IdSegmentoNegocio:=-1, CveCliente:=gr.DataKey("CveCliente").ToEntero, CveVenta:=gr.DataKey("CveVenta").ToEntero, ImporteMX:=Math.Abs(ImporteFluctuacion), CveCuenta:=CveCuenta, TipoCambio:=TCVenta, TipoCambioPago:=TCPago, CveSubProyecto:=CveSubProyecto) Then
                                 MsgError = "Ocurrio un error al saldar el movimiento"
                             End If
                         End If