a3859b2053
Files correlati : ba4.exe ba0close.exe ba1.exe Ricompilazione Demo : [ ] Commento : PG200022 Inserimento nuova ditta da anagrafica esistente: creazione nuovo codice attività. Nella maschera di inserimento ditta il codice viene decodificato anche come descrizione mentre entrando nello specifico dell'attività il codice viene assunto come valore corretto mentre la descrizione non è chiaro se deve essere decodificata e non lo fa oppure se deve essere digitata perché deve assumere un altro significato! Il tasto "collega" usato in questa maschera non produce nessun effetto (gira a vuoto). PG200023 segue codice errore 200024 - in mancanza della descrizione del codice attività (da decodificare o da immettere manualmente) nella liquidazione iva appare la scritta RIEPILOGO QUATER (forse l'ultima descrizione rimasta in memoria). Nel caso invece che manualmente il campo venga compilato con una descrizione la stampa della liquidazione è esatta git-svn-id: svn://10.65.10.50/trunk@11361 c028cbd2-c16b-5b4b-a496-9718f37d4682
59 lines
1.5 KiB
C++
Executable File
59 lines
1.5 KiB
C++
Executable File
#include <windows.h>
|
|
|
|
#include <stdio.h>
|
|
|
|
void Renamer(const char* mask)
|
|
{
|
|
WIN32_FIND_DATA data;
|
|
HANDLE hHandle = ::FindFirstFile(mask, &data);
|
|
BOOL bRunning = hHandle != INVALID_HANDLE_VALUE;
|
|
while (bRunning)
|
|
{
|
|
const char* newext = NULL;
|
|
const char* oldpath = data.cFileName;
|
|
|
|
char drive[_MAX_DRIVE], path[_MAX_PATH], fname[_MAX_FNAME], ext[_MAX_EXT];
|
|
_splitpath(oldpath, drive, path, fname, ext);
|
|
|
|
if (stricmp(ext, ".ex_") == 0)
|
|
newext = ".exe"; else
|
|
if (stricmp(ext, ".dl_") == 0)
|
|
newext = ".dll";
|
|
|
|
if (newext != NULL)
|
|
{
|
|
char newpath[_MAX_PATH];
|
|
_makepath(newpath, drive, path, fname, newext);
|
|
if (::CopyFile(oldpath, newpath, FALSE))
|
|
{
|
|
::DeleteFile(oldpath);
|
|
}
|
|
else
|
|
{
|
|
char msg[512];
|
|
LPVOID lpMsgBuf;
|
|
FormatMessage(
|
|
FORMAT_MESSAGE_ALLOCATE_BUFFER | FORMAT_MESSAGE_FROM_SYSTEM | FORMAT_MESSAGE_IGNORE_INSERTS,
|
|
NULL, GetLastError(), MAKELANGID(LANG_NEUTRAL, SUBLANG_DEFAULT), // Default language
|
|
(LPTSTR) &lpMsgBuf, 0, NULL);
|
|
sprintf(msg, "Impossibile ridenominare il file %s in %s:\n%s",
|
|
oldpath, newpath, lpMsgBuf);
|
|
::LocalFree(lpMsgBuf);
|
|
::MessageBox(NULL, msg, "Ba0Close Error", MB_ICONERROR | MB_OK);
|
|
}
|
|
}
|
|
|
|
bRunning = ::FindNextFile(hHandle, &data);
|
|
}
|
|
}
|
|
|
|
int PASCAL WinMain(HINSTANCE, HINSTANCE , LPSTR, int)
|
|
{
|
|
::Sleep(5000); // Apetta qualche secondo che termini ba0.exe
|
|
|
|
Renamer("*.??_");
|
|
Renamer("Servers\\*.??_");
|
|
|
|
return 0;
|
|
}
|