From 4e944e276d1a250815e1ab9acf06736c4b3459be Mon Sep 17 00:00:00 2001 From: MLopez Date: Fri, 17 Feb 2023 18:11:03 -0700 Subject: [PATCH 01/11] RepOC, filtro por Moneda -CAMBIOS EN BD (SIG_Resp_MLR y Ventas) PA_OC_OrdenesCompraRep + @CveMoneda = -1 --- App_Code/ClsOC.vb | 3 ++- OC/RepOC.aspx | 5 +++++ OC/RepOC.aspx.vb | 8 +++++++- 3 files changed, 14 insertions(+), 2 deletions(-) diff --git a/App_Code/ClsOC.vb b/App_Code/ClsOC.vb index 714db7d74..356e4e3d4 100644 --- a/App_Code/ClsOC.vb +++ b/App_Code/ClsOC.vb @@ -1649,7 +1649,7 @@ Public Class ClsOC FechaFin As Date, CveOrdenCompra As Integer, CveProveedor As Integer, Folio As Integer, CveUsuarioRegistro As Integer, CveUsuario As Integer, CveEmpresa As Integer, CvePS As Integer, Optional PendientePorSurtir As Boolean = False, Optional CveCliente As Integer = -1, Optional Guia As String = "-1", Optional CveActivoFijo As Integer = -1, Optional SoloSubProyectosConPermiso As Boolean = False, Optional CveUsuarioAutorizo As Integer = -1, - Optional CveUsuarioAsignado As Integer = -1, Optional EntregaDirecta As Integer = -1, Optional TopSelect As Integer = 10000) As Boolean + Optional CveUsuarioAsignado As Integer = -1, Optional EntregaDirecta As Integer = -1, Optional TopSelect As Integer = 10000, Optional CveMoneda As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_OC_OrdenesCompraRep") @@ -1678,6 +1678,7 @@ Public Class ClsOC .Add("@CveUsuarioAsignado", SqlDbType.Int).Value = CveUsuarioAsignado .Add("@EntregaDirecta", SqlDbType.Int).Value = EntregaDirecta .Add("@TopSelect", SqlDbType.Int).Value = TopSelect + .Add("@CveMoneda", SqlDbType.Int).Value = CveMoneda End With diff --git a/OC/RepOC.aspx b/OC/RepOC.aspx index 6e00d9bcb..8a3b2fb41 100644 --- a/OC/RepOC.aspx +++ b/OC/RepOC.aspx @@ -196,6 +196,11 @@ + +
+ + +
diff --git a/OC/RepOC.aspx.vb b/OC/RepOC.aspx.vb index 73dbec805..e0ddce034 100644 --- a/OC/RepOC.aspx.vb +++ b/OC/RepOC.aspx.vb @@ -63,6 +63,7 @@ Partial Class RepOC CargaProyectos() 'CargaSubProyectos() CargaUsuarios() + CargaMonedas() CargaProveedores() CargaEstatus() CargaActivoFijo() @@ -122,6 +123,11 @@ Partial Class RepOC DdlUsuarioAutorizo.Items.Insert(0, New ListItem("Todos", "-1")) End Sub + Protected Sub CargaMonedas() + DdlMoneda.DataSource = GlobalDTMonedas + DdlMoneda.DataBind() + DdlMoneda.Items.Insert(0, New ListItem("Todas", "-1")) + End Sub Protected Sub CargaProveedores() If (UsuarioActual.Empresa.Funcionalidad(105) = "1" Or UsuarioActual.Empresa.Funcionalidad(141) = "1") Then DdlProveedores.setEsWebService(True) @@ -380,7 +386,7 @@ Partial Class RepOC DdlEstatus.SelectedValue.ToEntero, FI, FF, -1, DdlProveedores.SelectedValue.ToEntero, If(txtFolio.Text.ToEntero = 0, -1, txtFolio.Text.ToEntero), ddlUsuario.SelectedValue.ToEntero, If(CheckNoCompleta.Checked, -1, UsuarioActual.CveUsuario), UsuarioActual.Empresa.CveEmpresa, If(DDlPS.SelectedValue = "", -1, DDlPS.SelectedValue.ToEntero), If(CheckNoCompleta.Checked, True, False), ddlcliente.SelectedValue.ToEntero, CveActivoFijo:=DdlActivoFijo.SelectedValue.ToEntero, SoloSubProyectosConPermiso:=If(UsuarioActual.Empresa.Funcionalidad(530) = "1", True, False), - CveUsuarioAutorizo:=DdlUsuarioAutorizo.SelectedValue.ToEntero(), CveUsuarioAsignado:=DdlUsuarioAsignado.SelectedValue.ToEntero(), EntregaDirecta:=DdlEntregaDirecta.SelectedValue.ToEntero()) Then + CveUsuarioAutorizo:=DdlUsuarioAutorizo.SelectedValue.ToEntero(), CveUsuarioAsignado:=DdlUsuarioAsignado.SelectedValue.ToEntero(), EntregaDirecta:=DdlEntregaDirecta.SelectedValue.ToEntero(), CveMoneda:=DdlMoneda.SelectedValue.ToEntero()) Then GvConsultar.DataSource = OC.DtResultados DtOC = OC.DtResultados From 1c3b98ebc0cbc945ca0a333434c536b9617c7e64 Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 17 Feb 2023 18:41:52 -0700 Subject: [PATCH 02/11] -- mejora en grid de nc relacionados --- Compras/Compras.aspx | 5 +++-- Compras/Compras.aspx.vb | 9 +++++++-- 2 files changed, 10 insertions(+), 4 deletions(-) diff --git a/Compras/Compras.aspx b/Compras/Compras.aspx index be2e48980..c7021722e 100644 --- a/Compras/Compras.aspx +++ b/Compras/Compras.aspx @@ -897,16 +897,17 @@ Total - + - + Anticipo/NC   + Mon diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index aa2a73f8c..1521a8aa1 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -3052,7 +3052,7 @@ Partial Class Compras_Compras End If If ObjCompra.GetComprasNotasCredito(-1, CveCompra) Then dtnc = ObjCompra.DtResultados - GvAnticiposSel.Caption = "
Compras Aplicadas
" + LtlGvAnticiposSel.Text = "
Compras Aplicadas
" End If End If @@ -6633,7 +6633,12 @@ Partial Class Compras_Compras End If IdCtaContable = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCuentaCostos", $"CveClasificacion = {CveClasificacionCostoOC}").ToString.ToEntero - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, SumatoriaOCINV, Referencia, 69, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveClasificacion:=CveClasificacionCostoOC, ImporteMX:=SumatoriaOCINV, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza, CveSubProyecto:=CveSubProyecto69) Then + Dim tTipoMovto As Boolean = True + If UsuarioActual.Empresa.Funcionalidad(558) = "1" Then ' empresa llantera + tTipoMovto = False + SumatoriaOCINV = -SumatoriaOCINV + End If + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, tTipoMovto, SumatoriaOCINV, Referencia, 69, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveClasificacion:=CveClasificacionCostoOC, ImporteMX:=SumatoriaOCINV, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza, CveSubProyecto:=CveSubProyecto69) Then ErrorPrepoliza = True Exit For End If From a0acf429fb8e3af1d017e0aff32d404e6ea97cbe Mon Sep 17 00:00:00 2001 From: MLopez Date: Fri, 17 Feb 2023 19:03:10 -0700 Subject: [PATCH 03/11] Acumuladores/CatFoliosGarantia acomodar modal en dos columnas --- Acumuladores/CatFoliosGarantia.aspx | 117 +++++++++++++++------------- 1 file changed, 65 insertions(+), 52 deletions(-) diff --git a/Acumuladores/CatFoliosGarantia.aspx b/Acumuladores/CatFoliosGarantia.aspx index 88dbe84cb..9633d73ca 100644 --- a/Acumuladores/CatFoliosGarantia.aspx +++ b/Acumuladores/CatFoliosGarantia.aspx @@ -244,7 +244,7 @@ --%>