diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb index 39602a912..567e32a28 100644 --- a/App_Code/ClsVentas.vb +++ b/App_Code/ClsVentas.vb @@ -529,6 +529,24 @@ Public Class ClsVentas Return Retorno End Function + Public Function GetPagos(CveVenta As Integer, CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Vta_VentasPagosGet") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveVenta", SqlDbType.Int).Value = CveVenta + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener el Pago de la Venta.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function Public Function RemoveVta_VentaPago(CveVenta As Integer, CveMetodoPago As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Vta_VentasPagoRemove") diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb index 045b59ec5..f3f8f4c5e 100644 --- a/App_Code/Modelos.vb +++ b/App_Code/Modelos.vb @@ -4001,7 +4001,7 @@ Namespace Modelos Dim TieneAlmacen As Boolean = False 'VALIDA QUE LA FACTURA NO TENGA PAGOS - If ObjFactura.TipoDocto.Contiene("Ing", "Rem") AndAlso ObjFactura.Pagado > 0 Then + If Not EsRefacturacion AndAlso ObjFactura.TipoDocto.Contiene("Ing", "Rem") AndAlso ObjFactura.Pagado > 0 Then Retorno.Mensaje = "La factura no se puede cancelar debido a que tiene pagos vinculados." Retorno.TipoMensaje = TipoMensaje.MsgAdvertencia @@ -4033,7 +4033,7 @@ Namespace Modelos End If If ObjFactura.TipoDocto = "Ant" AndAlso ObjFactura.SaldoAmortizado > 0 Then - Retorno.Mensaje = "La factura no se puede cancelar debido a que tiene pagos vinculados." + Retorno.Mensaje = "La factura no se puede cancelar debido a que el anticipo ha sido amortizado." Retorno.TipoMensaje = TipoMensaje.MsgAdvertencia Return Retorno diff --git a/Empresas/Grales/Formatos/RepProductosServicios.rdlc b/Empresas/Grales/Formatos/RepProductosServicios.rdlc index e7890ec50..f3e1f32c1 100644 --- a/Empresas/Grales/Formatos/RepProductosServicios.rdlc +++ b/Empresas/Grales/Formatos/RepProductosServicios.rdlc @@ -1,978 +1,1015 @@ - - - - - - - - - - - - true - true - - - - - Grupo - - - - Textbox28 - - - - - - LightGrey - 2pt - 2pt - 2pt - 2pt - - - - - - - - - - - 2.36727cm - - - 2.63186cm - - - 2.55248cm - - - 2.12915cm - - - 2.49956cm - - - - - 0.6cm - - - - - true - true - - - - - =Fields!Cantidad.Value - - - - - - - Cantidad - - - =IIF(Fields!Orden.Value = "","CornflowerBlue","Transparent") - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!SubTotal.Value - - - - - - - SubTotal - - - =IIF(Fields!Orden.Value = "","CornflowerBlue","Transparent") - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!Descuento.Value - - - - - - - Descuento - - - =IIF(Fields!Orden.Value = "","CornflowerBlue","Transparent") - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!IVA.Value - - - - - - - IVA - - - =IIF(Fields!Orden.Value = "","CornflowerBlue","Transparent") - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!Total.Value - - - - - - - Total - - - =IIF(Fields!Orden.Value = "","CornflowerBlue","Transparent") - 2pt - 2pt - 2pt - 2pt - - - - - - - - - - - - - 0.6cm - - - true - true - - - - - Cantidad - - - - Textbox40 - - - LightGrey - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.6cm - - - true - true - - - - - Sub Total - - - - Textbox42 - - - LightGrey - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.6cm - - - true - true - - - - - Descuento - - - - Textbox44 - - - LightGrey - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.6cm - - - true - true - - - - - IVA - - - - Textbox51 - - - LightGrey - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.6cm - - - true - true - - - - - Total - - - - Textbox47 - - - LightGrey - 2pt - 2pt - 2pt - 2pt - - - - - - - - - - - - - =Fields!GPO.Value - - - - 6.79828cm - - - true - true - - - - - =Fields!GPO.Value - - - - - - =IIF(Fields!Orden.Value = "","CornflowerBlue","Transparent") - 2pt - 2pt - 2pt - 2pt - - - - - - - - DataSet1 - 0.06614cm - 1.2cm - 18.9786cm - - - - - - 0.47244in - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - REPORTE DE PRODUCTOS SERVICIOS - - - - - - - - - - - - - - - - Textbox2 - 1.10271cm - 3.80842cm - 0.52945cm - 9.98771cm - 1 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Fecha Inicio: - - - - - - - - - =IIF(Parameters!FechaInicio.Value = "-1","",Parameters!FechaInicio.Value) - - - - - - - - - - - - - - - Fecha Fin: - - - - - - - - - =IIF(Parameters!FechaFin.Value = "-1","",Parameters!FechaFin.Value) - - - - Textbox13 - 0.0259cm - 15.579cm - 2.18834cm - 3.53188cm - 2 - - - 2pt - 2pt - 2pt - 2pt - - - - External - =Parameters!LogoPath.Value - FitProportional - 0.06614cm - 2.22362cm - 2.33715cm - 3 - - - - - - - - - - - 0.84667cm - true - true - - - true - true - - - - - ="Página " & Globals.PageNumber & " de " & Globals.TotalPages - - - - - - - Textbox3 - 0.08291cm - 16.97887cm - 0.68085cm - 2.06587cm - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Usuario: - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!UsuarioImprimio.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Fecha Impresión: - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!FechaImpresion.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - 29.7cm - 21cm - 0.5cm - 0.5cm - 1cm - 1cm - 0.13cm - + + + Textbox28 + + + + + + LightGrey + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + 2.36727cm + + + 2.63186cm + + + 2.55248cm + + + 2.12915cm + + + 2.49956cm + + + + + 0.6cm + + + + + true + true + + + + + =Fields!Cantidad.Value + + + + + + + Cantidad + + + =IIF(Fields!Orden.Value = "","CornflowerBlue","Transparent") + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!SubTotal.Value + + + + + + + SubTotal + + + =IIF(Fields!Orden.Value = "","CornflowerBlue","Transparent") + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Descuento.Value + + + + + + + Descuento + + + =IIF(Fields!Orden.Value = "","CornflowerBlue","Transparent") + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!IVA.Value + + + + + + + IVA + + + =IIF(Fields!Orden.Value = "","CornflowerBlue","Transparent") + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Total.Value + + + + + + + Total + + + =IIF(Fields!Orden.Value = "","CornflowerBlue","Transparent") + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + 0.6cm + + + true + true + + + + + Cantidad + + + + Textbox40 + + + LightGrey + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.6cm + + + true + true + + + + + Sub Total + + + + Textbox42 + + + LightGrey + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.6cm + + + true + true + + + + + Descuento + + + + Textbox44 + + + LightGrey + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.6cm + + + true + true + + + + + IVA + + + + Textbox51 + + + LightGrey + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.6cm + + + true + true + + + + + Total + + + + Textbox47 + + + LightGrey + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + =Fields!GPO.Value + + + + 6.79828cm + + + true + true + + + + + =Fields!GPO.Value + + + + + + =IIF(Fields!Orden.Value = "","CornflowerBlue","Transparent") + 2pt + 2pt + 2pt + 2pt + + + + + + + + DataSet1 + 0.06614cm + 1.2cm + 18.9786cm + + + + + + 0.47244in + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + REPORTE DE PRODUCTOS SERVICIOS + + + + + + + + + + + + + + + + Textbox2 + 1.10271cm + 3.80842cm + 0.52945cm + 9.98771cm + 1 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Fecha Inicio: + + + + + + + + + =IIF(Parameters!FechaInicio.Value = "-1","",Parameters!FechaInicio.Value) + + + + + + + + + + + + + + + Fecha Fin: + + + + + + + + + =IIF(Parameters!FechaFin.Value = "-1","",Parameters!FechaFin.Value) + + + + Textbox13 + 0.0259cm + 15.579cm + 2.18834cm + 3.53188cm + 2 + + + 2pt + 2pt + 2pt + 2pt + + + + External + =Parameters!LogoPath.Value + FitProportional + 0.06614cm + 2.22362cm + 2.33715cm + 3 + + + + + + true + true + + + + + =Parameters!Filtros.Value + HTML + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + 0.84667cm + true + true + + + true + true + + + + + ="Página " & Globals.PageNumber & " de " & Globals.TotalPages + + + + + + + Textbox3 + 0.08291cm + 16.97887cm + 0.68085cm + 2.06587cm + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Usuario: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!UsuarioImprimio.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Fecha Impresión: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!FechaImpresion.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 29.7cm + 21cm + 0.5cm + 0.5cm + 1cm + 1cm + 0.13cm + + 2 + @@ -610,8 +618,10 @@ 2pt + 2 + @@ -659,8 +669,10 @@ 2pt + 2 + @@ -698,8 +710,10 @@ 2pt + 2 + @@ -746,8 +760,10 @@ 2pt + 2 + @@ -785,6 +801,179 @@ 2pt + 2 + + + + + + + 0.6cm + + + + + true + true + + + + + No. Ext: + + + + + + + Textbox8 + + 5pt + + + + 1pt + + + + 1.25pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Parameters!NoExt.Value + + + + + + + Textbox14 + + 5pt + + + + 1pt + + + + 1.25pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + No. Int: + + + + + + + Textbox9 + + 5pt + + + + 1pt + + + + 1.25pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Parameters!NoInt.Value + + + + + + + Textbox34 + + 5pt + + + + 1pt + + 2pt + 2pt + 2pt + 2pt + + @@ -833,8 +1022,10 @@ 2pt + 2 + @@ -872,8 +1063,10 @@ 2pt + 2 + @@ -920,8 +1113,10 @@ 2pt + 2 + @@ -959,6 +1154,362 @@ 2pt + 2 + + + + + + + 0.6cm + + + + + true + true + + + + + MUNICIPIO Y/O DELEGACIÓN: + + + + + + + Textbox39 + + 5pt + + + + 1pt + + + + 1.25pt + + 2pt + 2pt + 2pt + 2pt + + + 2 + + + + + + + true + true + + + + + =Parameters!EnvioCiudad.Value + + + + + + + Textbox45 + + 5pt + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + 2 + + + + + + + 0.6cm + + + + + true + true + + + + + ESTADO: + + + + + + + Textbox47 + + 5pt + + + + 1pt + + + + 1.25pt + + 2pt + 2pt + 2pt + 2pt + + + 2 + + + + + + + true + true + + + + + =Parameters!EnvioEstado.Value + + + + + + + Textbox49 + + 5pt + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + 2 + + + + + + + 0.6cm + + + + + true + true + + + + + PAÍS: + + + + + + + Textbox3 + + 5pt + + + + 1pt + + + + 1.25pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Parameters!Pais.Value + + + + + + + Textbox6 + + 5pt + + + + 1pt + + + + 1.25pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + CP: + + + + + + + Textbox10 + + 5pt + + + + 1pt + + + + 1.25pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Parameters!CP.Value + + + + + + + Textbox12 + + 5pt + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + @@ -1004,8 +1555,10 @@ 2pt + 2 + @@ -1038,8 +1591,10 @@ 2pt + 2 + @@ -1048,6 +1603,8 @@ + + @@ -1058,12 +1615,16 @@ + + + + 4.37416cm 0.3937cm - 3.6cm - 18.65104cm + 6cm + 18.65575cm 4