From b50831e667122167c0c516300d2afd844560955a Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Wed, 26 Aug 2020 17:58:11 -0700 Subject: [PATCH 1/2] OC. aspx. E13.si el proveedor es dedicado, solo debe de mostrarse la opcion de Cotizacion Rapida --- OC/OC.aspx.vb | 16 +++++++++++++++- 1 file changed, 15 insertions(+), 1 deletion(-) diff --git a/OC/OC.aspx.vb b/OC/OC.aspx.vb index 03d0415ca..a3d970573 100644 --- a/OC/OC.aspx.vb +++ b/OC/OC.aspx.vb @@ -1663,7 +1663,10 @@ Partial Class OC InicializaMovtosAlmacen() If UsuarioActual.Empresa.Funcionalidad(565) = "1" And pCveOrdenCompra > 0 And TipoOC.ToUpper() = "REQ" Then - RowCotizaciones.Visible = True + 'LAS COTIZACIONES RAPIDAS SOLO DEBE APARECER SI EL PROVEEDOR ES DEDICADO + If CveConfianzaProveedor = 1 Then + RowCotizaciones.Visible = True + End If UpIvas.Update() End If @@ -1823,6 +1826,8 @@ Partial Class OC DdlProveedores.Attributes.Add("data-metodo", "getproveedores") DdlProveedores.SelectedText = "Seleccione" DdlProveedores.SelectedValue = "-1" + DdlProveedores.ddl.AutoPostBack = True + DdlProveedorCot.setEsWebService(True) DdlProveedorCot.Attributes.Add("data-metodo", "getproveedores") Else @@ -1830,6 +1835,7 @@ Partial Class OC DdlProveedores.DataSource = GlobalDTCompProveedores(CveEmpresaActual) DdlProveedores.DataBind() DdlProveedores.ddl.Items.Insert(0, New ListItem("Seleccione", "-1")) + DdlProveedores.ddl.AutoPostBack = True DdlProveedorCot.DataSource = GlobalDTCompProveedores(CveEmpresaActual) DdlProveedorCot.DataBind() @@ -5352,6 +5358,14 @@ Partial Class OC VerificaSiRequiereCotizacion() + If UsuarioActual.Empresa.Funcionalidad(565) = "1" And CveOrdenCompra > 0 And TipoOC.ToUpper() = "REQ" Then + 'LAS COTIZACIONES RAPIDAS SOLO DEBE APARECER SI EL PROVEEDOR ES DEDICADO + If CveConfianzaProveedor = 1 Then + RowCotizaciones.Visible = True + End If + UpIvas.Update() + End If + DdlProveedorSucursal.DataBind() UPProv.Update() : UPPEmp.Update() UPPDetalle.Update() From 72f7a828fa8506882afdb5bbee6bc4f0a9dd4e76 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Thu, 27 Aug 2020 10:22:24 -0700 Subject: [PATCH 2/2] Concepto 6 en gasto con almacen --- Compras/Compras.aspx.vb | 38 ++++++++++++++++++++++++++++++++++++-- 1 file changed, 36 insertions(+), 2 deletions(-) diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index fb5b5faab..5f8f19a96 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -6489,7 +6489,15 @@ Partial Class Compras_Compras End If Dim UsaComplementariaFleteImportaciones As Boolean = False + 'DEBE METER EL CONCEPTO DE COMPRAS SI EL TIPO ES GASTO CON ALMACEN + If DdlTipoCompra.SelectedValue = "10" Then + ConceptoContabilizacion = 6 + End If + Select Case ConceptoContabilizacion + Case 6 + importeMovimiento = TmpDT.SUMD(If(ListaDocumentos IsNot Nothing AndAlso ListaDocumentos.Count > 0 AndAlso ArrAnticipos IsNot Nothing AndAlso ArrAnticipos.Count > 0 AndAlso TxtTotal.Text.ToDecimal = 0, "ImporteSinImpuestos", "Total")) + importeMN = importeMovimiento * tipoCambioActual * Multiplicador 'TIENE QUE TENER EL IMPORTEMN IGUAL AL IMPORTEMOVIMIENTO PORQUE NO TOMA EN CUENTA SI UN PRODUCTO ES TIPO SERVICIO Case 176 ConceptoContabilizacionME = 228 ConceptoContabilizacionMEComp = 229 @@ -6510,8 +6518,14 @@ Partial Class Compras_Compras importeMN = importeMovimiento * tipoCambioActual * Multiplicador 'TIENE QUE TENER EL IMPORTEMN IGUAL AL IMPORTEMOVIMIENTO PORQUE NO TOMA EN CUENTA SI UN PRODUCTO ES TIPO SERVICIO End Select - If ObjConta.GetRetCuenta(ConceptoContabilizacion, UsuarioActual.CveEmpresa) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then - IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCtaContable").ToString.ToEntero + If ConceptoContabilizacion = 6 Then + If ObjConta.GetRetCuenta(ConceptoContabilizacion, UsuarioActual.CveEmpresa) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then + IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCuentaGasto").ToString.ToEntero + End If + Else + If ObjConta.GetRetCuenta(ConceptoContabilizacion, UsuarioActual.CveEmpresa) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then + IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCtaContable").ToString.ToEntero + End If End If If ObjConta.GetRetCuenta(ConceptoContabilizacionME, UsuarioActual.CveEmpresa) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then @@ -6605,6 +6619,26 @@ Partial Class Compras_Compras ErrorPrepoliza = True End If End If + Case 6 + Concepto = $"{NombreProveedor} {TxtSerie.Text} - {TxtFolio.Text}" + + For Each RowDetalle As DataRow In TmpDT.FiltraParametros("ISNULL(TipoAF,0) <> 2", "", {"CveClasificacion", "CveSubProyecto"}).Rows + + If ObjConta.GetRetCuenta(6, RowDetalle("CveClasificacion").ToString().ToEntero()) Then + If ObjConta.DtResultados.Rows.Count > 0 Then + IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCuentaGasto").ToString.ToEntero + CveCuenta = ObjConta.DtResultados.Rows(0)("IdCuentaGastoSIG").ToString.ToEntero + End If + End If + + If importeMN <> 0 Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMN, Referencia, 6, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, TipoCambio:=tipoCambioActual, + CveClasificacion:=RowDetalle("CveClasificacion").ToString().ToEntero(), CveSubProyecto:=RowDetalle("CveSubProyecto").ToString().ToEntero(), Contabilizable:=SeContabiliza) Then + ErrorPrepoliza = True + End If + End If + Next + End Select 'End If