3d7dab8e40
Files correlati : Ricompilazione Demo : [ ] Commento : RIportata la verione 3.2 1167 git-svn-id: svn://10.65.10.50/trunk@16733 c028cbd2-c16b-5b4b-a496-9718f37d4682
163 lines
2.6 KiB
Plaintext
Executable File
163 lines
2.6 KiB
Plaintext
Executable File
#include "coconf.h"
|
|
|
|
TOOLBAR "" 0 20 0 2
|
|
|
|
BUTTON DLG_OK 10 2
|
|
BEGIN
|
|
PROMPT -12 -1 ""
|
|
END
|
|
|
|
BUTTON DLG_QUIT 10 2
|
|
BEGIN
|
|
PROMPT -22 -1 ""
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Configurazione ditta per cooperative" -1 -1 0 0
|
|
|
|
GROUPBOX DLG_NULL 76 3
|
|
BEGIN
|
|
PROMPT 1 1 "@bDitta corrente"
|
|
END
|
|
|
|
NUMBER F_CODDITTA 5
|
|
BEGIN
|
|
PROMPT 2 2 "Codice "
|
|
FLAGS "FD"
|
|
USE LF_NDITTE
|
|
INPUT CODDITTA F_CODDITTA
|
|
OUTPUT F_RAGSOC RAGSOC
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
STRING F_RAGSOC 50
|
|
BEGIN
|
|
PROMPT 22 2 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
NUMBER F_RITQTA 5 2
|
|
BEGIN
|
|
PROMPT 2 4 "% ritenuta su quantita' "
|
|
FIELD RitQta
|
|
END
|
|
|
|
|
|
NUMBER F_RITPREZZO 5 2
|
|
BEGIN.
|
|
PROMPT 2 5 "% ritenuta su prezzo "
|
|
FIELD RitPrezzo
|
|
END
|
|
|
|
STRING F_SPESARITACC 8
|
|
BEGIN
|
|
PROMPT 2 6 "Cod.spesa rit. per acc. "
|
|
USE SPP SELECT (S6="P")
|
|
FLAGS "U"
|
|
INPUT CODTAB F_SPESARITACC
|
|
DISPLAY "Codice " CODTAB
|
|
DISPLAY "Descrizione@50 " S0
|
|
OUTPUT F_SPESARITACC CODTAB
|
|
OUTPUT F_D_SPESARITACC S0
|
|
FIELD SpesaRitAcc
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_D_SPESARITACC 50
|
|
BEGIN
|
|
PROMPT 40 6 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_SPESADIRITTI1 8
|
|
BEGIN
|
|
PROMPT 2 7 "Cod.spesa dir. di merc. 1 "
|
|
USE SPP SELECT (S6="P")
|
|
FLAGS "U"
|
|
INPUT CODTAB F_SPESADIRITTI1
|
|
DISPLAY "Codice@8" CODTAB
|
|
DISPLAY "Descrizione@50 " S0
|
|
OUTPUT F_SPESADIRITTI1 CODTAB
|
|
OUTPUT F_D_SPESADIRITTI1 S0
|
|
FIELD SpesaDiritti1
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_D_SPESADIRITTI1 50
|
|
BEGIN
|
|
PROMPT 40 7 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_SPESADIRITTI2 8
|
|
BEGIN
|
|
PROMPT 2 8 "Cod.spesa dir. di merc. 2 "
|
|
USE SPP SELECT (S6="P")
|
|
FLAGS "U"
|
|
INPUT CODTAB F_SPESADIRITTI2
|
|
DISPLAY "Codice@8" CODTAB
|
|
DISPLAY "Descrizione@50 " S0
|
|
OUTPUT F_SPESADIRITTI2 CODTAB
|
|
OUTPUT F_D_SPESADIRITTI2 S0
|
|
FIELD SpesaDiritti2
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_D_SPESADIRITTI2 50
|
|
BEGIN
|
|
PROMPT 40 8 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_SPESAFACC 8
|
|
BEGIN
|
|
PROMPT 2 9 "Cod.spesa facchinaggio "
|
|
USE SPP SELECT (S6="Q")
|
|
FLAGS "U"
|
|
INPUT CODTAB F_SPESAFACC
|
|
DISPLAY "Codice " CODTAB
|
|
DISPLAY "Descrizione@50 " S0
|
|
OUTPUT F_SPESAFACC CODTAB
|
|
OUTPUT F_D_SPESAFACC S0
|
|
FIELD SpesaFacc
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_D_SPESAFACC 50
|
|
BEGIN
|
|
PROMPT 40 9 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_SPESACASSE 8
|
|
BEGIN
|
|
PROMPT 2 10 "Cod.spesa ricambio casse "
|
|
USE SPP SELECT (S6="Q")
|
|
FLAGS "U"
|
|
INPUT CODTAB F_SPESACASSE
|
|
DISPLAY "Codice " CODTAB
|
|
DISPLAY "Descrizione@50 " S0
|
|
OUTPUT F_SPESACASSE CODTAB
|
|
OUTPUT F_D_SPESACASSE S0
|
|
FIELD SpesaCasse
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_D_SPESACASSE 50
|
|
BEGIN
|
|
PROMPT 40 10 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
NUMBER F_PROGQTA 14 3
|
|
BEGIN
|
|
PROMPT 2 12 "Prog. q.ta da accreditare "
|
|
FIELD ProgQta
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|
|
|