Efacturas vinculacion automatica RNC

App_Code/ClsCompras.vb

@@ -3542,16 +3542,16 @@ Public Class ClsCompras
 
     Public Function GetVinculacionRNC(UUID As String, CveEmpresa As Integer) As Boolean
         Dim Retorno As Boolean = False
-        DataAdapter("PA_Comp_ComprasMedicosRemove")
+        DataAdapter("PA_Comp_VinculacionRNCGet")
         With SqlAdapter.SelectCommand.Parameters
             .Add("@UUID", SqlDbType.VarChar).Value = UUID
-            .Add("@CveMedico", SqlDbType.Int).Value = CveEmpresa
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
         End With
         Try
             SqlAdapter.Fill(Data)
             Retorno = True
         Catch ex As Exception
-            OnError("Ocurrió un error al eliminar gasto de médico.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+            OnError("Ocurrió un error al obtener las remisiones de nota de crédito relacionadas.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
         End Try
         Return Retorno
     End Function

Compras/eFacturas.aspx

@@ -231,11 +231,7 @@
     </asp:UpdatePanel>
 
 
-    <asp:UpdatePanel runat="server">
+ 
-        <ContentTemplate>
-            <asp:LinkButton Visible="false" runat="server" ID="LnkRegistroRNC" class="btn btn-primary" OnClick="LnkRegistroRNC_Click"><i class="fa fa-search"></i>&nbsp; Prueba</asp:LinkButton>
-        </ContentTemplate>
-    </asp:UpdatePanel>
 
         <div class="row" style="margin-left: 0px; margin-right: 0px;">
                     <div   style="width: 100%;">

Compras/eFacturas.aspx.vb

@@ -839,6 +839,10 @@ Partial Class Compras_eFacturas
 
             InicializaDTProrrateoGasolina()
 
+            If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
+                VinculacionAutomaticaRNC()
+            End If
+
         End If
         removeasincevent()
     End Sub
@@ -6075,9 +6079,7 @@ Partial Class Compras_eFacturas
 
 
 
-    Protected Sub LnkRegistroRNC_Click(sender As Object, e As EventArgs)
+
-        VinculacionAutomaticaRNC()
-    End Sub
 
     Private Sub VinculacionAutomaticaRNC()
 
@@ -6098,7 +6100,7 @@ Partial Class Compras_eFacturas
 
                 Dim CFDIXmlPath As String = $"{UsuarioActual.Empresa.Ruta}Compras\{GvRow.DataKey("RFCDe")}\{GvRow.DataKey("XML")}"
                 If Not File.Exists(CFDIXmlPath) Then
-                    ErrorProceso = True
+                    'ErrorProceso = True
                     Continue For
                 End If
 
@@ -6146,7 +6148,7 @@ Partial Class Compras_eFacturas
                                                                   DTProrrateo:=New DataTable, DTPagosDeudores:=New DataTable, TipoComprobante:="E") Then
 
                         If CompraActual.AddCompra(Objcompras.IniciaTransacSQL()) Then
-                            Contador = Contador + 1
+                            '
                         Else
                             ErrorProceso = True
                             ErrorProcesoStr = CompraActual.MensajeError
@@ -6167,11 +6169,11 @@ Partial Class Compras_eFacturas
                         Dim Concepto As String = GvRow.DataKey("SerieFolio")
                         Dim TipoCambio As Decimal = GlobalTipoCambio(GvRow.DataKey("FechaFactura").ToDate).ToDecimal
 
-                        For Each drRNC As GridViewRow In DT_RNC.Rows
+                        For Each drRNC As DataRow In DT_RNC.Rows
 
 
-                            Dim ImporteRNCSaldar As Decimal = drRNC.DataKey("Saldo").ToDecimal
+                            Dim ImporteRNCSaldar As Decimal = drRNC("Saldo").ToString.ToDecimal
-                            Dim CveCompraRNC As Integer = drRNC.DataKey("CveCompra").ToEntero
+                            Dim CveCompraRNC As Integer = drRNC("CveCompra").ToString.ToEntero
                             If ImporteRNCSaldar > TotalSaldo Then ImporteRNCSaldar = TotalSaldo
 
                             If Not ErrorProceso Then
@@ -6194,6 +6196,7 @@ Partial Class Compras_eFacturas
 
                                 If Not ErrorProceso Then
                                     TotalSaldo = TotalSaldo - ImporteRNCSaldar
+                                    Contador = Contador + 1
                                 End If
 
                             End If
@@ -6204,52 +6207,6 @@ Partial Class Compras_eFacturas
                 End If
 
 
-
-                'If RBLContado.SelectedValue.ToEntero = 4 Then 'Deudores
-                '    Dim CompraActualPagar = New Compra
-                '    If Objcompras.GetCompras(CompraActual.CveCompra, "-1", "-1", -1, -1, UsuarioActual.CveEmpresa) Then
-                '        If Objcompras.DtResultados IsNot Nothing AndAlso Objcompras.DtResultados.Rows.Count > 0 Then
-                '            Dim dr As DataRow = Objcompras.DtResultados.Rows(0)
-
-
-                '            CompraActualPagar.CveCompra = CompraActual.CveCompra
-                '            CompraActualPagar.CveTipoConceptoProveedor = dr("CveTipoConcepto").ToString.ToEntero
-                '            CompraActualPagar.CveProveedor = dr("CveProveedor").ToString.ToEntero
-                '            CompraActualPagar.CveMoneda = dr("CveMoneda").ToString.ToEntero
-                '            CompraActualPagar.Fecha = dr("Fecha").ToString.ToDate
-                '            CompraActualPagar.SerieFolio = dr("SerieFolio").ToString
-                '            'CompraActualPagar.ProveedorNombre = TxtPagueseA.Text
-                '            CompraActualPagar.TC = dr("TipoCambio").ToString.ToDecimal
-                '            CompraActualPagar.Total = dr("Total").ToString.ToDecimal
-                '            CompraActualPagar.IVA = dr("IVA").ToString.ToDecimal
-                '            CompraActualPagar.IVADeducible = dr("IVADeducible").ToString.ToDecimal.RoundSQL
-                '            CompraActualPagar.IVANoDeducible = dr("IVANoDeducible").ToString.ToDecimal.RoundSQL
-                '            CompraActualPagar.IEPS = dr("IEPS").ToString.ToDecimal
-                '            CompraActualPagar.RetIVA = dr("RetIVA").ToString.ToDecimal
-                '            CompraActualPagar.RetISR = dr("RetISR").ToString.ToDecimal
-                '            CompraActualPagar.CveConceptoRetIVA = dr("CveRetIVAConcepto").ToString.ToEntero
-                '            CompraActualPagar.CveConceptoRetISR = dr("CveRetISRConcepto").ToString.ToEntero
-                '            CompraActualPagar.PorcentajeIVA = dr("PorcentajeIVA").ToString.ToDecimal
-                '            CompraActualPagar.UsuarioActual = UsuarioActual
-                '            CompraActualPagar.CveSubProyecto = dr("CveSubProyecto").ToString.ToEntero
-                '            CompraActualPagar.EsImportacion = CBool(dr("EsImportacion"))
-                '            CompraActualPagar.CompraNoDeducible = dr("NoDeducible").ToString.ToEntero
-
-
-
-                '        Else
-                '            ErrorProceso = True
-                '        End If
-                '    Else
-                '        ErrorProceso = True
-                '    End If
-
-
-
-
-
-                'End If
-
             End If
             If ErrorProceso Then
                 Exit For
@@ -6258,14 +6215,14 @@ Partial Class Compras_eFacturas
 
         If ErrorProceso Then
             Objcompras.RollBack()
-            Alert($"Se registraron {Contador} Compras. error {ErrorProcesoStr}", TipoMensaje.MsgAdvertencia)
+            Alert($"Se preento un error al reigistrar las notas de crédito", TipoMensaje.MsgAdvertencia)
         Else
             Objcompras.Commit()
             CargaDatos(NowADS())
             CambieDeudor()
             CargaDatos(NowADS())
             If Contador > 0 Then
-                Alert($"Se registraron {Contador} Compras")
+                GuardaLog($"Se registraron {Contador} notas de crédito")
             End If
         End If
 
@@ -8276,7 +8233,14 @@ Public Class ClsCompraManager
         If respuesta Then
             importeMovimiento = Me.Total
             importeMN = (importeMovimiento * Me.TipoCambio).RoundSQL
-            Dim ConPreP As ConceptosTipoSaldo = ObtenerCveConceptoPrePoliza(1, Me.CveMoneda, False, Me.CveTipoConceptoProveedor)
+
+            Dim TipoSaldo As Integer = 1
+
+            If TipoComprobante = "E" Then
+                TipoSaldo = 15
+            End If
+
+            Dim ConPreP As ConceptosTipoSaldo = ObtenerCveConceptoPrePoliza(TipoSaldo, Me.CveMoneda, False, Me.CveTipoConceptoProveedor)
             Dim ImporteME As Decimal = importeMovimiento
             Dim UsaComplementaria As Boolean = True
             If Me.CveMoneda > 1 Then ImporteME = importeMovimiento

Inventarios/PrestamosdeProveedor.aspx.vb

@@ -303,18 +303,41 @@ Partial Class Inventarios_PrestamosdeProveedor
         Dim SbFiltros As New StringBuilder()
         'SbFiltros.AppendFormat("Fecha Inicio: {0} Fecha Fin: {1}|", $"01/01/{DdlEjercicio.SelectedValue}", $"31/12/{DdlEjercicio.SelectedValue}")
         Dim listFiltros As New List(Of String)
+
         listFiltros.Add($"SubProyecto : {DdlSubProyecto.SelectedItem.Text}")
+
+
         If ddlProveedor.txtValue.Value.ToEntero > 0 Then
             listFiltros.Add($"Proveedor : { ddlProveedor.txtText.Value}")
         Else
             listFiltros.Add($"Proveedor : Todos")
         End If
 
-        If TxtFolioEntrega.Text.Trim.Length > 0 Then listFiltros.Add($"Folio : {TxtFolioEntrega.Text}")
+        If TxtFolioEntrega.Text.Trim.Length > 0 Then
+            listFiltros.Add($"Folio : {TxtFolioEntrega.Text}")
+        End If
+
+
+
+
+
+
+        'SbFiltros.AppendFormat("SubProyecto : {0}|", DdlSubProyecto.SelectedItem.Text)
+
+        'If ddlProveedor.txtValue.Value.ToEntero > 0 Then
+        '    SbFiltros.AppendFormat("Proveedor : {0}|", ddlProveedor.txtText.Value)
+        'Else
+        '    SbFiltros.AppendFormat("Proveedor : Todos|")
+        'End If
+
+
+        'SbFiltros.AppendFormat("Folio : {0}|", TxtFolioEntrega.Text)
+        'If DdlDivisor.SelectedValue <> "1" Then SbFiltros.AppendFormat("Divisor : {0}|", DdlDivisor.SelectedItem.Text)
+        'SbFiltros.AppendFormat("Ejercicio : {0}  Periodo : {1}|", DdlEjercicio.SelectedItem.Text, DdlPeriodo.SelectedItem.Text)
 
         GvD.Columns(1).Visible = False
         UppEntrega.Update()
-        GvD.ExportToExcelGembox($"PrestamoProveedores_{NowADS().ToString("yyyy.MM.dd.HHmmss")}", UsuarioActual, $"Préstamos de Proveedores", DatoTituloExtra:="", DatosFiltros:=String.Join(", ", listFiltros))
+        GvD.ExportToExcelGembox($"PrestamosProveedores{NowADS().ToString("yyyyMMddHHmmss")}", UsuarioActual, $"Préstamos de Proveedores", DatoTituloExtra:="", DatosFiltros:=String.Join(", ", listFiltros))
         GvD.Columns(1).Visible = True
         UppEntrega.Update()