diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb index a0ddf2eef..03c0b9655 100644 --- a/App_Code/Modelos.vb +++ b/App_Code/Modelos.vb @@ -4122,12 +4122,8 @@ Namespace Modelos Pago.AplicaTraslado = False Pago.Referencia = DrPago("Folio").ToString() Pago.CveVentaAmortizacion = -1 - - If DrPago("TipoPago").ToString() = "NC" Then - Pago.TipoPago = "NC" - Else - Pago.TipoPago = "B" - End If + Pago.TipoPago = DrPago("TipoPago").ToString() + Pago.CveClientePago = ObjFactura.CveCliente 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() - - If DrPago("TipoPago").ToString() = "NC" Then - Pago.TipoPago = "NC" - Else - Pago.TipoPago = "B" - End If + Pago.TipoPago = DrPago("TipoPago").ToString() + Pago.CveClientePago = ObjFactura.CveCliente ErrorPrepoliza = ClsPaginas.AplicaPrePolizaPagoVenta(VentaActual, Pago, ObjFactura.CvePrePoliza, ObjConta, AplicarConceptoAplicacion:=False) diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index a99e74ffd..6aa638695 100644 --- a/Compras/Compras.aspx.vb +++ b/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 - LblProveedor.Text = "Acreedor:" - CveTipoConcepto = 2 - Else + If CveTipoConcepto = 2 Then 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, - CveClasificacion:=-1, CveSubProyecto:=Me.CveSubProyecto, Contabilizable:=False) Then + 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:=True) Then respuesta = False End If diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb index 92654c20c..e06c25bd5 100644 --- a/Compras/PopUpVerFactura.aspx.vb +++ b/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 diff --git a/Ventas/RepVentasUtilidad.aspx.vb b/Ventas/RepVentasUtilidad.aspx.vb index f4f737dd2..c9947773f 100644 --- a/Ventas/RepVentasUtilidad.aspx.vb +++ b/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 diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index e5164f720..1e82369c9 100644 --- a/Ventas/Ventas.aspx.vb +++ b/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 - - If DrPago("TipoPago").ToString() = "NC" Then - Pago.TipoPago = "NC" - Else - Pago.TipoPago = "B" - End If + Pago.TipoPago = DrPago("TipoPago").ToString() + Pago.CveClientePago = ObjFactura.CveCliente 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() - - If DrPago("TipoPago").ToString() = "NC" Then - Pago.TipoPago = "NC" - Else - Pago.TipoPago = "B" - End If + Pago.TipoPago = DrPago("TipoPago").ToString() + Pago.CveClientePago = ObjFactura.CveCliente 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