From df8e5a86d69fadc28732fdc0598d679aac384132 Mon Sep 17 00:00:00 2001 From: rakcsle Date: Tue, 18 May 2021 10:45:30 -0700 Subject: [PATCH 1/2] Cuenrtas bancarias, Compras AF --- Bancos/CuentasBancariasDetalle.aspx.vb | 44 +++++++++++++++++++++-- Compras/Compras.aspx | 3 +- Compras/Compras.aspx.vb | 49 +++++++++++++++++++++++++- 3 files changed, 92 insertions(+), 4 deletions(-) diff --git a/Bancos/CuentasBancariasDetalle.aspx.vb b/Bancos/CuentasBancariasDetalle.aspx.vb index 656a2aa10..24f611f58 100644 --- a/Bancos/CuentasBancariasDetalle.aspx.vb +++ b/Bancos/CuentasBancariasDetalle.aspx.vb @@ -193,13 +193,53 @@ Partial Class Bancos_CuentasBancariasDetalle DdlTipoCuenta.SelectedValue = ObjCuentasBancariasDetalle.CveTipoCuenta.ToString - DdlTipoCuenta_SelectedIndexChanged(DdlTipoCuenta, EventArgs.Empty) + DdlTipoCuenta_SelectedIndexChanged(DdlTipoCuenta, EventArgs.Empty) + + If UsuarioActual.Empresa.TipoContabilizacion = 1 Then DDlCuentaContable.SelectedValueExist(ObjCuentasBancariasDetalle.CveCuentaConta.ToString) DdlCuentaContableComplementaria.SelectedValueExist(ObjCuentasBancariasDetalle.CveCuentaContaComplementaria.ToString) Else - DDlCuentaContable.SelectedValueExist(ObjCuentasBancariasDetalle.IdCtaContable.ToString) + + Dim ExisteEnIntems As Boolean = False + + For Each li As ListItem In DDlCuentaContable.Items + If li.Value.ToEntero = ObjCuentasBancariasDetalle.IdCtaContable Then + ExisteEnIntems = True + Exit For + End If + Next + + + If ExisteEnIntems Then + DDlCuentaContable.SelectedValueExist(ObjCuentasBancariasDetalle.IdCtaContable.ToString) + Else + + If UsuarioActual.Empresa.UsaContabilidad Then + Dim objCont As New ClsContPAQi(UsuarioActual.Empresa) + + + If objCont.GetCuentas(ObjCuentasBancariasDetalle.IdCtaContable, "-1", -1) Then + If objCont.DtResultados.Rows.Count > 0 Then + + DDlCuentaContable.Items.Add(New ListItem(objCont.DtResultados.Rows(0)("CtaCodigo").ToString, objCont.DtResultados.Rows(0)("id").ToString)) + DDlCuentaContable.SelectedValueExist(ObjCuentasBancariasDetalle.IdCtaContable.ToString) + + End If + End If + + + objCont.Dispose() + + End If + + + End If + + DdlCuentaContableComplementaria.SelectedValueExist(ObjCuentasBancariasDetalle.IdCtaContableComplementaria.ToString) + + End If Else diff --git a/Compras/Compras.aspx b/Compras/Compras.aspx index d1d1290f8..9b2e5f586 100644 --- a/Compras/Compras.aspx +++ b/Compras/Compras.aspx @@ -2207,7 +2207,7 @@ <%----%> - + @@ -6042,6 +6042,7 @@ } $get("BtnLimpiaAF").click(); + // $get("BtnVinculaAFEdit").click(); } diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 2c8b5f753..282e4212a 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -6570,7 +6570,7 @@ Partial Class Compras_Compras If Not CveCompraRefacturacion > 0 OrElse (ChkRefacNC.Checked) Then 'AF TipoAF 2 Es para las compras - DT = TmpDT.FiltraParametros("ISNULL(TipoAF,0) = 2 And ISNULL(AplicaCostoIndirecto,0) <> 1") + DT = TmpDT.FiltraParametros("ISNULL(TipoAF,0) = 2 And ISNULL(AplicaCostoIndirecto,0) <> 1 ") If DT.Rows.Count > 0 AndAlso Not DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV", "Ant") Then For Each Row2 As DataRow In DT.Rows importeMovimiento = If(ListaDocumentos IsNot Nothing AndAlso ListaDocumentos.Count > 0 AndAlso ArrAnticipos IsNot Nothing AndAlso ArrAnticipos.Count > 0 AndAlso TxtTotal.Text.ToDecimal = 0, Row2("ImporteSinImpuestos").ToString.ToDecimal, Row2("Total").ToString.ToDecimal) @@ -12626,6 +12626,17 @@ Partial Class Compras_Compras llenaDtsAF() CargaGVsAF() + + For Each Row As DataRow In TmpDT.Rows + + If Row("CveActivoFijo").ToString.ToEntero = 0 Then + Row("TipoAF") = DBNull.Value + End If + + Next + + TmpDT.AcceptChanges() + End Sub Protected Sub DivirInsumo(sender As Object, e As EventArgs) Dim index2 As Integer = 0 @@ -12696,10 +12707,28 @@ Partial Class Compras_Compras GvAFInsumos.Rows(Index).FCHiddenField("HdnCveAF").Value = ObjAF.DtResultados.Rows(0)("CveActivoFijo").ToString GvAFInsumos.Rows(Index).FCHiddenField("HdnCodAF").Value = ObjAF.DtResultados.Rows(0)("Codigo").ToString RegistraScript(String.Format("MuestraCheckAF('{0}','');", GvAFInsumos.Rows(Index).FCLabel("LblValido").ClientID), "A2") + + Try + TmpDT.Rows(Index)("CveActivoFijo") = ObjAF.DtResultados.Rows(0)("CveActivoFijo").ToString + TmpDT.AcceptChanges() + Catch ex As Exception + + End Try + + ElseIf HdnTipoAF.Value.ToEntero = 2 Then GvAFCompras.Rows(Index).FCHiddenField("HdnCveAF").Value = ObjAF.DtResultados.Rows(0)("CveActivoFijo").ToString GvAFCompras.Rows(Index).FCHiddenField("HdnCodAF").Value = ObjAF.DtResultados.Rows(0)("Codigo").ToString RegistraScript(String.Format("MuestraCheckAF('{0}','');", GvAFCompras.Rows(Index).FCLabel("LblValido").ClientID), "A2") + + Try + TmpDT.Rows(Index)("CveActivoFijo") = ObjAF.DtResultados.Rows(0)("CveActivoFijo").ToString + TmpDT.AcceptChanges() + Catch ex As Exception + + End Try + + End If 'COMENTADO IPP 15 JUNIO 2017 'RegistraScript(String.Format("EnterAFEditOK('{0}','{1}');", ObjAF.DtResultados.Rows(0)("CveActivoFijo").ToString, ObjAF.DtResultados.Rows(0)("Codigo").ToString)) @@ -12709,10 +12738,28 @@ Partial Class Compras_Compras GvAFInsumos.Rows(Index).FCHiddenField("HdnCveAF").Value = "-1" GvAFInsumos.Rows(Index).FCHiddenField("HdnCodAF").Value = "-1" RegistraScript(String.Format("MuestraCheckAF('{0}','none');", GvAFInsumos.Rows(Index).FCLabel("LblValido").ClientID), "A2") + + + Try + TmpDT.Rows(Index)("CveActivoFijo") = Nothing + TmpDT.AcceptChanges() + Catch ex As Exception + + End Try + + ElseIf HdnTipoAF.Value.ToEntero = 2 Then GvAFCompras.Rows(Index).FCHiddenField("HdnCveAF").Value = "-1" GvAFCompras.Rows(Index).FCHiddenField("HdnCodAF").Value = "-1" RegistraScript(String.Format("MuestraCheckAF('{0}','none');", GvAFCompras.Rows(Index).FCLabel("LblValido").ClientID), "A2") + + Try + TmpDT.Rows(Index)("CveActivoFijo") = Nothing + TmpDT.AcceptChanges() + Catch ex As Exception + + End Try + End If Alert("No se encontró un Activo Fijo con el código proporcionado.", TipoMensaje.MsgAdvertencia) From f654c99f2d8770574d7445064e229818eaab8443 Mon Sep 17 00:00:00 2001 From: rakcsle Date: Wed, 19 May 2021 10:18:04 -0700 Subject: [PATCH 2/2] =?UTF-8?q?IE=20no=20emiter=20compleemntos=20Con=20Cve?= =?UTF-8?q?IECancelaci=C3=B3n?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Bancos/IE.aspx.vb | 4 ++-- Bancos/PopIECompras.aspx.vb | 6 +++++- Bancos/ProveedoresAbonar.aspx.vb | 4 +++- 3 files changed, 10 insertions(+), 4 deletions(-) diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb index 5dab27d13..e48ffc632 100644 --- a/Bancos/IE.aspx.vb +++ b/Bancos/IE.aspx.vb @@ -1212,7 +1212,7 @@ Partial Class Bancos_IE Dim ExistenComplementosVigentes As Boolean = VerificaComplementos(True) 'Dim ExistenComplementos As Boolean = VerificaComplementos(False) - If Not ChkConciliado.Checked And ObjIE.CveEstatusIE <> 2 Then + If Not ChkConciliado.Checked And ObjIE.CveEstatusIE <> 2 And ObjIE.CveIECancelacion <= 0 Then If (Not ExistenComplementosVigentes) Then @@ -5706,7 +5706,7 @@ Partial Class Bancos_IE GvComplementoPagos.DataSource = ObjBancos.DtResultados - If ObjBancos.DtResultados.FiltraParametros(" Estatus IN (1,3) ").Rows.Count = 0 And Tipo.ToUpper = "CARGO" And CveCliente > 0 And CveEstatusIE <> 2 Then + If ObjBancos.DtResultados.FiltraParametros(" Estatus IN (1,3) ").Rows.Count = 0 And Tipo.ToUpper = "CARGO" And CveCliente > 0 And CveEstatusIE <> 2 And ObjBancos.DtResultados.FiltraParametros(" CveIECancelacion > 0 ").Rows.Count = 0 Then DVGenerarComplementoModal.Visible = True End If Else diff --git a/Bancos/PopIECompras.aspx.vb b/Bancos/PopIECompras.aspx.vb index 0aa0039e8..a25f96907 100644 --- a/Bancos/PopIECompras.aspx.vb +++ b/Bancos/PopIECompras.aspx.vb @@ -2659,6 +2659,9 @@ Partial Class Bancos_PopIECompras If MovimientoPagar.IVANoDeducible > 0 Then If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteMovimiento, If(ConceptoContable = 30, TxtFolio.Text.Trim, TxtObservaciones.Text), 280, ConceptoMovimiento, Fecha, IdCtaContableNoIVA, -1, CveIE, -1, CveCompra, -1, CveProveedor:=CveProveedor2, ImporteMX:=ImporteMXNoDeducible, CveCuenta:=CveCuenta, TipoCambio:=TimpocambioGeneral, CvePersonal:=CvePersonal, PorcentajeImpuesto:=PorcentajeImpuesto) Then MsgError = "No se pudo insertar la póliza" + Else + ImporteMovimiento = 0 + ImporteMX = 0 End If End If @@ -2883,7 +2886,8 @@ Partial Class Bancos_PopIECompras If MovimientoPagar.IVANoDeducible > 0 Then If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteMovimiento, If(ConceptoContable = 30, TxtFolio.Text.Trim, TxtObservaciones.Text), 280, ConceptoMovimiento, Fecha, IdCtaContableNoIVA, -1, CveIE, -1, CveCompra, -1, CveProveedor:=CveProveedor2, ImporteMX:=ImporteMXNoDeducible, CveCuenta:=CveCuenta, TipoCambio:=TimpocambioGeneral, CvePersonal:=CvePersonal, PorcentajeImpuesto:=PorcentajeImpuesto) Then - MsgError = "No se pudo insertar la póliza" + MsgError = "No se pudo insertar la póliza" + End If End If 'Case 280 'Iva Acreditable No Deducible diff --git a/Bancos/ProveedoresAbonar.aspx.vb b/Bancos/ProveedoresAbonar.aspx.vb index a80f0bc98..4f4b7bb7f 100644 --- a/Bancos/ProveedoresAbonar.aspx.vb +++ b/Bancos/ProveedoresAbonar.aspx.vb @@ -1848,7 +1848,7 @@ Partial Class Bancos_ProveedoresAbonar importeMX = 0 End If Else - ImporteMovimiento = gvr.DataKey("IVAPorPagar").ToDecimal * PorcentajePago + ImporteMovimiento = gvr.DataKey("IVAPorPagarDeducible").ToDecimal * PorcentajePago If CveMoneda = 1 AndAlso gvr.DataKey("CveMoneda").ToEntero = 1 Then importeMX = ImporteMovimiento @@ -1891,6 +1891,8 @@ Partial Class Bancos_ProveedoresAbonar If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteNOIVA, Referencia, 280, ConceptoMovimiento, FechaMovimiento, IdCtaContableNoIVA, -1, CveIE, CveCompra:=gvr.DataKey("CveCompra").ToEntero, CveProveedor:=CveProveedor, ImporteMX:=ImporteNOIVA, ImporteME:=If(TipoCambioPago = 1, 0, ImporteMovimiento), CveCuenta:=CveCuenta, TipoCambio:=TipoCambioGeneral, PorcentajeImpuesto:=PorcentajeImpuesto) Then MsgError = "No se pudo insertar la póliza" Exit For + + End If End If