Merge branch 'master' of http://192.168.10.111:8383/SIG

App_Code/Modelos.vb

@@ -4122,12 +4122,8 @@ Namespace Modelos
                                         Pago.AplicaTraslado = False
                                         Pago.Referencia = DrPago("Folio").ToString()
                                         Pago.CveVentaAmortizacion = -1
-
+                                        Pago.TipoPago = DrPago("TipoPago").ToString()
-                                        If DrPago("TipoPago").ToString() = "NC" Then
+                                        Pago.CveClientePago = ObjFactura.CveCliente
-                                            Pago.TipoPago = "NC"
-                                        Else
-                                            Pago.TipoPago = "B"
-                                        End If
 
                                         ErrorPrepoliza = ClsPaginas.AplicaPrePolizaPagoVenta(ventaRef, Pago, ObjFactura.CvePrePoliza, ObjConta, AplicarConceptoAplicacion:=False)
                                     Else
@@ -4178,12 +4174,8 @@ Namespace Modelos
                                     Pago.AplicaTraslado = False
                                     Pago.Referencia = DrPago("Folio").ToString()
                                     Pago.CveVentaAmortizacion = DrPago("CveVenta").ToString().ToEntero()
-
+                                    Pago.TipoPago = DrPago("TipoPago").ToString()
-                                    If DrPago("TipoPago").ToString() = "NC" Then
+                                    Pago.CveClientePago = ObjFactura.CveCliente
-                                        Pago.TipoPago = "NC"
-                                    Else
-                                        Pago.TipoPago = "B"
-                                    End If
 
                                     ErrorPrepoliza = ClsPaginas.AplicaPrePolizaPagoVenta(VentaActual, Pago, ObjFactura.CvePrePoliza, ObjConta, AplicarConceptoAplicacion:=False)
 

Compras/Compras.aspx.vb

@@ -1596,6 +1596,8 @@ Partial Class Compras_Compras
                 DdlTipoComprobante.SelectedValueExist("DEV")
             End If
 
+
+
         End If
 
         'SE OCUPAN AFUERA DEL POSTBACK ??
@@ -3381,7 +3383,13 @@ Partial Class Compras_Compras
 
                 ViewState("CveProveedor") = ObjProveedor.CveProveedor
                 ViewState("CveTipoProveedor") = ObjProveedor.CveTipoProveedor
-                If ObjProveedor.CveTipoProveedor = 1 Then LblProveedor.Text = "Proveedor:" Else LblProveedor.Text = "Acreedor:"
+
+                If ObjProveedor.CveTipoProveedor = 2 Then
+                    LblProveedor.Text = "Acreedor:"
+                Else
+                    LblProveedor.Text = "Proveedor:"
+                End If
+
                 CveTipoConcepto = ObjProveedor.CveTipoProveedor
 
                 ViewState("NombreProveedor") = ObjProveedor.RazonSocial
@@ -19623,12 +19631,12 @@ Partial Class Compras_Compras
     End Sub
 
     Public Sub LblProveedor_OnClick(sender As Object, e As EventArgs) Handles LblProveedor.Click
-        If CveTipoConcepto = 1 Then
+        If CveTipoConcepto = 2 Then
-            LblProveedor.Text = "Acreedor:"
-            CveTipoConcepto = 2
-        Else
             LblProveedor.Text = "Proveedor:"
             CveTipoConcepto = 1
+        Else
+            LblProveedor.Text = "Acreedor:"
+            CveTipoConcepto = 2
         End If
     End Sub
 
@@ -20659,6 +20667,9 @@ Partial Class Compras_Compras
             CompraRNC.NombreProveedor = DdlProveedor.SelectedItem.Text
             CompraRNC.Fecha = TxtFecha.Text.ToDate
             CompraRNC.CveMoneda = DdlMoneda.SelectedValue.ToEntero
+            CompraRNC.Serie = TxtSerie.Text
+            CompraRNC.Folio = TxtFolio.Text
+
 
 
             Dim CveTipoPS As Integer = PSRow("CveTipoPS").ToString.ToEntero
@@ -20690,6 +20701,8 @@ Partial Class Compras_Compras
                 CompraRNCProntoPAgo.NombreProveedor = DdlProveedor.SelectedItem.Text
                 CompraRNCProntoPAgo.Fecha = TxtFecha.Text.ToDate
                 CompraRNCProntoPAgo.CveMoneda = DdlMoneda.SelectedValue.ToEntero
+                CompraRNCProntoPAgo.Serie = $"{TxtSerie.Text}_P"
+                CompraRNCProntoPAgo.Folio = $"{TxtFolio.Text}_P"
 
                 CompraRNCProntoPAgo.ConfiguraRegistroRapidoRNC(CvePS_RNC, CveUM, UM, CveClasificacion, Clasificacion, PS, CveSubProyectoPrincipal, SubProyecto, ImporteRNCProntoPago, ImporteRNCProntoPago)
                 If Not CompraRNCProntoPAgo.AddCompraRNC(trasaccion) Then
@@ -22621,7 +22634,7 @@ Public Class ClsCompraManagerCompras
         If Not AjustesValidacion() Then Return False
 
         Dim respuesta As Boolean = True
-        Dim ObjCompras As New ClsCompras
+        Dim ObjCompras As New ClsCompras(transacccion)
         Dim ObjConta As New ClsContabilidad(transacccion)
 
         If Not AddPrepolizaCabecera(ObjConta) Then
@@ -22722,14 +22735,14 @@ Public Class ClsCompraManagerCompras
         If ES_RNC Then
 
             If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Me.Total, Me.Total, 370, Referencia, Concepto, CveCompra:=CveCompra, CveProveedor:=Me.CveProveedor, ImporteME:=If(TipoCambio = 1, 0, Me.Total), TipoCambio:=TipoCambio,
-                                                        CveClasificacion:=-1, CveSubProyecto:=Me.CveSubProyecto, Contabilizable:=False) Then
+                                                        CveClasificacion:=-1, CveSubProyecto:=Me.CveSubProyecto, Contabilizable:=True) Then
                 respuesta = False
 
             End If
 
             If respuesta Then
-                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Me.Total, Me.Total, 371, Referencia, Concepto, CveCompra:=CveCompra, CveProveedor:=Me.CveProveedor, ImporteME:=If(TipoCambio = 1, 0, Me.Total), TipoCambio:=TipoCambio,
+                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Me.Total, Me.Total, 372, Referencia, Concepto, CveCompra:=CveCompra, CveProveedor:=Me.CveProveedor, ImporteME:=If(TipoCambio = 1, 0, Me.Total), TipoCambio:=TipoCambio,
-                                                        CveClasificacion:=-1, CveSubProyecto:=Me.CveSubProyecto, Contabilizable:=False) Then
+                                                        CveClasificacion:=-1, CveSubProyecto:=Me.CveSubProyecto, Contabilizable:=True) Then
                     respuesta = False
 
                 End If

Compras/PopUpVerFactura.aspx.vb

@@ -1641,6 +1641,12 @@ Partial Class PopUpVerFactura
                                 Case "VentasCredito"
                                     rowData("Columna") = "Ventas Crédito"
                                     Orden = 4
+                                Case "VentaTotalIngreso"
+                                    rowData("Columna") = "Ventas Ingreso"
+                                    Orden = 4
+                                Case "VentaTotalRemision"
+                                    rowData("Columna") = "Ventas Remisiones"
+                                    Orden = 4
                                 'Case "TotalEfectivo"
                                 '    rowData("Columna") = "Total Efectivo"
                                 'Case "TotalCheque"
@@ -1660,9 +1666,12 @@ Partial Class PopUpVerFactura
                                 Case "Devoluciones"
                                     rowData("Columna") = "Devoluciones"
                                     Orden = 7
+                                Case "SaldoAnteriorAplicado"
+                                    rowData("Columna") = "Saldo Aplicado"
+                                    Orden = 8
                                 Case "TotalCaja"
                                     rowData("Columna") = "Total Caja"
-                                    Orden = 8
+                                    Orden = 9
                                     'Case "TotalCorte"
                                     '    rowData("Columna") = "Total Corte"
                                 Case Else

Ventas/RepVentasUtilidad.aspx.vb

@@ -338,7 +338,7 @@ Partial Class Ventas_RepVentasUtilidad
             params.Add(New ReportParameter("UtilidadPerdida", LblNombreNeto.Text))
 
             params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
-            ImprimirPDF("Empresas/Grales/Formatos/RepVentasUtilidad.rdlc", dt, params, "RepVentasUtilidad", Formato)
+            ImprimirPDF("Grales/Formatos/RepVentasUtilidad.rdlc", dt, params, "RepVentasUtilidad", Formato)
         Else
             Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)
         End If

Ventas/Ventas.aspx.vb

@@ -3404,7 +3404,7 @@ Partial Class Ventas
                     If TipoEstatus <> 5 Then
                         'ESTATUS DE CANCELACION PENDIENTE
                         If Not Me.ObjFacturaNC.CveEstatusFactura = 23 Then
-                            Alert($"El documento de tipo '{Me.ObjFacturaNC.TipodeComprobante}' a refacturar no ha sido cancelado. Favor de verificar el documento", TipoMensaje.MsgAdvertencia)
+                            Alert($"El documento de tipo '{Me.ObjFacturaNC.TipodeComprobante}' a refacturar no ha sido marcado como 'Cancelación pendiente'. Favor de verificar el documento", TipoMensaje.MsgAdvertencia)
                             BtnEmitirImprimir.Visible = False
                             UpFacturar.Update()
                         End If
@@ -14398,6 +14398,15 @@ Partial Class Ventas
                 AutoConta = False
             End If
 
+            'VERIFICA SI EL OBJETO FACTURA TIENE EL OBJETO USUARIO, REQUERIDO PARA FUNCIONES DE PAGOS
+            If ObjFactura.UsuarioActual Is Nothing Then
+                ObjFactura.UsuarioActual = UsuarioActual
+            Else
+                If ObjFactura.UsuarioActual.Empresa Is Nothing Then
+                    ObjFactura.UsuarioActual.Empresa = UsuarioActual.Empresa
+                End If
+            End If
+
             Dim UsaComplementariaClientes As Boolean = True
 
             If ObjConta.GetPlantillaConceptos(ObjFactura.CveEmpresa, CvePlantilaPoliza) Then
@@ -15509,6 +15518,48 @@ Partial Class Ventas
 
             End If
 
+
+            'APLICA PAGO SI SELECCIONA IxC
+            If DdlTipoAmortizacionAnticipo.SelectedValue = "4" Then
+                If Not ErrorPrepoliza Then
+
+                    Dim VentaActual As New ClsPaginas.Venta(ObjFactura, UsuarioActual)
+
+                    For Each row2 As GridViewRow In GVAnticipos.Rows
+
+                        If row2.DataKey("CveConceptoContable").ToString().ToEntero() = 66 Then
+
+                            If row2.FCCheckBox("Chk" & row2.RowIndex).Checked Then
+                                importeMovimiento = row2.FCTextBox("TxtAnticipo" & row2.RowIndex).Text.ToDecimal
+
+                                If importeMovimiento <> 0 Then
+
+                                    Dim Pago As New ClsPaginas.VentaPago
+                                    Pago.Fecha = Now
+                                    Pago.FechaDocumentoRelacionado = row2.DataKey("Fecha").ToString().ToDateTime()
+                                    Pago.ImportePagoVenta = importeMovimiento
+                                    Pago.ImportePago = importeMovimiento
+                                    Pago.CveIE = row2.DataKey("CveIE").ToEntero()
+                                    Pago.CveMonedaPago = row2.DataKey("CveMoneda").ToEntero()
+                                    Pago.TCPago = row2.DataKey("TipoCambioPago").ToDecimal()
+                                    Pago.AplicaTraslado = False
+                                    Pago.Referencia = row2.DataKey("Folio")
+                                    Pago.CveVentaAmortizacion = -1
+                                    Pago.TipoPago = "I"
+                                    Pago.CveClientePago = ObjFactura.CveCliente
+
+                                    ErrorPrepoliza = ClsPaginas.AplicaPrePolizaPagoVenta(VentaActual, Pago, ObjFactura.CvePrePoliza, ObjConta, AplicarConceptoAplicacion:=True)
+
+                                End If
+                            End If
+
+                        End If
+                    Next
+                End If
+
+            End If
+
+
             'Si es Facturacion de una remision cancelamos, traspasamos saldos y agregamos evento a la bitacora
             If RemisionesLista.Count > 0 AndAlso ObjFactura.TipoDocto.Contiene("Ing", "Ant") Then
 
@@ -15542,12 +15593,8 @@ Partial Class Ventas
                                 Pago.AplicaTraslado = False
                                 Pago.Referencia = DrPago("Folio").ToString()
                                 Pago.CveVentaAmortizacion = -1
-
+                                Pago.TipoPago = DrPago("TipoPago").ToString()
-                                If DrPago("TipoPago").ToString() = "NC" Then
+                                Pago.CveClientePago = ObjFactura.CveCliente
-                                    Pago.TipoPago = "NC"
-                                Else
-                                    Pago.TipoPago = "B"
-                                End If
 
                                 ErrorPrepoliza = ClsPaginas.AplicaPrePolizaPagoVenta(ventaRef, Pago, ObjFactura.CvePrePoliza, ObjConta, AplicarConceptoAplicacion:=False)
                             Else
@@ -15588,13 +15635,7 @@ Partial Class Ventas
 
                     'TRASPASO DE PAGOS DE REMISIONES A FACTURA GLOBAL
                     If ObjFactura.DtPagosFacturaGlobal IsNot Nothing Then
-                        If ObjFactura.UsuarioActual Is Nothing Then
+
-                            ObjFactura.UsuarioActual = UsuarioActual
-                        Else
-                            If ObjFactura.UsuarioActual.Empresa Is Nothing Then
-                                ObjFactura.UsuarioActual.Empresa = UsuarioActual.Empresa
-                            End If
-                        End If
                         Dim VentaActual As New ClsPaginas.Venta(ObjFactura, UsuarioActual)
 
                         For Each DrPago As DataRow In ObjFactura.DtPagosFacturaGlobal.Rows
@@ -15611,12 +15652,8 @@ Partial Class Ventas
                             Pago.AplicaTraslado = False
                             Pago.Referencia = DrPago("Folio").ToString()
                             Pago.CveVentaAmortizacion = DrPago("CveVenta").ToString().ToEntero()
-
+                            Pago.TipoPago = DrPago("TipoPago").ToString()
-                            If DrPago("TipoPago").ToString() = "NC" Then
+                            Pago.CveClientePago = ObjFactura.CveCliente
-                                Pago.TipoPago = "NC"
-                            Else
-                                Pago.TipoPago = "B"
-                            End If
 
                             ErrorPrepoliza = ClsPaginas.AplicaPrePolizaPagoVenta(VentaActual, Pago, ObjFactura.CvePrePoliza, ObjConta, AplicarConceptoAplicacion:=False)
 
@@ -16996,7 +17033,7 @@ Partial Class Ventas
                 If DdlTipoAmortizacionAnticipo.SelectedValue = "4" Then
 
                     For Each gvr As GridViewRow In GVAnticipos.Rows
-                        If gvr.FCCheckBox("Chk" & gvr.RowIndex) IsNot Nothing AndAlso gvr.FCCheckBox("Chk" & gvr.RowIndex).Checked AndAlso gvr.DataKey("CveConceptoContable").ToEntero().Contiene(12, 277) Then
+                        If gvr.FCCheckBox("Chk" & gvr.RowIndex) IsNot Nothing AndAlso gvr.FCCheckBox("Chk" & gvr.RowIndex).Checked AndAlso gvr.DataKey("CveConceptoContable").ToEntero().Contiene(12, 66, 277) Then
                             Amortizacion += gvr.FCTextBox(String.Format("TxtAnticipo{0}", gvr.RowIndex)).Text.ToDecimal ' - ((gvr.FCTextBox("TxtAnticipo" & gvr.RowIndex).Text.ToDecimal / gvr.DataKey("TotalAnticipo").ToDecimal) * gvr.DataKey("IVAAnticipo").ToDecimal)
                         End If
                     Next