Crystal Report

2021-04-19T16:07:14Z

5.90.131.245: /* Formule */

Le istruzioni devono terminare con un <code>;</code>, eccetto l'ultima per cui è facoltativo. L'ultima istruzione rappresenta il valore di ritorno di una formula.

In caso di istruzioni raggruppate con parentesi tonde (come per esempio negli <code>if</code>), tale gruppo rappresenta un'istruzione e in caso di istruizioni successive deve anch'esso essere seguito da un <code>;</code>

== Condizioni ==

if <condition>
then <then>
else <else>

dove <condition>, <then> e <else> sono tutte espressioni singole. Se dopo <then> o <else> sono presenti più espressioni, convertirle in singole espressioni racchiudendole tra parentesi. Ad esempio:

<pre>
if {SDELIVERY_1.YSDHNUM_0}<>"" then
(
lastValue := {Branch_View.Branch_ID};
crRed;
)
else
lastValue := {Branch_View.Branch_ID};
</pre>

=== Condizioni particolari ===

Se un testo deve comparire solo se è l'ultimo record di dettaglio dell'ordine, per esempio la dicitura "NON APPROVATO":

<pre>
if (OnLastRecord or (Next({PORDER.POHNUM_0}) <> {PORDER.POHNUM_0})) then
//siamo dopo l'ultimo record di dettaglio dell'ordine
if {PORDER.APPFLG_0}>=3 then
//l'ordine è stato approvato, quindi sopprimo questa sezione
true
else
//l'ordine NON è stato approvato, quindi questa sezione deve comparire, NON devo sopprimerla
false
else
// non è l'ultimo record dell'ordine; sopprimo la sezione
true
</pre>

Per far comparire un'intestazione solo sulla prima pagina del gruppo, mettere nella condizione Sopprimi della sezione l'istruzione:
<pre>InRepeatedGroupHeader</pre>

Per far comparire qualcosa solo nell'ultima pagina, mettere nella condizione Ometti:
<pre>PageNumber <> TotalPageCount</pre>

== Conversioni ==
<code>AmountToWord(Dossier, Lingua, CodiceValuta, Importo</code>

permette di convertire in lettere nella lingua voluta, un importo numerico

<code>AmountToDigit(Dossier, Lingua, CodiceValuta, ImportoInLettere</code>

permette di convertire in lettere nella lingua voluta, un importo espresso in stringa numerica

== Formule ==
Per inserire un a capo in una stringa:
<code>testo := testo & ChrW (10)</code>

Per inserire una formula in un'altra formula usare la sintassi:

<code>{@ySageDev_Formula}</code>

Esempio: <code>RiferimentoDDT := RiferimentoDDT & " - " & {@ySageDev_RiferimentoPCKLIST}</code>

Esempio di indirizzo

<code>
whilePrintingRecords;
global stringVar Indirizzo;

Indirizzo:= trim({SORDER.BPDADDLIG_0}) & " " & trim({SORDER.BPDADDLIG_1});

if trim({SORDER.BPDADDLIG_2})<>"" then
Indirizzo:= Indirizzo & chrw(10) & chrw(13) & trim({SORDER.BPDADDLIG_2});

Indirizzo:= Indirizzo & chrw(10) & chrw(13) & {SORDER.BPDPOSCOD_0} & " " & {SORDER.BPDCTY_0} & " " & {SORDER.BPDCRYNAM_0};
//& {SORDER.BPDSAT_0}
//& {SORDER.BPDCRY_0}

Indirizzo:= Indirizzo & chrw(10) & chrw(13) & {SORDER.BPDPOSCOD_0} & " " & {SORDER.BPDCTY_0} & " " & {SORDER.BPDCRYNAM_0};

</code>

=== Momento di valutazione ===

BeforeReadingRecords: prima di recuperare i record dal database
WhileReadingRecords: durante la lettura dei record del database ma prima del raggruppamento, dell’ordinamento e del riepilogo
WhilePrintingRecords: durante la stampa dei record (raggruppamento, ordinmento e riepilogo)
EvaluateAfter()

== Formato Date ==
Se il valore data è in un campo:
ToText({MYFIELDNAME }, "dd-MMM-yyyy")

Se è il risultato di una formula:
CSTR({?@ck_date}, "dddd, MMMM d, yyyy")

ToText({Command.EffectiveDate} , "dd-MM-yyyy hh:mm:ss" );

I vari formati d dd ddd dddd M MM MMM MMMM yy yyyy

== Barcode ==
Vai qui: [[CrystalReport_Barcode | Barcode]]

== Traduzioni ==
=== Avviso ===
Le formule qui esposte di Crystal Repor recuperano le traduzioni dai file

<code>\DOSSIERS\<nome dossier>\textraita</code>

(se italiano) oppure <code>textrafra</code> se francese, ecc.

Affinché questi file siano aggiornati (quindi ogni volta dopo modifiche su campi di tipo AXX) e’ necessario eseguire la funzione di aggiornamento:

'''''Sviluppo->Strumenti->Diversi->Aggiornamento Testi traducibili'''''

Le tabelle contenenti i campi traducibili usati in Crystal devono avere il '''flag "Generazione testi traducibili"''' attivo.

=== Testi traducibili (tabella ATEXTRA) ===
;X3TranslatedText
Per recuperare una traduzione dalla tabella '''''ATEXTRA''''' utilizzare la seguente sintassi:

<code>stringVar X3TEX := "NOMETABELLA~NOMECAMPO~"+VALORECAMPO+"~~";</code>

In caso di dubbi verificare direttamente nella tabella ATEXTRA i vari campi:

<code>stringVar X3TEX := "CODFIC_0~ZONE_0~IDENT1_0~IDENT2_0~";</code>

Esempio:
<pre>stringVar X3TEX := "TABCOUNTRY~CRYDES~"+{SINVOICEV.BPDCRY_0}+"~~";
stringVar PaeseTradotto := X3TranslatedText ({?X3DOS}, lang_trad, X3TEX);
</pre>

Altro esempio con il testo da recuperare che consiste in un valore di una '''tabella diversa''' (vedi funzione '''''GESADI''''' da F7 in sage):
<pre>
WhilePrintingRecords;
stringVar X3TEX := "ATABDIV~LNGDES~20~"+{SORDERP.TSICOD_0}+"~";
X3TranslatedText ({?X3DOS}, {@P_lang_trad},X3TEX)
</pre>

Invece di ''LNGDES'' mettere ''SHODES'' se si vuole la descrizione breve.

=== Menù locali (tabella APLSTD) ===
;TextOfChapter (accesso diretto, con i numeri)

Nella formula '''''TextOfChapter''''' si trovano in genere tutte le istruzioni per recuperare le traduzioni necessarie, con righe del tipo:

<pre>global stringVar txtcondiV1 := TextOfChapter ({?X3DOS}, lang_trad,2281,50);</pre>

dove lang_trad è la variabile che contiene la lingua in cui tradurre, 2281 è il capitolo del menu (vedi funzione '''''TXT''''' da F7 in sage), e 50 è l'indice del testo da recuperare.

;TextForCode (con nome campo)
Per recuperare la descrizione associata ad un valore di menu locale (nella lingua dell'utente):

<code>TextForCode("Dossier;server;porta;versione", "Tabella.Campo", Valore)</code>

Per recuperare una traduzione nella lingua voluta

<code>TranslatedTextForCode( Dossier, Lingua, "Tabella.Campo", Valore)</code>

Esempio:

<code>TranslatedTextForCode( {?X3DOS}, {?X3LAN}, "{ITMMASTER.STOMGTCOD_0}", ITMMASTER.STOMGTCOD_0 )</code>

== Formattazioni ==

=== Stili ===

Costanti di stile delle linea: si possono usare all'interno delle formule

* ''crNoLine'' Nessuna linea di bordo
* ''crSingleLine'' Una sola linea di bordo
* ''crDoubleLine'' Doppia linea di bordo
* ''crDashedLine'' Linea di bordo tratteggiata
* ''crDottedLine'' Linea di bordo punteggiata

== Connessione ODBC ==

Da esperto database, tab Dati, su Connessioni personali, cliccare sul + della connessione voluta; nella finestra che esce:
* selezionare l'origine dati voluta e cliccare AVANTI
* come ID utente mettere il nome del dossier (attenzione a maiuscolo/minuscolo)
* cliccare FINE e attendere che il db compaia sotto la connessione personale scelta
* inserire la solita password

== Cause di lentezza ==

* una possibile causa di estrema lentezza può essere un'istruzione "WhilePrintingReports" su un campo di dettaglio; meglio puntare su una vista ben relazionata che risolve molte cose in modo più performante.

SageDev KB - User contributions [en]

Crystal Report