diff --git a/App_Code/ClsCompras.vb b/App_Code/ClsCompras.vb index d2a33c406..f6730e5d0 100644 --- a/App_Code/ClsCompras.vb +++ b/App_Code/ClsCompras.vb @@ -941,7 +941,7 @@ Public Class ClsCompras Public Function GetRepProductosServicios(CveProyecto As Integer, CveSubProyecto As String, CveCategoria As String, CveClasificacion As Integer, CvePS As Integer, FechaI As Date, FechaF As Date, CveProveedor As Integer, CveUsuario As Integer, CveEstatus As Integer, CveEmpresa As Integer, Gpo As Integer, CveFamilia As Integer, CveSubFamilia As Integer, CveTipoActivoFijo As String, CveSubTipoActivoFijo As String, CveActivoFijo As Integer, TipoCambio As Integer, Optional TCEspecifico As Double = -1, Optional TipoGasto As String = "-1", - Optional CveUsuarioConsulta As Integer = -1, Optional TipoDocto As String = "-1", Optional Deducible As Integer = -1) As Boolean + Optional CveUsuarioConsulta As Integer = -1, Optional TipoDocto As String = "-1", Optional Deducible As Integer = -1, Optional CveCultivo As String = "-1") As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Comp_GetRepPS") @@ -970,6 +970,8 @@ Public Class ClsCompras .Add("@CveUsuarioConsulta", SqlDbType.Int).Value = CveUsuarioConsulta .Add("@TipoDocto", SqlDbType.VarChar).Value = TipoDocto .Add("@Deducible", SqlDbType.Int).Value = Deducible + .Add("@CveCultivo", SqlDbType.VarChar).Value = CveCultivo + End With Try @@ -984,8 +986,8 @@ Public Class ClsCompras Public Function GetRepProductosServiciosDetalle(CveProyecto As Integer, CveSubProyecto As String, CveCategoria As String, CveClasificacion As Integer, CvePS As Integer, FechaI As Date, FechaF As Date, CveProveedor As Integer, CveUsuario As Integer, CveEstatus As Integer, CveEmpresa As Integer, Gpo As Integer, CveFamilia As Integer, CveSubFamilia As Integer, CveTipoActivoFijo As String, CveSubTipoActivoFijo As String, CveActivoFijo As Integer, - CveMoneda As Integer, TipoCambio As Integer, Optional TCEspecifico As Double = -1, - Optional TipoGasto As String = "-1", Optional CveUsuarioConsulta As Integer = -1, Optional TipoDocto As String = "-1", Optional Deducible As Integer = -1) As Boolean + CveMoneda As Integer, TipoCambio As Integer, Optional TCEspecifico As Double = -1, Optional TipoGasto As String = "-1", Optional CveUsuarioConsulta As Integer = -1, + Optional TipoDocto As String = "-1", Optional Deducible As Integer = -1, Optional CveCultivo As String = "-1") As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Comp_GetRepPSDetalle") @@ -1018,6 +1020,7 @@ Public Class ClsCompras .Add("@CveUsuarioConsulta", SqlDbType.Int).Value = CveUsuarioConsulta .Add("@TipoDocto", SqlDbType.VarChar).Value = TipoDocto .Add("@Deducible", SqlDbType.Int).Value = Deducible + .Add("@CveCultivo", SqlDbType.VarChar).Value = CveCultivo End With diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb index e965a4e5b..8844b682c 100644 --- a/App_Code/ClsInventarios.vb +++ b/App_Code/ClsInventarios.vb @@ -1541,6 +1541,47 @@ Public Class ClsInventarios Return Retorno End Function + Public Function GetKardexAlmacenHorizontalAgrupado(CvePS As Integer, FechaFin As Date, CveAlmacen As Integer, CveUnidadMedida As Integer, CveProveedor As Integer, CveTipoAlmacen As Integer, + IncluyeTransitorios As Integer, CveClasificacion As Integer, CveUsuario As Integer, CveEmpresa As Integer, Optional CondicionExistencias As Integer = 0, + Optional Orden As Integer = -1, Optional Marcas As String = "-1", Optional IncluyeProyectado As Integer = -1, Optional CveAlmacenes As String = "-1") As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_Inv_KardexAlmacenHorizontalGetAgrupado") + + With SqlAdapter.SelectCommand.Parameters + '.Add("@FechaI", SqlDbType.VarChar).Value = FechaI + .Add("@FechaFin", SqlDbType.Date).Value = FechaFin + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion + .Add("@CvePS", SqlDbType.Int).Value = CvePS + .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen + .Add("@CveUnidadMedida", SqlDbType.Int).Value = CveUnidadMedida + .Add("@IncluyeTransitorios", SqlDbType.Int).Value = IncluyeTransitorios + .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + .Add("@CveProveedorCompra", SqlDbType.Int).Value = CveProveedor + .Add("@CveTipoAlmacen", SqlDbType.Int).Value = CveTipoAlmacen + .Add("@ExistenciasCondicion", SqlDbType.Int).Value = CondicionExistencias + .Add("@Orden", SqlDbType.Int).Value = Orden + .Add("@Marcas", SqlDbType.VarChar).Value = Marcas + .Add("@IncluyeProyectado", SqlDbType.TinyInt).Value = IncluyeProyectado + .Add("@CveAlmacenes", SqlDbType.NVarChar).Value = CveAlmacenes + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch Ex1 As SqlException + + Me.OnError("Ocurrió un error al obtener el kardex de almacen.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + + Catch ex As Exception + OnError("Ocurrió un error al obtener el kardex de almacen.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + + End Function + Public Function GetKardex(Entrada As Boolean, Salida As Boolean, CvePS As Integer, FechaI As String, FechaF As String, CveAlmacen As Integer, CveTiposAlmacen As String, CveUnidadMedida As Integer, CveUsuario As Integer, CveEmpresa As Integer, Optional AgruparAlmacen As Boolean = False, Optional Serie As String = "-1", Optional CveAlmacenes As String = "-1") As Boolean Dim Retorno As Boolean = False diff --git a/Compras/Compras.aspx b/Compras/Compras.aspx index 6e663ced8..b52912804 100644 --- a/Compras/Compras.aspx +++ b/Compras/Compras.aspx @@ -1139,13 +1139,11 @@ - @@ -2191,7 +2200,7 @@ <%----%> - + @@ -2401,17 +2410,15 @@ - - + - - + + - @@ -4422,7 +4429,7 @@
-
+
8% @@ -4565,7 +4572,6 @@ -
@@ -5386,7 +5392,7 @@ - + @@ -5812,7 +5818,7 @@ } //var SaldoCompra = parseFloat(parseFloat($get('HdnCompraSaldo').value).toFixed(2)); - var SaldoCompra = (TotalSaldo - FnSumaValoresAnt() + txtvalue).toFixed(2); // le agrego lo del valor actual para validarlo + var SaldoCompra = (Total - FnSumaValoresAnt() + txtvalue).toFixed(2); // le agrego lo del valor actual para validarlo @@ -5843,7 +5849,7 @@ $("#LblTotalAnticipos").text(FormatoNumero(FnSumaValoresAnt(), 2)); $("#LblAplicadoCompraAnt").text(FormatoNumero(FnSumaValoresAnt(), 2)); - $("#LblSaldoFactura").text(FormatoNumero(TotalSaldo - FnSumaValoresAnt(), 2)); + $("#LblSaldoFactura").text(FormatoNumero(Total - FnSumaValoresAnt(), 2)); } @@ -6034,7 +6040,6 @@ } $get("BtnLimpiaAF").click(); - // $get("BtnVinculaAFEdit").click(); } @@ -6636,23 +6641,24 @@ } function ValidateCantCon(variable) { - - var txt = $(variable); - var max = txt.data('cantidad'); - var value = parseInt(txt.val()); + + var txt = $(variable); + var max = txt.data('cantidad'); + var value = parseInt(txt.val()); if (value > max) { txt.val(max); - } + } if (value < 0) { txt.val(0); - } - - var importe = $('.txtimporte[data-cve="' + txt.data('cve') + '"]'); + } + + var importe = $('.txtimporte[data-cve="' + txt.data('cve') + '"]'); importe.val(parseFloat(txt.val()) * parseFloat(txt.data('pu'))); - + } - - + + + function ValidaRangoDeFechas(sender, args) { if ($("#TxtFecha").val().length == 10 && $("#TxtFechaPago").val().length == 10) { diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 7dc20c0b4..14a68d83c 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -1427,7 +1427,7 @@ Partial Class Compras_Compras UpLnkPaqueteriaGuias.Update() End If - If Not CveCompra > 0 And UsuarioActual.CveRol = 1 Then + If Not CveCompra > 0 Then LIContratos.Visible = True End If @@ -3230,6 +3230,7 @@ Partial Class Compras_Compras CambiaMoneda(False) End If + ViewState("CveProveedor") = ObjProveedor.CveProveedor ViewState("CveTipoProveedor") = ObjProveedor.CveTipoProveedor If ObjProveedor.CveTipoProveedor = 1 Then LblProveedor.Text = "Proveedor:" Else LblProveedor.Text = "Acreedor:" @@ -3343,6 +3344,7 @@ Partial Class Compras_Compras 'CargaDatosEstimaciones(ObjProveedor.CveProveedor) ImgBtnBuscarOC.OnClientClick = String.Format("AbrirVentana('/OC/PopUpBuscarReq.aspx?V=VOCCOMP&P={0}&T={1}&Masterimpoup=true',1000,600,'S'); return false;", ObjProveedor.CveProveedor, DdlTipoComprobante.SelectedValue) CargaAnticipos(ObjProveedor.CveProveedor) : UpAnticipos.Update() + If UsuarioActual.Empresa.UsaAC Then If (TxtRetIVA.Text.ToDouble > 0 And Not ObjProveedor.IdCtaContRetIVA > 0) Or (TxtRetISR.Text.ToDouble > 0 And Not ObjProveedor.IdCtaContRetISR > 0) Then ' ImgBtnBuscarOC.Visible = False @@ -3787,7 +3789,7 @@ Partial Class Compras_Compras '' AGREGA PS 'AGREGA A TMPDT - AddPS(ValorXML(node, "cantidad").ToDouble, CveUM, UMM, tCveClasif, Clasif, tCvePS, PSS, TipoPS, "-1", "SE", "SE", "-1", Obs, PU, Total, IVA, RetIVA, RetISR, IEPS, 0, Descuento, PSCodigo:=tPSCodigo, TCalculaTotales:=False, CodigoSATPS:=ValorXML(node, "ClaveProdServ").ToEntero(), CargaXml:=True, PorcentajeIVA:=PorcentajeIVA, PorcentajeRetIVA:=PorcentajeRetIVA, PorcentajeRetISR:=PorcentajeRetISR, PorcentajeIEPS:=PorcentajeIEPS) + AddPS(ValorXML(node, "cantidad").ToDouble, CveUM, UMM, tCveClasif, Clasif, tCvePS, PSS, TipoPS, "-1", "SE", "SE", "-1", Obs, PU, Total, IVA, RetIVA, RetISR, IEPS, 0, Descuento, PSCodigo:=tPSCodigo, TCalculaTotales:=False, CveSATPS:=ValorXML(node, "ClaveProdServ").ToEntero(), CargaXml:=True, PorcentajeIVA:=PorcentajeIVA, PorcentajeRetIVA:=PorcentajeRetIVA, PorcentajeRetISR:=PorcentajeRetISR, PorcentajeIEPS:=PorcentajeIEPS) @@ -3957,6 +3959,7 @@ Partial Class Compras_Compras + Dim EstatusCredito As Integer = 0 Dim CveSubProyecto As Integer = 0 'Credito Multiple @@ -4644,6 +4647,7 @@ Partial Class Compras_Compras + 'Compra If ObjCompras.AddCompra(DdlTipoComprobante.SelectedValue, TxtDescripcion.Text.Trim, TxtSerie.Text.Trim, TxtFolio.Text.Trim, TxtFolioSecundario.Text.Trim, CveProveedor, TxtSubTotal.Text.ToDouble, TxtDescuento.Text.ToDouble, LblAmortizacion.Text.ToDouble, TxtIVA.Text.ToDouble, TxtRetIVA.Text.ToDouble, TxtRetISR.Text.ToDouble, TxtIEPS.Text.ToDouble, TxtOtrosImpuestos.Text.ToDouble, @@ -8343,9 +8347,9 @@ Partial Class Compras_Compras 'ACTUALIZA CVEFACTURA If Request("CveFactura") IsNot Nothing Then - 'If Not ObjCompras.UpdateCompraFactura(CveCompra, Request("CveFactura").ToEntero, TxtSerie.Text.Trim, TxtFolio.Text.Trim) Then - ' TieneError = True - 'End If + If Not ObjCompras.UpdateCompraFactura(CveCompra, Request("CveFactura").ToEntero, TxtSerie.Text.Trim, TxtFolio.Text.Trim) Then + TieneError = True + End If If UsuarioActual.Empresa.UsaAC Then MsgAccionAceptar = String.Format("window.opener.location.href = window.opener.location.href; window.open(""/Contabilidad/RegPoliza.aspx?IdPoliza={0}""); window.close();", IdPoliza) @@ -8430,20 +8434,16 @@ Partial Class Compras_Compras Msg.Append("¿Desea realizar una evaluacion al proveedor?") Msg.AppendFormat($"
Evaluar Proveedor.") End If - - BtnGuardar.Enabled = False - UpFacturar.Update() - - Alert(Msg.ToString, TipoMensaje.MsgInformacion, MsgAccionAceptar) - - 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 + BtnGuardar.Enabled = False + UpFacturar.Update() + Alert(Msg.ToString, TipoMensaje.MsgInformacion, MsgAccionAceptar) End If @@ -9664,7 +9664,8 @@ Partial Class Compras_Compras End If LblAmortizacion.Text = ImporteAnticipo.FormatoNumero - + LblAplicadoCompraAnt.Text = ImporteAnticipo.FormatoNumero + LblSaldoFactura.Text = (TxtTotal.Text.ToDecimal - ImporteAnticipo).ToString.FormatoNumero UpPS.Update() End If RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAnticipos")) @@ -9732,7 +9733,7 @@ Partial Class Compras_Compras Dim ObjInventario As New ClsInventarios(ObjCompra.IniciaTransacSQL) Dim ObjContabilidad As New ClsContabilidad(ObjCompra.IniciaTransacSQL) Dim ObjAF As New ClsAF(ObjCompra.IniciaTransacSQL) - Dim ObjContaAC As ClsContPAQi = Nothing '= New ClsContPAQi(UsuarioActual.Empresa) + Dim ObjContaAC As ClsContPAQi '= New ClsContPAQi(UsuarioActual.Empresa) Dim Retorno As Boolean = True Dim CveEstatusFactura As Integer = HdnCveEstatusFactura.Value.ToEntero @@ -12672,6 +12673,7 @@ Partial Class Compras_Compras TmpDT.Rows(Indice)("PU") = TmpDT.Rows(Indice)("PU").ToString.ToDouble + tPU TmpDT.Rows(Indice)("Total") = TmpDT.Rows(Indice)("Total").ToString.ToDouble + ImporteAjuste TmpDT.Rows(Indice)("IEPSPS") = (TmpDT.Rows(Indice)("Total").ToString.ToDouble() * TmpDT.Rows(Indice)("IEPSPSPorcentaje").ToString.ToDouble()).RoundAD(2) + 'TmpDT.Rows(Indice)("IVA") = TmpDT.Rows(Indice)("PU").ToString.ToDecimal * TmpDT.Rows(Indice)("Cantidad").ToString.ToDecimal * TmpDT.Rows(Indice)("IVAPorcentaje").ToString.ToDecimal TmpDT.Rows(Indice)("IVA") = (TmpDT.Rows(Indice)("PU").ToString.ToDecimal * TmpDT.Rows(Indice)("Cantidad").ToString.ToDecimal - TmpDT.Rows(Indice)("Descuento").ToString.ToDecimal) * TmpDT.Rows(Indice)("IVAPorcentaje").ToString.ToDecimal 'Row("IEPSPS") = Math.Round(IEPSPS, DecimalesPermitidos) 'Row("IEPSPSPorcentaje") = PorcentajeIEPS @@ -15066,7 +15068,7 @@ Partial Class Compras_Compras dt = ObjContabilidad.DtResultados For Each dr As DataRow In dt.Rows - If Not ObjContabilidad.UpdatePrePolizasDetalle(dr("CvePrePolizaDetalle").ToString.ToEntero, dr("Concepto").ToString, dr("CveSubProyecto").ToString.ToEntero, dr("IdCtaContable").ToString.ToEntero, CBool(dr("TipoMovto").ToString), 0, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then + If Not ObjContabilidad.UpdatePrepolizasDetalle(dr("CvePrePolizaDetalle").ToString.ToEntero, dr("Concepto").ToString, dr("CveSubProyecto").ToString.ToEntero, dr("IdCtaContable").ToString.ToEntero, CBool(dr("TipoMovto").ToString), 0, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then ErrorCancelar = True : Exit For End If Next @@ -15446,7 +15448,7 @@ Partial Class Compras_Compras 'SI PUEDE RECIBIR POR OC Y COMPRA ' si usa almacen, si tiene activado que reciba por OC, y que si la compra tipo Proveedor. que lo muestre - If UsuarioActual.Empresa.UsaInventarios And UsuarioActual.Empresa.Funcionalidad(131).ToEntero > 0 AndAlso CveTipoConcepto = 1 Then + If UsuarioActual.CveEmpresa = 119 AndAlso UsuarioActual.Empresa.UsaInventarios And UsuarioActual.Empresa.Funcionalidad(131).ToEntero > 0 AndAlso CveTipoConcepto = 1 Then DivOCVinculaInv.Visible = True End If @@ -15904,7 +15906,7 @@ Partial Class Compras_Compras 'Dim Descuento As Double = gvr.FCHiddenField("HdnOC1Descuento").Value.ToDecimal Dim CveOrdenCompraDetalle As Integer = dr("CveOrdenCompraDetalle").ToString.ToEntero Dim EntregaDirecta As Integer = dr("EntregaDirecta").ToString.ToEntero - Dim CodigoSATPS As Integer = gvr.FCDropDownLost("DdlSATPS").SelectedValue.ToEntero + Dim CveSATPS As Integer = gvr.FCDropDownLost("DdlSATPS").SelectedValue.ToEntero Dim CveTipoGasto As Integer = dr("CveTipoGastoObra").ToString.ToEntero Dim TipoGasto As String = dr("TipoGasto").ToString @@ -15921,7 +15923,7 @@ Partial Class Compras_Compras End If AddPS(Cantidad, CveUM, UM, CveClasificacion, Clasificacion, CvePS, PS, CveTipoPS, CveSubProyectoContrato, SubProyecto, Proyecto, CveProyecto, Obs, PU, Total, IVA, RetIVA, RetISR, IEPSPS, IEPSPSIVA, Descuento, CveOrdenCompraDetalle, False, - CantidadF:=CantidadF, EntregaDirecta:=EntregaDirecta, CodigoSATPS:=CodigoSATPS, CveTipoGasto:=CveTipoGasto, TipoGasto:=TipoGasto, CveContratoDetalle:=CveContratoDetalle, CveCultivoCuadroDetalle:=CveCultivoCuadroDetalle) + CantidadF:=CantidadF, EntregaDirecta:=EntregaDirecta, CveSATPS:=CveSATPS, CveTipoGasto:=CveTipoGasto, TipoGasto:=TipoGasto, CveContratoDetalle:=CveContratoDetalle, CveCultivoCuadroDetalle:=CveCultivoCuadroDetalle) 'CARGA PE Index = TmpDT.Rows.Count - 1 @@ -16170,7 +16172,7 @@ Partial Class Compras_Compras Dim Descuento As Double = gvr.FCHiddenField("HdnOC1Descuento").Value.ToDecimal Dim CveOrdenCompraDetalle As Integer = dr("CveOrdenCompraDetalle").ToString.ToEntero Dim EntregaDirecta As Integer = dr("EntregaDirecta").ToString.ToEntero - Dim CodigoSATPS As Integer = gvr.FCDropDownLost("DdlSATPS").SelectedValue.ToEntero + Dim CveSATPS As Integer = gvr.FCDropDownLost("DdlSATPS").SelectedValue.ToEntero Dim CveTipoGasto As Integer = -1 Dim TipoGasto As String = "" @@ -16184,7 +16186,7 @@ Partial Class Compras_Compras End If 'AGREGA PS - Dim IndexVinculacionOC = AddPS(Cantidad, CveUM, UM, CveClasificacion, Clasificacion, CvePS, PS, CveTipoPS, CveSubProyectoContrato, SubProyecto, Proyecto, CveProyecto, Obs, PU, Total, IVA, RetIVA, RetISR, IEPSPS, IEPSPSIVA, Descuento, CveOrdenCompraDetalle, False, CantidadF:=CantidadF, EntregaDirecta:=EntregaDirecta, CodigoSATPS:=CodigoSATPS, CveTipoGasto:=CveTipoGasto, TipoGasto:=TipoGasto) + Dim IndexVinculacionOC = AddPS(Cantidad, CveUM, UM, CveClasificacion, Clasificacion, CvePS, PS, CveTipoPS, CveSubProyectoContrato, SubProyecto, Proyecto, CveProyecto, Obs, PU, Total, IVA, RetIVA, RetISR, IEPSPS, IEPSPSIVA, Descuento, CveOrdenCompraDetalle, False, CantidadF:=CantidadF, EntregaDirecta:=EntregaDirecta, CveSATPS:=CveSATPS, CveTipoGasto:=CveTipoGasto, TipoGasto:=TipoGasto) 'CARGA PE TmpDT.Rows(IndexVinculacionOC)("CvePresupuestoEgreso") = dr("CvePresupuestoEgreso").ToString.ToEntero @@ -17446,6 +17448,7 @@ Partial Class Compras_Compras If Not CveCompra > 0 Then 'cuando se está registrando manualmente y se va amortizar LblSaldoFactura.Text = TxtTotal.Text.FormatoNumero + UpAnticipos.Update() End If @@ -18126,10 +18129,10 @@ Partial Class Compras_Compras Select Case Modalidad Case "A" 'ADD - Dim CodigoSATPS = -1 + Dim SATClavePS = -1 Dim PSRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=DdlPS.SelectedValue.ToEntero).FiltroPrimero("") If PSRow IsNot Nothing Then - CodigoSATPS = PSRow("SATClavePS").ToString.ToEntero + SATClavePS = PSRow("SATClavePS").ToString.ToEntero End If Dim IVA As Double If chkImportacion.Checked Then @@ -18140,7 +18143,7 @@ Partial Class Compras_Compras AddPS(TxtCantidad.Text.Trim.ToDouble, ddlUM.SelectedValue.ToEntero, ddlUM.SelectedItem.Text, DdlClasificacion.SelectedValue.ToEntero, DdlClasificacion.SelectedItem.Text, DdlPS.SelectedValue.ToEntero, DdlPS.SelectedText, HdnTipoPS.Value.ToEntero, DdlSubProyecto.SelectedValue.ToString, DdlSubProyecto.SelectedItem.Text, DdlProyecto.SelectedItem.Text, DdlProyecto.SelectedValue.ToString, TxtObsPS.Text.Trim, TxtPrecio.Text.Trim.ToDouble, Total, IVA, TxtRetIVAModal.Text.ToDouble / 100, TxtRetISRModal.Text.ToDouble / 100, TxtIEPSModal.Text.ToDouble / 100, 0, TxtDescuentoModal.Text.ToDouble, OtrosGastos:=TxtOtrosGastos.Text.ToDouble, CveTipoGasto:=DdlTipoGasto.SelectedValue.ToEntero, TipoGasto:=DdlTipoGasto.SelectedItem.Text, - NoDeducible:=ChkEsNoDeduciblePS.Checked, CodigoSATPS:=CodigoSATPS) + NoDeducible:=ChkEsNoDeduciblePS.Checked, CveSATPS:=SATClavePS) AddPS2() LimpiaAgregar() @@ -18195,7 +18198,7 @@ Partial Class Compras_Compras Private Function AddPS(Cantidad As Double, CveUM As Integer, UM As String, CveClasificacion As Integer, Clasificacion As String, CvePS As Integer, PS As String, CveTipoPS As Integer, CveSubProyectoContrato As String, SubProyecto As String, Proyecto As String, CveProyecto As String, Obs As String, PU As Double, Total As Double, IVA As Double, RetIVA As Double, RetISR As Double, IEPSPS As Double, IEPSPSIVA As Double, Descuento As Double, Optional CveOrdenCompraDetalle As Integer = -1, Optional TCalculaTotales As Boolean = True, Optional PSCodigo As String = "-", Optional PSDescripcion As String = "-", Optional CantidadF As Double = -1, Optional EntregaDirecta As Integer = -1, Optional OtrosGastos As Double = 0, - Optional CodigoSATPS As Integer = -1, Optional CargaXml As Boolean = False, Optional CveTipoGasto As Integer = -1, Optional TipoGasto As String = "", Optional PorcentajeIVA As Double = 0, + Optional CveSATPS As Integer = -1, Optional CargaXml As Boolean = False, Optional CveTipoGasto As Integer = -1, Optional TipoGasto As String = "", Optional PorcentajeIVA As Double = 0, Optional PorcentajeIEPS As Double = 0, Optional PorcentajeRetIVA As Double = 0, Optional PorcentajeRetISR As Double = 0, Optional NoDeducible As Boolean = False, Optional CveContratoDetalle As Integer = -1, Optional CveCultivoCuadroDetalle As Integer = -1) As Integer Dim Row As DataRow = Nothing @@ -18235,15 +18238,15 @@ Partial Class Compras_Compras Row("Consec") = TmpDT.Rows.Count + 1 End If - If Version = "3.3" And CodigoSATPS > 0 Then + If Version = "3.3" And CveSATPS > 0 Then Dim DrPSSAT As DataRow = Nothing If CargaXml Then - DrPSSAT = GlobalDTPSATPS("-1", CodigoSATPS.ToString).FiltroPrimero("") + DrPSSAT = GlobalDTPSATPS("-1", CveSATPS.ToString).FiltroPrimero("") 'If GlobalDTPSATPS().FiltraParametros(String.Format("SATClavePS={0}", CveSATPS)).Rows.Count > 0 Then ' DrPSSAT = GlobalDTPSATPS().FiltraParametros(String.Format("SATClavePS={0}", CveSATPS)).Rows(0) 'End If Else - DrPSSAT = GlobalDTPSATPS("-1", CodigoSATPS.ToString).FiltroPrimero("") '= GlobalDTPSATPS().FiltroPrimero(String.Format("SATClavePS={0}", CveSATPS)) + DrPSSAT = GlobalDTPSATPS("-1", CveSATPS.ToString).FiltroPrimero("") '= GlobalDTPSATPS().FiltroPrimero(String.Format("SATClavePS={0}", CveSATPS)) 'If GlobalDTPSATPS().FiltraParametros(String.Format("CveSATPS={0}", CveSATPS)).Rows.Count > 0 Then ' DrPSSAT = GlobalDTPSATPS().FiltraParametros(String.Format("CveSATPS={0}", CveSATPS)).Rows(0) 'End If @@ -18667,9 +18670,6 @@ Partial Class Compras_Compras DdlUnidadAlias.DataBind() HdnPSAliasCveClasificacion.Value = DrPS("CveClasificacion").ToString HdnPSAliasClasificacion.Value = DrPS("Clasificacion").ToString - HdnPSAliasCveSATPS.Value = DrPS("CveSATPS").ToString - HdnPSAliasSATClavePS.Value = DrPS("SATClavePS").ToString - End If End If UpPSAlias.Update() @@ -20759,7 +20759,7 @@ Partial Class Compras_Compras DdlContratosObra.Items.Clear() - DdlContratosObra.DataSource = GlobalDTContratos.FiltraParametros(String.Format($"CveContratoTipo in (30,31) AND CveEmpresa = {UsuarioActual.CveEmpresa}")) + DdlContratosObra.DataSource = GlobalDTContratos.FiltraParametros(String.Format($"CveContratoTipo in (30,31) AND CveEmpresa = {UsuarioActual.CveEmpresa}")) DdlContratosObra.DataBind() DdlContratosObra.Items.Insert(0, New ListItem("Seleccione", "-1")) diff --git a/Compras/RepProductosServicios.aspx b/Compras/RepProductosServicios.aspx index f1620b3b1..ae60b1db0 100644 --- a/Compras/RepProductosServicios.aspx +++ b/Compras/RepProductosServicios.aspx @@ -188,8 +188,9 @@ <%-- --%> - +
+
@@ -259,6 +260,10 @@
+ +
+ +
diff --git a/Compras/RepProductosServicios.aspx.vb b/Compras/RepProductosServicios.aspx.vb index 881d2ad81..bed86756b 100644 --- a/Compras/RepProductosServicios.aspx.vb +++ b/Compras/RepProductosServicios.aspx.vb @@ -129,6 +129,16 @@ Partial Class Compras_RepProductosServicios 'Carga Tipo Centro de Costo CargaTipoCentroCosto() + If UsuarioActual.Empresa.Funcionalidad(590).ToString.ToEntero = 1 Then + lblCultivo.Visible = True + DivCultivo.Visible = True + Else + lblCultivo.Visible = False + DivCultivo.Visible = False + DdlSubProyecto.AutoPostBack = False + + End If + 'CARGA COSTOS If UsuarioActual.CveEmpresa = 66 Then @@ -244,6 +254,8 @@ Partial Class Compras_RepProductosServicios Dim TipoGasto As String = IIf(DdlTipoGasto.GetSelectedValuesM = "", "-1", DdlTipoGasto.GetSelectedValuesM).ToString Dim Categoria As String = IIf(DdlCategoria.GetSelectedValuesM = "", "-1", DdlCategoria.GetSelectedValuesM).ToString Dim SubProyectos As String = IIf(DdlSubProyecto.GetSelectedValuesM = "", "-1", DdlSubProyecto.GetSelectedValuesM).ToString + Dim Cultivo As String = IIf(DdlCultivo.GetSelectedValuesM = "", "-1", DdlCultivo.GetSelectedValuesM).ToString + Dim TipoAF As String = IIf(DdlTipoAF.GetSelectedValuesM = "", "-1", DdlTipoAF.GetSelectedValuesM).ToString Dim SubTipoAF As String = IIf(DdlSubTipoAF.GetSelectedValuesM = "", "-1", DdlSubTipoAF.GetSelectedValuesM).ToString @@ -253,7 +265,7 @@ Partial Class Compras_RepProductosServicios DdlPS.SelectedValue.ToEntero, FechaI, FechaF, DdlProveedor.SelectedValue.ToEntero, DdlUsuario.SelectedValue.ToEntero, DdlEstatus.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, DdlGrupo.SelectedValue.ToEntero, DdlFamilia.SelectedValue.ToEntero, DdlSubFamilia.SelectedValue.ToEntero, TipoAF, SubTipoAF, DdlAF.SelectedValue.ToEntero, TipoCambio, TCEspecifico:=TCEspecifico, TipoGasto:=TipoGasto, CveUsuarioConsulta:=UsuarioActual.CveUsuario, - TipoDocto:=DdlTipoDocto.SelectedValue, Deducible:=DdlDeducible.SelectedValue.ToEntero) Then + TipoDocto:=DdlTipoDocto.SelectedValue, Deducible:=DdlDeducible.SelectedValue.ToEntero, CveCultivo:=Cultivo) Then DtDatos = ObjCompras.DtResultados GvDatos.DataSource = DtDatos @@ -331,11 +343,11 @@ Partial Class Compras_RepProductosServicios End If - Dim Liga = String.Format("/Compras/RepProductosServiciosDetalle.aspx?GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveEstatusFactura={7}&FechaI={8}&FechaF={9}&CveProyecto={10}&CveSubProyecto={11}&CveCategoria={12}&CveClasificacion={13}&CvePS={14}&CveFamilia={15}&CveSubFamilia={16}&CveTipoAF={17}&CveSubTipoAF={18}&CveAF={19}&CveMoneda={20}&CveTipoGasto={21}&TipoCambio={22}&TCEspecifico={23}&Deducible={24}", + Dim Liga = String.Format("/Compras/RepProductosServiciosDetalle.aspx?GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveEstatusFactura={7}&FechaI={8}&FechaF={9}&CveProyecto={10}&CveSubProyecto={11}&CveCategoria={12}&CveClasificacion={13}&CvePS={14}&CveFamilia={15}&CveSubFamilia={16}&CveTipoAF={17}&CveSubTipoAF={18}&CveAF={19}&CveMoneda={20}&CveTipoGasto={21}&TipoCambio={22}&TCEspecifico={23}&Deducible={24}&CveCultivo={25}", DdlGrupo.SelectedValue, e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), FechaI, FechaF, e.Row.DBCampo("CveProyecto"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveCategoria"), e.Row.DBCampo("CveClasificacion"), e.Row.DBCampo("CvePS"), e.Row.DBCampo("CveFamilia"), e.Row.DBCampo("CveSubFamilia"), e.Row.DBCampo("CveTipoAF"), e.Row.DBCampo("CveSubTipoAF"), e.Row.DBCampo("CveAF"), e.Row.DBCampo("CveMoneda"), - DdlTipoGasto.GetSelectedValuesM, e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), DdlDeducible.SelectedValue.ToEntero) + DdlTipoGasto.GetSelectedValuesM, e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), DdlDeducible.SelectedValue.ToEntero, e.Row.DBCampo("CveCultivo")) If Not e.Row.DBCampo("GpoID") = "1" Then @@ -385,6 +397,18 @@ Partial Class Compras_RepProductosServicios ' DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1")) End Sub + Protected Sub DdlSubProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlSubProyecto.SelectedIndexChanged + DdlCultivo.Items.Clear() + If DdlSubProyecto.GetSelectedValuesM(True) <> "" Then + DdlCultivo.DataSource = GlobalDTCultivosCuadro(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveSubProyecto IN ({0})", DdlSubProyecto.GetSelectedValuesM(True))) + DdlCultivo.DataBind() + Else + DdlCultivo.DataSource = Nothing + DdlCultivo.DataBind() + End If + ' DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1")) + End Sub + Protected Sub DdlFamilia_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlFamilia.SelectedIndexChanged DdlSubFamilia.Items.Clear() diff --git a/Compras/RepProductosServiciosDetalle.aspx b/Compras/RepProductosServiciosDetalle.aspx index 145706cff..4e4c5b193 100644 --- a/Compras/RepProductosServiciosDetalle.aspx +++ b/Compras/RepProductosServiciosDetalle.aspx @@ -251,6 +251,10 @@ + +
+ +
diff --git a/Compras/RepProductosServiciosDetalle.aspx.vb b/Compras/RepProductosServiciosDetalle.aspx.vb index d60c194a2..d77fcd5c0 100644 --- a/Compras/RepProductosServiciosDetalle.aspx.vb +++ b/Compras/RepProductosServiciosDetalle.aspx.vb @@ -72,7 +72,7 @@ Partial Class Compras_RepProductosServiciosDetalle #Region "CARGAS" Private Sub InicializaValores() - Dim Grupo, Proyecto, SubProyecto, Categoria, Clasificacion, PS, Proveedor, Estatus, Usuario, Familia, SubFamilia, TipoActivoFijo, SubTipoActivoFijo, ActivoFijo, TipoGasto As String + Dim Grupo, Proyecto, SubProyecto, Categoria, Clasificacion, PS, Proveedor, Estatus, Usuario, Familia, SubFamilia, TipoActivoFijo, SubTipoActivoFijo, ActivoFijo, TipoGasto, CveCultivo As String Dim Anio, Mes, AnioMes, Fecha, FechaI, FechaF, TipoDocto, Deducible As String Grupo = If(Request("GPO") IsNot Nothing AndAlso Request("GPO").ToEntero() > 0, Request("GPO").ToEntero(), -1).ToString @@ -82,6 +82,7 @@ Partial Class Compras_RepProductosServiciosDetalle SubProyecto = If(Request("CveSubProyecto") IsNot Nothing AndAlso Request("CveSubProyecto") <> "", Request("CveSubProyecto"), "-1").ToString SubProyecto = If(Request("CveSubProyecto") IsNot Nothing AndAlso Request("CveSubProyecto").ToEntero() = -2, "-2", SubProyecto) + CveCultivo = If(Request("CveCultivo") IsNot Nothing AndAlso Request("CveCultivo") <> "", Request("CveCultivo"), "-1").ToString TipoGasto = If(Request("CveTipoGasto") IsNot Nothing AndAlso Request("CveTipoGasto") <> "", Request("CveTipoGasto"), "-1").ToString Categoria = If(Request("CveCategoria") IsNot Nothing AndAlso Request("CveCategoria") <> "", Request("CveCategoria"), "-1").ToString TipoActivoFijo = If(Request("CveTipoAF") IsNot Nothing AndAlso Request("CveTipoAF") <> "", Request("CveTipoAF"), "-1").ToString @@ -133,13 +134,17 @@ Partial Class Compras_RepProductosServiciosDetalle txtFechaF.Text = FechaF End If End If - + DdlProyecto.SelectedValueExist(Proyecto) + If DivProyecto.Visible Then CargaSubProyecto() 'CARGA LISTBOXs DdlSubProyecto.SelectedValuesIfExistM(SubProyecto) DdlTipoGasto.SelectedValuesIfExistM(TipoGasto) DdlCategoria.SelectedValuesIfExistM(Categoria) DdlTipoAF.SelectedValuesIfExistM(TipoActivoFijo) DdlSubTipoAF.SelectedValuesIfExistM(SubTipoActivoFijo) + + If SubProyecto <> "" Then CargaCultivo() + DdlCultivo.SelectedValuesIfExistM(CveCultivo) 'END CARGA LISTBOXs 'DdlCategoria.SelectedValueExist(Categoria) @@ -148,13 +153,12 @@ Partial Class Compras_RepProductosServiciosDetalle DdlPS.SelectedValue = PS DdlPS.SelectedText = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=PS.ToEntero)(0)("PSCodigo").ToString End If - DdlProyecto.SelectedValueExist(Proyecto) - If DivProyecto.Visible Then CargaSubProyecto() + 'DdlSubProyecto.SelectedValueExist(SubProyecto) DdlFamilia.SelectedValueExist(Familia) DdlSubFamilia.SelectedValueExist(SubFamilia) DdlProveedor.SelectedValue = Proveedor - If DdlProveedor.SelectedValue.ToEntero > 0 Then + If Proveedor.ToEntero > 0 Then DdlProveedor.SelectedText = GlobalDTCompProveedores(UsuarioActual.CveEmpresa).FiltraParametros($"CveProveedor = {Proveedor}").Rows(0)("RazonSocial").ToString Else DdlProveedor.SelectedText = "Todos" @@ -172,17 +176,16 @@ Partial Class Compras_RepProductosServiciosDetalle DdlGrupo.SelectedValueExist(Grupo) - CargaDatos(Proyecto.ToEntero, SubProyecto, Categoria, Clasificacion.ToEntero, PS.ToEntero, Proveedor.ToEntero, Usuario.ToEntero, Estatus.ToEntero, Grupo.ToEntero, Familia.ToEntero, SubFamilia.ToEntero, TipoActivoFijo, SubTipoActivoFijo, ActivoFijo.ToEntero, TipoGasto) + CargaDatos(Proyecto.ToEntero, SubProyecto, Categoria, Clasificacion.ToEntero, PS.ToEntero, Proveedor.ToEntero, Usuario.ToEntero, Estatus.ToEntero, Grupo.ToEntero, Familia.ToEntero, SubFamilia.ToEntero, TipoActivoFijo, SubTipoActivoFijo, ActivoFijo.ToEntero, TipoGasto, CveCultivo) End Sub Private Sub SetValues() 'Cargo Proyectos - DdlProveedor.setEsWebService(True) - DdlProveedor.Attributes.Add("data-metodo", "getproveedores") - DdlProveedor.SelectedText = "Todos" - DdlProveedor.SelectedValue = "-1" + DdlProyecto.DataSource = GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1) + DdlProyecto.DataBind() + 'CAarga Tipos de Gasto DdlTipoGasto.DataSource = GlobalDTTiposGastos(UsuarioActual.CveEmpresa) @@ -354,6 +357,7 @@ Partial Class Compras_RepProductosServiciosDetalle Dim TipoGasto As String = IIf(DdlTipoGasto.GetSelectedValuesM = "", "-1", DdlTipoGasto.GetSelectedValuesM).ToString Dim Categoria As String = IIf(DdlCategoria.GetSelectedValuesM = "", "-1", DdlCategoria.GetSelectedValuesM).ToString Dim SubProyectos As String = IIf(DdlSubProyecto.GetSelectedValuesM = "", "-1", DdlSubProyecto.GetSelectedValuesM).ToString + Dim Cultivo As String = IIf(DdlCultivo.GetSelectedValuesM = "", "-1", DdlCultivo.GetSelectedValuesM).ToString Dim TipoAF As String = IIf(DdlTipoAF.GetSelectedValuesM = "", "-1", DdlTipoAF.GetSelectedValuesM).ToString Dim SubTipoAF As String = IIf(DdlSubTipoAF.GetSelectedValuesM = "", "-1", DdlSubTipoAF.GetSelectedValuesM).ToString @@ -364,7 +368,7 @@ Partial Class Compras_RepProductosServiciosDetalle DdlPS.SelectedValue.ToEntero, FechaI, FechaF, DdlProveedor.SelectedValue.ToEntero, DdlUsuario.SelectedValue.ToEntero, DdlEstatus.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, DdlGrupo.SelectedValue.ToEntero, DdlFamilia.SelectedValue.ToEntero, DdlSubFamilia.SelectedValue.ToEntero, TipoAF, SubTipoAF, DdlAF.SelectedValue.ToEntero, CveMoneda, TipoCambio, TCEspecifico:=TCEspecifico, TipoGasto:=TipoGasto, CveUsuarioConsulta:=UsuarioActual.CveUsuario, - TipoDocto:=DdlTipoDocto.SelectedValue, Deducible:=DdlDeducible.SelectedValue.ToEntero) Then + TipoDocto:=DdlTipoDocto.SelectedValue, Deducible:=DdlDeducible.SelectedValue.ToEntero, CveCultivo:=Cultivo) Then DtDatos = ObjCompras.DtResultados Else DtDatos = Nothing @@ -376,14 +380,16 @@ Partial Class Compras_RepProductosServiciosDetalle Agrupador = DdlGrupo.SelectedItem.Text End Sub - Private Sub CargaDatos(Proyecto As Integer, SubProyecto As String, Categoria As String, Clasificacion As Integer, PS As Integer, Proveedor As Integer, Usuario As Integer, Estatus As Integer, Grupo As Integer, Familia As Integer, SubFamilia As Integer, TipoActivoFijo As String, SubTipoActivoFijo As String, ActivoFijo As Integer, TipoGasto As String) + Private Sub CargaDatos(Proyecto As Integer, SubProyecto As String, Categoria As String, Clasificacion As Integer, PS As Integer, Proveedor As Integer, Usuario As Integer, Estatus As Integer, Grupo As Integer, Familia As Integer, SubFamilia As Integer, TipoActivoFijo As String, SubTipoActivoFijo As String, ActivoFijo As Integer, TipoGasto As String, CveCultivo As String) Dim ObjCompras As New ClsCompras() Dim FechaI = If(IsDate(txtFechaI.Text.Trim()), txtFechaI.Text.Trim().ToDate, MinFecha) Dim FechaF = If(IsDate(txtFechaF.Text.Trim()), txtFechaF.Text.Trim().ToDate, MaxFecha) If RblTipoCambio.SelectedValue.ToEntero = 3 And TxtEspecifico.Text <> "" Then TCEspecifico = TxtEspecifico.Text.ToDouble Else TCEspecifico = -1 - If ObjCompras.GetRepProductosServiciosDetalle(Proyecto, SubProyecto, Categoria, Clasificacion, PS, FechaI, FechaF, Proveedor, Usuario, Estatus, UsuarioActual.CveEmpresa, Grupo, Familia, SubFamilia, TipoActivoFijo, SubTipoActivoFijo, ActivoFijo, CveMoneda, TipoCambio, TCEspecifico:=TCEspecifico, TipoGasto:=TipoGasto, CveUsuarioConsulta:=UsuarioActual.CveUsuario, TipoDocto:=DdlTipoDocto.SelectedValue, Deducible:=DdlDeducible.SelectedValue.ToEntero) Then + If ObjCompras.GetRepProductosServiciosDetalle(Proyecto, SubProyecto, Categoria, Clasificacion, PS, FechaI, FechaF, Proveedor, Usuario, Estatus, UsuarioActual.CveEmpresa, Grupo, + Familia, SubFamilia, TipoActivoFijo, SubTipoActivoFijo, ActivoFijo, CveMoneda, TipoCambio, TCEspecifico:=TCEspecifico, TipoGasto:=TipoGasto, + CveUsuarioConsulta:=UsuarioActual.CveUsuario, TipoDocto:=DdlTipoDocto.SelectedValue, Deducible:=DdlDeducible.SelectedValue.ToEntero, CveCultivo:=CveCultivo) Then DtDatos = ObjCompras.DtResultados Else DtDatos = Nothing @@ -404,6 +410,17 @@ Partial Class Compras_RepProductosServiciosDetalle End If 'DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1")) End Sub + Private Sub CargaCultivo() + DdlCultivo.Items.Clear() + If DdlSubProyecto.GetSelectedValuesM(True) <> "" Then + DdlCultivo.DataSource = GlobalDTCultivosCuadro(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveSubProyecto IN ({0})", DdlSubProyecto.GetSelectedValuesM(True))) + DdlCultivo.DataBind() + Else + DdlCultivo.DataSource = Nothing + DdlCultivo.DataBind() + End If + 'DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1")) + End Sub #End Region @@ -411,6 +428,10 @@ Partial Class Compras_RepProductosServiciosDetalle Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlProyecto.SelectedIndexChanged CargaSubProyecto() End Sub + Protected Sub DdlSubProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlSubProyecto.SelectedIndexChanged + CargaCultivo() + ' DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1")) + End Sub 'Protected Sub DdlCategoria_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlCategoria.SelectedIndexChanged ' CargaClasificaciones(DdlCategoria.SelectedValue.ToEntero) diff --git a/Contabilidad/ContabilidadElectronica.aspx.vb b/Contabilidad/ContabilidadElectronica.aspx.vb index 6ad3a72fe..05310e147 100644 --- a/Contabilidad/ContabilidadElectronica.aspx.vb +++ b/Contabilidad/ContabilidadElectronica.aspx.vb @@ -114,7 +114,7 @@ Partial Class Contabilidad_ContabilidadElectronica 'CABECERA Str.Append("") - Str.Append(" +
Ver por SubProyecto:
+
+ +
diff --git a/Inventarios/KardexAlmacenHorizontal.aspx.vb b/Inventarios/KardexAlmacenHorizontal.aspx.vb index 8a8c02e01..2916dec67 100644 --- a/Inventarios/KardexAlmacenHorizontal.aspx.vb +++ b/Inventarios/KardexAlmacenHorizontal.aspx.vb @@ -139,43 +139,60 @@ Partial Class Inventarios_KardexAlmacen Dim CveAlmacenes As String = ddlAlmacen.GetSelectedValues() Dim CveProveedorCompra As Integer = If(DdlProveedor.SelectedValue.ToEntero > 0, DdlProveedor.SelectedValue.ToEntero, -1) Dim Marcas As String = If(DdlMarca.GetSelectedValuesM = "", "-1", DdlMarca.GetSelectedValuesM) + Dim dtMovs As DataTable = Nothing - If ObjMovimientos.GetKardexAlmacenHorizontal(CvePS, FechaF, -1, DdlUnidadMedida.SelectedValue.ToEntero, CveProveedorCompra, DdlTipoAlmacen.SelectedValue.ToEntero(), DdlIncluyeTransitorios.SelectedValue.ToEntero(), DdlClasificacion.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CondicionExistencias:=DdlExistencia.SelectedValue, Orden:=DdlOrden.SelectedValue.ToEntero(), Marcas:=Marcas, IncluyeProyectado:=DdlProyeccionFiltro.SelectedValue.ToEntero, CveAlmacenes:=CveAlmacenes) Then - If ObjMovimientos.DtResultados IsNot Nothing AndAlso ObjMovimientos.DtResultados.Rows.Count > 0 Then - dt = ObjMovimientos.DtResultados - Dim ListaBorrar As New List(Of DataColumn) - For index = 3 To dt.Columns.Count - 1 - Dim TotColumna As Double = 0 - For Each Dr As DataRow In dt.Rows - TotColumna += Dr.Item(index).ToString.ToDouble - Next - 'If Not TotColumna > 0 Then - ' ListaBorrar.Add(dt.Columns(index)) - 'End If - Next - For Each item As DataColumn In ListaBorrar - dt.Columns().Remove(item) - Next - dt.AcceptChanges() - GvDatos.DataSource = dt - Else - Alert("La búsqueda no contiene resultados.", TipoMensaje.MsgAdvertencia) - GvDatos.Columns.Clear() - dt = Nothing - Exit Sub + If chkAgruparSubProyecto.Checked Then + If ObjMovimientos.GetKardexAlmacenHorizontalAgrupado(CvePS, FechaF, -1, DdlUnidadMedida.SelectedValue.ToEntero, CveProveedorCompra, DdlTipoAlmacen.SelectedValue.ToEntero(), DdlIncluyeTransitorios.SelectedValue.ToEntero(), DdlClasificacion.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CondicionExistencias:=DdlExistencia.SelectedValue, Orden:=DdlOrden.SelectedValue.ToEntero(), Marcas:=Marcas, IncluyeProyectado:=DdlProyeccionFiltro.SelectedValue.ToEntero, CveAlmacenes:=CveAlmacenes) Then + If ObjMovimientos.DtResultados IsNot Nothing AndAlso ObjMovimientos.DtResultados.Rows.Count > 0 Then + dt = ObjMovimientos.DtResultados + End If + Else + ObjMovimientos.Dispose() + Alert("Ocurrió un error al consultar el Kardex.", TipoMensaje.MsgError) + Exit Sub End If Else - ObjMovimientos.Dispose() - Alert("Ocurrió un error al consultar el Kardex.", TipoMensaje.MsgError) - Exit Sub + If ObjMovimientos.GetKardexAlmacenHorizontal(CvePS, FechaF, -1, DdlUnidadMedida.SelectedValue.ToEntero, CveProveedorCompra, DdlTipoAlmacen.SelectedValue.ToEntero(), DdlIncluyeTransitorios.SelectedValue.ToEntero(), DdlClasificacion.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CondicionExistencias:=DdlExistencia.SelectedValue, Orden:=DdlOrden.SelectedValue.ToEntero(), Marcas:=Marcas, IncluyeProyectado:=DdlProyeccionFiltro.SelectedValue.ToEntero, CveAlmacenes:=CveAlmacenes) Then + If ObjMovimientos.DtResultados IsNot Nothing AndAlso ObjMovimientos.DtResultados.Rows.Count > 0 Then + dt = ObjMovimientos.DtResultados + End If + Else + ObjMovimientos.Dispose() + Alert("Ocurrió un error al consultar el Kardex.", TipoMensaje.MsgError) + Exit Sub + End If + End If + + + If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then + Dim ListaBorrar As New List(Of DataColumn) + For index = 3 To dt.Columns.Count - 1 + Dim TotColumna As Double = 0 + For Each Dr As DataRow In dt.Rows + TotColumna += Dr.Item(index).ToString.ToDouble + Next + 'If Not TotColumna > 0 Then + ' ListaBorrar.Add(dt.Columns(index)) + 'End If + Next + For Each item As DataColumn In ListaBorrar + dt.Columns().Remove(item) + Next + dt.AcceptChanges() + GvDatos.DataSource = dt + GvDatos.DataBind() + Else + Alert("La búsqueda no contiene resultados.", TipoMensaje.MsgAdvertencia) + GvDatos.Columns.Clear() + dt = Nothing + Exit Sub End If - GvDatos.DataBind() - For index = 4 To GvDatos.Rows(0).Cells.Count - 1 GvDatos.HeaderRow.Cells(index).Text = GvDatos.HeaderRow.Cells(index).Text.Split("|")(0) Next + ObjMovimientos.Dispose() End Sub Protected Sub GvDatos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvDatos.RowDataBound