Alessandro Bonazzi
fadf0f5faa
Files correlati : f151.dir f151.trr ca1.exe ca2.exe ca3.exe ca3100.uml
ca3100a.rep ca3100b.rep ca3200.uml ca3200a.rep
ca3200b.rep ca3300.uml ca3300a.rep ca3300b.rep
ca3300c.rep ca3300d.rep ca3600.uml ca3600a.rep
ca3700.uml ca3700a.rep ca3700b.rep ca3800.uml
ca3800a.rep ca3800as.rep ca3800b.rep ca3800bs.rep
ca3800c.rep ca3800cs.rep ca3883.cpp ca3900.uml
ca3900a.rep
Commento :
Aggiunta contabilità separata alle stampe di analitica.
Aggiunto meccanismo per lanciare le stampe in batch.
Sintassi: ca3 -7 -b <nome del file che contiene i valori dell maschera> <tipo di output <P>rint|<E>xport|E<X>cel|PD<F>|<T>esto|<D>Base|<V>isualizza> <nome del file di output
Esempio: ca3 -7 -b select.sav X c:\out\rend
esporta il rendiconto di commessa usando i parametri salvati in select.sav nel file c:\out\rend.xls
142 lines
2.3 KiB
Plaintext
Executable File
142 lines
2.3 KiB
Plaintext
Executable File
#include "ca3883a.h"
|
|
|
|
#define ALL_EXPORT
|
|
#define CLASS_NAME "ca3900"
|
|
|
|
TOOLBAR "topbar" 0 0 0 2
|
|
#include <aprintbar.h>
|
|
ENDPAGE
|
|
|
|
TOOLBAR "bottombar" 0 -3 0 1
|
|
#include <bprintbar.h>
|
|
ENDPAGE
|
|
|
|
PAGE "Stima ricavi di competenza" -1 -1 0 -3
|
|
|
|
GROUPBOX DLG_NULL 76 4
|
|
BEGIN
|
|
PROMPT 0 1 ""
|
|
END
|
|
|
|
NUMBER F_DITTA 5
|
|
BEGIN
|
|
PROMPT 1 2 "Ditta "
|
|
FLAGS "DF"
|
|
END
|
|
|
|
STRING F_RAGSOC 50
|
|
BEGIN
|
|
PROMPT 20 2 ""
|
|
USE LF_NDITTE
|
|
INPUT CODDITTA F_DITTA
|
|
OUTPUT F_RAGSOC RAGSOC
|
|
CHECKTYPE NORMAL
|
|
FLAGS "D"
|
|
END
|
|
|
|
NUMBER F_ESERCIZIO 4
|
|
BEGIN
|
|
PROMPT 1 3 "Esercizio "
|
|
FLAGS "AZ"
|
|
USE ESC
|
|
INPUT CODTAB F_ESERCIZIO
|
|
DISPLAY "Codice esercizio" CODTAB
|
|
DISPLAY "Inizio esercizio" D0
|
|
DISPLAY "Fine esercizio" D1
|
|
OUTPUT F_ESERCIZIO CODTAB
|
|
OUTPUT F_INIZIO_ES D0
|
|
OUTPUT F_FINE_ES D1
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
DATE F_INIZIO_ES
|
|
BEGIN
|
|
PROMPT 20 3 "Inizio "
|
|
FLAGS "D"
|
|
END
|
|
|
|
DATE F_FINE_ES
|
|
BEGIN
|
|
PROMPT 44 3 "Fine "
|
|
FLAGS "D"
|
|
END
|
|
|
|
DATE F_DATASTAMPA
|
|
BEGIN
|
|
PROMPT 2 5 "Data stampa "
|
|
FLAGS "A"
|
|
END
|
|
|
|
BOOLEAN F_FORZA_MATURATO
|
|
BEGIN
|
|
PROMPT 2 6 "Considerare finite le commesse che terminano nell'esercizio selezionato"
|
|
END
|
|
|
|
BOOLEAN F_INCLUDE_DOCUMENTI
|
|
BEGIN
|
|
PROMPT 2 7 "Includere documenti inevasi e/o non contabilizzati"
|
|
END
|
|
|
|
LISTBOX F_TIPOSTAMPA 1 20
|
|
BEGIN
|
|
PROMPT 2 8 "Stampa"
|
|
ITEM "0|Normale"
|
|
MESSAGE CLEAR,F_FASE|CLEAR,F_CDC
|
|
ITEM "1|Dett.per Fase"
|
|
MESSAGE ENABLE,F_FASE|CLEAR,F_CDC
|
|
ITEM "2|Dett-per CdC"
|
|
MESSAGE CLEAR,F_FASE|ENABLE,F_CDC
|
|
ITEM "3|Dett.per Fase e CdC"
|
|
MESSAGE ENABLE,F_FASE|ENABLE,F_CDC
|
|
END
|
|
|
|
STRING F_FASE 10
|
|
BEGIN
|
|
PROMPT 32 8 "Fase"
|
|
END
|
|
|
|
STRING F_CDC 20
|
|
BEGIN
|
|
PROMPT 53 8 "CdC"
|
|
USE LF_CDC
|
|
INPUT CODCOSTO F_CDC
|
|
DISPLAY "Codice centro di costo" CODCOSTO
|
|
DISPLAY "Descrizione@50" DESCRIZ
|
|
OUTPUT F_CDC CODCOSTO
|
|
END
|
|
|
|
STRING F_CONTSEP 6
|
|
BEGIN
|
|
PROMPT 2 9 "Cont. separata "
|
|
USE &NPENT
|
|
INPUT CODTAB F_CONTSEP
|
|
DISPLAY "Codice@6" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_CONTSEP CODTAB
|
|
OUTPUT F_DESCONTSEP S0
|
|
CHECKTYPE NORMAL
|
|
FIELD CONTSEP
|
|
MODULE NP
|
|
END
|
|
|
|
STRING F_DESCONTSEP 50 48
|
|
BEGIN
|
|
PROMPT 26 9 ""
|
|
USE &NPENT KEY 2
|
|
INPUT S0 F_DESCONTSEP
|
|
DISPLAY "Descrizione@50" S0
|
|
DISPLAY "Codice@6" CODTAB
|
|
COPY OUTPUT F_CONTSEP
|
|
CHECKTYPE NORMAL
|
|
MODULE NP
|
|
END
|
|
|
|
GROUPBOX F_PRE0 76 5
|
|
BEGIN
|
|
PROMPT 0 10 "@bPrefisso del piano dei conti analitico:"
|
|
GROUP 6
|
|
END
|
|
ENDPAGE
|
|
|
|
ENDMASK
|