-- mejoras en deudores
This commit is contained in:
@@ -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>
|
||||
|
||||
@@ -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
|
||||
|
||||
|
||||
Reference in New Issue
Block a user