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/7] 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/7] 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 From 72db432b5ea53ad8a343ec14bc0ddc99621a01a9 Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Thu, 27 Aug 2020 15:07:33 -0700 Subject: [PATCH 3/7] =?UTF-8?q?nuevo=20reporte=20para=20impresi=C3=B3n=20d?= =?UTF-8?q?el=20documento=20detalle?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- .../Formatos/RepClientesPagosBancos.rdlc | 73 ++++++------------- Empresas/Grales/Formatos/RepOCPorAtender.rdlc | 8 +- OI/DocumentoDetalle.aspx | 10 +++ OI/DocumentoDetalle.aspx.cs | 55 +++++++++++++- 4 files changed, 93 insertions(+), 53 deletions(-) diff --git a/Empresas/Grales/Formatos/RepClientesPagosBancos.rdlc b/Empresas/Grales/Formatos/RepClientesPagosBancos.rdlc index 574f43d48..fbf8a8cbf 100644 --- a/Empresas/Grales/Formatos/RepClientesPagosBancos.rdlc +++ b/Empresas/Grales/Formatos/RepClientesPagosBancos.rdlc @@ -52,10 +52,10 @@ 4.42895cm - 3.2021cm + 3.06732cm - 3.36938cm + 3.6031cm 2.89562cm @@ -156,7 +156,7 @@ - Fecha Ven. + Fecha Vencimiento. @@ -191,7 +191,7 @@ - Movto. + Cheque. @@ -226,14 +226,14 @@ - Abono + Abonado @@ -250,47 +250,14 @@ 2pt + 2 - - - - true - true - - - - - - - - - - - - Textbox21 - - - Silver - 2pt - 2pt - 2pt - 2pt - - - - + - 0.6cm + 0.46771cm @@ -303,7 +270,8 @@ = IIF( IsNothing(Fields!CveVenta.Value) , (Fields!Banco.Value & " - " & Fields!NumCuenta.Value),Fields!SerieFolio.Value) @@ -336,7 +304,8 @@ =Fields!Fecha.Value @@ -372,7 +341,8 @@ = IIF( IsNothing(Fields!CveVenta.Value), Fields!FechaDocumento.Value,Fields!FechaVencimiento.Value) @@ -408,7 +378,8 @@ = IIF( IsNothing(Fields!CveVenta.Value) , Fields!FolioCobro.Value,"") @@ -441,7 +412,8 @@ =Fields!ImporteAbonado.Value @@ -478,7 +450,8 @@ =IIF(Fields!CveVenta.Value > 0,Fields!MonedaVenta.Value, Fields!MonedaIE.Value) @@ -527,8 +500,8 @@ DataSet1 1.00112cm 0.12912cm - 1.2cm - 19.74272cm + 1.06771cm + 19.84166cm 2