-- mejoras en deudores

Compras/Compras.aspx

@@ -4102,7 +4102,7 @@
                                         <div class="col-md-12">
                                             <asp:UpdatePanel ID="UPDeudores" runat="server" UpdateMode="Conditional">
                                                 <ContentTemplate>
-                                                    <asp:GridView ID="GvDeudores" runat="server" AutoGenerateColumns="False" CssClass="ScrollAD" data-heigth="200px" EmptyDataText="No se encontraron moviemientos" DataKeyNames="CveIE,Saldo,RazonSocial,Folio,CveProveedor,CveMoneda"
+                                                    <asp:GridView ID="GvDeudores" runat="server" AutoGenerateColumns="False" CssClass="ScrollAD" data-heigth="200px" EmptyDataText="No se encontraron movimientos" DataKeyNames="CveIE,Saldo,RazonSocial,Folio,CveProveedor,CveMoneda"
                                                         ToolTip="Listado de Movimientos" data-height="300" Style="width: 100%; height: 100%; text-align: center;" GridLines="None">
                                                         <Columns>
                                                             <asp:TemplateField>

Compras/Compras.aspx.vb

@@ -8669,10 +8669,7 @@ Partial Class Compras_Compras
                         '    If Not RegenerarPrePoliza(ObjContabilidad, ObjContaAC, 6, False, MultiplicadorNC) Then
                         '        Retorno = False
                         '    End If
-                        'End If
+                        'End If 
-
-
-
 
                         If Not TmpDT.Columns.Contains("DesvicularAF") Then
                             TmpDT.Columns.Add("DesvicularAF", GetType(Boolean))
@@ -8686,9 +8683,6 @@ Partial Class Compras_Compras
                             End If
                         Next
 
-
-
-
                         'If UsuarioActual.Empresa.Funcionalidad(207) = "1" Then
                         If Not ActualizarPrePoliza(ObjContabilidad, ObjCompra) Then
                             Retorno = False
@@ -8767,31 +8761,6 @@ Partial Class Compras_Compras
                                     Dim CuentaMatrizAlmacen As Integer
                                     Dim ContadorInventario As Integer = GvInv.Rows.Cast(Of GridViewRow)().Count(Function(gvr) gvr.FCCheckBox("cbInv").Checked)
 
-                                    'COMENTADO 15/3/2016
-                                    'cuando hay algo que ingresar a inventarios
-                                    'Dim x As Integer = 0
-                                    'For Each Dr As DataRow In TmpDT.Rows
-                                    '    If GvInv.Rows.Count > 0 Then
-                                    '        If GvInv.Rows(x).FCCheckBox("cbInv").Checked Then
-                                    '            Dr("CveAlmacen") = GvInv.Rows(x).FCDropDownList("ddlEAlmacen").SelectedValue.ToEntero
-                                    '        Else 'limpio el valor para que no truene en linq mas abajo
-                                    '            Dr("CveAlmacen") = 0
-                                    '        End If
-                                    '        x = x + 1
-                                    '    Else
-                                    '        Exit For
-                                    '    End If
-                                    'Next
-
-                                    ''previamente si hay un ingreso a inventarios
-                                    'Dim CtaAlmacen As Integer
-                                    'If ContadorInventario > 0 Then
-                                    '    Dim drr As DataRow = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveAlmacen = {0}", TmpDT.Rows(0)("CveAlmacen").ToString))
-                                    '    If drr IsNot Nothing Then
-                                    '        CtaAlmacen = drr("IdCtaContable").ToString.ToEntero
-                                    '    End If
-                                    'End If
-
                                     Dim CtaAlmacen As Integer
                                     If ContadorInventario > 0 Then
                                         Dim drr As DataRow = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveAlmacen = {0}", GvInv.HeaderRow.FCDropDownList("ddlAlmacen").SelectedValue.ToString.ToEntero))
@@ -8882,24 +8851,10 @@ Partial Class Compras_Compras
                                                         tImporte = gvr.FCLiteral("LtlTotal").Text.ToDouble
 
                                                         ttIVA = Math.Round(tImporte * tTotalIVA / tTotalGral, 2)
-                                                        '            tDiferenciaIVA -= tIVA
-                                                        '            'identifico si es el ultimo registro, para ver si es necesario un ajuste
-                                                        '            If ipresup = GvPS.Rows.Count Then
-                                                        '                If Math.Round(TotalDetalle - tTotalGral, 2) <= 0.01 AndAlso tDiferenciaIVA > 0 Then
-                                                        '                    tIVA += tDiferenciaIVA
-                                                        '                End If
-                                                        '            End If
 
                                                         '            '                'le sumo el iva al concepto
                                                         tImporte += ttIVA
-
-                                                        'PU = tImporte / gvr.DataKey("Cantidad").ToDouble
-                                                        'If Not ObjInventario.AddMovimientoDetalle(CveMovimiento, gvr.DataKey("Cantidad").ToDouble, gvr.DataKey("CveUM").ToEntero, gvr.DataKey("CvePS").ToEntero, PU, -1) Then
-                                                        '    ErrorAC = True
-                                                        '    Exit For
-                                                        'End If
                                                     End If
-
                                                 Next
 
                                                 CuentaMatrizAlmacen = CtaAlmacen
@@ -9308,15 +9263,7 @@ Partial Class Compras_Compras
                 Dim Referencia As String = $"{TxtSerie.Text}-{TxtFolio.Text}" ' concatenation interpolation
 
                 Select Case ConceptoContable
-                    'Case 5
+
-                    '    IdCtaContable = 1244
-                    '    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importeMovimiento, Referencia, 5, Referencia, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=DdlProveedor.SelectedValue.ToEntero, CvePersonal:=CvePersonal, CveMovimientoAlmacen:=CveMovimientoInventario, ImporteMX:=TxtTotal.Text.ToDecimal, ImporteME:=If(tipoCambioActual = 1, 0, TxtTotal.Text.ToDecimal)) Then
-                    '        ErrorPrepoliza = True
-                    '    End If
-                    '    IdCtaContable = 1243
-                    '    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importeMovimiento, Referencia, 205, Referencia, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=DdlProveedor.SelectedValue.ToEntero, CvePersonal:=CvePersonal, CveMovimientoAlmacen:=CveMovimientoInventario, ImporteMX:=TxtTotal.Text.ToDecimal, ImporteME:=If(tipoCambioActual = 1, 0, TxtTotal.Text.ToDecimal)) Then
-                    '        ErrorPrepoliza = True
-                    '    End If
                     Case 6
                         Dim CveProveedorConcepto As Integer = 0, CveIE As Integer = 0, CveCreditoDetalle As Integer = 0
                         Dim ConceptoPersonal As String = "", Concepto As String = ""
@@ -9383,13 +9330,6 @@ Partial Class Compras_Compras
                             DT = TmpDT.FiltraParametros("ISNULL(TipoAF,0) <> 2 AND ISNULL(CveAlmacen,0) > 0", "", {"CveAlmacen"})
                             'RECORREMOS PARA DETECTAR LA MODALIDAD DEL ALMACEN, EN CASO DE SER SOLO EXISTENCIA LIMPIAMOS CVEALMACEN
 
-                            'For Each Dr As DataRow In DT.Rows
-                            '    If DtAlmacenes.FiltroPrimeroValor("Modalidad", $"CveAlmacen =  {Dr("CveAlmacen").ToString.ToEntero}").ToString = "Solo Existencia" Then
-                            '        Dr("CveAlmacen") = 0
-                            '    End If
-                            '    Dr.AcceptChanges()
-                            'Next
-
                             DT.AcceptChanges()
                             DT = DT.FiltraParametros("ISNULL(CveAlmacen,0) > 0")
                             If (DT.Rows.Count > 0) AndAlso Not DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV", "Ant") Then
@@ -9462,8 +9402,6 @@ Partial Class Compras_Compras
                                 End If
                             End If
                         End If
-
-
                         'GASTO
                         DT = TmpDT.Copy
                         'RECORREMOS PARA DETECTAR LA MODALIDAD DEL ALMACEN, EN CASO DE SER SOLO EXISTENCIA LIMPIAMOS CVEALMACEN
@@ -9520,7 +9458,6 @@ Partial Class Compras_Compras
                                         ErrorPrepoliza = True
                                     End If
                                 End If
-
                             Next
                         End If
 
@@ -9529,7 +9466,6 @@ Partial Class Compras_Compras
                         IdCtaContable = 0
 
                 End Select
-
             Next
         End If