-- limpieza de código de mandar idcta de contpaq

2023-08-09 19:00:12 -07:00
parent eb4abbe9a5
commit 4e13b96c3a
90 changed files with 1583 additions and 10362 deletions
--- a/Compras/eFacturas.aspx.vb
+++ b/Compras/eFacturas.aspx.vb
@@ -2,7 +2,6 @@
 Option Explicit On

 Imports System.Data
-Imports System.Data.SqlClient
 Imports System.Diagnostics
 Imports System.Globalization
 Imports System.IO
@@ -15,12 +14,10 @@ Imports System.Windows.Forms.VisualStyles.VisualStyleElement
 Imports System.Xml
 Imports ADSistemaLibrary.SatXml
 Imports ADSistemaLibrary.SatXml.XmlSatCFDI
-Imports ClsPaginas
 Imports Extensiones
-Imports HigLabo
-Imports Microsoft.Owin.Security.Provider
 Imports Microsoft.Reporting.WebForms
 Imports Newtonsoft.Json.Linq
+Imports ClsPaginas



@@ -783,33 +780,35 @@ Partial Class Compras_eFacturas
            If UsuarioActual.TienePermisoProceso(81) Then GvD.Columns(14).Visible = True : GvD.Columns(15).Visible = True
            If UsuarioActual.TienePermisoProceso(206) Then GvD.Columns(13).Visible = False
            If UsuarioActual.Empresa.Funcionalidad(156) = "1" Then GvD.Columns(7).Visible = True
-
-
-            CargaGvBitacora()
-            CargaDatos()
-            MostrarSolcitudesSAT()
-
-            If UsuarioActual.CveRol = 1 Then
-                GVSolicitudesPendientes.Columns(8).Visible = True
+            If UsuarioActual.CveEmpresa.Contiene(13, 83) Then
+                LnkRegistarFactura.Visible = True
            End If

-            'CARGA REGISTRO DE FACTURA
+            CargaGvBitacora()
+                CargaDatos()
+                MostrarSolcitudesSAT()
+
+                If UsuarioActual.CveRol = 1 Then
+                    GVSolicitudesPendientes.Columns(8).Visible = True
+                End If
+
+                'CARGA REGISTRO DE FACTURA


-            CargaClasificacionesComprobaciones()
-            CargaClasificaciones()
-            CargaPS(-1)
-            CargaPersoanlCajaChica()
-            CargaPersonalViaticos()
-            CargaDdlRetIVA()
-            CargaDdlRetISR()
+                CargaClasificacionesComprobaciones()
+                CargaClasificaciones()
+                CargaPS(-1)
+                CargaPersoanlCajaChica()
+                CargaPersonalViaticos()
+                CargaDdlRetIVA()
+                CargaDdlRetISR()

-            Dim LblSubProyectoTemp As New Label
-            CargarCentrosDeCosto(Nothing, DdlSubProyecto, Nothing, LblSubProyectoTemp, "Seleccione")
-            LblSubProyecto.InnerText = $"{LblSubProyectoTemp.Text}:"
+                Dim LblSubProyectoTemp As New Label
+                CargarCentrosDeCosto(Nothing, DdlSubProyecto, Nothing, LblSubProyectoTemp, "Seleccione")
+                LblSubProyecto.InnerText = $"{LblSubProyectoTemp.Text}:"

-        End If
-        removeasincevent()
+            End If
+            removeasincevent()
    End Sub
    'Private Sub CompararString()
    '    Dim cont As Integer = 10000
@@ -5297,7 +5296,6 @@ Partial Class Compras_eFacturas

        If dr IsNot Nothing Then
            CveMoneda = dr("CveMoneda").ToString.ToEntero
-            IdCuentaBancaria = dr("IdCtaContable").ToString.ToEntero
            EstaAsociadoACajaChica = True
        End If
        ViewState("CveCajaChica") = DdlCuentaCajaChicaReembolso.SelectedValue
@@ -5454,10 +5452,6 @@ Public Class Compra2
    Public Property CveRetISRConcepto As Integer = -1
    Public Property CveSubProyecto As Integer = -1
    Public Property UsuarioActual As Usuario
-    Public Property IdCtaContableProv As Integer = -1
-    Public Property IdCtaContableProvComplementaria As Integer = -1
-    Public Property IdCtaContableAnticipoProv As Integer = -1
-    Public Property IdCtaContableAnticipoProvComplementaria As Integer = -1
    Public ReadOnly Property ConceptoPrePolizaIVA As ConceptosRetenciones
        Get
            Dim Ret As New ConceptosRetenciones
@@ -5500,24 +5494,6 @@ Public Class Compra2
                Ret.CveConceptoAcreditable = 333
                Ret.CveConceptoxAcreditar = 334
            End If
-            If UsuarioActual.Empresa.TipoContabilidad = 2 Then
-                Dim ObjConta As New ClsContabilidad
-                If UsuarioActual.Empresa.Funcionalidad(FuncionalidadxAcred).ToEntero > 0 Then
-                    Ret.IdCtaContablexAcreditar = UsuarioActual.Empresa.Funcionalidad(FuncionalidadxAcred).ToEntero
-                Else
-                    If ObjConta.GetRetCuenta(Ret.CveConceptoxAcreditar, UsuarioActual.CveEmpresa) Then
-                        If ObjConta.DtResultados.Rows.Count > 0 Then Ret.IdCtaContablexAcreditar = ObjConta.DtResultados.Rows(0)("IdCuentaRetIVACirculacion").ToString.ToEntero
-                    End If
-                End If
-                If UsuarioActual.Empresa.Funcionalidad(Funcionalidad).ToEntero > 0 Then
-                    Ret.IdCtaContableAcreditable = UsuarioActual.Empresa.Funcionalidad(Funcionalidad).ToEntero
-                Else
-                    If ObjConta.GetRetCuenta(Ret.CveConceptoAcreditable, UsuarioActual.CveEmpresa) Then
-                        If ObjConta.DtResultados.Rows.Count > 0 Then Ret.IdCtaContableAcreditable = ObjConta.DtResultados.Rows(0)("IdCuentaRetIVACirculacion").ToString.ToEntero
-                    End If
-                End If
-                ObjConta.Dispose()
-            End If
            Return Ret
        End Get
    End Property
@@ -5538,24 +5514,6 @@ Public Class Compra2
                Ret.CveConceptoAcreditable = 328
                Ret.CveConceptoxAcreditar = 327
            End If
-            If UsuarioActual.Empresa.TipoContabilidad = 2 Then
-                Dim ObjConta As New ClsContabilidad
-                If UsuarioActual.Empresa.Funcionalidad(FuncionalidadxAcred).ToEntero > 0 Then
-                    Ret.IdCtaContablexAcreditar = UsuarioActual.Empresa.Funcionalidad(FuncionalidadxAcred).ToEntero
-                Else
-                    If ObjConta.GetRetCuenta(Ret.CveConceptoxAcreditar, UsuarioActual.CveEmpresa) Then
-                        If ObjConta.DtResultados.Rows.Count > 0 Then Ret.IdCtaContablexAcreditar = ObjConta.DtResultados.Rows(0)("IdCuentaRetISRCirculacion").ToString.ToEntero
-                    End If
-                End If
-                If UsuarioActual.Empresa.Funcionalidad(Funcionalidad).ToEntero > 0 Then
-                    Ret.IdCtaContableAcreditable = UsuarioActual.Empresa.Funcionalidad(Funcionalidad).ToEntero
-                Else
-                    If ObjConta.GetRetCuenta(Ret.CveConceptoAcreditable, UsuarioActual.CveEmpresa) Then
-                        If ObjConta.DtResultados.Rows.Count > 0 Then Ret.IdCtaContableAcreditable = ObjConta.DtResultados.Rows(0)("IdCuentaRetISRCirculacion").ToString.ToEntero
-                    End If
-                End If
-                ObjConta.Dispose()
-            End If
            Return Ret
        End Get
    End Property
@@ -5587,10 +5545,8 @@ Public Class Compra2
    Public Property Amortizacion As Decimal = 0D
    Public Property FechaPago As Date 'FIX ME corregir usando fecha interna calculada por los dias de credito del proveedor
    Public Property AplicaNotaCredito As Boolean = False
-
    Public Property XMlStr As String
    Public Property XMLCargaExistosa As Boolean = True
-
    Public Property Observaciones As String = ""
    Public Property CveEstatusFactura As Integer = 1
    Public Property CvePrePoliza As Integer = -1
@@ -5655,7 +5611,6 @@ Public Class Compra2
            CargaDesdeString(XmlFuente)
        End If

-
    End Sub

    Private Sub CargaDesdeArchivo(XmlFuenteRuta As String)
@@ -5724,7 +5679,6 @@ Public Class Compra2
            Exit Sub
        End If

-
        Folio = ValorXML(nodo, "folio")
        Fecha = ValorXML(nodo, "fecha").ToDate
        SubTotal = ValorXML(nodo, "subTotal").ToDecimal
@@ -5763,15 +5717,13 @@ Public Class Compra2
        Else ' se considera que es la version 4.0
            cfdVer = "http://www.sat.gob.mx/cfd/4"
        End If
-
        namespaces.AddNamespace(Prefijo, cfdVer)
        namespaces.AddNamespace("aerolineas", "http://www.sat.gob.mx/aerolineas")
        namespaces.AddNamespace("tfd", "http://www.sat.gob.mx/TimbreFiscalDigital")
        namespaces.AddNamespace("implocal", "http://www.sat.gob.mx/implocal")
        namespaces.AddNamespace("registrofiscal", "http://www.sat.gob.mx/registrofiscal")

-
-        If TipoComprobante.ToUpper = "E" And (CFDIVersion = EnumCFDIVersion.V33 Or CFDIVersion = EnumCFDIVersion.V40) Then
+        If TipoComprobante.ToUpper = "E" AndAlso (CFDIVersion = EnumCFDIVersion.V33 OrElse CFDIVersion = EnumCFDIVersion.V40) Then
            Dim UUIDS As String = ""

            Dim UUIDSLista As New List(Of String)
@@ -5981,11 +5933,9 @@ Public Class Compra2
        Dim DTIndex As DataTable = TmpDT.FiltraParametros("", DistinctColumns:={"Consec"})

        For Each dRowIndex As DataRow In DTIndex.Rows
-
            If Not UpdatePSReembolso(dRowIndex("Consec").ToString.ToEntero, CvePS) Then
                respuesta = False
            End If
-
        Next

        If respuesta AndAlso IEPS > 0 Then
@@ -6174,14 +6124,10 @@ Public Class Compra2
                            dRow("IVA") = dRow("IVA").ToString.ToDecimal - AjusteteDividido
                        End If
                    Next
-
-
                Else
                    TmpDT.Rows(IndiceUltimo)("IVA") = TmpDT.Rows(IndiceUltimo)("IVA").ToString.ToDecimal + DiferenciaIVas
                End If
-
                TmpDT.AcceptChanges()
-
            End If

        End If
@@ -6202,7 +6148,6 @@ Public Class Compra2
                        Exit For
                    End If
                Next
-
            Else
                Alert("Los productos especificados en el listado no tienen asignado impuesto IVA, favor de realizar la corrección en el producto que aplique el impuesto.", TipoMensaje.MsgAdvertencia)
                Respuesta = False
@@ -6218,9 +6163,6 @@ Public Class Compra2

            Dim DTConsultaIEPSPS As New DataTable
            DTConsultaIEPSPS = TmpDT.FiltraParametros(" AplicaIEPS = 'True'")
-
-
-
            Dim IndiceContador As Integer = 0
            Dim IndicePrimero As Integer = 0

@@ -6231,27 +6173,18 @@ Public Class Compra2
                End If
                IndiceContador = IndiceContador + 1
            Next
-
-            If DiferenciaIEPSPS.RoundAD(2) <> 0 Then
-
+            If DiferenciaIEPSPS.RoundSQL(2) <> 0 Then

                TmpDT.Rows(IndicePrimero)("IEPSPS") = TmpDT.Rows(IndicePrimero)("IEPSPS").ToString.ToDecimal + DiferenciaIEPSPS
                TmpDT.AcceptChanges()
-
            End If

-
-
            For Each dRow As DataRow In TmpDT.Rows
-
                If dRow("IEPSPSPorcentaje").ToString.ToDecimal > 0 AndAlso dRow("IEPSPS").ToString.ToDecimal = 0 Then
                    dRow("IEPSPSPorcentaje") = 0
                End If
-
            Next
-
            TmpDT.AcceptChanges()
-
        End If

        Return Respuesta
@@ -6298,15 +6231,11 @@ Public Class Compra2
                            For Each dRow As DataRow In TmpDT.Rows
                                dRow("IVA") = dRow("IVA").ToString.ToDecimal - AjusteteDividido
                            Next
-
                        Else
                            TmpDT.Rows(IndiceUltimo)("IVA") = TmpDT.Rows(IndiceUltimo)("IVA").ToString.ToDecimal + DiferenciaIVas
                        End If
-
                        TmpDT.AcceptChanges()
-
                    End If
-
                End If

                'Revalidacion de ajuste
@@ -6433,8 +6362,6 @@ Public Class Compra2

    End Function

-
-
    Private Function AjustaRetISR() As Boolean

        Dim Respuesta As Boolean = False
@@ -6541,13 +6468,10 @@ Public Class Compra2
            If OtrosImpuestosGasto Then
                AgregarConceptoIEPS(OtrosImpuestos, CvePS)
            End If
-
        Else
            respuesta = False
            Errores.AppendLine("Debe seleccionar al menos un impuesto. ")
        End If
-
-
        CalculaTotales()

        Return respuesta
@@ -6622,12 +6546,9 @@ Public Class Compra2
        Me.SubTotal = Math.Round(SubTotalIEPS, 2)
        Me.SubTotalConceptos = Math.Round(SubTotalIEPS, 2)

-
-
        PSS.Dispose()
    End Sub

-
    Private Function AddPS(Cantidad As Decimal, CveUM As Integer, UM As String, CveClasificacion As Integer, Clasificacion As String, CvePS As Integer, PS As String, CveTipoPS As Integer, CveSubProyectoContrato As String, SubProyecto As String, Proyecto As String, CveProyecto As String,
                      Obs As String, PU As Decimal, Total As Decimal, IVA As Decimal, RetIVA As Decimal, RetISR As Decimal, IEPSPS As Decimal, IEPSPSIVA As Decimal, Descuento As Decimal, Optional CveOrdenCompraDetalle As Integer = -1, Optional TCalculaTotales As Boolean = True,
                      Optional PSCodigo As String = "-", Optional PSDescripcion As String = "-", Optional CantidadF As Double = -1, Optional EntregaDirecta As Integer = -1, Optional OtrosGastos As Decimal = 0,
@@ -6873,7 +6794,6 @@ Public Class Compra2
        End If
        Me.NumNoDed = TmpDT.COUNT("CvePS", "NoDeducible = True ")

-
    End Sub

    Private Function UpdatePSReembolso(Index As Integer, CvePS As Integer) As Boolean
@@ -7086,8 +7006,6 @@ Public Class Compra2

        Return DoctosRelacionados
    End Function
-
-
    Private Function ValorXML(n As XmlNode, Campo As String, Optional Retorno As String = "") As String
        Dim o As XmlNode = n.Attributes.Cast(Of XmlAttribute)().SingleOrDefault(Function(a) String.Compare(a.Name, Campo, True) = 0)
        If o Is Nothing Then
@@ -7186,7 +7104,7 @@ Public Class Compra2
        Return respuesta
    End Function

-    Private Function AddPrepolizaDetalles(ByRef ObjConta As ClsContabilidad) As Boolean
+    Private Function AddPrePolizaDetalles(ByRef ObjConta As ClsContabilidad) As Boolean
        Dim respuesta As Boolean = True
        Dim Concepto As String = $"{Me.NombreProveedor} {Me.SerieFolio}"
        Dim Referencia As String = Me.SerieFolio
@@ -7199,7 +7117,7 @@ Public Class Compra2
            importeMN = (importeMovimiento * Me.TipoCambio).RoundSQL

            If importeMN <> 0 Then
-                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importeMovimiento, importeMN, 6, Referencia, Concepto, -1, CveCompra:=CveCompra, CveProveedor:=Me.CveProveedor, CveIE:=Me.CveIE, CvePersonal:=CvePersonal, CveCreditoDetalle:=Me.CveCreditoDetalle, ImporteME:=If(TipoCambio = 1, 0, importeMovimiento), TipoCambio:=TipoCambio,
+                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importeMovimiento, importeMN, 6, Referencia, Concepto, CveCompra:=CveCompra, CveProveedor:=Me.CveProveedor, CveIE:=Me.CveIE, CvePersonal:=CvePersonal, CveCreditoDetalle:=Me.CveCreditoDetalle, ImporteME:=If(TipoCambio = 1, 0, importeMovimiento), TipoCambio:=TipoCambio,
                                                     CveClasificacion:=RowDetalle("CveClasificacion").ToString().ToEntero(), CveSubProyecto:=RowDetalle("CveSubProyecto").ToString().ToEntero(), Contabilizable:=True) Then
                    respuesta = False
                    Exit For
@@ -7210,7 +7128,7 @@ Public Class Compra2
        If respuesta AndAlso Me.IVA > 0 Then
            importeMovimiento = Me.IVA
            importeMN = (importeMovimiento * Me.TipoCambio).RoundSQL
-            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importeMovimiento, importeMN, 14, Referencia, Concepto, -1, CveCompra:=CveCompra, CveSubProyecto:=Me.CveSubProyectoPrincipal, CveProveedor:=Me.CveProveedor, CveIE:=Me.CveIE, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, ImporteME:=If(Me.TipoCambio = 1, 0, importeMovimiento), TipoCambio:=Me.TipoCambio, PorcentajeImpuesto:=Me.PorcentajeIVA, Contabilizable:=True) Then
+            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importeMovimiento, importeMN, 14, Referencia, Concepto, CveCompra:=CveCompra, CveSubProyecto:=Me.CveSubProyectoPrincipal, CveProveedor:=Me.CveProveedor, CveIE:=Me.CveIE, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, ImporteME:=If(Me.TipoCambio = 1, 0, importeMovimiento), TipoCambio:=Me.TipoCambio, PorcentajeImpuesto:=Me.PorcentajeIVA, Contabilizable:=True) Then
                respuesta = False
            End If
        End If
@@ -7218,7 +7136,7 @@ Public Class Compra2
        If respuesta AndAlso Me.IEPS > 0 Then
            importeMovimiento = Me.IEPS
            importeMN = (importeMovimiento * Me.TipoCambio).RoundSQL
-            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importeMovimiento, importeMN, 25, Referencia, Concepto, -1, CveCompra:=CveCompra, CveSubProyecto:=Me.CveSubProyectoPrincipal, CveProveedor:=Me.CveProveedor, CveIE:=Me.CveIE, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, ImporteME:=If(Me.TipoCambio = 1, 0, importeMovimiento), TipoCambio:=Me.TipoCambio, PorcentajeImpuesto:=0, Contabilizable:=True) Then
+            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importeMovimiento, importeMN, 25, Referencia, Concepto, CveCompra:=CveCompra, CveSubProyecto:=Me.CveSubProyectoPrincipal, CveProveedor:=Me.CveProveedor, CveIE:=Me.CveIE, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, ImporteME:=If(Me.TipoCambio = 1, 0, importeMovimiento), TipoCambio:=Me.TipoCambio, PorcentajeImpuesto:=0, Contabilizable:=True) Then
                respuesta = False
            End If
        End If
@@ -7227,7 +7145,7 @@ Public Class Compra2
            importeMovimiento = Me.RetIVA
            importeMN = (importeMovimiento * Me.TipoCambio).RoundSQL
            Dim ret As ConceptosRetenciones = ConceptoPrePolizaRetIVA
-            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importeMovimiento, importeMN, ret.CveConceptoxAcreditar, Referencia, Concepto, -1, CveCompra:=CveCompra, CveSubProyecto:=Me.CveSubProyectoPrincipal, CveProveedor:=Me.CveProveedor, CveIE:=Me.CveIE, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, ImporteME:=If(Me.TipoCambio = 1, 0, importeMovimiento), TipoCambio:=Me.TipoCambio, PorcentajeImpuesto:=0, Contabilizable:=True) Then
+            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importeMovimiento, importeMN, ret.CveConceptoxAcreditar, Referencia, Concepto, CveCompra:=CveCompra, CveSubProyecto:=Me.CveSubProyectoPrincipal, CveProveedor:=Me.CveProveedor, CveIE:=Me.CveIE, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, ImporteME:=If(Me.TipoCambio = 1, 0, importeMovimiento), TipoCambio:=Me.TipoCambio, PorcentajeImpuesto:=0, Contabilizable:=True) Then
                respuesta = False
            End If
        End If
@@ -7236,7 +7154,7 @@ Public Class Compra2
            importeMovimiento = Me.RetISR
            importeMN = (importeMovimiento * Me.TipoCambio).RoundSQL
            Dim ret As ConceptosRetenciones = ConceptoPrePolizaRetISR
-            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importeMovimiento, importeMN, ret.CveConceptoxAcreditar, Referencia, Concepto, -1, CveCompra:=CveCompra, CveSubProyecto:=Me.CveSubProyectoPrincipal, CveProveedor:=Me.CveProveedor, CveIE:=Me.CveIE, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, ImporteME:=If(Me.TipoCambio = 1, 0, importeMovimiento), TipoCambio:=Me.TipoCambio, PorcentajeImpuesto:=0, Contabilizable:=True) Then
+            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importeMovimiento, importeMN, ret.CveConceptoxAcreditar, Referencia, Concepto, CveCompra:=CveCompra, CveSubProyecto:=Me.CveSubProyectoPrincipal, CveProveedor:=Me.CveProveedor, CveIE:=Me.CveIE, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, ImporteME:=If(Me.TipoCambio = 1, 0, importeMovimiento), TipoCambio:=Me.TipoCambio, PorcentajeImpuesto:=0, Contabilizable:=True) Then
                respuesta = False
            End If
        End If
@@ -7255,11 +7173,11 @@ Public Class Compra2
            Else
                importeMN = importeMovimiento
            End If
-            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importeMovimiento, importeMN, ConPreP.CveConcepto, Referencia, Concepto, -1, CveCompra:=CveCompra, CveSubProyecto:=Me.CveSubProyectoPrincipal, CveProveedor:=Me.CveProveedor, CveIE:=Me.CveIE, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, ImporteME:=If(Me.TipoCambio = 1, 0, importeMovimiento), TipoCambio:=Me.TipoCambio, PorcentajeImpuesto:=0, Contabilizable:=True) Then
+            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importeMovimiento, importeMN, ConPreP.CveConcepto, Referencia, Concepto, CveCompra:=CveCompra, CveSubProyecto:=Me.CveSubProyectoPrincipal, CveProveedor:=Me.CveProveedor, CveIE:=Me.CveIE, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, ImporteME:=If(Me.TipoCambio = 1, 0, importeMovimiento), TipoCambio:=Me.TipoCambio, PorcentajeImpuesto:=0, Contabilizable:=True) Then
                respuesta = False
            End If
            If respuesta AndAlso Me.CveMoneda > 1 AndAlso UsaComplementaria Then
-                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importeMovimiento, (importeMovimiento * Me.TipoCambio - importeMovimiento).RoundSQL, ConPreP.CveConceptoComplementario, Referencia, Concepto, -1, CveCompra:=Me.CveCompra, CveProveedor:=Me.CveProveedor, CveIE:=Me.CveIE, CvePersonal:=Me.CvePersonal, CveCompraAmortizacion:=Me.CveCompraAmortizacion, TipoCambio:=Me.TipoCambio, TipoCambioPago:=1, ImporteME:=ImporteME, CveSubProyecto:=Me.CveSubProyecto) Then
+                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importeMovimiento, (importeMovimiento * Me.TipoCambio - importeMovimiento).RoundSQL, ConPreP.CveConceptoComplementario, Referencia, Concepto, CveCompra:=Me.CveCompra, CveProveedor:=Me.CveProveedor, CveIE:=Me.CveIE, CvePersonal:=Me.CvePersonal, CveCompraAmortizacion:=Me.CveCompraAmortizacion, TipoCambio:=Me.TipoCambio, TipoCambioPago:=1, ImporteME:=ImporteME, CveSubProyecto:=Me.CveSubProyecto) Then
                    respuesta = False
                End If
            End If
@@ -7273,14 +7191,6 @@ End Class



-
-
-
-
-
-
-
-
 Public Class GeneralesAPIeFacturas

    Inherits ADSNetLibraryzdE.HelpersE.ConexionesE.SIGAPIE.BaseSIGAPIeFacturas