d52681f795
Files correlati : Ricompilazione Demo : [ ] Commento : Riportata la versione 3.2 patch 1353 git-svn-id: svn://10.65.10.50/trunk@18581 c028cbd2-c16b-5b4b-a496-9718f37d4682
419 lines
7.2 KiB
Plaintext
Executable File
419 lines
7.2 KiB
Plaintext
Executable File
#include "coconf.h"
|
|
|
|
TOOLBAR "" 0 0 0 2
|
|
#include <stdbar.h>
|
|
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 "FDG"
|
|
USE LF_NDITTE
|
|
INPUT CODDITTA F_CODDITTA
|
|
OUTPUT F_RAGSOC RAGSOC
|
|
CHECKTYPE REQUIRED
|
|
MESSAGE COPY,1@
|
|
END
|
|
|
|
STRING F_RAGSOC 50
|
|
BEGIN
|
|
PROMPT 22 2 ""
|
|
FLAGS "DG"
|
|
MESSAGE COPY,2@
|
|
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
|
|
|
|
NUMBER F_CODCOOP 6
|
|
BEGIN
|
|
PROMPT 2 14 "Codice cooperativa "
|
|
FIELD CodCoop
|
|
USE LF_CLIFO
|
|
INPUT TIPOCF "C" SELECT
|
|
INPUT CODCF F_CODCOOP
|
|
DISPLAY "Codice" CODCF
|
|
DISPLAY "Ragione sociale@50" RAGSOC
|
|
OUTPUT F_CODCOOP CODCF
|
|
OUTPUT F_RAGCOOP RAGSOC
|
|
CHECKTYPE REQUIRED
|
|
ADD RUN cg0 -1 C
|
|
END
|
|
|
|
STRING F_RAGCOOP 50 35
|
|
BEGIN
|
|
PROMPT 40 14 ""
|
|
USE LF_CLIFO KEY 2
|
|
INPUT TIPOCF "C" SELECT
|
|
INPUT RAGSOC F_RAGCOOP
|
|
DISPLAY "Ragione sociale@60" RAGSOC
|
|
DISPLAY "Codice" CODCF
|
|
COPY OUTPUT F_CODCOOP
|
|
ADD RUN cg0 -1 C
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Configurazione chiusure mensili" -1 -1 0 0
|
|
|
|
GROUPBOX DLG_NULL 76 3
|
|
BEGIN
|
|
PROMPT 1 1 "@bDitta corrente"
|
|
END
|
|
|
|
NUMBER DLG_NULL 5
|
|
BEGIN
|
|
PROMPT 2 2 "Codice "
|
|
GROUP 1
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING DLG_NULL 50
|
|
BEGIN
|
|
PROMPT 22 2 ""
|
|
FLAGS "D"
|
|
GROUP 2
|
|
END
|
|
|
|
STRING F_NUMRIT 4
|
|
BEGIN
|
|
PROMPT 2 4 "Numeraz. ritenuta mensile "
|
|
FIELD NumRit
|
|
HELP "Codice numerazione"
|
|
USE %NUM SELECT I1>5
|
|
INPUT CODTAB F_NUMRIT
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_NUMRIT CODTAB
|
|
OUTPUT F_DNUMRIT S0
|
|
CHECKTYPE REQUIRED
|
|
FLAG "UPA"
|
|
WARNING "Numerazione assente"
|
|
END
|
|
|
|
STRING F_DNUMRIT 50
|
|
BEGIN
|
|
PROMPT 40 4 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_TIPORIT 4
|
|
BEGIN
|
|
PROMPT 2 5 "Tipo doc.ritenuta mensile "
|
|
FIELD TipoRit
|
|
HELP "Codice tipo documento"
|
|
USE %TIP SELECT I1>5
|
|
INPUT CODTAB F_TIPORIT
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_TIPORIT CODTAB
|
|
OUTPUT F_DTIPORIT S0
|
|
CHECKTYPE REQUIRED
|
|
FLAG "UP"
|
|
END
|
|
|
|
STRING F_DTIPORIT 50
|
|
BEGIN
|
|
PROMPT 40 5 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_SPRITCHI 8
|
|
BEGIN
|
|
PROMPT 2 6 "Cod.spesa ritenuta mensile "
|
|
USE SPP SELECT (S6="V")
|
|
FLAGS "U"
|
|
INPUT CODTAB F_SPRITCHI
|
|
DISPLAY "Codice " CODTAB
|
|
DISPLAY "Descrizione@50 " S0
|
|
OUTPUT F_SPRITCHI CODTAB
|
|
OUTPUT F_DSPRITCHI S0
|
|
FIELD SpRitChi
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
STRING F_DSPRITCHI 50
|
|
BEGIN
|
|
PROMPT 40 6 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_NUMCHI 4
|
|
BEGIN
|
|
PROMPT 2 7 "Numeraz. chiusura mensile "
|
|
FIELD NumChi
|
|
HELP "Codice numerazione"
|
|
USE %NUM SELECT I1>5
|
|
INPUT CODTAB F_NUMCHI
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_NUMCHI CODTAB
|
|
OUTPUT F_DNUMCHI S0
|
|
CHECKTYPE REQUIRED
|
|
FLAG "UPA"
|
|
WARNING "Numerazione assente"
|
|
END
|
|
|
|
STRING F_DNUMCHI 50
|
|
BEGIN
|
|
PROMPT 40 7 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_TIPOCHI 4
|
|
BEGIN
|
|
PROMPT 2 8 "Tipo doc.chiusura mensile "
|
|
FIELD TipoChi
|
|
HELP "Codice tipo documento"
|
|
USE %TIP SELECT I1>5
|
|
INPUT CODTAB F_TIPOCHI
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_TIPOCHI CODTAB
|
|
OUTPUT F_DTIPOCHI S0
|
|
CHECKTYPE REQUIRED
|
|
FLAG "UP"
|
|
END
|
|
|
|
STRING F_DTIPOCHI 50
|
|
BEGIN
|
|
PROMPT 40 8 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_SPCHI 8
|
|
BEGIN
|
|
PROMPT 2 9 "Cod.spesa chiusura mensile "
|
|
USE SPP SELECT (S6="V")
|
|
FLAGS "U"
|
|
INPUT CODTAB F_SPCHI
|
|
DISPLAY "Codice " CODTAB
|
|
DISPLAY "Descrizione@50 " S0
|
|
OUTPUT F_SPCHI CODTAB
|
|
OUTPUT F_DSPCHI S0
|
|
FIELD SpChi
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
STRING F_DSPCHI 50
|
|
BEGIN
|
|
PROMPT 40 9 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_NUMASS 4
|
|
BEGIN
|
|
PROMPT 2 10 "Numeraz. assegni "
|
|
FIELD NumAss
|
|
HELP "Codice numerazione"
|
|
USE %NUM SELECT I1>5
|
|
INPUT CODTAB F_NUMASS
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_NUMASS CODTAB
|
|
OUTPUT F_DNUMASS S0
|
|
CHECKTYPE REQUIRED
|
|
FLAG "UPA"
|
|
WARNING "Numerazione assente"
|
|
END
|
|
|
|
STRING F_DNUMASS 50
|
|
BEGIN
|
|
PROMPT 40 10 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_TIPOASS 4
|
|
BEGIN
|
|
PROMPT 2 11 "Tipo doc.assegno "
|
|
FIELD TipoAss
|
|
HELP "Codice tipo documento"
|
|
USE %TIP SELECT I1>5
|
|
INPUT CODTAB F_TIPOASS
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_TIPOASS CODTAB
|
|
OUTPUT F_DTIPOASS S0
|
|
CHECKTYPE REQUIRED
|
|
FLAG "UP"
|
|
END
|
|
|
|
STRING F_DTIPOASS 50
|
|
BEGIN
|
|
PROMPT 40 11 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_SPASS 8
|
|
BEGIN
|
|
PROMPT 2 12 "Cod.spesa assegni "
|
|
USE SPP SELECT (S6="V")
|
|
FLAGS "U"
|
|
INPUT CODTAB F_SPASS
|
|
DISPLAY "Codice " CODTAB
|
|
DISPLAY "Descrizione@50 " S0
|
|
OUTPUT F_SPASS CODTAB
|
|
OUTPUT F_DSPASS S0
|
|
FIELD SpAss
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
STRING F_DSPASS 50
|
|
BEGIN
|
|
PROMPT 40 12 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_CODELASS 8
|
|
BEGIN
|
|
PROMPT 2 14 "Cod.elab assegni "
|
|
FLAG "U"
|
|
USE %ELD SELECT I0==5
|
|
INPUT CODTAB F_CODELASS
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@55" S0
|
|
OUTPUT F_CODELASS CODTAB
|
|
OUTPUT F_DESELASS S0
|
|
CHECKTYPE REQUIRED
|
|
FIELD ElAss
|
|
WARNING "E' necessario specificare il codice elaborazione"
|
|
END
|
|
|
|
STRING F_DESELASS 50
|
|
BEGIN
|
|
PROMPT 40 12 ""
|
|
USE %ELD KEY 2 SELECT I0==5
|
|
INPUT S0 F_DESELASS
|
|
DISPLAY "Descrizione@55" S0
|
|
DISPLAY "Codice" CODTAB
|
|
COPY OUTPUT F_CODELASS
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|
|
|