diff --git a/App_Code/ClsAcumuladores.vb b/App_Code/ClsAcumuladores.vb index 1dfccab76..c243c6058 100644 --- a/App_Code/ClsAcumuladores.vb +++ b/App_Code/ClsAcumuladores.vb @@ -754,7 +754,21 @@ Public Class ClsAcumuladores SqlAdapter.Fill(Data) Retorno = True Catch ex As SqlException - OnError("Ocurrió un al agregar la garantia detalle. ", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + OnError("Ocurrió un al obtener la garantía detalle. ", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + Return Retorno + End Function + Public Function GetGarantiasPolizaVirtual(CveVenta As Integer) As Boolean + Dim Retorno As Boolean = False + SqlDataAdapter("PA_Acum_GarantiasPolizaVirtualGet") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveVenta", SqlDbType.Int).Value = CveVenta + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As SqlException + OnError("Ocurrió un al obtener la información de poliza virtual.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) End Try Return Retorno End Function diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index 150011e9b..761bcfd3e 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -3985,9 +3985,11 @@ Public Class ClsPaginas PaginaDict.Add("/Contabilidad/RepBalanzaComprobacion.aspx".ToUpper(), 344) PaginaDict.Add("/Contabilidad/CatCuentasSIG.aspx".ToUpper(), 405) PaginaDict.Add("/Contabilidad/RepIEPS.aspx".ToUpper(), 714) - PaginaDict.Add("/Contabilidad/CatPeriodosBloqueo.aspx".ToUpper(), 677) + PaginaDict.Add("/Contabilidad/CatPeriodosBloqueo.aspx".ToUpper(), 677) + PaginaDict.Add("/Contabilidad/CatClasificacionPorcentaje.aspx".ToUpper(), 752) + #End Region - 'CONTABILIDAD2 + 'CONTABILIDAD2 #Region "Contabilidad2" PaginaDict.Add("/Contabilidad2/RepAnexoCatalogo.aspx".ToUpper(), 580) PaginaDict.Add("/Contabilidad2/RepBalanzaComprobacion.aspx".ToUpper(), 582) diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb index 955f487b8..d5c7b5237 100644 --- a/App_Code/ClsVentas.vb +++ b/App_Code/ClsVentas.vb @@ -317,7 +317,7 @@ Public Class ClsVentas Optional ObservacionesAlmacen As String = "", Optional CveSubProyecto As Integer = -1, Optional CveSubProyectoEjecucion As Integer = -1, Optional CveSubProyectoCobranza As Integer = -1, Optional CveFormaPago33 As Integer = -1, Optional CveMetodoPago33 As Integer = -1, Optional CveUsoCFDI As Integer = -1, Optional OrdenCompra As String = "-1", Optional CveCuentaTerminal As Integer = -1, Optional CveTipoRelacion As Integer = -1, Optional ImpuestoLocal As Double = 0, Optional CveTipoAmortizacionAnticipo As Integer = -1, Optional CveVentaRelacion As Integer = -1, Optional ImporteRelacion As Decimal = -1, Optional CveEmpresaCRM As Integer = -1, Optional EsInterno As Integer = -1, Optional CveAcercamientoCRM As Integer = -1, - Optional DiasCredito As Integer = 0, Optional EsDiasCreditoFijo As Boolean = False, Optional AnticipoEspecial As Boolean = False) As Boolean + Optional DiasCredito As Integer = 0, Optional EsDiasCreditoFijo As Boolean = False, Optional AnticipoEspecial As Boolean = False, Optional Kilometraje As Double = 0) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_VentasAdd") @@ -403,6 +403,7 @@ Public Class ClsVentas .Add("@DiasCredito", SqlDbType.Int).Value = DiasCredito .Add("@EsDiasCreditoFijo", SqlDbType.Bit).Value = EsDiasCreditoFijo .Add("@AnticipoEspecial", SqlDbType.Bit).Value = AnticipoEspecial + .Add("@Kilometraje", SqlDbType.Float).Value = Kilometraje .Add("@RETURN_VALUE", SqlDbType.Int).Direction = ParameterDirection.ReturnValue End With @@ -430,7 +431,8 @@ Public Class ClsVentas Fecha As Date, Observaciones As String, CveEmpresa As Integer, CveVenta As Integer, CveMetodoPago As Integer, FormaPago As Integer, Optional TipoDocto As String = "Cot", Optional Vigencia As Date = MinFecha, Optional CondicionesPago As Integer = -1, Optional AtencionA As String = "-1", Optional PedidoContrato As String = "-1", Optional CveFormaPago33 As Integer = -1, Optional CveMetodoPago33 As Integer = -1, - Optional CveCliente As Integer = -1, Optional CveClienteSucursal As Integer = -1, Optional OrdenCompra As String = "-1", Optional RetIVA As Double = -1, Optional RetISR As Double = -1) As Boolean + Optional CveCliente As Integer = -1, Optional CveClienteSucursal As Integer = -1, Optional OrdenCompra As String = "-1", Optional RetIVA As Double = -1, + Optional RetISR As Double = -1, Optional Kilometraje As Double = 0) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Vta_VentasUpdate") @@ -460,6 +462,7 @@ Public Class ClsVentas .Add("@CveCliente", SqlDbType.Int).Value = CveCliente .Add("@CveClienteSucursal", SqlDbType.Int).Value = CveClienteSucursal .Add("@OrdenCompra", SqlDbType.VarChar).Value = OrdenCompra + .Add("@Kilometraje", SqlDbType.Float).Value = Kilometraje End With Try diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 6d3b6c35f..d654889be 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -13590,35 +13590,40 @@ Partial Class Compras_Compras ' guardardevolucion(ObjInventario, cvecompra, subtotal, Now.ToDate) 'End Sub Protected Sub BtnVinculaDevolucion_Click(sender As Object, e As EventArgs) - Dim subtotaldevolucion As Double = 0 - Dim realizadevolucion As Boolean = False + Try + Dim subtotaldevolucion As Double = 0 + Dim realizadevolucion As Boolean = False + + + 'Calculo los subtotales para comparar con la NC + Dim cantidad As Double = 0.0 + + For Each Dr As GridViewRow In GVDevolucion.Rows + cantidad = Dr.FCTextBox("TxtCantidad").Text.ToDouble + If cantidad > 0 Then + realizadevolucion = True + subtotaldevolucion += Dr.DataKey("PU").ToString.ToDouble * cantidad + End If + Next + + 'si no esta vinculado a nc simplemente me lo brinco + If realizadevolucion Then + 'si el subtotal es iwal a la nc lo guardo si no marco error + If TxtSubTotal.Text.ToDouble > subtotaldevolucion - 1 AndAlso TxtSubTotal.Text.ToDouble < subtotaldevolucion + 1 Then + + VinculaDevolucion() + + Else + Alert("El Total de la NC debe ser igual al total de la devolucion", TipoMensaje.MsgAdvertencia) + End If + Else + Alert("No se ha seleccionado nada para la devolución. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia) + End If + Catch ex As Exception + OnError("Ocurrió un error al realizar la vinculación", ex) + End Try - 'Calculo los subtotales para comparar con la NC - Dim cantidad As Double = 0.0 - - For Each Dr As GridViewRow In GVDevolucion.Rows - cantidad = Dr.FCTextBox("TxtCantidad").Text.ToDouble - If cantidad > 0 Then - realizadevolucion = True - subtotaldevolucion += Dr.DataKey("PU").ToString.ToDouble * cantidad - End If - Next - - 'si no esta vinculado a nc simplemente me lo brinco - If realizadevolucion Then - 'si el subtotal es iwal a la nc lo guardo si no marco error - If TxtSubTotal.Text.ToDouble > subtotaldevolucion - 1 AndAlso TxtSubTotal.Text.ToDouble < subtotaldevolucion + 1 Then - - VinculaDevolucion() - - Else - Alert("El Total de la NC debe ser igual al total de la devolucion", TipoMensaje.MsgAdvertencia) - End If - Else - Alert("No se ha seleccionado nada para la devolución. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia) - End If - End Sub Private Sub VinculaDevolucion() @@ -13681,7 +13686,7 @@ Partial Class Compras_Compras GvOC1.DataSource = DTOCTemp Dim DTCVEOCS As DataTable = DTOCTemp.FiltraParametros("", "", {"CveOrdenCompra"}) - If DTCVEOCS.Rows.Count > 1 Then + If DTCVEOCS IsNot Nothing AndAlso DTCVEOCS.Rows.Count > 1 Then GvOC1.Columns(0).Visible = True Else GvOC1.Columns(0).Visible = False diff --git a/Empresas/146/Formatos/Factura.rdlc b/Empresas/146/Formatos/Factura.rdlc index b1b2951f4..593500dc1 100644 --- a/Empresas/146/Formatos/Factura.rdlc +++ b/Empresas/146/Formatos/Factura.rdlc @@ -956,53 +956,6 @@ 2pt - - true - true - - - - - Condiciones de pago: - - - - =IIF(Parameters!CondicionPago.Value.ToString="","No Identificado",Parameters!CondicionPago.Value) - - - - ; - - - - - - 2pt - 2pt - 2pt - 2pt - - true true @@ -1024,7 +977,7 @@ 2.54119in 0.25in 3.69856in - 25 + 24 @@ -1782,7 +1735,7 @@ 0.04398cm 4.04843cm 20.06179cm - 26 + 25 = (Parameters!AplicaPagare.Value="0" ORelse Parameters!AplicaPagare.Value="") @@ -2403,7 +2356,7 @@ 0.11468cm 1.07241cm 20.01064cm - 27 + 26 @@ -2442,7 +2395,7 @@ 5.662in 0.21567in 2.26391in - 28 + 27 @@ -2727,7 +2680,7 @@ 5.73412in 0.34081in 2.19818in - 29 + 28 @@ -2841,7 +2794,7 @@ 14.56464cm 0.6cm 5.58343cm - 30 + 29 @@ -2855,7 +2808,13 @@ 3.33888cm - 11.00525cm + 3.672cm + + + 3.83158cm + + + 3.48541cm @@ -2907,10 +2866,58 @@ 2pt - 2 + 3 + + + + + true + true + + + + + + + + + + + + Textbox74 + + + + + + + + + + + + + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + @@ -2965,7 +2972,7 @@ - + true true @@ -2984,19 +2991,34 @@ - Textbox127 + Textbox67 + + + + + + + + + + White + Middle 2pt 2pt 2pt 2pt + 3 + + @@ -3028,7 +3050,7 @@ + @@ -3058,7 +3080,7 @@ - + true true @@ -3077,7 +3099,178 @@ - Textbox131 + Textbox70 + + + White + Middle + 2pt + 2pt + 2pt + 2pt + + + 3 + + + + + + + + 0.6cm + + + + + true + true + + + + + Orden de compra: + + + + + + + Textbox39 + + + + + 1pt + + + + 1pt + + + + 1pt + + + + 1pt + + #ff1037 + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =IIF(Parameters!OrdenCompra.Value = "-1","",Parameters!OrdenCompra.Value) + + + + + + + Textbox71 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + fecha de vencimiento: + + + + + + + Textbox40 + + + #ff1037 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Parameters!Vencimiento.Value + + + + + + + Textbox78 @@ -3122,7 +3315,7 @@ + @@ -3152,7 +3345,7 @@ - + true true @@ -3171,20 +3364,25 @@ - Textbox133 + Textbox72 + White + - Top + White + Middle 2pt 2pt 2pt 2pt + 3 + + @@ -3216,7 +3414,7 @@ + @@ -3246,7 +3444,7 @@ - + true true @@ -3265,20 +3463,25 @@ - Textbox135 + Textbox73 + White + - Top + White + Middle 2pt 2pt 2pt 2pt + 3 + + @@ -3333,10 +3536,12 @@ 2pt - 2 + 4 + + @@ -3345,6 +3550,8 @@ + + @@ -3355,14 +3562,15 @@ + DsOC 6.91306cm 0.11468cm - 5.16188cm - 14.34413cm - 31 + 5.76188cm + 14.32787cm + 30 @@ -3405,7 +3613,7 @@ 0.04404in 0.36457in 7.87931in - 32 + 31 @@ -3907,7 +4115,7 @@ 0.05568cm 2.97096cm 20.1554cm - 33 + 32 =Microsoft.VisualBasic.Interaction.IIF(First(Fields!SerieFolio.Value, "DataSet4") <> "", False, True) @@ -3924,7 +4132,7 @@ 19.87567cm 18.27471cm 0.33541cm - 34 + 33 =IIf(Parameters!CveVenta.Value > 0, True,False) @@ -3942,7 +4150,7 @@ 0.14361cm 1.22745cm 4.7959cm - 35 + 34 @@ -3988,7 +4196,7 @@ 0.04515in 0.37389in 4.70134in - 36 + 35 @@ -4088,7 +4296,7 @@ 3.82301in 0.62735in 1.99164in - 37 + 36 diff --git a/Empresas/Grales/Formatos/Conciliacion.rdlc b/Empresas/Grales/Formatos/Conciliacion.rdlc index e29822d6f..c00b8a81b 100644 --- a/Empresas/Grales/Formatos/Conciliacion.rdlc +++ b/Empresas/Grales/Formatos/Conciliacion.rdlc @@ -1664,7 +1664,7 @@ Textbox2 10.21319cm - 0.52945cm + 0.42362cm 477.16077pt 9 - LCP Sara Eduwiges Ruíz Félix + CP Sara Eduwiges Ruíz Félix HTML + + true + true + + + + + SALDO FINAL SEGUN CONTABILIDAD COMPLEMENTARIA: + + + + + + + + + + + + + + + + Textbox2 + 11.06042cm + 0.42362cm + 477.16077pt + 19 + + =IIF(Parameters!SaldoFinalContabilidadComplementaria.Value = 0,true,false) + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!SaldoFinalContabilidadComplementaria.Value + + + + + + + + + + + + + + + + Textbox2 + 11.06042cm + 16.83317cm + 0.42362cm + 84.80665pt + 20 + + =IIF(Parameters!SaldoFinalContabilidadComplementaria.Value = 0,true,false) + + + + 2pt + 2pt + 2pt + 2pt + + - 6.69322in + 6.6828in