--FIX
This commit is contained in:
@@ -240,6 +240,8 @@ Partial Class Ventas_CatAutorizacionLimites
|
||||
End If
|
||||
|
||||
Dim Importe As Decimal = gvRow.DataKey("Importe").ToDecimal().RoundSQL(2)
|
||||
|
||||
If UsuarioActual.Empresa.Funcionalidad(595).Contiene("1", "2") Then
|
||||
'AUTORIZACION DE IMPORTE,
|
||||
'el cliente limite de 500, y saldo de 501. autorización que puede autorizar no puede ser mayor a 49 ( limite * 1.% - Saldo)
|
||||
If TipoAutorizacion = 1 Then
|
||||
@@ -286,6 +288,7 @@ Partial Class Ventas_CatAutorizacionLimites
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
|
||||
Dim ObjVentas As New ClsVentas
|
||||
If ObjVentas.AutorizacionLimitesUpdate(CveAutorizacion, CveCliente, CveVendedor, Importe, CveEstatusAutorizacion, UsuarioActual.CveUsuario) Then
|
||||
|
||||
@@ -1493,6 +1493,7 @@ Partial Class Ventas_PVCobranza
|
||||
ObjNC.CalculaTotales()
|
||||
|
||||
Dim CveIE As Integer = -1
|
||||
Dim UUIDFactura As String = "" 'VACIO PORQUE AUN NO SE HA GENERADO
|
||||
If GvRowAnticipo IsNot Nothing Then
|
||||
CveIE = GvRowAnticipo.DataKey("CveIE").ToEntero()
|
||||
End If
|
||||
@@ -1501,13 +1502,13 @@ Partial Class Ventas_PVCobranza
|
||||
DtVentasNC.Columns.Add("CveVenta", GetType(Integer))
|
||||
DtVentasNC.Columns.Add("Importe", GetType(Decimal))
|
||||
DtVentasNC.Columns.Add("FolioFiscal", GetType(String))
|
||||
'DtVentasNC.Columns.Add("CveIE", GetType(Integer))
|
||||
DtVentasNC.Columns.Add("CveIE", GetType(Integer))
|
||||
DtVentasNC.Columns.Add(New DataColumn With {.ColumnName = "TC", .DataType = GetType(Decimal), .DefaultValue = 1})
|
||||
DtVentasNC.Columns.Add(New DataColumn With {.ColumnName = "TCCambioValuacion", .DataType = GetType(Decimal), .DefaultValue = 1})
|
||||
DtVentasNC.Columns.Add(New DataColumn With {.ColumnName = "CveEstatusFactura", .DataType = GetType(Integer), .DefaultValue = -1})
|
||||
DtVentasNC.Columns.Add(New DataColumn With {.ColumnName = "Folio", .DataType = GetType(String), .DefaultValue = ""})
|
||||
|
||||
'DtVentasNC.Rows.Add(Venta.CveVenta, CveIE, Total, "")
|
||||
DtVentasNC.Rows.Add(Venta.CveVenta, Total, UUIDFactura, CveIE)
|
||||
|
||||
ObjNC.DtVentasNC = DtVentasNC
|
||||
|
||||
|
||||
Reference in New Issue
Block a user