From f28317c346df4aba995eacc3f38e281e24abe8f1 Mon Sep 17 00:00:00 2001 From: rakcsle Date: Wed, 29 Jun 2022 10:07:33 -0700 Subject: [PATCH] Reportes Cambiar Cliente y proveedor a dropdown lost, Compras Editar Fecha de compra, reg prepolizas s agregar IE cuando ya esta creada la poliza --- App_Code/ClsCompras.vb | 19 +- App_Code/ClsContabilidad.vb | 4 +- App_Code/ClsGenerales.vb | 2 +- Compras/Compras.aspx | 66 ++++--- Compras/Compras.aspx.vb | 27 +++ Compras/RepPagado.aspx | 3 +- Compras/RepPagado.aspx.cs | 16 +- Compras/RepPagadoDetalle.aspx | 3 +- Compras/RepPagadoDetalle.aspx.cs | 9 +- Compras/RepPagadoPeriodo.aspx | 6 +- Compras/RepPagadoPeriodo.aspx.cs | 13 +- Compras/eFacturas.aspx | 67 ++++++- Compras/eFacturas.aspx.vb | 73 ++++++-- Contabilidad/RegPrePolizaS.aspx | 2 +- Contabilidad/RegPrePolizaS.aspx.vb | 60 ++++++- Empresas/Grales/Formatos/RepFacturas.rdlc | 190 +++++++++++++++----- General/SaldosIniciales.aspx.vb | 3 +- Inventarios/RepEntregaAlmacenRuta.aspx.cs | 37 +++- Ventas/RepProductosServiciosPeriodo.aspx | 6 +- Ventas/RepProductosServiciosPeriodo.aspx.cs | 24 +-- Ventas/RepRecuperacionPeriodo.aspx | 5 +- Ventas/RepRecuperacionPeriodo.aspx.cs | 9 +- Ventas/RepVentasPeriodo.aspx | 6 +- Ventas/RepVentasPeriodo.aspx.vb | 38 ++-- 24 files changed, 536 insertions(+), 152 deletions(-) diff --git a/App_Code/ClsCompras.vb b/App_Code/ClsCompras.vb index 5750cf281..5c4bd2ae9 100644 --- a/App_Code/ClsCompras.vb +++ b/App_Code/ClsCompras.vb @@ -3182,6 +3182,24 @@ Public Class ClsCompras Return Retorno End Function + + Public Function UpdateFechaCompra(CveCompra As Integer, Fecha As Date, CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Comp_ComprasFechaUpdate") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveCompra", SqlDbType.Int).Value = CveCompra + .Add("@Fecha", SqlDbType.Date).Value = Fecha + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al actualizar la fecha de la compra.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + Return Retorno + End Function + Public Function GetRepEvaluacionesProveedores(CveEmpresa As Integer, CveProveedor As Integer, FechaI As Date, FechaF As Date, Evaluado As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Comp_RepEvaluacionesProveedoresGet") @@ -3338,7 +3356,6 @@ Public Class ClsCompras End Function - End Class diff --git a/App_Code/ClsContabilidad.vb b/App_Code/ClsContabilidad.vb index e14cd2203..fb3ada64a 100644 --- a/App_Code/ClsContabilidad.vb +++ b/App_Code/ClsContabilidad.vb @@ -291,7 +291,7 @@ Public Class ClsContabilidad Public Function UpdatePrePolizasDetalle(CvePrePolizaDetalle As Integer, Concepto As String, CveSubProyecto As Integer, IdCtaContable As Integer, TipoMovto As Boolean, ImporteMN As Decimal, Optional CveTipoGasto As Integer = -1, Optional CveConceptoContable As Integer = -1, Optional CveProveedor As Integer = -1, Optional CveCompra As Integer = -1, Optional CvePersonal As Integer = -1, Optional CveCliente As Integer = -1, Optional CveVenta As Integer = -1, - Optional Referencia As String = "-1", Optional CveUsuarioModifico As Integer = -1, Optional CveCuenta As Integer = -1, Optional PorcentajeImpuesto As Decimal = -1, Optional Importe As Decimal = -1) As Boolean + Optional Referencia As String = "-1", Optional CveUsuarioModifico As Integer = -1, Optional CveCuenta As Integer = -1, Optional PorcentajeImpuesto As Decimal = -1, Optional Importe As Decimal = -1, Optional CveIE As Integer = -1) As Boolean Dim Retorno As Boolean = False @@ -316,6 +316,8 @@ Public Class ClsContabilidad .Add("@PorcentajeImpuesto", SqlDbType.Money).Value = PorcentajeImpuesto .Add("@CveUsuarioModifico", SqlDbType.Int).Value = CveUsuarioModifico .Add("@CveCuenta", SqlDbType.Int).Value = CveCuenta + .Add("@CveIE", SqlDbType.Int).Value = CveIE + End With Try diff --git a/App_Code/ClsGenerales.vb b/App_Code/ClsGenerales.vb index 8d10ef979..90c5be8f7 100644 --- a/App_Code/ClsGenerales.vb +++ b/App_Code/ClsGenerales.vb @@ -4059,7 +4059,7 @@ Public Class ClsGenerales Dim Retorno As Boolean = False - DataAdapter("PA_Inv_EntregaAlmacenRutaRepGet") + DataAdapter("PA_Inv_EntregaAlmacenRutaRepGet2") With SqlAdapter.SelectCommand.Parameters diff --git a/Compras/Compras.aspx b/Compras/Compras.aspx index 198291fb2..7339893cb 100644 --- a/Compras/Compras.aspx +++ b/Compras/Compras.aspx @@ -288,32 +288,50 @@
-
- Fecha Factura: -
-
+ + + + + + + + + +
Fecha Factura: + - - - - - - - - - - - - - + +
+ + + + + +
Descripción:
diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 1d54b6c32..3de4b8463 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -1899,6 +1899,8 @@ Partial Class Compras_Compras ImgFecha.Enabled = UsuarioActual.TienePermisoProceso(216) CEFecha.Enabled = UsuarioActual.TienePermisoProceso(216) + + TxtSubTotal.Enabled = False TxtDescuento.Enabled = False TxtSubTotal2.Enabled = False @@ -2901,6 +2903,16 @@ Partial Class Compras_Compras ImgFecha.Enabled = False CEFecha.Enabled = False + + If UsuarioActual.TienePermisoProceso(342) Then + TxtFecha.Enabled = True + ImgFecha.Enabled = True + CEFecha.Enabled = True + LnkActualziarFechadecompra.Visible = True + End If + + + DdlProveedor.Enabled = False DdlProveedorSucursal.Enabled = False DdlEstatus.Enabled = False @@ -21142,6 +21154,21 @@ Partial Class Compras_Compras Private Sub ChkAliasFlexible_CheckedChanged(sender As Object, e As EventArgs) Handles ChkAliasFlexible.CheckedChanged TxtPSAlias.Enabled = ChkAliasFlexible.Checked End Sub + + Protected Sub LnkActualziarFechadecompra_Click(sender As Object, e As EventArgs) + + + Dim ObjCompra As New ClsCompras + + + If ObjCompra.UpdateFechaCompra(CveCompra, TxtFecha.Text.ToDate, UsuarioActual.CveEmpresa) Then + Alert("Fecha Actualizada Correctamente") + End If + + + ObjCompra.Dispose() + + End Sub End Class Public Class MMensajeDevolucion diff --git a/Compras/RepPagado.aspx b/Compras/RepPagado.aspx index b5dfcc606..621d4d3ec 100644 --- a/Compras/RepPagado.aspx +++ b/Compras/RepPagado.aspx @@ -61,8 +61,7 @@
Proveedor:
- - +
Fecha Inicial:
diff --git a/Compras/RepPagado.aspx.cs b/Compras/RepPagado.aspx.cs index b5dafa73c..5a0ea0a4f 100644 --- a/Compras/RepPagado.aspx.cs +++ b/Compras/RepPagado.aspx.cs @@ -42,9 +42,10 @@ public partial class Compras_RepPagado : ClsPaginas DdlMoneda.DataBind(); //Carga Proveedor - DdlProveedor.DataSource = get_GlobalDTCompProveedores(UsuarioActual.CveEmpresa); - DdlProveedor.Items.Insert(0, new ListItem("Todos", "-1")); - DdlProveedor.DataBind(); + DdlProveedores.setEsWebService(true); + DdlProveedores.Attributes.Add("data-metodo", "getproveedores"); + DdlProveedores.SelectedText = "Todos"; + DdlProveedores.SelectedValue = "-1"; //Carga Usuarios DdlUsuario.DataSource = get_GlobalDTUsuarios(CveEmpresa: UsuarioActual.CveEmpresa); @@ -163,7 +164,7 @@ public partial class Compras_RepPagado : ClsPaginas private void CargaDatos() { ClsCompras ObjComp = new ClsCompras(); - if (ObjComp.GetRepPagado(txtFechaI.Text.ToDate(), txtFechaF.Text.ToDate(), DdlProveedor.SelectedValue.ToEntero(), DdlProyecto.SelectedValue.ToEntero(), + if (ObjComp.GetRepPagado(txtFechaI.Text.ToDate(), txtFechaF.Text.ToDate(), DdlProveedores.SelectedValue.ToEntero(), DdlProyecto.SelectedValue.ToEntero(), DdlSubProyecto.SelectedValue.ToEntero(), DdlUsuario.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa, DdlGrupo.SelectedValue.ToEntero(), DdlResponsable.SelectedValue.ToEntero(), UsuarioActual.CveUsuario, DdlBanco.SelectedValue.ToEntero(), DdlCuentaBancaria.SelectedValue.ToEntero(), DdlMoneda.SelectedValue.ToEntero(),TxtFechaICompra.Text.ToDate(),TxtFechaFCompra.Text.ToDate(),CveTipoProveedor: DdlTipoProveedor.SelectedValue.ToEntero(), @@ -229,8 +230,8 @@ public partial class Compras_RepPagado : ClsPaginas StrFiltro.AppendFormat(" SubProyecto: {0}", DdlSubProyecto.SelectedItem.Text); if (DdlGrupo.SelectedValue != "-1") StrFiltro.AppendFormat(" Grupo: {0}", DdlGrupo.SelectedItem.Text); - if (DdlProveedor.SelectedValue != "-1") - StrFiltro.AppendFormat(" Proveedor: {0}", DdlProveedor.SelectedItem.Text); + if (DdlProveedores.SelectedValue != "-1") + StrFiltro.AppendFormat(" Proveedor: {0}", DdlProveedores.txtText.Value); if (DdlUsuario.SelectedValue != "-1") StrFiltro.AppendFormat(" Registro: {0}", DdlUsuario.SelectedItem.Text); if (DdlResponsable.SelectedValue != "-1") @@ -251,12 +252,14 @@ public partial class Compras_RepPagado : ClsPaginas } System.IO.FileInfo Imagen = new System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)); + string logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa); List para = new List(); para.Add(new ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)); para.Add(new ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)); para.Add(new ReportParameter("FechaImpresion", DateTime.Now.ToShortDateString())); para.Add(new ReportParameter("Filtros", StrFiltro.ToString())); + if (Imagen.Exists) { para.Add(new ReportParameter("LogoPath", logouri)); @@ -265,6 +268,7 @@ public partial class Compras_RepPagado : ClsPaginas { para.Add(new ReportParameter("LogoPath", "")); } + ImprimirPDF(RutaPDF,DtPagado, para, "RepPagado" + DateTime.Now.ToString("yyyyMMddhhmmss"), Opcion); } diff --git a/Compras/RepPagadoDetalle.aspx b/Compras/RepPagadoDetalle.aspx index 4a831abc4..cea78df58 100644 --- a/Compras/RepPagadoDetalle.aspx +++ b/Compras/RepPagadoDetalle.aspx @@ -48,8 +48,7 @@
Proveedor:
- - +
Fecha Inicial:
diff --git a/Compras/RepPagadoDetalle.aspx.cs b/Compras/RepPagadoDetalle.aspx.cs index 326d99ed8..1ad46e4ff 100644 --- a/Compras/RepPagadoDetalle.aspx.cs +++ b/Compras/RepPagadoDetalle.aspx.cs @@ -47,9 +47,10 @@ public partial class Compras_RepPágadoDetalle : ClsPaginas DdlMoneda.DataBind(); //Carga Proveedor - DdlProveedor.DataSource = get_GlobalDTCompProveedores(UsuarioActual.CveEmpresa); - DdlProveedor.Items.Insert(0, new ListItem("Todos", "-1")); - DdlProveedor.DataBind(); + DdlProveedores.setEsWebService(true); + DdlProveedores.Attributes.Add("data-metodo", "getproveedores"); + DdlProveedores.SelectedText = "Todos"; + DdlProveedores.SelectedValue = "-1"; //Carga Usuarios DdlUsuario.DataSource = get_GlobalDTUsuarios(CveEmpresa: UsuarioActual.CveEmpresa); @@ -87,7 +88,9 @@ public partial class Compras_RepPágadoDetalle : ClsPaginas DdlGrupo.SelectedValueExist(Request["Grupo"] == null ? "-1" : Request["Grupo"].ToString()); DdlProyecto.SelectedValueExist(Request["CveProyecto"] == null ? "-1" : Request["CveProyecto"].ToString()); DdlSubProyecto.SelectedValueExist(Request["CveSubProyecto"] == null ? "-1" : Request["CveSubProyecto"].ToString()); + DdlProveedor.SelectedValueExist(Request["CveProveedor"] == null ? "-1" : Request["CveProveedor"].ToString()); + DdlUsuario.SelectedValueExist(Request["CveUsuario"] == null ? "-1" : Request["CveUsuario"].ToString()); DdlResponsable.SelectedValueExist(Request["CveResponsable"] == null ? "-1" : Request["CveResponsable"].ToString()); DdlBanco.SelectedValueExist(Request["CveBanco"] == null ? "-1" : Request["CveBanco"].ToString()); diff --git a/Compras/RepPagadoPeriodo.aspx b/Compras/RepPagadoPeriodo.aspx index 3cc0b24ea..1b9988cdc 100644 --- a/Compras/RepPagadoPeriodo.aspx +++ b/Compras/RepPagadoPeriodo.aspx @@ -64,8 +64,10 @@
Proveedor:
- - + <%-- + --%> + +
Fecha Inicial:
diff --git a/Compras/RepPagadoPeriodo.aspx.cs b/Compras/RepPagadoPeriodo.aspx.cs index c514e6827..89e3b951d 100644 --- a/Compras/RepPagadoPeriodo.aspx.cs +++ b/Compras/RepPagadoPeriodo.aspx.cs @@ -50,9 +50,10 @@ public partial class Compras_RepPagadoPeriodo : ClsPaginas DdlMoneda.DataBind(); //Carga Proveedor - DdlProveedor.DataSource = get_GlobalDTCompProveedores(UsuarioActual.CveEmpresa); - DdlProveedor.Items.Insert(0, new ListItem("Todos", "-1")); - DdlProveedor.DataBind(); + DdlProveedores.setEsWebService(true); + DdlProveedores.Attributes.Add("data-metodo", "getproveedores"); + DdlProveedores.SelectedText = "Todos"; + DdlProveedores.SelectedValue = "-1"; //Carga Usuarios DdlUsuario.DataSource = get_GlobalDTUsuarios(CveEmpresa: UsuarioActual.CveEmpresa); @@ -278,8 +279,8 @@ public partial class Compras_RepPagadoPeriodo : ClsPaginas StrFiltro.AppendFormat(" SubProyecto: {0}", DdlSubProyecto.SelectedItem.Text); if (DdlGrupo.SelectedValue != "-1") StrFiltro.AppendFormat(" Grupo: {0}", DdlGrupo.SelectedItem.Text); - if (DdlProveedor.SelectedValue != "-1") - StrFiltro.AppendFormat(" Proveedor: {0}", DdlProveedor.SelectedItem.Text); + if (DdlProveedores.SelectedValue != "-1") + StrFiltro.AppendFormat(" Proveedor: {0}", DdlProveedores.txtText.Value); if (DdlUsuario.SelectedValue != "-1") StrFiltro.AppendFormat(" Registro: {0}", DdlUsuario.SelectedItem.Text); if (DdlResponsable.SelectedValue != "-1") @@ -332,7 +333,7 @@ public partial class Compras_RepPagadoPeriodo : ClsPaginas { if (RblTipoCambio.SelectedValue.ToEntero() == 3 && TxtEspecifico.Text != "") { TCEspecifico = TxtEspecifico.Text.ToDouble(); } else { TCEspecifico = -1; } ClsCompras ObjCompras = new ClsCompras(); - if(ObjCompras.GetRepPagadoPeriodo(txtFechaI.Text.ToDate(), txtFechaF.Text.ToDate(), DdlProveedor.SelectedValue.ToEntero(), DdlProyecto.SelectedValue.ToEntero(), + if(ObjCompras.GetRepPagadoPeriodo(txtFechaI.Text.ToDate(), txtFechaF.Text.ToDate(), DdlProveedores.SelectedValue.ToEntero(), DdlProyecto.SelectedValue.ToEntero(), DdlSubProyecto.SelectedValue.ToEntero(), DdlUsuario.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa, DdlGrupo.SelectedValue.ToEntero(), DdlResponsable.SelectedValue.ToEntero(), UsuarioActual.CveUsuario, DdlBanco.SelectedValue.ToEntero(), DdlCuentaBancaria.SelectedValue.ToEntero(), DdlMoneda.SelectedValue.ToEntero(), TxtFechaICompra.Text.ToDate(), TxtFechaFCompra.Text.ToDate(), TipoCambio, TCEspecifico)){ diff --git a/Compras/eFacturas.aspx b/Compras/eFacturas.aspx index d0a48c42f..153b98772 100644 --- a/Compras/eFacturas.aspx +++ b/Compras/eFacturas.aspx @@ -69,9 +69,16 @@
  • Bitácora Facturas
    • -
  • +
  • Vinculación Masiva Complementos
    • + +
  • + Personalizar +
    • + + + @@ -196,6 +203,7 @@ + @@ -260,6 +268,14 @@ + + <%--Folio Fiscal 11--%> + + + + + + <%----%> @@ -372,6 +388,13 @@ + + <%-- Folio Fiscal 9 --%> + + + + + @@ -485,6 +508,12 @@ + + <%-- Folio Fiscal 9 --%> + + + + @@ -898,6 +927,36 @@
    + + + + + + +