From bd1a1a300f7ab4e24ce2a99d35c8a3cc0f1576c0 Mon Sep 17 00:00:00 2001 From: HECTOR RODRIGUEZ Date: Fri, 14 May 2021 10:23:38 -0700 Subject: [PATCH 01/23] Cambios visuales --- Bancos/DepositosCaja.aspx | 8 +-- Bancos/DepositosCaja.aspx.vb | 130 ++++++++++++++++------------------- 2 files changed, 62 insertions(+), 76 deletions(-) diff --git a/Bancos/DepositosCaja.aspx b/Bancos/DepositosCaja.aspx index 7b5e09dbd..e3177fe7f 100644 --- a/Bancos/DepositosCaja.aspx +++ b/Bancos/DepositosCaja.aspx @@ -136,7 +136,7 @@ -
+
@@ -164,7 +164,7 @@
-
+
@@ -189,7 +189,7 @@
-
+
@@ -207,7 +207,7 @@
-
+
diff --git a/Bancos/DepositosCaja.aspx.vb b/Bancos/DepositosCaja.aspx.vb index 9eb7eea46..ddd4f4960 100644 --- a/Bancos/DepositosCaja.aspx.vb +++ b/Bancos/DepositosCaja.aspx.vb @@ -157,6 +157,7 @@ Partial Class Bancos_DepositosCaja Dim imprimirFolios As String = "" Dim CveSubProyectoIntermediario As Integer = -1 Dim CveClasificacionIntermediario As Integer = -1 + Dim CveProveedorIntermediario As Integer = -1 If drOrigen IsNot Nothing Then CveMoneda = drOrigen("CveMoneda").ToString.ToEntero @@ -170,7 +171,7 @@ Partial Class Bancos_DepositosCaja CveCuentaBancariaDestino = drDestino("IdCtaContableSIG").ToString.ToEntero End If - NuevaCvePrePoliza = ObjContabilidad.AddPrePolizas("Vta", 13, TotalImportePrePoliza, TotalImportePrePoliza, CveMoneda, Fecha, "Depósito Bancario", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) + NuevaCvePrePoliza = ObjContabilidad.AddPrePolizas("Vta", 13, TotalImportePrePoliza, TotalImportePrePoliza, CveMoneda, Fecha, "Depósito Bancario", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoPoliza:=1) If ChkIntermediario.Checked Then @@ -229,90 +230,75 @@ Partial Class Bancos_DepositosCaja CveSubProyectoDescuento = DdlSubProyectoDescuento.SelectedValue.ToEntero CveClasificacionDescuento = DdlClasificacionDescuento.SelectedValue.ToEntero - If Not ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, False, Descuento, DdlClasificacionDescuento.SelectedItem.Text, 51, DdlClasificacionDescuento.SelectedItem.Text, Fecha, IdCuentaBancariaOrigen, -1, CveClasificacion:=CveClasificacionDescuento, CveSubProyecto:=CveSubProyecto, ImporteMX:=Comision * TipoCambio, CveCuenta:=CveCuentaBancariaOrigen) Then + If Not ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, False, Descuento, DdlClasificacionDescuento.SelectedItem.Text, 51, DdlClasificacionDescuento.SelectedItem.Text, Fecha, IdCuentaBancariaOrigen, -1, CveClasificacion:=CveClasificacionDescuento, CveSubProyecto:=CveSubProyecto, ImporteMX:=Comision * TipoCambio) Then OcurrioError = True End If End If - If 1 = 1 Then - CveSubProyectoIntermediario = DdlSubProyectoIntermediario.SelectedValue.ToEntero - CveSubProyectoIntermediario = DdlClasificacionIntermediario.SelectedValue.ToEntero - If Not ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, False, Descuento, DdlClasificacionDescuento.SelectedItem.Text, 51, DdlClasificacionDescuento.SelectedItem.Text, Fecha, IdCuentaBancariaOrigen, -1, CveClasificacion:=CveClasificacionDescuento, CveSubProyecto:=CveSubProyecto, ImporteMX:=Comision * TipoCambio) Then - OcurrioError = True - End If + Else + OcurrioError = True + End If - If IVA <> 0 Then - If Not ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, False, IVA, DdlClasificacionIntermediario.SelectedItem.Text, 14, DdlClasificacion.SelectedItem.Text, Fecha, IdCuentaBancariaOrigen, -1, CveClasificacion:=CveClasificacionIntermediario, CveSubProyecto:=CveSubProyectoIntermediario, ImporteMX:=IVA, CveCuenta:=CveCuentaBancariaOrigen, PorcentajeImpuesto:=0.16D) Then - OcurrioError = True - End If - End If + For Each Gvr As GridViewRow In GvFacturas.Rows + If Gvr.FCCheckBox("ChkFactura").Checked Then + 'Datos de las Nuevas PrePolizas + 'Entrada a Bancos + + Dim Importe As Decimal = Gvr.DataKey("Importe").ToDecimal + Dim SerieFolio As String = Gvr.DataKey("SerieFolio").ToString + + 'Datos de las Prepolizas A Cancelar + Dim CveIE As Integer = Gvr.DataKey("CveIE").ToEntero + Dim CveVenta As Integer = Gvr.DataKey("CveVenta").ToEntero + Dim CvePrePoliza As Integer = Gvr.DataKey("CvePrePoliza").ToEntero + + FolioIE = ObjBancos.GetNextFolio(DdlCajaChica.SelectedValue.ToEntero, 2) + If Not FolioIE > 0 Then + OcurrioError = True + Exit For + End If + CveIEDestino = ObjBancos.AddBancos_IE(DdlCajaChica.SelectedValue.ToEntero, 2, Fecha, FolioIE.ToString, String.Format("Depósito Bancario: {0}", SerieFolio), Importe, CveMoneda, 1, "Depósito Bancario", "", False, False, -1, NuevaCvePrePoliza, "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) + + + If Not ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, True, Importe, SerieFolio, 30, String.Format("Depósito Bancario: {0}", SerieFolio), Fecha, IdCuentaBancariaDestino, -1, CveClasificacion:=CveClasificacion, CveSubProyecto:=CveSubProyecto, CveIE:=CveIEDestino, ImporteMX:=Importe * TipoCambio, CveCuenta:=CveCuentaBancariaDestino) Then + OcurrioError = True + Exit For End If - Else - OcurrioError = True - End If - - For Each Gvr As GridViewRow In GvFacturas.Rows - - If Gvr.FCCheckBox("ChkFactura").Checked Then - 'Datos de las Nuevas PrePolizas - 'Entrada a Bancos - - Dim Importe As Decimal = Gvr.DataKey("Importe").ToDecimal - Dim SerieFolio As String = Gvr.DataKey("SerieFolio").ToString - - 'Datos de las Prepolizas A Cancelar - Dim CveIE As Integer = Gvr.DataKey("CveIE").ToEntero - Dim CveVenta As Integer = Gvr.DataKey("CveVenta").ToEntero - Dim CvePrePoliza As Integer = Gvr.DataKey("CvePrePoliza").ToEntero - - FolioIE = ObjBancos.GetNextFolio(DdlCajaChica.SelectedValue.ToEntero, 2) - If Not FolioIE > 0 Then - OcurrioError = True - Exit For - End If - CveIEDestino = ObjBancos.AddBancos_IE(DdlCajaChica.SelectedValue.ToEntero, 2, Fecha, FolioIE.ToString, String.Format("Depósito Bancario: {0}", SerieFolio), Importe, CveMoneda, 1, "Depósito Bancario", "", False, False, -1, NuevaCvePrePoliza, "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) - - - If Not ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, True, Importe, SerieFolio, 30, String.Format("Depósito Bancario: {0}", SerieFolio), Fecha, IdCuentaBancariaDestino, -1, CveClasificacion:=CveClasificacion, CveSubProyecto:=CveSubProyecto, CveIE:=CveIEDestino, ImporteMX:=Importe * TipoCambio, CveCuenta:=CveCuentaBancariaDestino) Then - OcurrioError = True - Exit For - End If - - 'Asignamos la cuenta Deposito - If Not OcurrioError AndAlso Not ObjBancos.UpdateBancos_IECuentaDeposito(CveIEDestino, CveIE) Then - OcurrioError = True - Exit For - End If - Dim StrEncript As String = Encripta($"OP=DC&CveIE={CveIEDestino}&CuentaCaja={DdlCajaChica.SelectedItem.Text}&CuentaDepo={DdlCuentaDeposito.SelectedItem.Text}") - - 'documentos += String.Format("Imprimir {1}

", StrEncript, SerieFolio) + 'Asignamos la cuenta Deposito + If Not OcurrioError AndAlso Not ObjBancos.UpdateBancos_IECuentaDeposito(CveIEDestino, CveIE) Then + OcurrioError = True + Exit For End If + Dim StrEncript As String = Encripta($"OP=DC&CveIE={CveIEDestino}&CuentaCaja={DdlCajaChica.SelectedItem.Text}&CuentaDepo={DdlCuentaDeposito.SelectedItem.Text}") - Next - - - If OcurrioError Then - ObjContabilidad.RollBack() - Alert("Ocurrio un error al realizar los depositos", TipoMensaje.MsgError) - Else - ObjContabilidad.Commit() - CargaDatos() - - documentos += String.Format("Prepóliza

", NuevaCvePrePoliza) - - Alert(documentos.ToString) - - + 'documentos += String.Format("Imprimir {1}

", StrEncript, SerieFolio) End If - TxtComision.Text = "" - TxtDescuento.Text = "" - TxtIVA.Text = "" - TxtComisionIntermediario.Text = "" - ObjContabilidad.Dispose() + + Next + + + If OcurrioError Then + ObjContabilidad.RollBack() + Alert("Ocurrio un error al realizar los depositos", TipoMensaje.MsgError) + Else + ObjContabilidad.Commit() + CargaDatos() + + documentos += String.Format("Prepóliza

", NuevaCvePrePoliza) + + Alert(documentos.ToString) + + + End If + TxtComision.Text = "" + TxtDescuento.Text = "" + TxtIVA.Text = "" + TxtComisionIntermediario.Text = "" + ObjContabilidad.Dispose() End Sub Private Sub ObtenerTotalImporta() From 132f5d2d1e7f1d337acdc8a3b391a47c345c97d7 Mon Sep 17 00:00:00 2001 From: HECTOR RODRIGUEZ Date: Fri, 14 May 2021 10:24:22 -0700 Subject: [PATCH 02/23] Cambio para facturas de econo y franquicias --- Empresas/141/Formatos/Factura.rdlc | 8 +- Empresas/152/Formatos/Factura.rdlc | 147 +++++++++++++++++--------- Empresas/159/Formatos/Factura.rdlc | 4 +- Empresas/160/Formatos/Factura.rdlc | 4 +- Empresas/161/Formatos/Factura.rdlc | 4 +- Empresas/162/Formatos/Factura.rdlc | 4 +- Empresas/163/Formatos/Factura.rdlc | 4 +- Empresas/Grales/Formatos/Cuentas.rdlc | 11 +- 8 files changed, 119 insertions(+), 67 deletions(-) diff --git a/Empresas/141/Formatos/Factura.rdlc b/Empresas/141/Formatos/Factura.rdlc index 9d467856f..c50c98442 100644 --- a/Empresas/141/Formatos/Factura.rdlc +++ b/Empresas/141/Formatos/Factura.rdlc @@ -1348,7 +1348,7 @@ - ="<b>Próxima Rotación y Balanceo: </b>" & FormatDateTime(CDate(Parameters!Fecha.Value).AddMonths(6), DateFormat.ShortDate) & " <b>Próxima Alineacion: </b>" & FormatDateTime(CDate(Parameters!Fecha.Value).AddMonths(6), DateFormat.ShortDate) + ="<br/><b>Próxima Rotación y Balanceo: </b>" & FormatDateTime(CDate(Parameters!Fecha.Value).AddMonths(6), DateFormat.ShortDate) & "<br/<b>Próxima Alineación: </b>" & FormatDateTime(CDate(Parameters!Fecha.Value).AddMonths(6), DateFormat.ShortDate) HTML - =Parameters!OrdenCompra.Value + =IIf(Parameters!OrdenCompra.Value = "-1", "", Parameters!OrdenCompra.Value) - =Parameters!OrdenCompra.Value + =IIf(Parameters!OrdenCompra.Value = "-1", "", Parameters!OrdenCompra.Value) - ="<b>Próxima Rotación y Balanceo: </b>" & FormatDateTime(CDate(Parameters!Fecha.Value).AddMonths(6), DateFormat.ShortDate) & " <b>Próxima Alineacion: </b>" & FormatDateTime(CDate(Parameters!Fecha.Value).AddMonths(6), DateFormat.ShortDate) + ="<br/><b>Próxima Rotación y Balanceo: </b>" & FormatDateTime(CDate(Parameters!Fecha.Value).AddMonths(6), DateFormat.ShortDate) & "<br/<b>Próxima Alineacion: </b>" & FormatDateTime(CDate(Parameters!Fecha.Value).AddMonths(6), DateFormat.ShortDate) HTML + + + + + + + =Globals!ExecutionTime + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Usuario Imprimio: + + + + + + + + =Parameters!UsuarioImprimio.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + true true @@ -2960,55 +3051,11 @@ Textbox35 - 0.01763cm - 18.52109cm + 0.00882cm + 18.54098cm 0.50624cm 2.5cm - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Fecha Impresión: - - - - - - - - =Today - - - - @@ -3646,7 +3693,7 @@ ReportParameter1 - + image/png diff --git a/Empresas/159/Formatos/Factura.rdlc b/Empresas/159/Formatos/Factura.rdlc index 388e49af9..b5ae65114 100644 --- a/Empresas/159/Formatos/Factura.rdlc +++ b/Empresas/159/Formatos/Factura.rdlc @@ -3344,7 +3344,7 @@ - ="<b>Próxima Rotación y Balanceo: </b>" & FormatDateTime(CDate(Parameters!Fecha.Value).AddMonths(6), DateFormat.ShortDate) & " <b>Próxima Alineacion: </b>" & FormatDateTime(CDate(Parameters!Fecha.Value).AddMonths(6), DateFormat.ShortDate) + ="<br/><b>Próxima Rotación y Balanceo: </b>" & FormatDateTime(CDate(Parameters!Fecha.Value).AddMonths(6), DateFormat.ShortDate) & "<br/<b>Próxima Alineación: </b>" & FormatDateTime(CDate(Parameters!Fecha.Value).AddMonths(6), DateFormat.ShortDate) HTML - ="<b>Próxima Rotación y Balanceo: </b>" & FormatDateTime(CDate(Parameters!Fecha.Value).AddMonths(6), DateFormat.ShortDate) & " <b>Próxima Alineacion: </b>" & FormatDateTime(CDate(Parameters!Fecha.Value).AddMonths(6), DateFormat.ShortDate) + ="<br/><b>Próxima Rotación y Balanceo: </b>" & FormatDateTime(CDate(Parameters!Fecha.Value).AddMonths(6), DateFormat.ShortDate) & "<br/<b>Próxima Alineación: </b>" & FormatDateTime(CDate(Parameters!Fecha.Value).AddMonths(6), DateFormat.ShortDate) HTML - ="<b>Próxima Rotación y Balanceo: </b>" & FormatDateTime(CDate(Parameters!Fecha.Value).AddMonths(6), DateFormat.ShortDate) & " <b>Próxima Alineacion: </b>" & FormatDateTime(CDate(Parameters!Fecha.Value).AddMonths(6), DateFormat.ShortDate) + ="<br/><b>Próxima Rotación y Balanceo: </b>" & FormatDateTime(CDate(Parameters!Fecha.Value).AddMonths(6), DateFormat.ShortDate) & "<br/<b>Próxima Alineación: </b>" & FormatDateTime(CDate(Parameters!Fecha.Value).AddMonths(6), DateFormat.ShortDate) HTML - ="<b>Próxima Rotación y Balanceo: </b>" & FormatDateTime(CDate(Parameters!Fecha.Value).AddMonths(6), DateFormat.ShortDate) & " <b>Próxima Alineacion: </b>" & FormatDateTime(CDate(Parameters!Fecha.Value).AddMonths(6), DateFormat.ShortDate) + ="<br/><b>Próxima Rotación y Balanceo: </b>" & FormatDateTime(CDate(Parameters!Fecha.Value).AddMonths(6), DateFormat.ShortDate) & "<br/<b>Próxima Alineación: </b>" & FormatDateTime(CDate(Parameters!Fecha.Value).AddMonths(6), DateFormat.ShortDate) HTML - ="<b>Próxima Rotación y Balanceo: </b>" & FormatDateTime(CDate(Parameters!Fecha.Value).AddMonths(6), DateFormat.ShortDate) & " <b>Próxima Alineacion: </b>" & FormatDateTime(CDate(Parameters!Fecha.Value).AddMonths(6), DateFormat.ShortDate) + ="<br/><b>Próxima Rotación y Balanceo: </b>" & FormatDateTime(CDate(Parameters!Fecha.Value).AddMonths(6), DateFormat.ShortDate) & "<br/<b>Próxima Alineación: </b>" & FormatDateTime(CDate(Parameters!Fecha.Value).AddMonths(6), DateFormat.ShortDate) HTML @@ -791,7 +795,7 @@ - AgrupadorSAT + CodigoNombreSAT @@ -803,6 +807,7 @@ 2pt + true From a62940ac3adc85b837cc709552db6877e0b8537c Mon Sep 17 00:00:00 2001 From: HECTOR RODRIGUEZ Date: Fri, 14 May 2021 10:24:52 -0700 Subject: [PATCH 03/23] modificar list de tipo cliente para que cuadre con clientes.aspx --- Ventas/CatClientes.aspx | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Ventas/CatClientes.aspx b/Ventas/CatClientes.aspx index 66b98dba9..762d4efb9 100644 --- a/Ventas/CatClientes.aspx +++ b/Ventas/CatClientes.aspx @@ -90,7 +90,7 @@ Todos Frecuente - No Frecuente + Venta Mostrador
From 6078eb9855eaf5c9de60044741079ee5a9c211a7 Mon Sep 17 00:00:00 2001 From: HECTOR RODRIGUEZ Date: Tue, 18 May 2021 02:14:15 -0700 Subject: [PATCH 04/23] --- AF/CatAF.aspx.vb | 11 +- App_Code/ClsContabilidad.vb | 4 +- Bancos/DepositosCaja.aspx | 95 +- Bancos/IE.aspx | 34 +- Bancos/IE.aspx.vb | 60 +- CRM/Acercamiento.aspx | 2 +- Contabilidad/FiltraPolizas.aspx.vb | 9 +- Contabilidad/PlantillasPolizasDetalle.aspx | 17 +- Contabilidad/PlantillasPolizasDetalle.aspx.vb | 22 +- Contabilidad/RegPrePoliza.aspx.vb | 8 +- Contabilidad/RegPrePolizaS.aspx.vb | 98 +- Empresas/Grales/Formatos/RepClientes.rdlc | 2049 +++++++++-------- OC/CatEstatus.aspx | 4 +- OC/OC.aspx | 4 +- OC/RepCotizaciones.aspx | 2 +- OC/RepOC.aspx | 5 +- vwd.webinfo | 4 + 17 files changed, 1239 insertions(+), 1189 deletions(-) diff --git a/AF/CatAF.aspx.vb b/AF/CatAF.aspx.vb index b5e500e31..14a3d44f4 100644 --- a/AF/CatAF.aspx.vb +++ b/AF/CatAF.aspx.vb @@ -458,7 +458,8 @@ Partial Class AF_CatAF Dim params As New List(Of ReportParameter) Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) - + Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos\CatAF.rdlc", UsuarioActual.Empresa.Ruta)) + Dim Ruta As String = "" params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString)) @@ -468,7 +469,13 @@ Partial Class AF_CatAF Else params.Add(New ReportParameter("LogoPath", "")) End If - ImprimirPDF(String.Format("{0}Formatos\CatAF.rdlc", UsuarioActual.Empresa.Ruta), DtActivosFijos, params, "CatalogoActivosFijos", Formato:=Formato) + + If Archivo.Exists Then + Ruta = UsuarioActual.Empresa.Ruta & "Formatos/CatAF.rdlc" + Else + Ruta = "Empresas/Grales/Formatos/CatAF.rdlc" + End If + ImprimirPDF(Ruta, DtActivosFijos, params, "CatalogoActivosFijos", Formato:=Formato) Else Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia) diff --git a/App_Code/ClsContabilidad.vb b/App_Code/ClsContabilidad.vb index 8b5995aea..a23c60cc3 100644 --- a/App_Code/ClsContabilidad.vb +++ b/App_Code/ClsContabilidad.vb @@ -2445,7 +2445,7 @@ Public Class ClsContabilidad End Function Public Function UpdateConta_PlantillasPolizasDetalle(CveConcepto As Integer, TipoMovto As Integer, IdCtaContable As Integer, Orden As Integer, CvePlantillaPolizaDetalle As Integer, CveSubProyecto As Integer, CveProveedor As Integer, - Optional CvePersonal As Integer = -1, Optional PorcentajeImpuesto As Decimal = 0) As Boolean + Optional CvePersonal As Integer = -1, Optional PorcentajeImpuesto As Decimal = 0, Optional CveCuenta As Integer = -1) As Boolean Dim retorno As Boolean = False DataAdapter("PA_Conta_PlantillasPolizasDetalleUpdate") @@ -2460,6 +2460,8 @@ Public Class ClsContabilidad .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal .Add("@PorcentajeImpuesto", SqlDbType.SmallMoney).Value = PorcentajeImpuesto + .Add("@CveCuenta", SqlDbType.Int).Value = CveCuenta + End With Try diff --git a/Bancos/DepositosCaja.aspx b/Bancos/DepositosCaja.aspx index e3177fe7f..373fb7416 100644 --- a/Bancos/DepositosCaja.aspx +++ b/Bancos/DepositosCaja.aspx @@ -41,7 +41,7 @@
-
+
@@ -56,7 +56,7 @@
-
+
@@ -110,7 +110,7 @@
- +
@@ -137,27 +137,26 @@
-
- -
-