Merge branch 'master' of http://jperez@192.168.10.111:8383/SIG.git

2022-04-26 20:38:07 -07:00
parent 583b1caebf 76e2a800e8
commit 8a726f1b11
42 changed files with 4511 additions and 876 deletions
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -2149,18 +2149,8 @@ Partial Class Compras_Compras

    Private Sub CargaRetIVAConcepto(Optional Cambio As Boolean = False)

-
-
-
-
        If TrRetIVA.Visible Then
            TdRetIVAConcepto.Visible = True
-
-
-
-
-
-
        End If

        If Cambio Then
@@ -2174,15 +2164,12 @@ Partial Class Compras_Compras
            End If

            DdlRetIVAConcepto.Items.Add(New ListItem("Arrendamiento", "4"))
-
-            'If UsuarioActual.Empresa.Funcionalidad(577).ToEntero = 1 Then
-            DdlRetIVAConcepto.Items.Add(New ListItem("Ret IVA Servicios", "5"))
-            'End If
-
+            ''If UsuarioActual.Empresa.Funcionalidad(577).ToEntero = 1 Then
+            'DdlRetIVAConcepto.Items.Add(New ListItem("Ret IVA Servicios", "5"))
+            ''End If

        End If

-
        UpPS.Update()

    End Sub
@@ -3380,6 +3367,47 @@ Partial Class Compras_Compras
                    DdlRetIVAConcepto.SelectedValueExist("2") ' flete pf
                    DdlRetIVAConcepto.SelectedValueExist("3") ' fletes pm
                    DdlRetISRConcepto.SelectedValueExist("1") ' honorarios
+                ElseIf ObjProveedor.DIOTCveTipoOperacion = 0 Then
+
+
+                    If CveFactura > 0 Then
+
+                        If RetIVAOriginal > 0 Then
+                            Dim CalRetIVAPor As Decimal = (RetIVAOriginal * 1 / SubTotal2Original).RoundAD(6).ToDecimal
+
+                            If (CalRetIVAPor).RoundAD(6) = 0.106667 Then
+                                DdlRetIVAConcepto.SelectedValueExist("1") '10.66 servicios profecionales
+                            End If
+
+                            If (CalRetIVAPor).RoundAD(2) = 0.04 Then '4 Fletes
+
+                                If RFCProv.Length = 13 Then
+                                    DdlRetIVAConcepto.SelectedValueExist("2")
+                                Else
+                                    DdlRetIVAConcepto.SelectedValueExist("3")
+                                End If
+
+
+                            End If
+
+                        End If
+
+                        If RetISROriginal > 0 Then
+
+                            Dim CalRetISRPor As Decimal = (RetISROriginal * 1 / SubTotal2Original).RoundAD(5).ToDecimal
+
+                            If (CalRetISRPor).RoundAD(1) = 0.1 Then '10 Sercviios profecionales
+                                DdlRetISRConcepto.SelectedValueExist("1")
+                            End If
+
+                            If (CalRetISRPor).RoundAD(4) = 0.0125 Then '1.25 Recico regimen simplificado confianza
+                                DdlRetISRConcepto.SelectedValueExist("3")
+                            End If
+
+                        End If
+
+                    End If
+
                End If

                LbAgregar.Enabled = True
@@ -5219,7 +5247,7 @@ Partial Class Compras_Compras
                                    'QUEMA SALDOS DE INV-COMPRA | MERCANCIA RECIBIDA POR ADELANTADO (OC) | PP 176
                                    If OCVinculada And Not DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV", "Ant") And Not UsuarioActual.Empresa.Funcionalidad(126) = "1" Then
                                        For Each Row As DataRow In TmpDT.FiltraParametros("CveTipoPS = 2").Rows
-                                            If Not ObjOC.OrdenesCompraDetalleSaldosInvCompraAdd(Row("CveOrdenCompraDetalle").ToString.ToEntero, -1, -1, Row("CveCompraDetalle").ToString.ToEntero, Row("Cantidad").ToString.ToDouble) Then
+                                            If Not ObjOC.OrdenesCompraDetalleSaldosInvCompraAdd(Row("CveOrdenCompraDetalle").ToString.ToEntero, -1, -1, Row("CveCompraDetalle").ToString.ToEntero, Row("Cantidad").ToString.ToDecimal) Then
                                                ErrorSaldosInvComp = True
                                                Exit For
                                            End If
@@ -10775,7 +10803,7 @@ Partial Class Compras_Compras
                                'End If

                                'AGREGA MOVIMIENTO
-                                If importeMovimiento <> 0 Then
+                                If importeMovimiento <> 0 AndAlso Not DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV", "Ant") Then
                                    Concepto = $"{NombreProveedor} {TxtSerie.Text} - {TxtFolio.Text}"
                                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, 6, Concepto, FechaMovimiento, IdCtaContable, IdSegmentoNegocio, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveIE:=CveIE, CveCreditoDetalle:=CveCreditoDetalle, CveClasificacion:=Row2("CveClasificacion").ToString.ToEntero, CveSubProyecto:=Row2("CveSubProyecto").ToString.ToEntero, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveTipoGasto:=Row2("CveTipoGasto").ToString.ToEntero) Then
                                        ErrorPrepoliza = True
--- a/Compras/PopUpVerFactura.aspx.vb
+++ b/Compras/PopUpVerFactura.aspx.vb
@@ -205,9 +205,13 @@ Partial Class PopUpVerFactura
                If Request("onlyPrint").ToString() = "PalletCaja" Then
                    imprimirpallet(Request("CvePallet").ToString.ToEntero())
                End If
+
                If Request("onlyPrint").ToString() = "manifiesto" Then
                    imprimirManifiesto(Request("cveEmbarqueManifiesto").ToString.ToEntero())
                End If
+                If Request("onlyPrint").ToString() = "manifiestoRemision" Then
+                    imprimirManifiestoRemision(Request("cveEmbarqueManifiesto").ToString.ToEntero())
+                End If
            End If

        End If
@@ -330,6 +334,150 @@ Partial Class PopUpVerFactura
        '"D:\\ADSistemas\\Proyectos\\SIG\\SIGIT\\GPS\\PalletEtiqueta.rdlc"
        ImprimirPDF("GPS/EmbarqueManifiesto.rdlc", lrds, params, "Manifesto")
    End Sub
+
+
+    Private Sub imprimirManifiestoRemisionRemision(cveEmbarqueManifiesto As Integer)
+        Dim NoEmbarque As String = ""
+        Dim Fecha As String = ""
+        Dim SubProyecto As String = ""
+        Dim AgenciaAduanalUSA As String = ""
+        Dim AgenciaAduanalMEX As String = ""
+        Dim Temperatura As String = ""
+        Dim Hora As String = ""
+        Dim Chofer As String = ""
+        Dim CamPlaca As String = ""
+        Dim Camion As String = ""
+        Dim Rem1Placa As String = ""
+        Dim Remolque1 As String = ""
+        Dim NoPallets As String = ""
+        Dim NoBultos As String = ""
+        Dim NoKgManifiesto As String = ""
+        Dim Mercado As String = ""
+        Dim NoFactura As String = ""
+        Dim DivisoresdeCarton As String = ""
+        Dim BolsasdePlastico As String = ""
+        Dim TapaderasdeCarton As String = ""
+        Dim CAJASDECARTON As String = ""
+        Dim RPC As String = ""
+        Dim BINSDECARTON As String = ""
+        Dim TotalDlls As String = ""
+
+
+
+        Dim LongitudCaja As String = ""
+        Dim LineaTransportacion As String = ""
+        Dim SCAC As String = ""
+        Dim CAAT As String = ""
+        Dim NumeroTrailer As String = ""
+
+
+        Dim tablaReporte As New DataTable
+
+        'Envase = "1 1/9"
+        'Tamano = "Small"
+        'Cultivo = "Tomate"
+        'noPallet = "000001"
+        'Variedad = "Golden"
+        Using objnom As New ClsNominas
+            If objnom.PA_AGRO_Embarque_ManifiestoGet(-1, -1, -1, cveEmbarqueManifiesto) And objnom.DtResultados.Rows.Count > 0 Then
+                Dim row As DataRow = objnom.DtResultados.Rows(0)
+                NoEmbarque = row("NoEmbarque").ToString()
+                Fecha = String.Format("{0:dd/MM/yyyy}", row("Fecha"))
+                DivisoresdeCarton = String.Format("{0:N0}", row("DivisoresdeCarton"))
+                BolsasdePlastico = String.Format("{0:N0}", row("BolsasdePlastico"))
+                TapaderasdeCarton = String.Format("{0:N0}", row("TapaderasdeCarton"))
+                CAJASDECARTON = String.Format("{0:N0}", row("CAJASDECARTON"))
+                RPC = String.Format("{0:N0}", row("RPC"))
+                BINSDECARTON = String.Format("{0:N0}", row("BINSDECARTON"))
+
+
+
+                SubProyecto = row("SubProyecto").ToString()
+                AgenciaAduanalUSA = row("AgenciaAduanalUSA").ToString()
+                AgenciaAduanalMEX = row("AgenciaAduanalMEX").ToString()
+                Temperatura = row("Temperatura").ToString()
+                Hora = String.Format("{0:hh }:{0:mm }:{0:ss tt}:", row("FechaIng"))
+                Chofer = row("Chofer").ToString()
+                CamPlaca = row("CamPlaca").ToString()
+                Camion = String.Format("{0} {1}", row("CamEspecificacion"), row("CamAnio"))
+                Rem1Placa = row("Rem1Placa").ToString()
+                NoFactura = row("NoFactura").ToString()
+                Remolque1 = String.Format("{0} ", row("NumeroTrailer"), row("Rem1Anio"))
+                Mercado = If(row("CveDestino").ToString() = "2", "Extranjero", "Nacional")
+
+                NumeroTrailer = String.Format("No. {0}", row("NumeroTrailer").ToString())
+
+                LongitudCaja = row("LongitudCaja").ToString()
+                LineaTransportacion = row("LineaTransportacion").ToString()
+                SCAC = row("SCAC").ToString()
+                CAAT = row("CAAT").ToString()
+
+                'If row("CveCamionRemolque1").ToString() = "1" Then
+                '    Rem1Placa = "12-TF-5E"
+                '    Remolque1 = "Remolque 1"
+                'Else
+                '    Rem1Placa = "15-TF-7f"
+                '    Remolque1 = "Remolque 2"
+
+                'End If
+
+                If objnom.PA_Agro_Embarque_PalletGet(-1, -1, -1, -1, -1, -1, -1, -1, -1, -1, cveEmbarqueManifiesto, -1) And objnom.DtResultados.Rows.Count > 0 Then
+                    NoPallets = objnom.DtResultados.Rows.Count.ToString()
+                    NoKgManifiesto = objnom.DtResultados.SUM("Peso").ToString("N2")
+                    NoBultos = objnom.DtResultados.SUM("NoCajas").ToString("N0")
+                    tablaReporte = objnom.DtResultados
+                End If
+            End If
+            'Remolque 1  12-TF-5E' }, { cveCamion: 2, placa: 'Remolque 2  15-TF-7f
+        End Using
+        Dim params As New List(Of ReportParameter)
+        params.Add(New ReportParameter("NoEmbarque", NoEmbarque))
+        params.Add(New ReportParameter("Fecha", Fecha))
+        params.Add(New ReportParameter("SubProyecto", SubProyecto))
+        params.Add(New ReportParameter("AgenciaAduanalUSA", AgenciaAduanalUSA))
+        params.Add(New ReportParameter("AgenciaAduanalMEX", AgenciaAduanalMEX))
+        params.Add(New ReportParameter("Temperatura", Temperatura))
+        params.Add(New ReportParameter("Hora", Hora))
+        params.Add(New ReportParameter("Chofer", Chofer))
+        params.Add(New ReportParameter("CamPlaca", CamPlaca))
+        params.Add(New ReportParameter("Camion", Camion))
+        params.Add(New ReportParameter("Rem1Placa", Rem1Placa))
+        params.Add(New ReportParameter("Remolque1", Remolque1))
+
+
+        params.Add(New ReportParameter("LongitudCaja", LongitudCaja))
+        params.Add(New ReportParameter("LineaTransportacion", LineaTransportacion))
+        params.Add(New ReportParameter("SCAC", SCAC))
+        params.Add(New ReportParameter("CAAT", CAAT))
+        params.Add(New ReportParameter("NumeroTrailer", NumeroTrailer))
+
+
+        params.Add(New ReportParameter("NoFactura", NoFactura))
+        params.Add(New ReportParameter("Mercado", Mercado))
+        params.Add(New ReportParameter("NoBultos", NoBultos))
+        params.Add(New ReportParameter("NoPallets", NoPallets))
+        params.Add(New ReportParameter("NoKgManifiesto", NoKgManifiesto))
+
+
+        params.Add(New ReportParameter("DivisoresdeCarton", DivisoresdeCarton))
+        params.Add(New ReportParameter("BolsasdePlastico", BolsasdePlastico))
+        params.Add(New ReportParameter("TapaderasdeCarton", TapaderasdeCarton))
+        params.Add(New ReportParameter("CAJASDECARTON", CAJASDECARTON))
+        params.Add(New ReportParameter("RPC", RPC))
+        params.Add(New ReportParameter("BINSDECARTON", BINSDECARTON))
+        params.Add(New ReportParameter("TotalDlls", TotalDlls))
+
+
+
+
+
+        Dim lrds As New List(Of ReportDataSource)
+        Dim rds As New ReportDataSource With {.Name = "DataSet1", .Value = tablaReporte}
+        lrds.Add(rds)
+        '"Empresas/Grales/Formatos/EquiposGPS.rdlc"
+        '"D:\\ADSistemas\\Proyectos\\SIG\\SIGIT\\GPS\\PalletEtiqueta.rdlc"
+        ImprimirPDF("GPS/EmbarqueManifiestoRemision.rdlc", lrds, params, "Manifesto")
+    End Sub
    Private Sub imprimirpallet2(cvePallet As Integer)
        Dim Envase As String = ""
        Dim Tamano As String = ""
--- a/Compras/RepCxPPeriodo.aspx
+++ b/Compras/RepCxPPeriodo.aspx
@@ -48,9 +48,7 @@
                        <div class="row text-size-12">
                            <div class="col-md-1"><span>Proveedor: </span></div>
                            <div class="col-md-1">
-                                <asp:DropDownList ID="DdlProveedor" runat="server" CssClass="select2me" AppendDataBoundItems="true" DataTextField="RazonSocial" DataValueField="CveProveedor" Width="100%">
-                                    <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
-                                </asp:DropDownList>
+                               <ADS:Dropdownlost ID="DdlProveedor" runat="server" CssStyle="width: 100%; selected2me" Width="100%" DataTextField="RazonSocial" DataValueField="CveProveedor"  ></ADS:Dropdownlost>
                            </div>
                            <div class="col-md-1"><span>Clasificación:</span></div>
                            <div class="col-md-1">
@@ -126,6 +124,16 @@
                                <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
                            </asp:DropDownList>
                        </div>
+                          <div class="col-md-1"><span>Tipo Docto:</span></div>
+                        <div class="col-md-2 " style="padding-bottom: 10px;">
+                            <asp:ListBox ID="DdlTipoDocto" SelectionMode="Multiple" CssClass="form-control  ddlFiltros input-sm select2me Widthall" Style="width: 100%;" runat="server">
+                                <asp:ListItem Selected="True" Value="Fac" Text="Factura"></asp:ListItem>                               
+                                <asp:ListItem Selected="True" Value="Ant" Text="Anticipos"></asp:ListItem>
+                                <asp:ListItem Selected="True" Value="NC" Text="Nota Crédito"></asp:ListItem>
+                                <asp:ListItem Selected="True" Value="ExC" Text="Egresos X Comp"></asp:ListItem>
+                                <asp:ListItem Selected="True" Value="DEV" Text="Devolución"></asp:ListItem>
+                            </asp:ListBox>
+                        </div>
                    </div>
                </div>
            </div>
--- a/Compras/RepCxPPeriodo.aspx.cs
+++ b/Compras/RepCxPPeriodo.aspx.cs
@@ -44,8 +44,28 @@ public partial class Compras_RepCxPPeriodo : ClsPaginas
        TipoCambio = 1;
        TCEspecifico = -1;

-        DdlProveedor.DataSource = get_GlobalDTCompProveedores(UsuarioActual.CveEmpresa);
-        DdlProveedor.DataBind();
+
+
+
+        //DdlProveedor.DataSource = get_GlobalDTCompProveedores(UsuarioActual.CveEmpresa);
+        //DdlProveedor.DataBind();
+
+
+
+        if (UsuarioActual.Empresa.Funcionalidad(105) == "1") {
+            DdlProveedor.setEsWebService(true);
+            DdlProveedor.Attributes.Add("data-metodo", "getproveedores");
+            DdlProveedor.SelectedText = "Todos";
+            DdlProveedor.SelectedValue = "-1";
+                }
+        else {
+            DdlProveedor.setEsWebService(false);
+            DdlProveedor.ddl.DataSource = get_GlobalDTCompProveedores(UsuarioActual.CveEmpresa);
+            DdlProveedor.ddl.DataBind();
+            DdlProveedor.ddl.Items.Insert(0, new  ListItem("Todos", "-1"));
+        }
+
+

        DdlUsuarioResponsable.DataSource = GlobalDTUsuarioResponsable.FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa}").FiltraParametros("ProveedoresResponsables > 0");
        DdlUsuarioResponsable.DataBind();
@@ -72,10 +92,16 @@ public partial class Compras_RepCxPPeriodo : ClsPaginas
    {
        if (RblTipoCambio.SelectedValue.ToEntero() == 3 && TxtEspecifico.Text != "") { TCEspecifico = TxtEspecifico.Text.ToDouble(); } else { TCEspecifico = -1; }

+
+        int CveProveedor = DdlProveedor.SelectedValue.ToEntero() > 0 ? DdlProveedor.SelectedValue.ToEntero() : -1;
+
+        string TipoDocto = (DdlTipoDocto.GetSelectedValuesM() == "") ? "-1" : DdlTipoDocto.GetSelectedValuesM();
+
        ClsMovimientos ObjMov = new ClsMovimientos();
-        if (ObjMov.GetCxPPeriodo(DdlProveedor.SelectedValue.ToEntero(),DdlSubProyecto.SelectedValue.ToEntero(),DdlProveedoresClasificaciones.SelectedValue.ToEntero(),
+        if (ObjMov.GetCxPPeriodo(CveProveedor, DdlSubProyecto.SelectedValue.ToEntero(),DdlProveedoresClasificaciones.SelectedValue.ToEntero(),
            DdlUsuarioResponsable.SelectedValue.ToEntero(),DdlUsuarioRegistro.SelectedValue.ToEntero(),DdlEstatusCompra.SelectedValue.ToEntero(),UsuarioActual.CveEmpresa,
-            DdlGrupo.SelectedValue.ToEntero(),DdlSubProyecto.SelectedValue.ToEntero(),TipoCambio,TCEspecifico,txtCorteA.Text.ToDate(),UsuarioActual.CveUsuario,DdlTipoProveedor.SelectedValue.ToEntero()))
+            DdlGrupo.SelectedValue.ToEntero(),DdlSubProyecto.SelectedValue.ToEntero(),TipoCambio,TCEspecifico,txtCorteA.Text.ToDate(),UsuarioActual.CveUsuario,
+            DdlTipoProveedor.SelectedValue.ToEntero(), TipoDocto: TipoDocto))
        {
            GvDatos.DataSource = ObjMov.DtResultados;
            DtDatos = ObjMov.DtResultados;
@@ -234,7 +260,7 @@ public partial class Compras_RepCxPPeriodo : ClsPaginas
        if (DdlGrupo.SelectedValue != "-1")
            StrFiltro.AppendFormat("&emsp;<b>Grupo</b>: {0}", DdlGrupo.SelectedItem.Text);
        if (DdlProveedor.SelectedValue != "-1")
-            StrFiltro.AppendFormat("&emsp;<b>Proveedor</b>: {0}", DdlProveedor.SelectedItem.Text);
+            StrFiltro.AppendFormat("&emsp;<b>Proveedor</b>: {0}", DdlProveedor.ddl.SelectedItem.Text);
        if (DdlProveedoresClasificaciones.SelectedValue != "-1")
            StrFiltro.AppendFormat("&emsp;<b>Clasificación Proveedor</b>: {0}", DdlProveedoresClasificaciones.SelectedItem.Text);
        if (DdlTipoProveedor.SelectedValue != "-1")
--- a/Compras/eFacturas.aspx.vb
+++ b/Compras/eFacturas.aspx.vb
@@ -1581,7 +1581,10 @@ Partial Class Compras_eFacturas
                swTiempo.AppendFormat("espera: ({0}) {1} ", sw.ElapsedMilliseconds - swmili, sw.ElapsedMilliseconds)
                swmili = sw.ElapsedMilliseconds
                sw.Start()
-                VerificaCorreo(True)
+
+                If VerificaCorreo(True) Then
+                    CargaDatos()
+                End If

                sw.Stop()
                swTiempo.AppendFormat("Verifica En la app: ({0}) {1} ", sw.ElapsedMilliseconds - swmili, sw.ElapsedMilliseconds)
@@ -1695,6 +1698,9 @@ Partial Class Compras_eFacturas


        RegistraScript(String.Format("$('#{0}').modal('hide');", "ModalFacturas"))
+
+
+        asdasd
        'Alert(String.Format("Se cargaron {0} Facturas", Arreglo.Count), TipoMensaje.MsgInformacion)
    End Sub

@@ -2847,6 +2853,37 @@ Partial Class Compras_eFacturas
        Dim Archivo As String = String.Format("{0}Compras\{1}\{2}", UsuarioActual.Empresa.Ruta, gvRow.DataKey("RFCDe"), gvRow.DataKey("XML"))

        Dim Prefijo As String = ""
+
+
+
+
+        Dim DTDocumentosRelacionados As New DataTable
+        DTDocumentosRelacionados.Columns.Add("Serie")
+        DTDocumentosRelacionados.Columns.Add("SerieFolio")
+
+        DTDocumentosRelacionados.Columns.Add("IdDocumento")
+        DTDocumentosRelacionados.Columns.Add("Folio", GetType(Integer))
+        DTDocumentosRelacionados.Columns.Add("MonedaDR")
+        DTDocumentosRelacionados.Columns.Add("MetodoDePagoDR")
+        DTDocumentosRelacionados.Columns.Add("ImpPagado", GetType(Decimal))
+
+        DTDocumentosRelacionados.Columns.Add("CveFactura", GetType(Integer))
+        DTDocumentosRelacionados.Columns.Add("CveCompra", GetType(Integer))
+        DTDocumentosRelacionados.Columns.Add("CveIE", GetType(Integer))
+        DTDocumentosRelacionados.Columns.Add("Fecha", GetType(Date))
+
+        DTDocumentosRelacionados.Columns.Add("FolioPago")
+        DTDocumentosRelacionados.Columns.Add("ImportePago", GetType(Decimal))
+        DTDocumentosRelacionados.Columns.Add("FechaPago", GetType(Date))
+        DTDocumentosRelacionados.Columns.Add("CveMetodoPago", GetType(Integer))
+        DTDocumentosRelacionados.Columns.Add("SerieFolioCompra")
+        DTDocumentosRelacionados.Columns.Add("CvePrePolizaDetalle", GetType(Integer))
+
+        DTDocumentosRelacionados.Columns.Add("Tipo", GetType(String))
+        DTDocumentosRelacionados.Columns.Add("Manual", GetType(Boolean))
+
+
+
        If IO.File.Exists(Archivo) Then


@@ -2913,30 +2950,7 @@ Partial Class Compras_eFacturas
            UUIDPago = ValorXML(nodeTFD, "UUID")
            LblUUID.Text = UUIDPago

-            Dim DTDocumentosRelacionados As New DataTable
-            DTDocumentosRelacionados.Columns.Add("Serie")
-            DTDocumentosRelacionados.Columns.Add("SerieFolio")

-            DTDocumentosRelacionados.Columns.Add("IdDocumento")
-            DTDocumentosRelacionados.Columns.Add("Folio", GetType(Integer))
-            DTDocumentosRelacionados.Columns.Add("MonedaDR")
-            DTDocumentosRelacionados.Columns.Add("MetodoDePagoDR")
-            DTDocumentosRelacionados.Columns.Add("ImpPagado", GetType(Decimal))
-
-            DTDocumentosRelacionados.Columns.Add("CveFactura", GetType(Integer))
-            DTDocumentosRelacionados.Columns.Add("CveCompra", GetType(Integer))
-            DTDocumentosRelacionados.Columns.Add("CveIE", GetType(Integer))
-            DTDocumentosRelacionados.Columns.Add("Fecha", GetType(Date))
-
-            DTDocumentosRelacionados.Columns.Add("FolioPago")
-            DTDocumentosRelacionados.Columns.Add("ImportePago", GetType(Decimal))
-            DTDocumentosRelacionados.Columns.Add("FechaPago", GetType(Date))
-            DTDocumentosRelacionados.Columns.Add("CveMetodoPago", GetType(Integer))
-            DTDocumentosRelacionados.Columns.Add("SerieFolioCompra")
-            DTDocumentosRelacionados.Columns.Add("CvePrePolizaDetalle", GetType(Integer))
-
-            DTDocumentosRelacionados.Columns.Add("Tipo", GetType(String))
-            DTDocumentosRelacionados.Columns.Add("Manual", GetType(Boolean))


            Dim nodePagosN As XmlNodeList
@@ -3140,7 +3154,9 @@ Partial Class Compras_eFacturas


        'saco la información de lo vinculado en el ie
-        ImporteIES = ObjCompras.DtResultados.FiltraParametros("CveIE > 0").SUM("Importe")
+        'ImporteIES = ObjCompras.DtResultados.FiltraParametros("CveIE > 0").SUM("Importe")
+        ImporteIES = DTDocumentosRelacionados.FiltraParametros("CveIE > 0").SUM("ImportePago")
+

        DiferenciaImportes = Monto - ImporteIES
        ObjCompras.Dispose()