diff --git a/Acumuladores/RepEntradasUsadosClientes.aspx.vb b/Acumuladores/RepEntradasUsadosClientes.aspx.vb
index f20abeef3..8925785f9 100644
--- a/Acumuladores/RepEntradasUsadosClientes.aspx.vb
+++ b/Acumuladores/RepEntradasUsadosClientes.aspx.vb
@@ -61,11 +61,18 @@ Partial Class Acumuladores_RepEntradasUsadosClientes
Protected Sub GvDatos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvDatos.RowDataBound
If e.Row.RowType = DataControlRowType.DataRow Then
- If e.Row.DBCampo("EsHeader").ToString = "-1" Or e.Row.DBCampo("Codigo").ToString = "" Then
- e.Row.CssClass = "SubTotales2"
- End If
-
+ 'If e.Row.DBCampo("EsHeader").ToString = "-1" Or e.Row.DBCampo("Codigo").ToString = "" Then
+ ' e.Row.CssClass = "SubTotales2"
+ 'End If
+ If e.Row.DBCampo("TipoHeader").ToString = "1" Then
+ e.Row.CssClass = "Totales"
+ ElseIf e.Row.DBCampo("TipoHeader").ToString = "2" Then
+ e.Row.CssClass = "SubTotales"
+ ElseIf e.Row.DBCampo("TipoHeader").ToString = "3" Then
+ e.Row.CssClass = "SubTotales2"
+ End If
End If
+
End Sub
Protected Sub BtnImprimir_Click(sender As Object, e As EventArgs)
diff --git a/App_Code/ClsBancos.vb b/App_Code/ClsBancos.vb
index dddbce407..8113ab863 100644
--- a/App_Code/ClsBancos.vb
+++ b/App_Code/ClsBancos.vb
@@ -1597,7 +1597,7 @@ Public Class ClsBancos
Return Retorno
End Function
- Public Function CancelarBancos_IE(CveUsuario As Integer, CveIE As Integer, MesAnterior As Boolean, IdPoliza As Integer, Optional FechaCancelacion As Date = MinFecha, Optional TipoMovimiento As Integer = 1) As Boolean
+ Public Function CancelarBancos_IE(CveUsuario As Integer, CveIE As Integer, MesAnterior As Boolean, IdPoliza As Integer, FolioPoliza As Integer, Optional FechaCancelacion As Date = MinFecha, Optional TipoMovimiento As Integer = 1) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Banc_IECancelar")
@@ -1607,6 +1607,7 @@ Public Class ClsBancos
.Add("@CveIE", SqlDbType.Int).Value = CveIE
.Add("@MesAnterior", SqlDbType.Bit).Value = MesAnterior
.Add("@IdPoliza", SqlDbType.Int).Value = IdPoliza
+ .Add("@FolioPoliza", SqlDbType.Int).Value = FolioPoliza
.Add("@FechaCancelacion", SqlDbType.Date).Value = FechaCancelacion
.Add("@TipoMovimiento", SqlDbType.Int).Value = TipoMovimiento
End With
diff --git a/App_Code/ClsContabilidad.vb b/App_Code/ClsContabilidad.vb
index 4f7e0a8e2..e5a748ea3 100644
--- a/App_Code/ClsContabilidad.vb
+++ b/App_Code/ClsContabilidad.vb
@@ -388,7 +388,7 @@ Public Class ClsContabilidad
Public Function GetProveedoresAuxiliar(CveProveedor As Integer, CveConceptoContable As Integer, FechaInicio As Date, FechaFin As Date, CveEmpresa As Integer,
- Optional Opcion As Integer = 1, Optional CveTipoProveedor As Integer = -1) As Boolean
+ Optional Opcion As Integer = 1, Optional CveTipoProveedor As Integer = -1, Optional Contabilizable As Integer = -1) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Conta_ProveedoresAuxiliar")
@@ -402,6 +402,7 @@ Public Class ClsContabilidad
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
.Add("@Opcion", SqlDbType.Int).Value = Opcion
.Add("@CveTipoProveedor", SqlDbType.Int).Value = CveTipoProveedor
+ .Add("@Contabilizable", SqlDbType.Int).Value = Contabilizable
End With
Try
@@ -1477,7 +1478,7 @@ Public Class ClsContabilidad
Catch ex As Exception
- ObjConta.RollBack()
+ If Not ContaCompartida Then ObjConta.RollBack()
OnError("Ocurrió un error al intentar contabilizar la PrePoliza", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
'Alert("Ocurrió un error al guardar la póliza", TipoMensaje.MsgAdvertencia)
Retorno = False
diff --git a/App_Code/ClsEdocumentacion.vb b/App_Code/ClsEdocumentacion.vb
index 6b96bae06..b850d1078 100644
--- a/App_Code/ClsEdocumentacion.vb
+++ b/App_Code/ClsEdocumentacion.vb
@@ -128,7 +128,7 @@ Public Class ClsEdocumentacion
#Region "D O C U M E N T A C I O N "
- Public Function DocumentacionGet(CveDocumentacion As Integer, CveDocumentacionTipo As Integer, Estatus As Integer, CveEmpresa As Integer, Optional Modulo As Integer = 1) As Boolean
+ Public Function DocumentacionGet(CveDocumentacion As Integer, CveDocumentacionTipo As Integer, Estatus As Integer, CveEmpresa As Integer, Optional Modulo As Integer = -1) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Edoc_DocumentacionGet")
@@ -435,7 +435,7 @@ Public Class ClsEdocumentacion
Return Retorno
End Function
- Public Function DocumentacionTipoGet(CveEmpresa As Integer, Optional Modulo As Integer = 1) As Boolean
+ Public Function DocumentacionTipoGet(CveEmpresa As Integer, Optional Modulo As Integer = -1) As Boolean
Dim Retorno As Boolean = False
diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb
index d85c936bf..56ef2a7dd 100644
--- a/App_Code/ClsPaginas.vb
+++ b/App_Code/ClsPaginas.vb
@@ -4565,8 +4565,10 @@ Public Class ClsPaginas
PaginaDict.Add("/Ventas/Clientes.aspx".ToUpper(), 5)
PaginaDict.Add("/Ventas/CatClientes.aspx".ToUpper(), 5)
PaginaDict.Add("/Ventas/CatClientesClasificaciones.aspx".ToUpper(), 408)
- PaginaDict.Add("/Ventas/Ventas.aspx".ToUpper(), 6)
- PaginaDict.Add("/Ventas/RepVentas.aspx".ToUpper(), 9)
+ PaginaDict.Add("/Ventas/Ventas.aspx".ToUpper(), 6)
+ PaginaDict.Add("/Ventas/Ventas.aspx?Op=Cot".ToUpper(), 366)
+ PaginaDict.Add("/Ventas/RepVentas.aspx".ToUpper(), 9)
+ PaginaDict.Add("/Ventas/RepVentas.aspx?Op=Cot".ToUpper(), 367)
PaginaDict.Add("/Ventas/RepRemisiones.aspx".ToUpper(), 430)
PaginaDict.Add("/Ventas/RepRemisionesDetalle.aspx".ToUpper(), 430)
PaginaDict.Add("/Ventas/RepCotizaciones.aspx".ToUpper(), 430)
@@ -4644,7 +4646,7 @@ Public Class ClsPaginas
'PaginaDict.Add("/Ventas/Ventas.aspx".ToUpper(), 2016)
'PaginaDict.Add("/Ventas/Clientes.aspx".ToUpper(), 2017)
PaginaDict.Add("/Ventas/Ventas.aspx?Op=Rem".ToUpper(), 2018)
- PaginaDict.Add("/Ventas/Ventas.aspx?Op=Cot".ToUpper(), 2019)
+ 'PaginaDict.Add("/Ventas/Ventas.aspx?Op=Cot".ToUpper(), 2019)
PaginaDict.Add("/Ventas/VentasH.aspx".ToUpper(), -1)
PaginaDict.Add("/Ventas/ClientesAbonarH.aspx".ToUpper(), -1)
PaginaDict.Add("/Ventas/PVRaul.aspx".ToUpper(), -1)
diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb
index 447ab3844..3a75dc1df 100644
--- a/App_Code/Modelos.vb
+++ b/App_Code/Modelos.vb
@@ -3061,7 +3061,7 @@ Namespace Modelos
CveCuentaContabilizacion = 0
End If
- If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, ConceptoContable, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIE, ImporteMX:=importeMX, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, CveSubProyecto:=CveSubProyectoContabilizar, PorcentajeImpuesto:=PorcentajeImpuesto, TipoCambio:=tipoCambio) Then
+ If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, ConceptoContable, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIE, ImporteMX:=importeMX, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, CveSubProyecto:=CveSubProyectoContabilizar, PorcentajeImpuesto:=PorcentajeImpuesto, TipoCambio:=tipoCambio, Contabilizable:=SeContabiliza) Then
ErrorPrepoliza = True
Else
ObjFactura.SeGuardoPrePoliza = True
@@ -4375,7 +4375,7 @@ Namespace Modelos
Dim AutoConta As Boolean = UsuarioActual.Empresa.Funcionalidad(200) = "1"
- If UsuarioActual.CveEmpresa = 119 AndAlso ObjFactura.TipoDocto.Contiene("Ant", "Rem", "RNC", "Cot", "Ped", "Pd2", "PA", "NC") Then
+ If UsuarioActual.CveEmpresa = 119 AndAlso ObjFactura.TipoDocto.Contiene("Ant", "Rem", "RNC", "Cot", "Ped", "Pd2", "PA", "Egs", "Dev") Then
AutoConta = False
End If
diff --git a/Bancos/FluctuacionCambiaria.aspx.vb b/Bancos/FluctuacionCambiaria.aspx.vb
index 1855b24b4..00b3f2881 100644
--- a/Bancos/FluctuacionCambiaria.aspx.vb
+++ b/Bancos/FluctuacionCambiaria.aspx.vb
@@ -430,6 +430,7 @@ Partial Class Bancos_FluctuacionCambiaria
If Conta.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa, ObjConta:=ObjContPaq) Then
SeContabilizo = True
Else
+ ErrorRegistrar = True
Alert("Ocurrio un Error al contabilizar, pongase en contacto con Soporte Técnico", TipoMensaje.MsgError)
End If
End If
@@ -437,10 +438,12 @@ Partial Class Bancos_FluctuacionCambiaria
If Not ErrorRegistrar And SeContabilizo Then
Conta.Commit()
+ ObjContPaq.Commit()
Alert(String.Format("La Fluctuación se ha generado
Ver PrePóliza", CvePrePoliza), TipoMensaje.MsgInformacion)
CargaDatosCuentas()
Else
Conta.RollBack()
+ ObjContPaq.Dispose()
End If
Conta.Dispose()
End Sub
diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb
index 1027f7906..e56e4f732 100644
--- a/Bancos/IE.aspx.vb
+++ b/Bancos/IE.aspx.vb
@@ -3878,7 +3878,7 @@ Partial Class Bancos_IE
'CANCELA IE
If Not ErrorCancelar Then
- If Not Banc.CancelarBancos_IE(UsuarioActual.CveUsuario, CveIE, True, IdPolizaNueva, TxtFechaCancelacion.Text.ToDate) Then
+ If Not Banc.CancelarBancos_IE(UsuarioActual.CveUsuario, CveIE, True, IdPolizaNueva, FolioPolizaNueva, TxtFechaCancelacion.Text.ToDate) Then
ErrorCancelar = True
MensajeError = "Error al cancelar IE"
End If
@@ -3909,7 +3909,7 @@ Partial Class Bancos_IE
'CANCELA IE
If Not ErrorCancelar Then
- If Not Banc.CancelarBancos_IE(UsuarioActual.CveUsuario, CveIE, False, IdPolizaNueva, TxtFechaCancelacion.Text.ToDate) Then
+ If Not Banc.CancelarBancos_IE(UsuarioActual.CveUsuario, CveIE, False, IdPolizaNueva, FolioPolizaNueva, TxtFechaCancelacion.Text.ToDate) Then
ErrorCancelar = True
MensajeError = "Error al cancelar IE"
End If
@@ -3932,13 +3932,13 @@ Partial Class Bancos_IE
' If TxtFechaDocumento.Text.ToDate.Month < TxtFechaCancelacion.Text.ToDate.Month Or TxtFechaDocumento.Text.ToDate.Year < TxtFechaCancelacion.Text.ToDate.Year Then
If TxtFechaDocumento.Text.ToDate < TxtFechaCancelacion.Text.ToDate.FirstDayOfMonth Then
'CANCELA IE MES ANTERIOR
- If Not Banc.CancelarBancos_IE(UsuarioActual.CveUsuario, CveIE, True, IdPolizaNueva, TxtFechaCancelacion.Text.ToDate) Then
+ If Not Banc.CancelarBancos_IE(UsuarioActual.CveUsuario, CveIE, True, IdPolizaNueva, FolioPolizaNueva, TxtFechaCancelacion.Text.ToDate) Then
ErrorCancelar = True
MensajeError = "Error al cancelar IE MES ANTERIOR"
End If
Else
'CANCELA IE MES ACTUAL
- If Not Banc.CancelarBancos_IE(UsuarioActual.CveUsuario, CveIE, False, IdPolizaNueva, TxtFechaCancelacion.Text.ToDate) Then
+ If Not Banc.CancelarBancos_IE(UsuarioActual.CveUsuario, CveIE, False, IdPolizaNueva, FolioPolizaNueva, TxtFechaCancelacion.Text.ToDate) Then
ErrorCancelar = True
MensajeError = "Error al cancelar IE MES ACTUAL"
End If
@@ -4107,7 +4107,7 @@ Partial Class Bancos_IE
'genera nuevo IE contrario
If Not ErrorCancelar Then
- If Not Banc.CancelarBancos_IE(UsuarioActual.CveUsuario, CveIE, True, IdPolizaNueva, TxtFechaDevuelto.Text.ToDate, 2) Then
+ If Not Banc.CancelarBancos_IE(UsuarioActual.CveUsuario, CveIE, True, IdPolizaNueva, FolioPolizaNueva, TxtFechaDevuelto.Text.ToDate, 2) Then
ErrorCancelar = True
End If
End If
@@ -4123,7 +4123,7 @@ Partial Class Bancos_IE
Else
'siempre se hace una cancelación
- If Not Banc.CancelarBancos_IE(UsuarioActual.CveUsuario, CveIE, True, IdPolizaNueva, TxtFechaDevuelto.Text.ToDate, 2) Then
+ If Not Banc.CancelarBancos_IE(UsuarioActual.CveUsuario, CveIE, True, IdPolizaNueva, FolioPolizaNueva, TxtFechaDevuelto.Text.ToDate, 2) Then
ErrorCancelar = True
End If
diff --git a/Bancos/PagoElectronico.aspx.vb b/Bancos/PagoElectronico.aspx.vb
index 4a70aa2a1..93a64cde4 100644
--- a/Bancos/PagoElectronico.aspx.vb
+++ b/Bancos/PagoElectronico.aspx.vb
@@ -1582,7 +1582,7 @@ Partial Class Bancos_PagoElectronico
Else
'Cuando salio NO exitoso cancelamos el IE
- If Not ObjIE.CancelarBancos_IE(UsuarioActual.CveUsuario, ArrayCveIEs(index).ToEntero, False, -1) Then
+ If Not ObjIE.CancelarBancos_IE(UsuarioActual.CveUsuario, ArrayCveIEs(index).ToEntero, False, -1, -1) Then
ErrorDB = True
End If
End If
diff --git a/Compras/ProveedoresAuxiliar.aspx b/Compras/ProveedoresAuxiliar.aspx
index 8afae6a37..4ef950a21 100644
--- a/Compras/ProveedoresAuxiliar.aspx
+++ b/Compras/ProveedoresAuxiliar.aspx
@@ -131,6 +131,14 @@