From e610d01cd7f5feec88311f91d7c0053250acbd99 Mon Sep 17 00:00:00 2001 From: Rakcsle Supertramp Date: Mon, 10 Feb 2020 18:13:33 -0700 Subject: [PATCH] commit general local oscar --- .../RepEntradasUsadosClientes.aspx.vb | 15 +- App_Code/ClsBancos.vb | 3 +- App_Code/ClsContabilidad.vb | 5 +- App_Code/ClsEdocumentacion.vb | 4 +- App_Code/ClsPaginas.vb | 8 +- App_Code/Modelos.vb | 4 +- Bancos/FluctuacionCambiaria.aspx.vb | 3 + Bancos/IE.aspx.vb | 12 +- Bancos/PagoElectronico.aspx.vb | 2 +- Compras/ProveedoresAuxiliar.aspx | 8 + Compras/ProveedoresAuxiliar.aspx.vb | 2 +- Contabilidad/RegPoliza.aspx.vb | 4 +- Contabilidad/RegPrePoliza.aspx.vb | 21 +- Empresas/57/Formatos/Factura.rdlc | 34 +- Empresas/72/Formatos/Factura.rdlc | 22 +- GPS/Rastreo.aspx | 2548 +++++++++-------- GPS/Rastreo.aspx.vb | 300 +- GPS/Rastreo/JS/Geocercas.js | 139 + 18 files changed, 1798 insertions(+), 1336 deletions(-) create mode 100644 GPS/Rastreo/JS/Geocercas.js 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 @@ + +
+ + + + + +
diff --git a/Compras/ProveedoresAuxiliar.aspx.vb b/Compras/ProveedoresAuxiliar.aspx.vb index 9b727b010..926764dfe 100644 --- a/Compras/ProveedoresAuxiliar.aspx.vb +++ b/Compras/ProveedoresAuxiliar.aspx.vb @@ -81,7 +81,7 @@ Partial Class Compras_ProveedoresAuxiliar 'Falta PA If ObjConta.GetProveedoresAuxiliar(DdlProveeedores.SelectedValue.ToEntero, -1, txtFechaI.Text.ToDate, txtFechaF.Text.ToDate, UsuarioActual.CveEmpresa, - DdlOpcion.SelectedValue.ToEntero, DdlTipoProveedor.SelectedValue.ToEntero) Then + DdlOpcion.SelectedValue.ToEntero, DdlTipoProveedor.SelectedValue.ToEntero, DdlOpcionContabilizable.SelectedValue.ToEntero) Then If DdlOpcion.SelectedValue.ToEntero = 2 Then GvP.DataSource = ObjConta.DtResultados.FiltraParametros($" IIF(ISNULL(CveConceptoContable,0) = 5 AND Importe >= 0,0,1) = 1 ") Else diff --git a/Contabilidad/RegPoliza.aspx.vb b/Contabilidad/RegPoliza.aspx.vb index 443aa6d68..25dbcc116 100644 --- a/Contabilidad/RegPoliza.aspx.vb +++ b/Contabilidad/RegPoliza.aspx.vb @@ -1702,7 +1702,9 @@ Partial Class RegPoliza If ObjConta.RemovePoliza(IDPoliza) Then If ObjMov.DesvincularPrePolizaContabilizada(IDPoliza, UsuarioActual.CveEmpresa) Then - If Not ObjGral.AddHistorialBitacora(Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, "", "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, TxtDescripcion.Text, "Polizas", TxtNumeroPoliza.Text, DdlTipoPoliza.SelectedValue.ToEntero) Then + If ObjGral.AddHistorialBitacora(Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, "", "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, TxtDescripcion.Text, "Polizas", TxtNumeroPoliza.Text, DdlTipoPoliza.SelectedValue.ToEntero) Then + + Else ErrorTrans = True End If Else diff --git a/Contabilidad/RegPrePoliza.aspx.vb b/Contabilidad/RegPrePoliza.aspx.vb index d89078102..071e8c784 100644 --- a/Contabilidad/RegPrePoliza.aspx.vb +++ b/Contabilidad/RegPrePoliza.aspx.vb @@ -1341,11 +1341,30 @@ Partial Class ContabilidadC_RegPrePoliza Private Sub BtnEliminar_Click(sender As Object, e As EventArgs) Handles BtnEliminar.Click Dim ObjContabilidad As New ClsContabilidad - + ObjContabilidad.IniciaTransacSQL() + Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa) + ObjConta.IniciaTransacSQL() + Dim TieneError As Boolean = False + If ObjContabilidad.RemovePrePolizas(CvePrePoliza, UsuarioActual.CveEmpresa) Then + If IdPoliza > 0 Then + If Not ObjConta.RemovePoliza(IdPoliza) Then + TieneError = True + End If + End If + Alert("La Prepóliza ha sido eliminada", TipoMensaje.MsgInformacion) Else Alert("La Prepóliza ha podido ser eliminada", TipoMensaje.MsgError) + TieneError = True + End If + + If Not TieneError Then + ObjContabilidad.Commit() + ObjConta.Commit() + Else + ObjContabilidad.RollBack() + ObjConta.RollBack() End If ObjContabilidad.Dispose() diff --git a/Empresas/57/Formatos/Factura.rdlc b/Empresas/57/Formatos/Factura.rdlc index d09c31329..b7edb3bc0 100644 --- a/Empresas/57/Formatos/Factura.rdlc +++ b/Empresas/57/Formatos/Factura.rdlc @@ -816,8 +816,15 @@ Normal + + + + + - =Parameters!RFC.Value + GOTE811117236 @@ -1304,7 +1311,7 @@ Textbox19 1.53208in - 0.04514in + 0.05471in 0.23611in 0.85387in 17 @@ -1379,9 +1386,8 @@ - Cuidad + Ciudad @@ -1391,7 +1397,7 @@ Textbox19 1.7682in - 0.04514in + 0.05471in 0.25in 0.85387in 19 diff --git a/Empresas/72/Formatos/Factura.rdlc b/Empresas/72/Formatos/Factura.rdlc index c01f96238..cc919a0a0 100644 --- a/Empresas/72/Formatos/Factura.rdlc +++ b/Empresas/72/Formatos/Factura.rdlc @@ -3375,7 +3375,15 @@ - Scotiabank CTA. 0686 4074 CLABE 0447 7011 006 8640 743 + CONVENIO CIE Bancomer: 001598120 Referencia: + + + + =Parameters!ClienteCodigo.Value - - - =Parameters!Referencia.Value + Scotiabank CTA. 0686 4074 CLABE 0447 7011 006 8640 743