137 lines
2.3 KiB
Plaintext
137 lines
2.3 KiB
Plaintext
|
#include "ca9300a.h"
|
||
|
|
|
||
|
|
TOOLBAR "topbar" 0 0 0 2
|
||
|
|
#include <printbar.h>
|
||
|
|
ENDPAGE
|
||
|
|
|
||
|
|
PAGE "Stampa tabelle ripartizione analitica" 0 2 0 0
|
||
|
|
|
||
|
|
GROUPBOX DLG_NULL 78 5
|
||
|
|
BEGIN
|
||
|
|
PROMPT 0 1 "@bParametri ripartizione"
|
||
|
|
END
|
||
|
|
|
||
|
|
LIST F_TIPO 16
|
||
|
|
BEGIN
|
||
|
|
PROMPT 1 2 "Tipo "
|
||
|
|
ITEM "I|Interattiva"
|
||
|
|
ITEM "B|Batch"
|
||
|
|
ITEM "P|Pareggio"
|
||
|
|
FIELD #TIPO
|
||
|
|
END
|
||
|
|
|
||
|
|
STRING F_DACODICE 8
|
||
|
|
BEGIN
|
||
|
|
PROMPT 1 3 "Da rip. "
|
||
|
|
USE LF_RIP
|
||
|
|
INPUT TIPO F_TIPO SELECT
|
||
|
|
INPUT CODICE F_DACODICE
|
||
|
|
DISPLAY "Tipo" TIPO
|
||
|
|
DISPLAY "Codice@8" CODICE
|
||
|
|
DISPLAY "Descrizione@50" DESCRIZ
|
||
|
|
OUTPUT F_DACODICE CODICE
|
||
|
|
OUTPUT F_DADESCR DESCRIZ
|
||
|
|
FIELD #DACODICE
|
||
|
|
END
|
||
|
|
|
||
|
|
STRING F_DADESCR 50
|
||
|
|
BEGIN
|
||
|
|
PROMPT 21 3 ""
|
||
|
|
USE LF_RIP KEY 2
|
||
|
|
INPUT TIPO F_TIPO SELECT
|
||
|
|
INPUT DESCRIZ F_DADESCR
|
||
|
|
DISPLAY "Descrizione@50" DESCRIZ
|
||
|
|
DISPLAY "Codice@8" CODICE
|
||
|
|
DISPLAY "Tipo" TIPO
|
||
|
|
COPY OUTPUT F_DACODICE
|
||
|
|
END
|
||
|
|
|
||
|
|
STRING F_ACODICE 8
|
||
|
|
BEGIN
|
||
|
|
PROMPT 1 4 "A rip. "
|
||
|
|
USE LF_RIP
|
||
|
|
INPUT TIPO F_TIPO SELECT
|
||
|
|
INPUT CODICE F_ACODICE
|
||
|
|
DISPLAY "Tipo" TIPO
|
||
|
|
DISPLAY "Codice@8" CODICE
|
||
|
|
DISPLAY "Descrizione@50" DESCRIZ
|
||
|
|
OUTPUT F_ACODICE CODICE
|
||
|
|
OUTPUT F_ADESCR DESCRIZ
|
||
|
|
FIELD #ACODICE
|
||
|
|
END
|
||
|
|
|
||
|
|
STRING F_ADESCR 50
|
||
|
|
BEGIN
|
||
|
|
PROMPT 21 4 ""
|
||
|
|
USE LF_RIP KEY 2
|
||
|
|
INPUT TIPO F_TIPO SELECT
|
||
|
|
INPUT DESCRIZ F_ADESCR
|
||
|
|
DISPLAY "Descrizione@50" DESCRIZ
|
||
|
|
DISPLAY "Codice@8" CODICE
|
||
|
|
DISPLAY "Tipo" TIPO
|
||
|
|
COPY OUTPUT F_ACODICE
|
||
|
|
END
|
||
|
|
|
||
|
|
GROUPBOX DLG_NULL 78 8
|
||
|
|
BEGIN
|
||
|
|
PROMPT 0 6 "@bParametri di selezione"
|
||
|
|
END
|
||
|
|
|
||
|
|
TEXT DLG_NULL
|
||
|
|
BEGIN
|
||
|
|
PROMPT 1 7 "Commessa"
|
||
|
|
END
|
||
|
|
|
||
|
|
STRING F_CODCMS 20
|
||
|
|
BEGIN
|
||
|
|
PROMPT 1 8 ""
|
||
|
|
USE COMMESSE
|
||
|
|
INPUT CODCMS F_CODCMS
|
||
|
|
DISPLAY "Codice@20" CODCMS
|
||
|
|
DISPLAY "Descrizione@50" DESCRIZ
|
||
|
|
OUTPUT F_CODCMS CODCMS
|
||
|
|
OUTPUT F_DESCRCMS DESCRIZ
|
||
|
|
FIELD #CODCMS
|
||
|
|
END
|
||
|
|
|
||
|
|
STRING F_DESCRCMS 50
|
||
|
|
BEGIN
|
||
|
|
PROMPT 25 8 ""
|
||
|
|
USE COMMESSE KEY 2
|
||
|
|
INPUT DESCRIZ F_DESCRCMS
|
||
|
|
DISPLAY "Descrizione@50" DESCRIZ
|
||
|
|
DISPLAY "Codice@20" CODCMS
|
||
|
|
COPY OUTPUT F_CODCMS
|
||
|
|
END
|
||
|
|
|
||
|
|
TEXT DLG_NULL
|
||
|
|
BEGIN
|
||
|
|
PROMPT 1 9 "Centro di costo"
|
||
|
|
END
|
||
|
|
|
||
|
|
STRING F_CODCOSTO 20
|
||
|
|
BEGIN
|
||
|
|
PROMPT 1 10 ""
|
||
|
|
USE CDC
|
||
|
|
INPUT CODCOSTO F_CODCOSTO
|
||
|
|
DISPLAY "Codice@20" CODCOSTO
|
||
|
|
DISPLAY "Descrizione@50" DESCRIZ
|
||
|
|
OUTPUT F_CODCOSTO CODCOSTO
|
||
|
|
OUTPUT F_DESCRCOSTO DESCRIZ
|
||
|
|
FIELD #CODCOSTO
|
||
|
|
END
|
||
|
|
|
||
|
|
STRING F_DESCRCOSTO 50
|
||
|
|
BEGIN
|
||
|
|
PROMPT 25 10 ""
|
||
|
|
USE CDC KEY 2
|
||
|
|
INPUT DESCRIZ F_DESCRCOSTO
|
||
|
|
DISPLAY "Descrizione@50" DESCRIZ
|
||
|
|
DISPLAY "Codice@20" CODCOSTO
|
||
|
|
COPY OUTPUT F_CODCOSTO
|
||
|
|
END
|
||
|
|
|
||
|
|
ENDPAGE
|
||
|
|
|
||
|
|
ENDMASK
|