From b9a23db611ce0b677a32788faf06b30f755a31e1 Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Sat, 1 Feb 2020 10:40:00 -0700 Subject: [PATCH 01/22] correcion en formato de conciliacion y agregando nueva consulta en pop up ver factura --- Compras/PopUpVerFactura.aspx.vb | 3 +++ Empresas/Grales/Formatos/Conciliacion.rdlc | 4 ++-- Ventas/Ventas.aspx.vb | 8 ++++++-- 3 files changed, 11 insertions(+), 4 deletions(-) diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb index 297531b36..c31f4f01a 100644 --- a/Compras/PopUpVerFactura.aspx.vb +++ b/Compras/PopUpVerFactura.aspx.vb @@ -1096,6 +1096,9 @@ Partial Class PopUpVerFactura If ObjVentas.GetVentasAntNC(-1, CveVenta) Then Vta.DtNCVinculadas = ObjVentas.DtResultados End If + If ObjVentas.GetVentasRelacionadas(CveVenta, UsuarioActual.CveEmpresa) Then + Vta.FolioFiscal = ObjVentas.DtResultados.FiltroPrimeroValor("FolioFiscal") + End If End If End If diff --git a/Empresas/Grales/Formatos/Conciliacion.rdlc b/Empresas/Grales/Formatos/Conciliacion.rdlc index c00b8a81b..df1c987cb 100644 --- a/Empresas/Grales/Formatos/Conciliacion.rdlc +++ b/Empresas/Grales/Formatos/Conciliacion.rdlc @@ -2003,7 +2003,7 @@ - Contralor + Contador HTML - Contralor + Contador HTML + + + + Sucursal: + + + + + Textbox1 11.66812cm 0.10722cm - 2.31759cm + 2.54689cm 3.426cm 54 + + + - Contador + Contralor HTML - - - - -
  • - PDF -
    • - -
  • - Excel -
    • - -     - - Programación de Recursos - - - - - - - -
    -
    -
    - - "> - -
    -
    -
    -
    Proveedor:
    -
    - +<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepProgramarRecursos.aspx.vb" Inherits="Bancos_RepProgramarRecursos" %> + +<%@ Import Namespace="Extensiones" %> + + + + + + + +
  • + PDF +
    • + +
  • + Excel +
    • + +     + + Programación de Recursos + + + + + + + +
    +
    +
    + + "> + +
    +
    +
    +
    Proveedor:
    +
    + <%-- - --%> -
    -
    Clasificaciones:
    -
    - - - - -
    - +
    Clasificaciones:
    +
    + + + + +
    + -
    Aplica NC:
    -
    - - - - - -<%-- --%> -
    - -
    - - -
    - - - - - - - - - - - -
    -     -     -
    -
    -
    -
    -
    > -
    -
    Tipo Prov.:
    -
    - - - - - - -
    -
    F.I.:
    -
    -
    - - - - - - - - - - -
    -
    -
    F.F.:
    -
    -
    - - - - - - - - - - -
    -
    - - -
    -
    -
    Moneda:
    -
    - - - -
    -
    F.I.V.:
    -
    -
    - - - - - - - - - - -
    -
    -
    F.F.V.:
    -
    -
    - - - - - - - - - - -
    -
    -
    -
    -
    Registró:
    -
    - - -
    -
    Responsable:
    -
    - - - -
    -
    -
    - - - - -
    -
    -
    -
    Estatus:
    -
    - - - -
    -
    Proyecto:
    -
    - - - -
    -
    SubProyecto:
    -
    - - - - - - - -
    -
    Comprobación:
    -
    - - - - - -
    -
    -
    -
    -     -     -     -     - - - - - -
    - " style="display: inline-block; margin-right: -20px; width: 150px;" /> - " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> -
    - - - - -
    -
    -
    -
    - - Total -
    -
    Pesos
    -
    - -
    -
    Dólares
    -
    - -
    -
    T.C.
    -
    - -
    -
    Total
    -
    - -
    - -
    - -
    -
    - - - -
    -
    - - Programación -
    -
    - -
    -
    -
    -
    - -
    - -
    - -
    - -
    - -
    - -
    - -
    - -
    - - - - - -
    -
    - -     -
    -
    -
    - - - - - - - <%# Eval("RazonSocial")%> - - -
    -  /  -
    -     -     + +
    +
    Aplica NC:
    +
    + + + + + + <%-- --%> +
    + +
    + + +
    + + + + + + + + + + + +
    +     +     +
    +
    +
    +
    +
    > +
    +
    Tipo Prov.:
    +
    + + + + + + +
    +
    F.I.:
    +
    +
    + + + + + + + + + + +
    +
    +
    F.F.:
    +
    +
    + + + + + + + + + + +
    +
    + + +
    +
    +
    Moneda:
    +
    + + + +
    +
    F.I.V.:
    +
    +
    + + + + + + + + + + +
    +
    +
    F.F.V.:
    +
    +
    + + + + + + + + + + +
    +
    +
    +
    +
    Registró:
    +
    + + +
    +
    Responsable:
    +
    + + + +
    +
    +
    + + + + +
    +
    +
    +
    Estatus:
    +
    + + + +
    +
    Proyecto:
    +
    + + + +
    +
    SubProyecto:
    +
    + + + + + + + +
    +
    Comprobación:
    +
    + + + + + +
    +
    +
    +
    + + + + + + + + + +
    + " style="display: inline-block; margin-right: -20px; width: 150px;" /> + " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> +
    + + + + +
    +
    +
    +
    + + Total +
    +
    Pesos
    +
    + +
    +
    Dólares
    +
    + +
    +
    T.C.
    +
    + +
    +
    Total
    +
    + +
    + +
    + +
    +
    + + + +
    +
    + + Programación +
    +
    + +
    +
    +
    +
    + +
    + +
    + +
    + +
    + +
    + +
    + +
    + +
    + + + + + +
    +
    + +     +
    +
    +
    + + + + + + + <%# Eval("RazonSocial")%> + + +
    +  /  +
    +     +     <%--
    @@ -402,158 +403,169 @@ - --%> - - - -
    -   -
    -     - - - -     - + --%> + + + +
    +   +
    +     + + + +     + <%-- Aplica NC - --%> - - - -
    -   -
    -     - - - -     - - - -
    -   -
    -     - - - -     - - -
    -   -
    -     - - - -     - - -
    -   -
    -     - - - -     - - -
    -   -
    -     - - - - - -     - - -
    -   -
    -     - - - - -     - - -
    -   -
    -     - - - - - -     - - -
    + --%> + + + +
    +   +
    +     + + + +     + + + +
    +   +
    +     + + + +     + + +
    +   +
    +     + + + +     + + +
    +   +
    +     + + + +     + +<%-- +
    + +
    +     --%> + + + +     + + +
    +   +
    +     + + + + + +     + + +
    +   +
    +     + + + + +     + + +
    +   +
    +     + + + + + +     + + +
    Sel - - - - - - - -
    -
    -
    - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + +     + + + +     +     +     +
    +
    +
    + +     + +     + + + + + + + + + + + + + + + + + + + + + + +     +     + +     + + + + + + + + - + + - - + + + diff --git a/Bancos/RepProgramarRecursos.aspx.vb b/Bancos/RepProgramarRecursos.aspx.vb index af93c7aca..5c2cd3230 100644 --- a/Bancos/RepProgramarRecursos.aspx.vb +++ b/Bancos/RepProgramarRecursos.aspx.vb @@ -342,7 +342,9 @@ Partial Class Bancos_RepProgramarRecursos LblPesosTotal.Text = String.Format("$ {0}", DtDatos.SUM("SaldoPesos", "CveCompra > 0").ToString.FormatoNumero()) LblAcumulado.Text = String.Format("$ {0}", DtDatos.MAX("TotalProgramado", "CveCompra > 0").ToString.FormatoNumero()) - End If + End If + + Gv.Columns(6).Visible = (UsuarioActual.Empresa.Funcionalidad(131).ToEntero > 0 Or UsuarioActual.Empresa.Funcionalidad(134).ToEntero > 0) Mov.Dispose() CargaGrid(Orden) @@ -434,19 +436,41 @@ Partial Class Bancos_RepProgramarRecursos e.Row.FCCheckBox("Chk").Attributes.Add("onclick", String.Format(" $get('{0}').readOnly = !this.checked;", e.Row.FCTextBox("TxtS").ClientID)) 'cuando estan programado, el saldo es el importe programado, para saber el total que se limite el rango, debe de ser el saldo real, saldo + importeprogramado e.Row.FCTextBox("TxtS").Attributes.Add("onkeyup", String.Format("FnMonedaRango(this,{0});", e.Row.DBCampo("Original").ToDouble + e.Row.DBCampo("Abonado").ToDouble)) + End If + + + 'If UsuarioActual.Empresa.GralSoloProyecto Then ' solo muestar el subproyecto + ' e.Row.FCDropDownList("DdlCuenta").Visible = True + ' e.Row.FCDropDownList("DdlCuenta").DataSource = DtCuentas + ' e.Row.FCDropDownList("DdlCuenta").DataBind() + + ' e.Row.FCDropDownList("DdlMov").Visible = True + ' e.Row.FCDropDownList("DdlMov").DataSource = DtTipoTransaccion + ' e.Row.FCDropDownList("DdlMov").DataBind() + + 'End If + + If UsuarioActual.Empresa.Funcionalidad(131).ToEntero > 0 Or UsuarioActual.Empresa.Funcionalidad(134).ToEntero > 0 Then + Dim Str As New StringBuilder + Str.AppendFormat("Importe Almacen: ${0} ({1}%)
    ", e.Row.DBCampo("ImporteAlmacen").FormatoNumero, e.Row.DBCampo("ImporteAlmacenPorcentaje")) + If e.Row.DBCampo("ImporteServicios").ToDouble > 0 Then Str.AppendFormat("Importe Servicios: ${0} ({1}%)
    ", e.Row.DBCampo("ImporteServicios").FormatoNumero, e.Row.DBCampo("ImporteServiciosPorcentaje")) + If e.Row.DBCampo("ImporteDevolucion").ToDouble > 0 Then Str.AppendFormat("Importe Devuelto: ${0} ({1}%)
    ", e.Row.DBCampo("ImporteDevolucion").FormatoNumero, e.Row.DBCampo("ImporteDevolucionPorcentaje")) + Str.AppendFormat(" Importes SIN IVA") + + e.Row.FCLabel("LbEstatusInv").Attributes.Add("title", Str.ToString) + Select Case e.Row.DBCampo("EstatusInventario").ToEntero + Case 1 + e.Row.FCLabel("LbEstatusInv").Text = "" + e.Row.FCLabel("LbEstatusInv").ForeColor = Drawing.Color.Red + Case 2 + e.Row.FCLabel("LbEstatusInv").Text = "" + e.Row.FCLabel("LbEstatusInv").ForeColor = Drawing.Color.DarkOrange + Case 3 + e.Row.FCLabel("LbEstatusInv").Text = "" + e.Row.FCLabel("LbEstatusInv").ForeColor = Drawing.Color.Green + End Select End If - - 'If UsuarioActual.Empresa.GralSoloProyecto Then ' solo muestar el subproyecto - ' e.Row.FCDropDownList("DdlCuenta").Visible = True - ' e.Row.FCDropDownList("DdlCuenta").DataSource = DtCuentas - ' e.Row.FCDropDownList("DdlCuenta").DataBind() - - ' e.Row.FCDropDownList("DdlMov").Visible = True - ' e.Row.FCDropDownList("DdlMov").DataSource = DtTipoTransaccion - ' e.Row.FCDropDownList("DdlMov").DataBind() - - 'End If End If If e.Row.DBCampo("Saldo").ToDouble < 0 Then e.Row.Cells(1).ForeColor = Drawing.Color.Red From f4f49948829b0267fb91eb51f4084ac7a0cef7b6 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Tue, 4 Feb 2020 09:02:53 -0700 Subject: [PATCH 04/22] mensaje de error al no tener NC --- Ventas/ClientesAbonar.aspx.vb | 14 ++++++++------ 1 file changed, 8 insertions(+), 6 deletions(-) diff --git a/Ventas/ClientesAbonar.aspx.vb b/Ventas/ClientesAbonar.aspx.vb index 99e1f03d7..4b8a485f2 100644 --- a/Ventas/ClientesAbonar.aspx.vb +++ b/Ventas/ClientesAbonar.aspx.vb @@ -1585,11 +1585,13 @@ Partial Class Ventas_ClientesAbonar If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then If MsgError = "" Then - Dim Resp = GenerarNC(ObjIE.IniciaTransacSQL(), ObjConta, ListaFacturasGenerarNC) - If Resp.CveVenta > 0 Then - NCGeneradas.Add(Resp) - Else - MsgError = "No se pudo generar la nota de credito" + If ListaFacturasGenerarNC.Count > 0 Then + Dim Resp = GenerarNC(ObjIE.IniciaTransacSQL(), ObjConta, ListaFacturasGenerarNC) + If Resp.CveVenta > 0 Then + NCGeneradas.Add(Resp) + Else + MsgError = "No se pudo generar la nota de credito" + End If End If End If End If @@ -1911,7 +1913,7 @@ Partial Class Ventas_ClientesAbonar ObjFacturaDevolucion.DtVentasNC = DtVentasNC ObjFacturaDevolucion.GenerarPDFFactura = True - Dim Resp = ObjFacturaDevolucion.EmitirFactura(False, Trasac:=Trasac, ObjContPaqTransac:=ObjConta) + Dim Resp = ObjFacturaDevolucion.EmitirFactura(False, Transac:=Trasac, ObjContPaqTransac:=ObjConta) Return Resp End Function From b9731e598c1074dd0e203dfb0c622e7d20aebc9d Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Tue, 4 Feb 2020 09:03:13 -0700 Subject: [PATCH 05/22] --- Ventas/PV.aspx.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Ventas/PV.aspx.vb b/Ventas/PV.aspx.vb index 1cb6a40b2..83b8cd235 100644 --- a/Ventas/PV.aspx.vb +++ b/Ventas/PV.aspx.vb @@ -5323,7 +5323,7 @@ Partial Class PV TxtImporteAjuste.ToolTip = $"La diferencia de ajuste fue: {(TxtPrecio.Text.ToDouble - TxtImporteAjuste.Text.ToDouble).FormatoNumero()}. La diferencia de tamaños fue: {(CargoVendido - CargoGarantia).FormatoNumero}." TxtImporteAjuste.Text = ((TxtPUFactura.Text.ToDouble - TxtImporteAjuste.Text.ToDouble) - (CargoVendido - CargoGarantia)).FormatoNumero - TxtPagarCliente.Text = ImportePagarCliente.FormatoNumero + 'TxtPagarCliente.Text = ImportePagarCliente.FormatoNumero Else Alert("El producto no tiene ajuste en ese periodo", TipoMensaje.MsgAdvertencia) 'cuando no está registrada, no da ajuste From 95358ad6f61d1479e615e3af653a228a4e5f6900 Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Tue, 4 Feb 2020 09:59:29 -0700 Subject: [PATCH 06/22] Agregar campos de CargoMN y AbonoMN en AuxiliarProveedores --- .../Grales/Formatos/AuxiliarProveedor.rdlc | 64 ++++++++++--------- 1 file changed, 33 insertions(+), 31 deletions(-) diff --git a/Empresas/Grales/Formatos/AuxiliarProveedor.rdlc b/Empresas/Grales/Formatos/AuxiliarProveedor.rdlc index 037e9e403..7306eef7f 100644 --- a/Empresas/Grales/Formatos/AuxiliarProveedor.rdlc +++ b/Empresas/Grales/Formatos/AuxiliarProveedor.rdlc @@ -56,28 +56,28 @@ 2.54731cm - 1.73227cm + 0.70704cm 1.66702cm - 2.26144cm + 1.99686cm - 1.46086cm + 1.96369cm - 1.09776cm + 1.75246cm - 1.57396cm + 0.85958cm - 1.37522cm + 1.6398cm - 1.23062cm + 1.77947cm @@ -95,7 +95,7 @@ =Fields!Fecha.Value @@ -130,7 +130,7 @@ =Fields!ConceptoContable.Value @@ -164,7 +164,7 @@ =Fields!TipoDocto.Value @@ -198,7 +198,7 @@ =Fields!SerieFolio.Value @@ -232,7 +232,7 @@ =Fields!FolioReferencia.Value @@ -266,7 +266,7 @@ =Fields!Cargo.Value @@ -301,7 +301,7 @@ =Fields!Abono.Value @@ -336,7 +336,7 @@ =Fields!Abreviatura.Value @@ -370,7 +370,8 @@ =Fields!CargoMN.Value @@ -404,7 +405,8 @@ =Fields!AbonoMN.Value @@ -435,7 +437,7 @@ - 0.8593cm + 0.59472cm true @@ -473,7 +475,7 @@ - 0.8593cm + 0.59472cm true @@ -511,7 +513,7 @@ - 0.8593cm + 0.59472cm true @@ -549,7 +551,7 @@ - 0.8593cm + 0.59472cm true @@ -587,7 +589,7 @@ - 0.8593cm + 0.59472cm true @@ -625,7 +627,7 @@ - 0.8593cm + 0.59472cm true @@ -663,7 +665,7 @@ - 0.8593cm + 0.59472cm true @@ -701,7 +703,7 @@ - 0.8593cm + 0.59472cm true @@ -710,7 +712,7 @@ - Moneda + Mon. @@ -739,7 +741,7 @@ - 0.8593cm + 0.59472cm true @@ -777,7 +779,7 @@ - 0.8593cm + 0.59472cm true @@ -831,7 +833,7 @@ =Fields!RazonSocial.Value @@ -860,8 +862,8 @@ DataSet1 0.75875cm 0.06614cm - 1.4593cm - 19.58715cm + 1.19472cm + 19.55393cm From f01acf75350e5d5d4f7ac013d2a609330bcf4da5 Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Tue, 4 Feb 2020 11:37:14 -0700 Subject: [PATCH 07/22] . --- Compras/PopUpVerFactura.aspx.vb | 48 ++++++++++++++++++++------------- Ventas/PV.aspx | 4 --- 2 files changed, 30 insertions(+), 22 deletions(-) diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb index c31f4f01a..38f493d93 100644 --- a/Compras/PopUpVerFactura.aspx.vb +++ b/Compras/PopUpVerFactura.aspx.vb @@ -1067,39 +1067,51 @@ Partial Class PopUpVerFactura If ObjVentas.DtResultados IsNot Nothing AndAlso ObjVentas.DtResultados.Rows.Count > 0 Then ObjVentas.DtResultados.Columns.Add("Importe", GetType(Decimal)) ObjVentas.DtResultados.Rows(0)("Importe") = ObjVentas.DtResultados.Rows(0)("Total") - Vta.DtDocumentosRelacionados = ObjVentas.DtResultados.FiltraParametros("FolioFiscal IS NOT NULL") + Vta.DtDocumentosRelacionados = ObjVentas.DtResultados.FiltraParametros("FolioFiscal IS NOT NULL") + If ObjVentas.GetVentasRelacionadas(CveVenta, UsuarioActual.CveEmpresa) Then + Vta.DtNCVinculadas = ObjVentas.DtResultados + Vta.DtDocumentosRelacionados = ObjVentas.DtResultados.FiltraParametros("FolioFiscal IS NOT NULL") + If Vta.DtDocumentosRelacionados.Rows.Count > 0 Then + If Vta.TipoDocto.Contiene("Dev") Then + Vta.Timbre.CFDIRelacionados.TipoRelacion = "03" + Vta.Timbre.CFDIRelacionados.TipoRelacionTexto = "Devolución aplicada a Ingreso" + End If + End If + End If End If End If Else - If dtVentas(0)("TipoDocto").ToString.Contiene("Ing", "Ant", "Rem") Then - 'carga as notas de credito vinculadas - If ObjVentas.GetVentasAntNC(CveVenta, -1) Then - Vta.DtDocumentosRelacionados = ObjVentas.DtResultados.FiltraParametros("FolioFiscal IS NOT NULL") - End If - End If + 'If dtVentas(0)("TipoDocto").ToString.Contiene("Ing", "Ant", "Rem") Then + ' 'carga as notas de credito vinculadas + ' If ObjVentas.GetVentasAntNC(CveVenta, -1) Then + ' Vta.DtDocumentosRelacionados = ObjVentas.DtResultados.FiltraParametros("FolioFiscal IS NOT NULL") + ' End If + 'End If - If dtVentas(0)("TipoDocto").ToString.Contiene("Egs", "Dev", "Ant") Then - If ObjVentas.GetVentasAntNC(-1, CveVenta) Then + If dtVentas(0)("TipoDocto").ToString.Contiene("Egs", "Dev", "Ant") Then + + If ObjVentas.GetVentasRelacionadas(CveVenta, UsuarioActual.CveEmpresa) Then + Vta.DtNCVinculadas = ObjVentas.DtResultados Vta.DtDocumentosRelacionados = ObjVentas.DtResultados.FiltraParametros("FolioFiscal IS NOT NULL") If Vta.DtDocumentosRelacionados.Rows.Count > 0 Then If Vta.TipoDocto.Contiene("Dev") Then Vta.Timbre.CFDIRelacionados.TipoRelacion = "03" Vta.Timbre.CFDIRelacionados.TipoRelacionTexto = "Devolución aplicada a Ingreso" End If - End If + End If End If End If End If 'End If - If Vta.TipoDocto.Contiene("Egs", "Dev", "Ant") Then - If ObjVentas.GetVentasAntNC(-1, CveVenta) Then - Vta.DtNCVinculadas = ObjVentas.DtResultados - End If - If ObjVentas.GetVentasRelacionadas(CveVenta, UsuarioActual.CveEmpresa) Then - Vta.FolioFiscal = ObjVentas.DtResultados.FiltroPrimeroValor("FolioFiscal") - End If - End If + 'If Vta.TipoDocto.Contiene("Egs", "Dev", "Ant") Then + ' 'If ObjVentas.GetVentasAntNC(-1, CveVenta) Then + ' ' Vta.DtNCVinculadas = ObjVentas.DtResultados + ' 'End If + ' If ObjVentas.GetVentasRelacionadas(CveVenta, UsuarioActual.CveEmpresa) Then + ' Vta.DtNCVinculadas = ObjVentas.DtResultados + ' End If + 'End If End If ObjVentas.Dispose() diff --git a/Ventas/PV.aspx b/Ventas/PV.aspx index bf162ff6a..327dbb21f 100644 --- a/Ventas/PV.aspx +++ b/Ventas/PV.aspx @@ -2333,7 +2333,6 @@
    -
    @@ -2354,7 +2353,6 @@
    -
    @@ -2385,8 +2383,6 @@
    - -
    From 555773d044667d8dc5bcd7cef5de639560d99a6d Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Wed, 5 Feb 2020 13:11:06 -0700 Subject: [PATCH 08/22] Comisione cobradas en reporte de comisiones --- Ventas/RepComisiones.aspx | 10 ++-- Ventas/RepComisiones.aspx.vb | 96 +++++++++++++++----------------- Ventas/RepComisionesDetalle.aspx | 3 + 3 files changed, 54 insertions(+), 55 deletions(-) diff --git a/Ventas/RepComisiones.aspx b/Ventas/RepComisiones.aspx index 2b5127d5f..293384f61 100644 --- a/Ventas/RepComisiones.aspx +++ b/Ventas/RepComisiones.aspx @@ -117,6 +117,7 @@ --%> + @@ -191,11 +192,12 @@
    -
    +<%--
    - + + @@ -208,11 +210,11 @@
    -
    +
    --%>
    - + diff --git a/Ventas/RepComisiones.aspx.vb b/Ventas/RepComisiones.aspx.vb index 6edfa8fbd..e377dfb71 100644 --- a/Ventas/RepComisiones.aspx.vb +++ b/Ventas/RepComisiones.aspx.vb @@ -24,8 +24,8 @@ Partial Class Ventas_RepComisiones Private Sub InicializaValores() txtFechaI.Text = FirstDayOfMonth(Now).ToShortDateString - txtFechaF.Text = Now.LastDayOfMonth.ToShortDateString - + txtFechaF.Text = Now.LastDayOfMonth.ToShortDateString + TxtAnio.Text = Now.Year.ToString() DdlMes.SelectedValueExist(Now.Month) @@ -35,8 +35,8 @@ Partial Class Ventas_RepComisiones DdlVendedorAjuste.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa) DdlVendedorAjuste.DataBind() - DdlVendedorPorcentaje.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa) - DdlVendedorPorcentaje.DataBind() + 'DdlVendedorPorcentaje.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa) + 'DdlVendedorPorcentaje.DataBind() End Sub @@ -205,65 +205,59 @@ Partial Class Ventas_RepComisiones #End Region Protected Sub BtnGuardarPorcentajeComision_Click(sender As Object, e As EventArgs) - Dim CveVendedor As Integer = DdlVendedorPorcentaje.SelectedValue.ToEntero() - Dim Mes As Integer = DdlMes.SelectedValue.ToEntero() - Dim Anio As Integer = TxtAnio.Text.ToEntero() - - Dim Porcentaje As Decimal = TxtPorcentajeComision.Text.ToDecimal() / 100 - Dim RowCierre As DataRow = Nothing + Dim TieneError As Boolean = False Dim ObjVentas As New ClsVentas Try - If ObjVentas.GetCierreComisionVendedor(CveVendedor, Mes, Anio, UsuarioActual.CveEmpresa) AndAlso ObjVentas.DtResultados.Rows.Count > 0 Then - RowCierre = ObjVentas.DtResultados.Rows(0) - End If + ObjVentas.IniciaTransacSQL() + Dim Mes As Integer = DdlMes.SelectedValue.ToEntero() + Dim Anio As Integer = TxtAnio.Text.ToEntero() - If RowCierre IsNot Nothing Then - If ObjVentas.UpdateCierreComisionVendedor(CveVendedor, Mes, Anio, Porcentaje) Then - Alert("El porcentaje de comisiones se guardo correctamente.", TipoMensaje.MsgInformacion) - Else - Alert("Ocurrió un error al guardar el porcentaje de comisiones.", TipoMensaje.MsgError) + For Each GvRow As GridViewRow In GvDatos.Rows + If GvRow.RowType = DataControlRowType.DataRow Then + + If GvRow.DataKey("CveVendedor").ToEntero() > 0 Then + Dim Porcentaje As Decimal = GvRow.DataKey("Comision").ToDecimal() / 100 + + If ObjVentas.GetCierreComisionVendedor(GvRow.DataKey("CveVendedor").ToEntero(), Mes, Anio, UsuarioActual.CveEmpresa) Then + If ObjVentas.DtResultados.Rows.Count > 0 Then + RowCierre = ObjVentas.DtResultados.Rows(0) + End If + Else + TieneError = True + End If + + If RowCierre IsNot Nothing Then + TieneError = Not ObjVentas.UpdateCierreComisionVendedor(GvRow.DataKey("CveVendedor").ToEntero(), Mes, Anio, Porcentaje) + Else + TieneError = Not ObjVentas.AddCierreComisionVendedor(GvRow.DataKey("CveVendedor").ToEntero(), Mes, Anio, Porcentaje) + End If + + If TieneError Then + Exit For + End If + End If + + RowCierre = Nothing End If - Else - If ObjVentas.AddCierreComisionVendedor(CveVendedor, Mes, Anio, Porcentaje) Then - Alert("El porcentaje de comisiones se guardo correctamente.", TipoMensaje.MsgInformacion) - Else - Alert("Ocurrió un error al guardar el porcentaje de comisiones.", TipoMensaje.MsgError) - End If - End If + Next + Catch ex As Exception + TieneError = True OnError("Ocurrió un error al asginar el porcentaje de la comisión", ex) End Try - ObjVentas.Dispose() - - UpPorcentajeComisiones.Update() - End Sub - Protected Sub DdlVendedorPorcentaje_SelectedIndexChanged(sender As Object, e As EventArgs) - CargaPorcentajeComisiones() - End Sub - Protected Sub DdlMes_SelectedIndexChanged(sender As Object, e As EventArgs) - CargaPorcentajeComisiones() - End Sub - Protected Sub CargaPorcentajeComisiones() - Dim CveVendedor As Integer = DdlVendedorPorcentaje.SelectedValue.ToEntero() - Dim Mes As Integer = DdlMes.SelectedValue.ToEntero() - Dim Anio As Integer = TxtAnio.Text.ToEntero() - - Dim RowCierre As DataRow = Nothing - - Dim ObjVentas As New ClsVentas - If ObjVentas.GetCierreComisionVendedor(CveVendedor, Mes, Anio, UsuarioActual.CveEmpresa) AndAlso ObjVentas.DtResultados.Rows.Count > 0 Then - RowCierre = ObjVentas.DtResultados.Rows(0) - End If - ObjVentas.Dispose() - - If RowCierre IsNot Nothing Then - TxtPorcentajeComision.Text = (RowCierre("PorcentajeComision").ToString().ToDecimal() * 100).FormatoNumero(0) + If TieneError Then + ObjVentas.RollBack() + Alert("Ocurrió un error al guardar el porcentaje de comisiones.", TipoMensaje.MsgError) Else - TxtPorcentajeComision.Text = "0" + ObjVentas.Commit() + Alert("El porcentaje de comisiones se guardó correctamente.", TipoMensaje.MsgInformacion) End If + ObjVentas.Dispose() + CargaDatos() + UPDatos.Update() UpPorcentajeComisiones.Update() End Sub End Class diff --git a/Ventas/RepComisionesDetalle.aspx b/Ventas/RepComisionesDetalle.aspx index 2cdebf3bb..918565e84 100644 --- a/Ventas/RepComisionesDetalle.aspx +++ b/Ventas/RepComisionesDetalle.aspx @@ -126,6 +126,9 @@ + + + <%----%> From 4cb1489b033b1785c21e3fd1883f7b52b1de86f5 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Wed, 5 Feb 2020 13:11:38 -0700 Subject: [PATCH 09/22] Error al guardar folio de poliza --- Compras/Compras.aspx.vb | 59 ++++++++++++++++++++++++----------------- 1 file changed, 34 insertions(+), 25 deletions(-) diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index f5a0be724..14fe93b5f 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -7904,6 +7904,7 @@ Partial Class Compras_Compras 'AJUSTA POLIZA If IdPoliza > 0 Then + PolizaFolio = ObjContaAC.Folio ObjContaAC.AjustaPoliza(IdPoliza) Msg.AppendFormat("

    Ver Póliza", IdPoliza) End If @@ -7914,35 +7915,43 @@ Partial Class Compras_Compras Msg.AppendFormat("
    Imprimir Entrada Almacen", TempParametros) End If - ObjCompras.UpdateCompraPrePoliza(TxtFecha.Text.ToDate, PolizaFolio.ToString, IdPoliza, CvePrePoliza, CveCompra, 0) - + If Not ObjCompras.UpdateCompraPrePoliza(TxtFecha.Text.ToDate, PolizaFolio.ToString, IdPoliza, CvePrePoliza, CveCompra, 0) Then + TieneError = True + End If + If EntregaDirecta Then Msg.AppendFormat($"
    Recibir mercancía de entrega directa.") End If - ObjCompras.Commit() - If ObjContaAC IsNot Nothing Then ObjContaAC.Commit() - - Dim CveEvaluacionProveedor As Integer = -1 - - If Me.RequiereEvaluacion Then - Dim ObjPro As New ClsCompProveedores() - CveEvaluacionProveedor = ObjPro.AddEvaluacionProveedor(CveProveedor, CveCompra, Now, "", Me.CveUsuarioEvaluador, "", "", UsuarioActual.CveEmpresa) - ObjPro.Dispose() - End If - - 'ENVIO DE CORREO NOTIFICACION A VENDEDORES DE OC - MandaCorreoOCVendedores(CveCompra) - If Not ErrorMovInv Then - For Each intMovimientoAlmacen As Integer In ListaMovimientosAlmacen - MandaCorreoOCVendedoresRecepcionAlmacen(CveCompra, intMovimientoAlmacen) - Next - End If - - If CveEvaluacionProveedor > 0 Then - Msg.Append("

    El proveedor tiene evaluaciones pendientes
    ") - Msg.Append("¿Desea realizar una evaluacion al proveedor?") - Msg.AppendFormat($"
    Evaluar Proveedor.") + If Not TieneError Then + ObjCompras.Commit() + If ObjContaAC IsNot Nothing Then ObjContaAC.Commit() + + Dim CveEvaluacionProveedor As Integer = -1 + + If Me.RequiereEvaluacion Then + Dim ObjPro As New ClsCompProveedores() + CveEvaluacionProveedor = ObjPro.AddEvaluacionProveedor(CveProveedor, CveCompra, Now, "", Me.CveUsuarioEvaluador, "", "", UsuarioActual.CveEmpresa) + ObjPro.Dispose() + End If + + 'ENVIO DE CORREO NOTIFICACION A VENDEDORES DE OC + MandaCorreoOCVendedores(CveCompra) + If Not ErrorMovInv Then + For Each intMovimientoAlmacen As Integer In ListaMovimientosAlmacen + MandaCorreoOCVendedoresRecepcionAlmacen(CveCompra, intMovimientoAlmacen) + Next + End If + + If CveEvaluacionProveedor > 0 Then + Msg.Append("

    El proveedor tiene evaluaciones pendientes
    ") + Msg.Append("¿Desea realizar una evaluacion al proveedor?") + Msg.AppendFormat($"
    Evaluar Proveedor.") + End If + Else + ObjCompras.RollBack() + If ObjContaAC IsNot Nothing Then ObjContaAC.RollBack() + Alert("Ocurrio un error al guardar la compra. Por favor intente nuevamente.", TipoMensaje.MsgError) End If Alert(Msg.ToString, TipoMensaje.MsgInformacion, MsgAccionAceptar) From 64bd98a4336cb36b3908efe5617736a6131a0bf1 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Wed, 5 Feb 2020 15:55:36 -0700 Subject: [PATCH 10/22] Marca usado en poliza virtual --- Ventas/Ventas.aspx | 2 +- Ventas/Ventas.aspx.vb | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx index 4a65d41f7..bab61a147 100644 --- a/Ventas/Ventas.aspx +++ b/Ventas/Ventas.aspx @@ -1308,7 +1308,7 @@
    + DataKeyNames="CvePolizaVirtual,SerieLote,IdProductoPolizaVirtual,Total,Descuento,AnioVehiculo,FechaUsado,IdModeloAuto,IdMarcaAuto,IdBCI,TipoServicio,TipoPoliza,TieneUsado,IdMarcaUsado" ClientIDMode="Static" EmptyDataText="" GridLines="None"> diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 25e96e9f9..ad4b4e98e 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -24079,7 +24079,7 @@ Partial Class Ventas If obj.used_product Then Dim FechaUsado As DateTime = Row.DataKey("FechaUsado").ToString().ToDateTime() - obj.used_brand = Row.DataKey("IdModelo").ToString().Trim() 'MARCAR DEL USADO + obj.used_brand = Row.DataKey("IdMarcaUsado").ToString().Trim() 'MARCAR DEL USADO obj.used_bci = Row.DataKey("IdBCI").ToString().Trim() 'VALOR DEL BCI obj.used_month = FechaUsado.Month obj.used_year = FechaUsado.Year From 15f3bf23571f850f1a39d241ca76d938cb410e51 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Wed, 5 Feb 2020 15:56:07 -0700 Subject: [PATCH 11/22] Quitar serie folio de factura en clientes --- Ventas/Clientes.aspx.vb | 13 +++++++++---- 1 file changed, 9 insertions(+), 4 deletions(-) diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb index f5fb1f7eb..d37ad69e5 100644 --- a/Ventas/Clientes.aspx.vb +++ b/Ventas/Clientes.aspx.vb @@ -9197,12 +9197,17 @@ Partial Class Clientes AgregarProductoServicio(1, CveUnidadMedida, UnidadMedida, CveClasificacion, Clasificacion, CvePS, PS, "Clientes/Usados", SubTotal, 0, -1, "", DdlSubProyecto.SelectedValue.ToEntero, DdlSubProyecto.SelectedItem.Text, PorcentajeIVA:=PorcentajeIVA) - Dim Folio As Integer = 0 + Dim Folio As Integer = -1 Dim Serie As String = "" - If FolioNotaCredito(Tipo) Then - Folio = FolioNotaAcumulador - Serie = SerieNotaAcumulador + 'If FolioNotaCredito(Tipo) Then + ' Folio = FolioNotaAcumulador + ' Serie = SerieNotaAcumulador + 'End If + + If ObjFactura IsNot Nothing Then + ObjFactura.Dispose() + ObjFactura = Nothing End If ObjFactura = New Modelos.Factura(UsuarioActual) From ef8a2a74d1ec4137d8b69e070f142932e43a01e8 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Wed, 5 Feb 2020 15:56:25 -0700 Subject: [PATCH 12/22] --- vwd.webinfo | 20 +++++++++++--------- 1 file changed, 11 insertions(+), 9 deletions(-) diff --git a/vwd.webinfo b/vwd.webinfo index 07746b18a..bbbac0242 100644 --- a/vwd.webinfo +++ b/vwd.webinfo @@ -1,10 +1,12 @@ - - - - - - - + + + + + + + + + \ No newline at end of file From 816174483ab02b34779da6ffcd2e1468759683b3 Mon Sep 17 00:00:00 2001 From: Rakcsle Supertramp Date: Wed, 5 Feb 2020 17:10:50 -0700 Subject: [PATCH 13/22] round sql importe iva nota de credito , lectura sucia get poliza en ClsConpaqi --- App_Code/ClsContPAQi.vb | 40 +++++++++++++++++++++------------------- Ventas/Ventas.aspx.vb | 5 ++++- vwd.webinfo | 24 +++++++++++++++--------- 3 files changed, 40 insertions(+), 29 deletions(-) diff --git a/App_Code/ClsContPAQi.vb b/App_Code/ClsContPAQi.vb index baa716b43..0c1a2d1b9 100644 --- a/App_Code/ClsContPAQi.vb +++ b/App_Code/ClsContPAQi.vb @@ -1063,25 +1063,27 @@ Public Class ClsContPAQi Dim Retorno As Boolean = False StrSQL.Clear() - StrSQL.Append(" SELECT mp.id, mp.IdPoliza, mp.NumMovto, mp.IdCuenta , mp.IdCuenta as CveCuenta, c.CODIGO, c.NOMBRE as Cuenta , T.Codigo as CodigoTipoPoliza, T.Nombre AS TipoPoliza, mp.Folio, mp.Importe, mp.Concepto, mp.Referencia, mp.SIGReferencia, mp.Fecha, mp.IdSegNeg, p.IdUsuario, s.Nombre AS SegNeg, p.Fecha AS FechaPol, p.Cargos, p.Abonos, p.Concepto AS ConceptoPoliza, ") - StrSQL.Append(" CASE WHEN ISNUMERIC(c.Codigo) = 1 THEN FORMAT(CAST (c.Codigo AS FLOAT),(SELECT REPLACE(Mascarilla,'X','0') FROM Parametros)) ELSE c.Codigo END + ' - ' + c.Nombre + ' ' AS CtaCodigo, ") 'Roberto 8/Nov/2014 - StrSQL.Append(" SUM (CASE WHEN mp.TipoMovto = 0 THEN mp.Importe ELSE 0 END) AS Cargo, SUM (CASE WHEN mp.TipoMovto = 1 THEN mp.Importe ELSE 0 END) AS Abono, ") - StrSQL.Append(" SUM (CASE WHEN mp.TipoMovto = 0 THEN mp.ImporteME ELSE 0 END) AS CargoME, SUM (CASE WHEN mp.TipoMovto = 1 THEN mp.ImporteME ELSE 0 END) AS AbonoME, ") - StrSQL.Append(" mp.TipoMovto, CASE WHEN ISNUMERIC(c.CODIGO) = 1 THEN FORMAT(CAST (c.CODIGO AS FLOAT),(SELECT REPLACE(Mascarilla,'X','0') FROM Parametros)) ELSE c.CODIGO END CuentaFormato, '' as Estado,MAX(U.Nombre) AS UsuarioRegistro ") - StrSQL.Append(" FROM MovimientosPoliza mp ") - StrSQL.Append(" INNER JOIN Polizas p ON mp.IdPoliza = p.Id ") - StrSQL.Append(" INNER JOIN Cuentas c ON c.Id = mp.IdCuenta ") - StrSQL.Append(" INNER JOIN TiposPolizas t ON mp.TipoPol = t.Codigo ") - StrSQL.Append(" LEFT JOIN SERVIDOR.Ventas.dbo.Usuarios U ON U.CveUsuario = P.IdUsuario ") - StrSQL.Append(" LEFT JOIN SegmentosNegocio s ON mp.IdSegNeg = s.id ") - StrSQL.Append(" WHERE (@IdPoliza = -1 OR mp.IdPoliza = @IdPoliza) ") - StrSQL.Append(" AND (@Eje = -1 OR mp.Ejercicio = @Eje) ") - StrSQL.Append(" AND (@Periodo = -1 OR mp.Periodo = @Periodo) ") - StrSQL.Append(" AND (@TipoPol = -1 OR mp.TipoPol = @TipoPol) ") - StrSQL.Append(" AND (@NumPol = -1 OR mp.Folio = @NumPol) ") - StrSQL.Append(" ") - StrSQL.Append(" GROUP BY mp.id, mp.IdPoliza, mp.NumMovto, mp.IdCuenta, mp.TipoMovto, c.CODIGO, c.NOMBRE, T.Codigo, T.Nombre, mp.Folio, mp.Importe, mp.Concepto, mp.Referencia, mp.SIGReferencia, mp.Fecha, mp.IdSegNeg, p.IdUsuario, s.Nombre, p.Fecha, p.Cargos, p.Abonos, p.Concepto, Afectable ") 'Roberto 8/Nov/2014 campo Afectable - StrSQL.Append(" ORDER BY mp.IdPoliza, mp.NumMovto ") + StrSQL.AppendLine(" SET TRANSACTION ISOLATION LEVEL READ UNCOMMITTED; ") + StrSQL.AppendLine(" ") + StrSQL.AppendLine(" SELECT mp.id, mp.IdPoliza, mp.NumMovto, mp.IdCuenta , mp.IdCuenta as CveCuenta, c.CODIGO, c.NOMBRE as Cuenta , T.Codigo as CodigoTipoPoliza, T.Nombre AS TipoPoliza, mp.Folio, mp.Importe, mp.Concepto, mp.Referencia, mp.SIGReferencia, mp.Fecha, mp.IdSegNeg, p.IdUsuario, s.Nombre AS SegNeg, p.Fecha AS FechaPol, p.Cargos, p.Abonos, p.Concepto AS ConceptoPoliza, ") + StrSQL.AppendLine(" CASE WHEN ISNUMERIC(c.Codigo) = 1 THEN FORMAT(CAST (c.Codigo AS FLOAT),(SELECT REPLACE(Mascarilla,'X','0') FROM Parametros)) ELSE c.Codigo END + ' - ' + c.Nombre + ' ' AS CtaCodigo, ") 'Roberto 8/Nov/2014 + StrSQL.AppendLine(" SUM (CASE WHEN mp.TipoMovto = 0 THEN mp.Importe ELSE 0 END) AS Cargo, SUM (CASE WHEN mp.TipoMovto = 1 THEN mp.Importe ELSE 0 END) AS Abono, ") + StrSQL.AppendLine(" SUM (CASE WHEN mp.TipoMovto = 0 THEN mp.ImporteME ELSE 0 END) AS CargoME, SUM (CASE WHEN mp.TipoMovto = 1 THEN mp.ImporteME ELSE 0 END) AS AbonoME, ") + StrSQL.AppendLine(" mp.TipoMovto, CASE WHEN ISNUMERIC(c.CODIGO) = 1 THEN FORMAT(CAST (c.CODIGO AS FLOAT),(SELECT REPLACE(Mascarilla,'X','0') FROM Parametros)) ELSE c.CODIGO END CuentaFormato, '' as Estado,MAX(U.Nombre) AS UsuarioRegistro ") + StrSQL.AppendLine(" FROM MovimientosPoliza mp ") + StrSQL.AppendLine(" INNER JOIN Polizas p ON mp.IdPoliza = p.Id ") + StrSQL.AppendLine(" INNER JOIN Cuentas c ON c.Id = mp.IdCuenta ") + StrSQL.AppendLine(" INNER JOIN TiposPolizas t ON mp.TipoPol = t.Codigo ") + StrSQL.AppendLine(" LEFT JOIN SIG_Resp_OIC.dbo.Usuarios U ON U.CveUsuario = P.IdUsuario ") + StrSQL.AppendLine(" LEFT JOIN SegmentosNegocio s ON mp.IdSegNeg = s.id ") + StrSQL.AppendLine(" WHERE (@IdPoliza = -1 OR mp.IdPoliza = @IdPoliza) ") + StrSQL.AppendLine(" AND (@Eje = -1 OR mp.Ejercicio = @Eje) ") + StrSQL.AppendLine(" AND (@Periodo = -1 OR mp.Periodo = @Periodo) ") + StrSQL.AppendLine(" AND (@TipoPol = -1 OR mp.TipoPol = @TipoPol) ") + StrSQL.AppendLine(" AND (@NumPol = -1 OR mp.Folio = @NumPol) ") + StrSQL.AppendLine(" ") + StrSQL.AppendLine(" GROUP BY mp.id, mp.IdPoliza, mp.NumMovto, mp.IdCuenta, mp.TipoMovto, c.CODIGO, c.NOMBRE, T.Codigo, T.Nombre, mp.Folio, mp.Importe, mp.Concepto, mp.Referencia, mp.SIGReferencia, mp.Fecha, mp.IdSegNeg, p.IdUsuario, s.Nombre, p.Fecha, p.Cargos, p.Abonos, p.Concepto, Afectable ") 'Roberto 8/Nov/2014 campo Afectable + StrSQL.AppendLine(" ORDER BY mp.IdPoliza, mp.NumMovto ") SqlDataAdapter(StrSQL.ToString, CommandType.Text) With SqlAdapter.SelectCommand.Parameters diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 091460f02..c35cb46bc 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -21142,7 +21142,7 @@ Partial Class Ventas Into x = Group Select ImportePU = x.Sum(Function(s) s("ImportePU").ToString.ToDecimal), ImporteTotal = x.Sum(Function(s) s("ImporteTotal").ToString.ToDecimal), - ImporteIVA = x.Sum(Function(s) Math.Round(s("ImporteIVA").ToString.ToDecimal, 2)), ' Math.Round(s("ImporteIVA").ToString.ToDecimal, 2)) * (1 + PorcentajeIEPS) * PorcentajeIVA, + ImporteIVA = x.Sum(Function(s) (s("ImporteIVA").ToString.ToDecimal)).RoundSQL(2), ' Math.Round(s("ImporteIVA").ToString.ToDecimal, 2)) * (1 + PorcentajeIEPS) * PorcentajeIVA, ImporteRetIVA = x.Sum(Function(s) Math.Round(s("ImporteRetIVA").ToString.ToDecimal, 2)),' Math.Round(s("ImportePU").ToString.ToDecimal, 2)) * PorcentajeRetIVA, ImporteRetISR = x.Sum(Function(s) Math.Round(s("ImporteRetISR").ToString.ToDecimal, 2)),' Math.Round(s("ImportePU").ToString.ToDecimal, 2)) * PorcentajeRetISR, ImporteIEPS = x.Sum(Function(s) Math.Round(s("ImporteIEPS").ToString.ToDecimal, 2)), 'Math.Round(s("ImportePU").ToString.ToDecimal, 2)) * PorcentajeIEPS, @@ -21280,6 +21280,7 @@ Partial Class Ventas Dim Porcentaje As Decimal = ((Importe * 100) / ImporteReferencia) / 100 Dim FiltroStr As String = "" Dim importePuTemp As Decimal = 0 + For Each Dr As DataRow In DtImpuestosLocal.Rows FiltroStr = String.Format("ISNULL(PorcentajeIVA,0) = {0} AND ISNULL(PorcentajeRetIVA,0) = {1} AND ISNULL(PorcentajeRetISR,0) = {2} AND ISNULL(PorcentajeIEPS,0) = {3} AND ISNULL(CveSubProyecto,0) = {4} ", Dr("PorcentajeIVA").ToString.ToDecimal, Dr("PorcentajeRetIVA").ToString.ToDecimal, Dr("PorcentajeRetISR").ToString.ToDecimal, Dr("PorcentajeIEPS").ToString.ToDecimal, Dr("CveSubProyecto")) importePuTemp = (Porcentaje * (TmpDT.SUM("TotalImporte", FiltroStr) - TmpDT.SUM("Descuento", FiltroStr))).ToDecimal @@ -21298,6 +21299,8 @@ Partial Class Ventas 'Dr("ImporteIEPS") = Math.Round(Porcentaje * TmpDT.SUM("ImporteIEPS", FiltroStr), 2) Dr("ImportePU") = Dr("ImporteTotal").ToString.ToDecimal.RoundSQL(2) '(Dr("ImporteTotal").ToString.ToDecimal - Dr("ImporteIVA").ToString.ToDecimal - Dr("ImporteRetIVA").ToString.ToDecimal - Dr("ImporteRetISR").ToString.ToDecimal - Dr("ImporteIEPS").ToString.ToDecimal) Next + + 'codigo para ajuste de centavo, si el importe total no cuadra con los totales Dim difTmp As Decimal = Importe - (DtImpuestosLocal.SUMD("ImporteTotal") + DtImpuestosLocal.SUMD("ImporteIVA") + DtImpuestosLocal.SUMD("ImporteIEPS") - DtImpuestosLocal.SUMD("ImporteRetIVA") - DtImpuestosLocal.SUMD("ImporteRetISR")) If Math.Abs(difTmp) >= 0.01 Then diff --git a/vwd.webinfo b/vwd.webinfo index 07746b18a..eae2186b6 100644 --- a/vwd.webinfo +++ b/vwd.webinfo @@ -1,10 +1,16 @@ - - - - - - - + + + + + + + + + + + + + \ No newline at end of file From 603dc6686694e267ba693ad8099b938614673401 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Wed, 5 Feb 2020 18:35:33 -0700 Subject: [PATCH 14/22] CREAR PUNTO DE INTERES EN RASTREO --- GPS/Rastreo.aspx | 2560 +++++++++++++++++++++++-------------------- GPS/Rastreo.aspx.vb | 44 + 2 files changed, 1403 insertions(+), 1201 deletions(-) diff --git a/GPS/Rastreo.aspx b/GPS/Rastreo.aspx index d09872508..79ce9cf80 100644 --- a/GPS/Rastreo.aspx +++ b/GPS/Rastreo.aspx @@ -255,7 +255,7 @@
  • - + @@ -274,6 +274,7 @@ + @@ -316,7 +317,7 @@ -
    • +
    @@ -860,6 +861,48 @@
    + + +
    + + + + + +
    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/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/Inventarios/TraspasoAlmacen.aspx b/Inventarios/TraspasoAlmacen.aspx index ed7c76b25..fdb708148 100644 --- a/Inventarios/TraspasoAlmacen.aspx +++ b/Inventarios/TraspasoAlmacen.aspx @@ -470,7 +470,7 @@
    - +
    diff --git a/Inventarios/TraspasoAlmacen.aspx.vb b/Inventarios/TraspasoAlmacen.aspx.vb index 8b3f9aa69..f9323c604 100644 --- a/Inventarios/TraspasoAlmacen.aspx.vb +++ b/Inventarios/TraspasoAlmacen.aspx.vb @@ -926,6 +926,24 @@ Partial Class Inventarios_TraspasoAlmacen End If End If End If + Else + If Not ErrorMovInv Then + Dim CvePrePoliza As Integer = ObjConta.AddPrePolizas("Inventario/TraspasoAlmacen", 53, 0, 0, 1, Fecha, TxtObservaciones.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) + If ObjInventario.GetMovimientosDetalle(CveMovimientoSalida, UsuarioActual.CveEmpresa) Then + + Dim resultado As DataTable = ObjInventario.DtResultados + Dim importe As Decimal = resultado.SUM("Total").ToDecimal + Dim IdCtaContable As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContable", String.Format("CveAlmacen = {0}", DdlAlmacenTransitorio.SelectedValue.ToEntero)).ToEntero + + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importe, TxtObservaciones.Text, 68, TxtObservaciones.Text, Fecha, IdCtaContable, -1, CveMovimientoAlmacen:=CveMovimientoSalida) Then + ErrorMovInv = True + End If + + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importe, TxtObservaciones.Text, 289, TxtObservaciones.Text, Fecha, IdCtaContable, -1, CveMovimientoAlmacen:=CveMovimientoSalida) Then + ErrorMovInv = True + End If + End If + End If End If @@ -989,7 +1007,7 @@ Partial Class Inventarios_TraspasoAlmacen If ErrorExistencia Then CargaGvDatos() End If - + ObjConta.Dispose() ObjInventario.Dispose() End Sub @@ -1573,6 +1591,7 @@ Partial Class Inventarios_TraspasoAlmacen Dim Folio = 0 Dim ErrorMovInv As Boolean = False Dim TextoError = "" + Dim ObjConta As New ClsContabilidad(ObjInventario.IniciaTransacSQL()) '' verifica que no se halla recibido previamente, si ya se recibió da salida If ObjInventario.GetMovimientosTransitorios(CveAlmacenDestino, -1, CveAlmacenTransitorio, -1, FolioBusqueda, UsuarioActual.CveEmpresa) Then @@ -1644,7 +1663,23 @@ Partial Class Inventarios_TraspasoAlmacen End If Cont += 1 Next - + If Not ErrorMovInv Then + Dim CvePrePoliza As Integer = ObjConta.AddPrePolizas("Inventario/TraspasoAlmacen", 53, 0, 0, 1, Fecha, TxtObservacionesRecepcion.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) + If ObjInventario.GetMovimientosDetalle(CveMovimientoSalida, UsuarioActual.CveEmpresa) Then + + Dim resultado As DataTable = ObjInventario.DtResultados + Dim importe As Decimal = resultado.SUM("Total").ToDecimal + Dim IdCtaContable As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContable", String.Format("CveAlmacen = {0}", DdlAlmacenTransitorioRecepcion.SelectedValue.ToEntero)).ToEntero + + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importe, TxtObservaciones.Text, 289, TxtObservaciones.Text, Fecha, IdCtaContable, -1, CveMovimientoAlmacen:=CveMovimientoSalida) Then + ErrorMovInv = True + End If + + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importe, TxtObservaciones.Text, 68, TxtObservaciones.Text, Fecha, IdCtaContable, -1, CveMovimientoAlmacen:=CveMovimientoSalida) Then + ErrorMovInv = True + End If + End If + End If End If @@ -1773,6 +1808,7 @@ Partial Class Inventarios_TraspasoAlmacen Alert(TextoError, TipoMensaje.MsgError) End If ObjInventario.Dispose() + ObjConta.Dispose() CargaRecepcion() Else Alert("No hay movimientos para el traspaso", TipoMensaje.MsgAdvertencia) diff --git a/OC/OC.aspx b/OC/OC.aspx index edde3253c..695e0f215 100644 --- a/OC/OC.aspx +++ b/OC/OC.aspx @@ -591,7 +591,7 @@
    - + <%-- --%>
    From eee54b888dfb02c7f87a1b941accca6b76c51ad6 Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Thu, 6 Feb 2020 13:29:32 -0700 Subject: [PATCH 18/22] . --- GPS/Rastreo.aspx | 281 +++++++++++++++++------------------- GPS/Rastreo.aspx.vb | 255 ++++++++++++++++++++++---------- GPS/Rastreo/JS/Geocercas.js | 138 ++++++++++++++++++ 3 files changed, 442 insertions(+), 232 deletions(-) create mode 100644 GPS/Rastreo/JS/Geocercas.js diff --git a/GPS/Rastreo.aspx b/GPS/Rastreo.aspx index fdce52776..6da745add 100644 --- a/GPS/Rastreo.aspx +++ b/GPS/Rastreo.aspx @@ -405,7 +405,7 @@

    - +
    @@ -415,7 +415,14 @@
    -
    +
    +
    + +
    + +
    +
    +
    @@ -820,6 +827,49 @@     + - + - + + + + - + - @@ -861,6 +913,45 @@     +