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)
-
-
-
- ;
-
-
-
-
-
-
- Textbox62
- 6.65199in
- 1.5367in
- 0.29498in
- 6.38809in
- 24
-
-
- 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
@@ -1969,7 +1969,7 @@
AgrupadoPor
- 16.10059cm
+ 16.31254cm
0.6cm
561.96737pt
15
@@ -2038,7 +2038,7 @@
AgrupadoPor
- 15.43045cm
+ 15.6424cm
0.6cm
561.96737pt
16
@@ -2094,7 +2094,7 @@
AgrupadoPor
- 12.91208cm
+ 13.12403cm
0.6cm
561.96737pt
17
@@ -2163,7 +2163,7 @@
AgrupadoPor
- 13.68847cm
+ 13.90042cm
1.25264cm
561.96737pt
18
@@ -2177,11 +2177,114 @@
2pt
+
+ 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