Después de la gran ayuda que me habéis prestado en otros dos hilos anteriores (
Conectar Firebird en red y
Conexión en red a FB) vuelvo a la carga porque me surgen nuevos problemas que por másvueltas que doy no soy capaz de solucionar.
1. Un puesto de la red no se conecta
La aplicación está instalada en una red con tres puestos y un servidor dedicado. En éste última, además del motor y la base de datos, está instalado el programa más que nada por seguridad. Los parámetros para conectarse a la base dedatos están guardados en un fichero INI como este, idéntico para todos los puestos:
Cita:
[DATOS]
Entorno=\\SERVIDOR\D\DatAfi30\
Tablas=SERVIDOR/3050:D:\DatAfi30\Tablas
|
Esa unidad D es un disco físico del servidor. Y lo leo así:
Código PHP:
char cEntorno[256], cTablas[256];
memset(cEntorno, '\0', sizeof(cEntorno));
memset(cTablas , '\0', sizeof(cTablas));
GetPrivateProfileString("DATOS", "Entorno", "C:\\DatAfi30\\" , cEntorno, sizeof(cEntorno), (ExtractFilePath(Application->ExeName) + "PtoDat30.ini").c_str());
GetPrivateProfileString("DATOS", "Tablas" , "C:\\DatAfi30\\Tablas", cTablas , sizeof(cTablas) , (ExtractFilePath(Application->ExeName) + "PtoDat30.ini").c_str());
Uno de los puestos se conecta sin ningún problema y funciona, en lo que se refiere a la BB.DD., sin ningún problema pero el otro cada vez que arranca la aplicación me avisa que la BB.DD. no está creada e intenta hacerlo, lo cual me deja totalmente perplejo ya que debería estar tratando de acceder exactamente a la misma carpeta. He intentado craer una unidad de red sobre ese disco del servidor (por ejemplo
X:)y cambiar el acceso a:
Cita:
[DATOS]
Entorno=X:\DatAfi30\
Tablas=X:\DatAfi30\Tablas
|
pero da lo mismo, sigue intentando crear la base de datos. En el tercer puesto no he podido probar nada porque su usuario está de vacaciones.
2. Guardar ficheros desde programa
En prácticamente todos los listados que genera la aplicación doy diferentes posibilidades de salida: Pantalla, Impresora, Exportar a PDF, a Excel, a Word o a texto. Para las opciones que generan ficheros lo hago a través de esta función:
Código PHP:
AnsiString EmiteListado(TForm *Form, TQuickRep *Informe, int Destino, int PrinterSelect, bool lInforma)
{
AnsiString cInforme;
TComponent *Source;
Informe->PrinterSettings->PrinterIndex = PrinterSelect;
Informe->Prepare();
if (PrinterSelect >= 0)
{
fForBln->Show();
fForBln->IniBarra("Emitiendo impresos");
fForBln->Barra->MaxValue = Informe->PageNumber;
}
if (Destino == 0)
Informe->Preview();
else if (Destino == 1)
{
if (Informe->Name == "qEtiPer" && Mensaje(4, "Son necesarias " + FormatFloat("0", Informe->PageNumber) + " hojas de etiquetas.", "Continuar\nVolver") == 2)
return "";
Informe->Print();
}
else
{
cInforme = AnsiString(cEntorno) + "Informes\\" + UpperCase(Informe->ReportTitle + Now().FormatString("_hhnnss") + cExtInf[Destino - 2]);
try
{
if (ExtractFileExt(cInforme) == ".PDF")
{
TQRPDFDocumentFilter *filtro = new TQRPDFDocumentFilter(cInforme);
filtro->AddFontMap("Arial:Helvetica");
filtro->StartConcat();
Informe->ExportToFilter(filtro);
filtro->EndConcat();
delete filtro;
}
else if (ExtractFileExt(cInforme) == ".XLS")
{
TQRXLSFilter *filtro = new TQRXLSFilter(cInforme);
Informe->ExportToFilter(filtro);
delete filtro;
}
else if (ExtractFileExt(cInforme) == ".RTF")
{
TQRRTFExportFilter *filtro = new TQRRTFExportFilter(cInforme);
Informe->ExportToFilter(filtro);
delete filtro;
}
else if (ExtractFileExt(cInforme) == ".TXT")
{
TQRAsciiExportFilter *filtro = new TQRAsciiExportFilter(cInforme);
Informe->ExportToFilter(filtro);
delete filtro;
}
if (lInforma)
Mensaje(4, "Se ha creado el informe " + ExtractFileName(cInforme) + "\nen la carpeta " + ExtractFilePath(cInforme), "Continuar");
}
catch(...)
{
Screen->Cursor = crArrow;
Mensaje(-1, "Se ha producido un error en la generación del documento " + Informe->Name + ".¦" + ExtractFileName(AnsiString(__FILE__)) + FormatFloat("' - '0", __LINE__), "Continuar");
DeleteFile(cInforme);
cInforme = "";
}
}
if (PrinterSelect >= 0)
fForBln->Hide();
Printer()->PrinterIndex = PrinterDefault;
return cInforme;
}
Con lo que se ha leido al arrancar el programa el nombre del informe (
cInforme) sería por ejemplo:
Cita:
\\SERVIDOR\D\DatAfi30\Informes\Listado.pdf
|
Sin embargo al ejecutarse cualquiera de las opciones que generan fichero me da siempre el mismo error:
Cita:
Cannot create file \\SERVIDOR\D\DatAfi30\Informes\Listado.pdf
|
No sé por dónde pillar ninguno de los dos fallos. Especialmente el primero me mosqueda mucho porque no entiendo que diferencias puede haber entre ambas instalaciones.