Merge branch 'master' of http://192.168.10.111:8383/SIG

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

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

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

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
 

Compras/Compras.aspx

@@ -2207,7 +2207,7 @@
                                                         <ItemTemplate>
                                                             <%--<asp:Label runat="server" ID="LbCveAF" Text='<%# Eval("CodAF")%>'></asp:Label>--%>
                                                             <asp:TextBox ID="LblCodigo" Text='<%# Eval("CodAF")%>' runat="server" Width="100px"></asp:TextBox>
-
+                                                             <asp:Label runat="server" ID="LblValido" Style="display: none" Text="<i class='fa fa-check' style='color:green'></i>"></asp:Label>
                                                             <asp:HyperLink runat="server" ID="HLBuscarAF"><i class="fa fa-search" aria-hidden="true"></i></asp:HyperLink>
 
                                                             <asp:HiddenField runat="server" ID="HdnCveConcepto" Value='<%# Eval("CveConcepto")%>' />
@@ -6042,6 +6042,7 @@
             }
 
             $get("BtnLimpiaAF").click();
+           // $get("BtnVinculaAFEdit").click();
         }
 
 

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)