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

--option explcit

Browse Source
This commit is contained in:
rrene
2023-09-20 12:12:23 -07:00
parent 65a64b4d92
commit 3ab3cf93b1
1 changed files with 3 additions and 27 deletions
Download Patch File Download Diff File Expand all files Collapse all files

30
Ventas/ClientesAbonar.aspx.vb
View File

@@ -621,7 +621,7 @@ Partial Class Ventas_ClientesAbonar
'SI ES EMPRESA DE ACUMULADORES DEBE OBLIGAR A SUBIR UN ARCHIVO
If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
Dim files = Anexo.getfiles()
Dim files As Extensiones.Files = Anexo.getfiles()
If files IsNot Nothing Then
If files.Archivos IsNot Nothing Then
If files.Archivos.Count = 0 Then
@@ -1141,39 +1141,15 @@ Partial Class Ventas_ClientesAbonar
MsgError = "No se pudo insertar la póliza"
End If
End If
End If
End If
'If MsgError = "" AndAlso UsuarioActual.Empresa.Funcionalidad(220) <> "" Then
' If Not ObjMov.PrePolizaSimplificacion(CvePrePoliza, UsuarioActual.CveEmpresa) Then
' MsgError = "No se pudo simplificar los movimientos"
' Alert("No se pudo simplificar los movimientos", TipoMensaje.MsgError)
' End If
'End If
If MsgError = "" AndAlso Not ObjMov.ValidacionesPrePoliza(CvePrePoliza, UsuarioActual, Opcion:=3) Then
MsgError = ObjMov.MensajePolizaDescuadre & " La diferencia es de: " & ObjMov.ValorDiferencia
'If ObjMov.ValorPolizaDescuadre > 0 Then
' MsgError = ObjMov.MensajePolizaDescuadre & " La diferencia es de: " & ObjMov.ValorDiferencia
'End If
End If
''Conta ContPAQ
'If UsuarioActual.Empresa.Funcionalidad(200) = "1" AndAlso MsgError = "" Then
' If idCuentaContabilizacion > 0 Then
' If ObjMov.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then
' IDPoliza = ObjMov.ContaIdPoliza
' FolioPoliza = ObjMov.ContaFolio
' Else
' Alert("Ocurrio un error al contabilizar, pongase en contacto con Soporte Técnico")
' MsgError = "Ocurrio un error al contabilizar, pongase en contacto con Soporte Técnico"
' End If
' Else
' Alert(String.Format("No se puede contabilizar la Prepoliza debido a que las siguientes cuentas son invalidas: {0}", CuentasContablesInvalidas))
' End If
'End If
Else
MsgError = "No se pudo insertar la póliza"
End If
@@ -2708,8 +2684,8 @@ Partial Class Ventas_ClientesAbonar
Dim Tipo As String = If(file.Extension.Contiene("xlsx", "xlsx", "xlsm", "xlsb"), "EXCEL", "CSV")
Dim DTExcel As New DataTable
Dim ErrorArchivo = False
Dim ErrorExcel = False
Dim ErrorArchivo As Boolean = False
Dim ErrorExcel As Boolean = False
DTExcel = ReadExcelFile(Directorio + file.filename, True)