#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