AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

--Cambios RepCortes E197

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2024-05-06 10:59:37 -07:00
parent 7ea9d8f11a
commit a1587bc61f
1 changed files with 14 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
Compras/PopUpVerFactura.aspx.vb
View File

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