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

-global

Browse Source
This commit is contained in:
Rene Molina
2020-01-08 13:42:32 -07:00
parent e0a6484773
commit ff3194d620
2 changed files with 7 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Bancos/ProveedoresAbonar.aspx.vb
View File

@@ -827,7 +827,7 @@ Partial Class Bancos_ProveedoresAbonar
'cheque 'cheque
If DdlTipoTransaccion.SelectedValue = "1" Then FolioFijo = TxtFolio.Text.ToEntero If DdlTipoTransaccion.SelectedValue = "1" AndAlso UsuarioActual.CveEmpresa.Contiene(13, 83) Then FolioFijo = TxtFolio.Text.ToEntero
CvePrePoliza = ObjMov.AddPrePolizas("Bancos/ProveedoresAbonar", 2, ImporteSeleccionado, ImporteSeleccionado, GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltroPrimeroValor("CveMoneda", "CveCuenta = " & DdlCuenta.SelectedValue).ToEntero, TxtFechaDocumento.Text.ToDate, ConceptoPoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FolioFijo:=FolioFijo, ReglaFolioPoliza:=ObjComp.ObtenerReglaFolio(DdlTipoTransaccion.SelectedValue, Nothing, UsuarioActual.CveEmpresa), CveTipoPoliza:=ObjMov.ObtenerTipoPoliza(DdlTipoTransaccion.SelectedValue, "-1", UsuarioActual.CveEmpresa)) CvePrePoliza = ObjMov.AddPrePolizas("Bancos/ProveedoresAbonar", 2, ImporteSeleccionado, ImporteSeleccionado, GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltroPrimeroValor("CveMoneda", "CveCuenta = " & DdlCuenta.SelectedValue).ToEntero, TxtFechaDocumento.Text.ToDate, ConceptoPoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FolioFijo:=FolioFijo, ReglaFolioPoliza:=ObjComp.ObtenerReglaFolio(DdlTipoTransaccion.SelectedValue, Nothing, UsuarioActual.CveEmpresa), CveTipoPoliza:=ObjMov.ObtenerTipoPoliza(DdlTipoTransaccion.SelectedValue, "-1", UsuarioActual.CveEmpresa))

11
Ventas/CatVendedores.aspx.vb
View File

@@ -137,11 +137,12 @@ Partial Class Ventas_CatVendedores
#Region "CARGA GLOBAL" #Region "CARGA GLOBAL"
Private Sub CargaGlobal() Private Sub CargaGlobal()
Dim ObjVendedores As New ClsVtaVendedores GlobalDTVendedores(UsuarioActual.CveEmpresa) = Nothing
If ObjVendedores.GetVendedores(-1) Then 'Dim ObjVendedores As New ClsVtaVendedores
GlobalDTVendedores(-1) = ObjVendedores.DtResultados 'If ObjVendedores.GetVendedores(UsuarioActual.CveEmpresa) Then
End If ' GlobalDTVendedores(-1) = ObjVendedores.DtResultados
ObjVendedores.Dispose() 'End If
'ObjVendedores.Dispose()
End Sub End Sub
#End Region #End Region