Testi applicazione

Da testi di programma > Nome programma: APPTXT

Segue nr. riga e contenuto

001 : Cliente / Unità immobiliare / ... (singolare)

lqAppTxt_Cliente / default : Cliente / Klient

002 : Clienti / Unità immobiliari / ... (plurale)

lqAppTxt_Clienti / default : Clienti / Klienten

003 : Pratica / Mandato / Inquilino / Proprietario / Commessa / Auto / ... (singolare)

lqAppTxt_Pratica / default : Pratica / Mandat

004 : Pratiche / Mandati / Inquilini / Proprietari / Commesse / Auto / ... (plurale)

lqAppTxt_Pratiche / default : Pratiche / Mandate

005 : Creditore / Fornitore /  ... (singolare)

lqAppTxt_Creditore:= hs_str('Creditore','Kreditor') 

006 : Creditori / Fornitori /  ... (plurale)

lqAppTxt_Creditori:= hs_str('Creditori','Kreditoren') 

007 : Altro / Nominativo / Stabile /  ... (singolare)

lqAppTxt_Nominativo:= hs_str('Altro','Weiteres') 

008 : Altro / Nominativi / Stabili /  ... (plurale)

lqAppTxt_Nominativi:= hs_str('Altro','Weiteres') 

009 : Collaboratore /  ... (singolare)

lqAppTxt_Collaboratore:= hs_str('Collaboratore','Mitarbeiter') 

010 : Collaboratori /  ... (plurale)

lqAppTxt_Collaboratori:= hs_str('Collaboratori','Mitarbeiter') 

011 : Aperto il / Entrato il / Proprietario dal

lqAppTxt_AADAPERT:= hs_str('Aperto il','Eröffnet am') 

012 : Chiuso il / Uscito il / Proprietario fino al 

lqAppTxt_AADCHIUS:= hs_str('Chiuso il','Archiviert am'

013 : Archiviato / Nr.

lqAppTxt_AANARCHI:= hs_str('Nr. archivio','Archiv. Nr.') 

Nella procedura

dtm_HsApp.SR_lqAppTxt_INIT;

vengono impostate i testi delle Label

procedure Tdtm_HsApp.SR_lqAppTxt_INIT;

var P,L:String;

begin

  P:= 'APPTXT';

  L:= lq_lin;

  // Cliente

  if hs_text(P,L,'001') = ''

  then lqAppTxt_Cliente := hs_str('Cliente','Klient')

  else lqAppTxt_Cliente:= hs_text(P,L,'001');

  // Clienti

  if hs_text(P,L,'002') = ''

  then lqAppTxt_Clienti := hs_str('Clienti','Klienten')

  else lqAppTxt_Clienti:= hs_text(P,L,'002');

  // Pratica

  if hs_text(P,L,'003') = ''

  then lqAppTxt_Pratica := hs_str('Pratica','Mandat')

  else lqAppTxt_Pratica:= hs_text(P,L,'003');

  // Pratiche

  if hs_text(P,L,'004') = ''

  then lqAppTxt_Pratiche:= hs_str('Pratiche','Mandate')

  else lqAppTxt_Pratiche:= hs_text(P,L,'004');

  // Creditore

  if hs_text(P,L,'005') = ''

  then lqAppTxt_Creditore:= hs_str('Creditore','Kreditor')

  else lqAppTxt_Creditore:= hs_text(P,L,'005');

  // Creditori

  if hs_text(P,L,'006') = ''

  then lqAppTxt_Creditori:= hs_str('Creditori','Kreditoren')

  else lqAppTxt_Creditori:= hs_text(P,L,'006');

  // Nominativo

  if hs_text(P,L,'007') = ''

  then lqAppTxt_Nominativo:= hs_str('Altro','Weiteres')

  else lqAppTxt_Nominativo:= hs_text(P,L,'007');

  // Nominativi

  if hs_text(P,L,'008') = ''

  then lqAppTxt_Nominativi:= hs_str('Altro','Weiteres')

  else lqAppTxt_Nominativi:= hs_text(P,L,'008');

  // Collaboratore

  if hs_text(P,L,'009') = ''

  then lqAppTxt_Collaboratore:= hs_str('Collaboratore','Mitarbeiter')

  else lqAppTxt_Collaboratore:= hs_text(P,L,'009');

  // Collaboratori

  if hs_text(P,L,'010') = ''

  then lqAppTxt_Collaboratori:= hs_str('Collaboratori','Mitarbeiter')

  else lqAppTxt_Collaboratori:= hs_text(P,L,'010');

  // Data apertura

  if hs_text(P,L,'011') = ''

  then lqAppTxt_AADAPERT:= hs_str('Aperto il','Eröffnet am')

  else lqAppTxt_AADAPERT:= hs_text(P,L,'011');

  // Data chiusura

  if hs_text(P,L,'012') = ''

  then lqAppTxt_AADCHIUS:= hs_str('Chiuso il','Archiviert am')

  else lqAppTxt_AADCHIUS:= hs_text(P,L,'012');

  // Nr. archiviazione

  if hs_text(P,L,'013') = ''

  then lqAppTxt_AANARCHI:= hs_str('Nr. archivio','Archiv. Nr.')

  else lqAppTxt_AANARCHI:= hs_text(P,L,'013');

end;