Ver Mensaje Individual
  #12  
Antiguo 22-03-2016
Willo Willo is offline
Miembro
 
Registrado: jun 2006
Posts: 116
Reputación: 18
Willo Va por buen camino
Ok chicos vale...
Código Delphi [-]
if Earchivo1.Filename <> '' then
begin
       CopyFile(PChar(Earchivo1.Filename), PChar(xrutap+(Extractfilename(Earchivo1.Filename))), False);
       if fileexists(xrutap+extractfilename(Earchivo1.Filename)) then
       begin
              Dm.Bitacora('Ordenes de trabajo','Agregado de archivo Exp Elect',Esolicitud.Text,xrutap+(Extractfilename(Earchivo1.Filename)));
              Deletefile(Earchivo1.Filename);
Básicamente ese es el código "problemático"... los archivos que se estan copiando de una ruta a otra estan en el servidor (Windows 2008 R2) y como les comentaba, en algunas máquinas de la red el código funciona sin problema, en otras falla sin devolver ningún error, si ejecuto el ejecutable en el servidor desde cualquier máquina, también funciona sin problema.

Aislando el problema todo se origina ahí, ya que la lectura de los archivos viene después, pero... como en ocasiones ni siquiera los copia a donde deben estar, el proceso de lectura deja un error de apertura en la bitácora.

Cabe mencionar que en todos los casos las pruebas las he realizado usando el administrador como usuario para realizar la conexion al servidor.

Gracias de antemano

Última edición por Casimiro Notevi fecha: 22-03-2016 a las 10:51:56.
Responder Con Cita