Sviluppo4d.it
Sito indipendente di informazioni tecniche per sviluppatori 4th Dimension italiani  

Sviluppatori 4D

Utility 4D

Risorse 4D



4d logo
Naviga: Prev Next

Titolo: Creare un Quick Report da programma

Categoria: Codice Ultimo Aggiornamento: 06/07/05


Ecco un esempio su come creare un quick report da programma:
1. viene creata un'area di appoggio offscreen (cioè non visibile all'utente)
2. viene impostata la tabella corrente
3. vengono inserite le colonne
4. si scelgono le colonne per l'ordinamento
5. si sceglie la destinazione, si esegue il Quick Report
6. si cancella l'area

Il codice stampa le colonne cognome e nome da una tabella Anagrafica e li ordina per cognome.

`Metodo: SempliceListaQR

C_LONGINT(mioQR)
mioQR:=QR New offscreen area ` 1
QR SET REPORT TABLE(mioQR;Table(->[Anagrafica])) ` 2
QR INSERT COLUMN(mioQR;1;->[Anagrafica]Cognome) `3, prima colonna
QR INSERT COLUMN(mioQR;2;->[Anagrafica]Nome) `3, seconda colonna
ARRAY REAL($colonne_ar;1) 4, preparo gli array
$colonne_ar{1}:=1 `4, ordina solo per la prima colonna
ARRAY REAL($ordinamento_ar;1)
$ordinamento_ar{1}:=-1 ` 4, -1 in ordine decrescente e 1 in ordine crescente.
QR SET SORTS(mioQR;$colonne_ar;$ordine_ar) ` 4
QR SET DESTINATION(mioQR;qr printer ) ` 5.
ALL RECORDS([Anagrafica]) ` 5.
QR RUN(mioQR) `5. questo esegue il report impostato!
QR DELETE OFFSCREEN AREA(mioQR) ` 6.


Inviato da: Umberto Migliore Visite: 13039

Se accedi con utente e password, puoi aggiungere dei commenti.


Accesso

User:
Pass: Accedi

Cerca

Se non trovi le informazioni che cerchi scrivi a aiuto@sviluppo4d.it

4D Principali

4D Discussioni

Faq random


Crediti

Dominio registrato da ZetaNet
Sito realizzato da Nexus srl
4D SQL 11.9.0 offerto da 4D & Italsoftware
Icone di FAMFAMFAM
Moderato da Umberto Migliore
301 utenti registrati

Pagina servita il 19/03/24 alle 06:31:13 Valid HTML 4.01! Valid CSS!

Mutuo Facile, iDigitalScout, iDigitalTags e altre app di Nexid srl per iPhone e iPad

Cidroid, distributore italiano lettori barcode per IOS Apple iPhone, iPod, iPad