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/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb index b2c1d2161..59af58c78 100644 --- a/Bancos/IE.aspx.vb +++ b/Bancos/IE.aspx.vb @@ -1221,7 +1221,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 @@ -5718,7 +5718,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 705884ae4..fdf1a13af 100644 --- a/Bancos/ProveedoresAbonar.aspx.vb +++ b/Bancos/ProveedoresAbonar.aspx.vb @@ -1708,7 +1708,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 @@ -1753,6 +1753,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), TipoCambio:=TipoCambioGeneral, PorcentajeImpuesto:=PorcentajeImpuesto) Then MsgError = "No se pudo insertar la póliza" Exit For + + End If End If 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 874fb65bd..e3cb7e01f 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -6574,7 +6574,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)