campo-sirio/co/co0300a.uml

#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 "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_NUMCHI 4
	BEGIN
		PROMPT 2 4 "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 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_TIPOCHI 4
	BEGIN
		PROMPT 2 7 "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 7 ""
	  FLAGS "D"
	END

	STRING F_SPCHI 8
	BEGIN
		PROMPT 2 8 "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 8 ""
	  FLAGS "D"
	END

	STRING F_TIPOASS 4
	BEGIN
		PROMPT 2 9 "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 9 ""
	  FLAGS "D"
	END

	STRING F_SPASS 8
	BEGIN
		PROMPT 2 10 "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 10 ""
	  FLAGS "D"
	END

	STRING F_CODELASS 8
	BEGIN
		PROMPT 2 12 "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