Nom 43 Cartaporte

2025-02-21 11:25:20 -07:00
parent 4672e9b936
commit db54e35dd9
5 changed files with 369 additions and 307 deletions
--- a/Compras/PopUpVerFactura.aspx.vb
+++ b/Compras/PopUpVerFactura.aspx.vb
@@ -4258,12 +4258,14 @@ Partial Class PopUpVerFactura
                ObjCompra.Dispose()

                If Not Archivo.Exists Then
-
                    params.Add(New ReportParameter("LogoPath", RutaImagenLogo))
-
                    ImprimirPDF(String.Format("Empresas/Grales/Formatos/DevolucionProveedor.rdlc", UsuarioActual.Empresa.Ruta), DtMovimientos, params, String.Format("Devolucion Proveedor - {0}", Folio), RDSName:="DsInventarios")
                Else
-                    ImprimirPDF(String.Format("{0}Formatos\DevolucionProveedor.rdlc", UsuarioActual.Empresa.Ruta), DtMovimientos, params, String.Format("Devolucion Proveedor - {0}", Folio), RDSName:="DsInventarios")
+                    If UsuarioActual.CveEmpresa.Contiene(189) Then
+                        ImprimirPDF(String.Format("{0}Formatos\DevolucionProveedor.rdlc", UsuarioActual.Empresa.Ruta), DtMovimientos, params, String.Format("Devolucion Proveedor - {0}", Folio), RDSName:="DsInventarios", DtDatos2:=DTPrePoliza, RDSName2:="DsPrePoliza")
+                    Else
+                        ImprimirPDF(String.Format("{0}Formatos\DevolucionProveedor.rdlc", UsuarioActual.Empresa.Ruta), DtMovimientos, params, String.Format("Devolucion Proveedor - {0}", Folio), RDSName:="DsInventarios")
+                    End If
                End If

                'ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/DevolucionProveedor.rdlc", DtMovimientos, params, String.Format("Devolucion Proveedor - {0}", Folio), RDSName:="DsInventarios")
--- a/Compras/eFacturas.aspx
+++ b/Compras/eFacturas.aspx
@@ -1365,6 +1365,8 @@

                                <asp:LinkButton runat="server" ID="BtnBuscarBitacora" class="btn btn-default"><i class="fa fa-search"></i>&nbsp; Consultar</asp:LinkButton>

+                                <asp:LinkButton runat="server" ID="LnkRegistroRNC" class="btn btn-default" OnClick="LnkRegistroRNC_Click"><i class="fa fa-search"></i>&nbsp; Prueba</asp:LinkButton>
+

                            </div>
                        </div>
--- a/Compras/eFacturas.aspx.vb
+++ b/Compras/eFacturas.aspx.vb
@@ -6075,6 +6075,10 @@ Partial Class Compras_eFacturas



+    Protected Sub LnkRegistroRNC_Click(sender As Object, e As EventArgs)
+        VinculacionAutomaticaRNC()
+    End Sub
+
    Private Sub VinculacionAutomaticaRNC()
        Dim ErrorProceso As Boolean = False
        Dim ErrorProcesoStr As String = ""
@@ -6087,7 +6091,7 @@ Partial Class Compras_eFacturas

        For Each GvRow As GridViewRow In GvD.Rows

-            If GvRow.FCCheckBox("chkRegistraFactura").Checked Then
+            If GvRow.DataKey("TipoComprobante") = "E" Then

                Dim TotalFactura As Decimal = GvRow.DataKey("Total").ToDecimal
                Dim SaldoFactura As Decimal = TotalFactura
@@ -6095,7 +6099,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
-                    Exit For
+                    Continue For
                End If

                Dim CompraActual As New ClsCompraManager(CFDIXmlPath, ClsCompraManager.EnumCargaCompra.DesdeArchivo, GlobalDTTiposGastos(UsuarioActual.CveEmpresa), UsuarioActual)
@@ -6109,82 +6113,73 @@ Partial Class Compras_eFacturas
                CompraActual.Descripcion = TxtDescripcionCompra.Text.Trim
                CompraActual.NombreProveedor = GvRow.DataKey("NombreProveedor")

-                Dim CvePersonal As Integer = -1 'DdlPersonalReembolso.SelectedValue.ToEntero
-                Dim CveCajachica As Integer = -1 'DdlCuentaCajaChicaReembolso.SelectedValue.ToEntero
+                For Each DR As String In CompraActual.DocumentosRelacionadosUUIDSList

-                If RBLContado.SelectedValue.ToEntero = 6 Then 'Caja Chica
-                    CveCajachica = DdlCuentaCajaChicaReembolso.SelectedValue.ToEntero
-                ElseIf RBLContado.SelectedValue.ToEntero = 2 Then ' viaticos
-                    CvePersonal = DdlPersonalReembolso.SelectedValue.ToEntero
-                ElseIf RBLContado.SelectedValue.ToEntero = 4 Then ' deudores
+                Next

-                End If
+
+                'If CompraActual.ConfiguraRegistroCompra(DdlPS.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, CveCajachica, CvePersonal,
+                '                                              DdlRetIVAConcepto.SelectedValue.ToEntero, DdlRetISRConcepto.SelectedValue.ToEntero, NumeroReembolso:=TxtNumeroReembolso.Text,
+                '                                              DTProrrateo:=DTProrrateo, DTPagosDeudores:=New DataTable) Then
+
+                '    'FIX ME OIC Recuerda cambiar el tipo de documento al registrar, actualmente tiene FAC y NC uno u otro, ajustar para que registre *** Egs *** cuado TipoComprobante = 'E'
+                '    If CompraActual.AddCompra(Objcompras.IniciaTransacSQL()) Then
+                '        Contador = Contador + 1
+                '    Else
+                '        ErrorProceso = True
+                '        ErrorProcesoStr = CompraActual.MensajeError
+                '        Exit For
+                '    End If
+                'Else
+                '    ErrorProceso = True
+                '    ErrorProcesoStr = CompraActual.MensajeError
+                '    Exit For
+                '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



-
-                If CompraActual.ConfiguraRegistroCompra(DdlPS.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, CveCajachica, CvePersonal,
-                                                              DdlRetIVAConcepto.SelectedValue.ToEntero, DdlRetISRConcepto.SelectedValue.ToEntero, NumeroReembolso:=TxtNumeroReembolso.Text,
-                                                              DTProrrateo:=DTProrrateo, DTPagosDeudores:=New DataTable) Then
-
-                    'FIX ME OIC Recuerda cambiar el tipo de documento al registrar, actualmente tiene FAC y NC uno u otro, ajustar para que registre *** Egs *** cuado TipoComprobante = 'E'
-                    If CompraActual.AddCompra(Objcompras.IniciaTransacSQL()) Then
-                        Contador = Contador + 1
-                    Else
-                        ErrorProceso = True
-                        ErrorProcesoStr = CompraActual.MensajeError
-                        Exit For
-                    End If
-                Else
-                    ErrorProceso = True
-                    ErrorProcesoStr = CompraActual.MensajeError
-                    Exit For
-                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
+                '        Else
+                '            ErrorProceso = True
+                '        End If
+                '    Else
+                '        ErrorProceso = True
+                '    End If





-                End If
+                'End If

            End If
            If ErrorProceso Then
@@ -6315,6 +6310,7 @@ Partial Class Compras_eFacturas

    End Function

+
 End Class