Qui di seguito un breve script per la sostituzione automatica di un codice IVA nelle tabelle anagrafiche e articoli.
Program cancella_articoli;
var
articoli, Clifor : tcb4table;
NuovaIva,VecchiaIva : String;
begin
//Questo è il VECCHIO codice IVA
VecchiaIva:=’120′;
//Questo sarà il NUOVO codice IVA
NuovaIva := ‘122’;
articoli:=tcb4table.create(dm);
try
articoli.database:=dm.articol.database;
articoli.tablename:=dm.articol.tablename;
articoli.options:=dm.articol.options;
articoli.indexname:=’articol1′;
Articoli.Open;
articoli.First;
repeat
if SameText(articoli.FieldByName(‘IVA_CODICE’).AsString,VecchiaIva) then begin
Articoli.edit;
articoli.FieldByName(‘IVA_CODICE’).AsString :=NuovaIva;
Articoli.Post;
end;
dme.Caption := Articoli.FieldByName(‘ART_DESC’).AsString;
Application.ProcessMessages;
Articoli.Next
until Articoli.Eof;
Articoli.Close;
Finally
Articoli.Free;
End;
clifor:=tcb4table.create(dm);
try
clifor.database:=dm.Clifor.database;
clifor.tablename:=dm.Clifor.tablename;
clifor.options:=dm.Clifor.options;
clifor.indexname:=’CLIFOR1′;
Clifor.Open;
clifor.First;
repeat
if SameText(clifor.FieldByName(‘ANA_CODIVA’).AsString,VecchiaIva) then begin
clifor.edit;
clifor.FieldByName(‘ANA_CODIVA’).AsString :=NuovaIva;
clifor.Post;
end;
dme.Caption := clifor.FieldByName(‘ANA_COGN’).AsString;
Application.ProcessMessages;
clifor.Next
until clifor.Eof;
Clifor.Close;
Finally
clifor.Free;
End;
ShowMessage(‘Elaborazione terminata’);
end;
Installazione dello script:
Dal menu “Utility” selezionare “Esportazione Importazione Dati” e dalla pagina Gestione Scripts premere il pulsante Crea Nuovo in basso a sinistra. Copiate il testo dello script qui sopra partendo da Program (colorato in verde) e terminando con end; (anch’esso colorato in verde). Selezionate tutto il testo che vi appare nella finestra ‘editor di script’ e incollate il testo precedentemente copiato.
Alla riga numero 8 e numero 10 vengono specificati il vecchio ed il nuovo codice IVA che lo andrà a sostituire. E’ importante mantenere la ‘sintassi’ delle righe di codice andando a sostituire esclusivamente i valori tra gli apici. Quindi se il vecchio codice IVA da sostituire dovesse essere 021 la riga numero 8 dovrà apparire esattamente così :
VecchiaIva:=’021′;
Salvate le modifiche con il bottone ‘Conferma Script’ in alto a sinistra e specificate un nome del file da salvare (a vostro piacere, preferibilmente nella cartella darWin/Scripts). Il nuovo sottoprogramma dovrebbe ora apparire nella porzione centrale della pagine ‘Gestione Scripts’. Fate doppio click sul nome del sottoprogramma che avete appena creato ed il suo codice si caricherà sulla parte destra della finestra. Premete il bottone ‘Lancia script’ in basso e la procedura partirà. Un breve messaggio confermerà l’avvenuta sostituzione dei codici IVA.