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

--FIX. facturacion global E192

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2024-06-19 17:04:32 -07:00
parent b6c3b29916
commit 9dc4246152
1 changed files with 3 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
Ventas/FacturacionGlobal.aspx.vb
View File

@@ -152,7 +152,6 @@ Partial Class Ventas_FacturacionGlobal
End Sub End Sub
Protected Sub BtnGuardar_Click(sender As Object, e As EventArgs) Protected Sub BtnGuardar_Click(sender As Object, e As EventArgs)
Dim CveCliente As Integer = -1 'UsuarioActual.Empresa.Funcionalidad(714).ToEntero()
Dim CveMoneda As Integer = 1 Dim CveMoneda As Integer = 1
Dim SbRemisiones As New StringBuilder() Dim SbRemisiones As New StringBuilder()
@@ -178,11 +177,11 @@ Partial Class Ventas_FacturacionGlobal
Dim DtPagosFacturaGlobal As New DataTable() Dim DtPagosFacturaGlobal As New DataTable()
Dim ObjClientes As New ClsClientes Dim ObjClientes As New ClsClientes
If ObjClientes.GetVentasRemisionesTotales(CveCliente, SbRemisiones.ToString(), 1) Then If ObjClientes.GetVentasRemisionesTotales(-1, SbRemisiones.ToString(), 1) Then
DtRemisionesPS = ObjClientes.DtResultados.Copy() DtRemisionesPS = ObjClientes.DtResultados.Copy()
End If End If
If ObjClientes.GetVentasRemisionesPagos(CveCliente, SbRemisiones.ToString()) Then If ObjClientes.GetVentasRemisionesPagos(-1, SbRemisiones.ToString()) Then
DtPagosFacturaGlobal = ObjClientes.DtResultados.Copy() DtPagosFacturaGlobal = ObjClientes.DtResultados.Copy()
End If End If
ObjClientes.Dispose() ObjClientes.Dispose()
@@ -203,7 +202,7 @@ Partial Class Ventas_FacturacionGlobal
Exit Sub Exit Sub
End If End If
CveCliente = UsuarioActual.Empresa.Funcionalidad(714).ToEntero() Dim CveCliente As Integer = UsuarioActual.Empresa.Funcionalidad(714).ToEntero()
If CveCliente <= 0 Then If CveCliente <= 0 Then
Alert("No se pudo cargar el cliente", TipoMensaje.MsgError) Alert("No se pudo cargar el cliente", TipoMensaje.MsgError)
Exit Sub Exit Sub