--Cambios RepCortes E197

This commit is contained in:
2024-05-06 10:59:37 -07:00
parent 7ea9d8f11a
commit a1587bc61f

View File

@@ -1563,7 +1563,7 @@ Partial Class PopUpVerFactura
Dim Fecha As String = "", Nombre As String = "" Dim Fecha As String = "", Nombre As String = ""
Dim OpcionDetallado As Integer = 1 Dim OpcionDetallado As Integer = 1
If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then OpcionDetallado = 2 If UsuarioActual.Empresa.Funcionalidad(109) = "1" OrElse UsuarioActual.CveEmpresa = 197 Then OpcionDetallado = 2
Dim ObjVenta As New ClsVentas Dim ObjVenta As New ClsVentas
Dim ObjPuntoVenta As New ClsPuntoVenta Dim ObjPuntoVenta As New ClsPuntoVenta
@@ -1662,9 +1662,13 @@ Partial Class PopUpVerFactura
Orden = 5 Orden = 5
TipoTabla = 1 TipoTabla = 1
Case "VentaTotalRemision" Case "VentaTotalRemision"
rowData("Columna") = "Ventas Remisiones" If UsuarioActual.CveEmpresa.Contiene(190, 192) Then
Orden = 6 rowData("Columna") = "Ventas Remisiones"
TipoTabla = 1 Orden = 6
TipoTabla = 1
Else
Orden = 0
End If
Case "TotalEfectivo" Case "TotalEfectivo"
rowData("Columna") = "Total Efectivo" rowData("Columna") = "Total Efectivo"
Orden = 7 Orden = 7
@@ -1727,13 +1731,13 @@ Partial Class PopUpVerFactura
DtDatosCajas.Rows.Add(rowData.ItemArray) DtDatosCajas.Rows.Add(rowData.ItemArray)
End If End If
If row(0).ToString() = "SaldoAnteriorAplicado" Then 'If row(0).ToString() = "SaldoAnteriorAplicado" Then
Dim RowMP As DataRow = DtMetodosPago.NewRow ' Dim RowMP As DataRow = DtMetodosPago.NewRow
RowMP("MetodoPago") = "Saldo Aplicado" ' RowMP("MetodoPago") = "Saldo Aplicado"
RowMP("Importe") = Total.ToDecimal() ' RowMP("Importe") = Total.ToDecimal()
DtMetodosPago.Rows.Add(RowMP) ' DtMetodosPago.Rows.Add(RowMP)
End If 'End If
End If End If
Next Next