#include "pr0500a.h"

TOOLBAR "" 0 0 0 2

#include <relapbar.h>

ENDPAGE

PAGE "Gestione Agenti" 0 0 0 0

GROUPBOX DLG_NULL 80 4
BEGIN
 PROMPT 1 1 "Agente"
 FLAGS "R"
END

STRING F_CODAGE 5
BEGIN
  PROMPT 2 2 "Codice          "
  FIELD CODAGE
  FLAGS "UZ"
  KEY 1
  USE LF_AGENTI
  INPUT CODAGE F_CODAGE
  DISPLAY "Codice@8R" CODAGE
  DISPLAY "Descrizione@50" RAGSOC
  DISPLAY "Capo Zona@5" CAPO
  OUTPUT F_CODAGE CODAGE
  OUTPUT F_RAGSOC RAGSOC
  CHECKTYPE REQUIRED
END

STRING F_RAGSOC 50
BEGIN
  PROMPT 2 3 "Ragione sociale "
  FIELD RAGSOC
  KEY 2
  USE LF_AGENTI KEY 2
  INPUT RAGSOC F_RAGSOC
  DISPLAY "Descrizione@50" RAGSOC
  DISPLAY "Codice@8R" CODAGE
  COPY OUTPUT F_CODAGE
  CHECKTYPE REQUIRED
END

NUMBER F_CODFORN 6
BEGIN
  PROMPT 2 5 "Cod. fornitore "
  FIELD CODFORN
  USE LF_CLIFO KEY 1 SELECT TIPOCF=="F"
  INPUT TIPOCF "F"
  INPUT CODCF F_CODFORN
  DISPLAY "Codice" CODCF
  DISPLAY "Ragione sociale@50" RAGSOC
  OUTPUT F_CODFORN CODCF
  OUTPUT F_DESCRFORN RAGSOC
  CHECKTYPE NORMAL
  ADD RUN CG0 -1
END

STRING F_DESCRFORN 50
BEGIN
  PROMPT 27 5 ""
  USE LF_CLIFO KEY 2 SELECT TIPOCF=="F"
  INPUT TIPOCF "F"
  INPUT RAGSOC F_DESCRFORN
  DISPLAY "Ragione sociale@50" RAGSOC
  DISPLAY "Codice" CODCF
  OUTPUT F_CODFORN CODCF
  OUTPUT F_DESCRFORN RAGSOC
  CHECKTYPE NORMAL
  ADD RUN CG0 -1
END

LISTBOX F_TIPO 10
BEGIN
  PROMPT 2 6 "Tipo agente    "
  FIELD TIPO
  ITEM "A|Agente"
  ITEM "C|Capozona"
  ITEM "S|Subagente"
END

GROUPBOX DLG_NULL 80 4
BEGIN
 PROMPT 1 7 "Capozona"
 FLAGS "R"
END

STRING F_CODCAPO 5
BEGIN
  PROMPT 2 8 "Cod. capo zona "
  FIELD CODCAPO
  FLAGS "UZ"
  USE LF_AGENTI SELECT TIPO=="C"
  INPUT CODAGE F_CODCAPO
  COPY DISPLAY F_CODAGE
  OUTPUT F_CODCAPO CODAGE
  OUTPUT F_DESCRCAPO RAGSOC
  CHECKTYPE NORMAL
  MESSAGE EMPTY CLEAR,F_PERCCAPO
  MESSAGE ENABLE,F_PERCCAPO
  GROUP G_CAPOZONA
END

STRING F_DESCRCAPO 50
BEING
  PROMPT 27 8 ""
  USE LF_AGENTI KEY 2 SELECT TIPO=="C"
  INPUT RAGSOC F_DESCRCAPO
  COPY DISPLAY F_RAGSOC
  COPY OUTPUT F_CODCAPO
  CHECKTYPE NORMAL
  GROUP G_CAPOZONA
END

NUMBER F_PERCCAPO 5 2
BEGIN
  PROMPT 2 9 "% provvigione capozona sulle provvigioni     "
  FIELD PERCCAPO
  NUM_EXPR {(#F_PERCCAPO>=0.0)&&(#F_PERCCAPO<100.0)}
  WARNING "Inserire una percentuale tra 0 e 100"
  GROUP G_CAPOZONA
END

NUMBER F_PERCFATT 6 2
BEGIN
  PROMPT 2 11 "% provvigione da liquidare alla fatturazione "
  FIELD PERCFATT
  NUM_EXPR {(#F_PERCFATT>=0.0)&&(#F_PERCFATT<=100.0)}
  WARNING "Inserire una percentuale tra 0 e 100"
END

NUMBER F_PERCPAG 6 2
BEGIN
  PROMPT 2 12 "% provvigione da liquidare al pagamento      "
  FLAGS "D"
END

STRING F_CAMPOPROVV 10
BEGIN
  PROMPT 2 13 "Campo provvig.  "
  FIELD CAMPOPROVV
  FLAG "U"
  USE %FRD
  INPUT CODTAB  F_CAMPOPROVV
  DISPLAY "Codice " CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CAMPOPROVV CODTAB
  OUTPUT F_DESCAMPOPROVV S0
  CHECKTYPE NORMAL
END

STRING F_DESCAMPOPROVV 50
BEGIN
  PROMPT 2 14 "                "
  FLAGS "D"
END

NUMBER F_PERCPROVV 5 2
BEGIN
  PROMPT 2 15 "% provvigione       "
  FIELD PERCPROVV
  NUM_EXPR {(#F_PERCPROVV>=0.0)&&(#F_PERCPROVV<100.0)}
  WARNING "Inserire una percentuale tra 0 e 100"
END

STRING F_MATRICOLA 8
BEGIN
  PROMPT 2 16 "Numero matricola    "
  FIELD MATRICOLA
END

DATE F_DATACESS
BEGIN
  PROMPT 33 16 "Data cessazione rapporto "
  FIELD DATACESS
END

BOOLEAN F_PLURIMAND
BEGIN
  PROMPT 2 17 "Plurimandatario"
  FIELD PLURIMAND
END

//magazzino viaggiante collegato all'agente (arsenale,insomma)
GROUPBOX DLG_NULL 76 4
BEGIN
  PROMPT 2 18 "Magazzino viaggiante"
END

STRING F_CODMAG 3
BEGIN
  PROMPT 3 19 "Magazzino "
  FIELD CODMAG[1,3]
  USE MAG SELECT CODTAB[4,5]==""
  FLAGS "U"
  INPUT CODTAB F_CODMAG
  DISPLAY "Codice " CODTAB[1,3]
  DISPLAY "Denominazione mag.@50 " S0
  OUTPUT F_CODMAG CODTAB[1,3]
  OUTPUT F_DESMAG S0
  CHECKTYPE NORMAL
END

STRING F_DESMAG 50
BEGIN
  PROMPT 20 19 ""
  USE MAG KEY 2
  INPUT S0 F_DESMAG
  DISPLAY "Denominazione mag.@50" S0
  DISPLAY "Cod. magazzino" CODTAB[1,3]
  DISPLAY "Cod. deposito" CODTAB[4,5]
  COPY OUTPUT F_CODMAG
  CHECKTYPE NORMAL
END

STRING F_CODDEP 2
BEGIN
  PROMPT 3 20 "Deposito  "
  FIELD CODMAG[4,5]
  FLAGS "U"
  USE MAG 
  INPUT CODTAB[1,3] F_CODMAG SELECT
  INPUT CODTAB[4,5] F_CODDEP
  DISPLAY "Cod. magazzino" CODTAB[1,3]
  DISPLAY "Cod. deposito" CODTAB[4,5]
  DISPLAY "Denominazione dep.@50" S0
  OUTPUT F_CODMAG CODTAB[1,3]
  OUTPUT F_CODDEP CODTAB[4,5]
  OUTPUT F_DESDEP S0
  CHECKTYPE NORMAL
END

STRING F_DESDEP 50
BEGIN
  PROMPT 20 20 ""
  USE MAG KEY 2
  INPUT S0 F_DESDEP
  DISPLAY "Denominazione dep.@50" S0
  DISPLAY "Cod. magazzino" CODTAB[1,3]
  DISPLAY "Cod. deposito" CODTAB[4,5]
  COPY OUTPUT F_CODDEP
  CHECKTYPE NORMAL
END

ENDPAGE

PAGE "Ricerche" -1 -1 78 8

LISTBOX F_SEQRIC1 22
BEGIN
  PROMPT 1 2 "Sequenza ricerca % provvigione "
  FIELD SEQRIC[1,1]
  ITEM "-|Nessuno"                MESSAGE CLEAR,5@|CLEAR,F_SEQRIC2|CLEAR,F_CODRICPR2|CLEAR,F_CODRICPR1
  ITEM "A|Agente"                 MESSAGE ENABLE,F_SEQRIC2|CLEAR,F_CODRICPR1
  ITEM "V|Categoria di vendita"   MESSAGE ENABLE,F_SEQRIC2|CLEAR,F_CODRICPR1
  ITEM "M|Articolo di magazzino"  MESSAGE ENABLE,F_SEQRIC2|CLEAR,F_CODRICPR1
  ITEM "C|Cliente"                MESSAGE ENABLE,F_SEQRIC2|CLEAR,F_CODRICPR1
  ITEM "O|Condizione di vendita"  MESSAGE ENABLE,F_SEQRIC2|CLEAR,F_CODRICPR1
  ITEM "1|Archivio % provvigioni" MESSAGE ENABLE,F_SEQRIC2|ENABLE,F_CODRICPR1
  STR_EXPR (#THIS_FIELD=="-")||((#THIS_FIELD!=#F_SEQRIC2)&&(#THIS_FIELD!=#F_SEQRIC3)&&(#THIS_FIELD!=#F_SEQRIC4))
  WARNING "La sequenza di ricerca deve indicare quattro tipi diversi di righe"
END

STRING F_CODRICPR1 2
BEGIN
  PROMPT 59 2 ""
  FIELD CODRICPR1
  FLAGS "UZ"
  USE APR
  INPUT CODTAB F_CODRICPR1
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODRICPR1 CODTAB
  CHECKTYPE NORMAL
  STR_EXPR (#THIS_FIELD=="")||((#THIS_FIELD!=#F_CODRICPR2)&&(#THIS_FIELD!=#F_CODRICPR3)&&(#THIS_FIELD!=#F_CODRICPR4))
  WARNING "Codice archivio non valido o gia' utilizzato per questa sequenza"
END

LISTBOX F_SEQRIC2 22
BEGIN
  PROMPT 32 3 ""
  FIELD SEQRIC[2,2]
  ITEM "-|Nessuno"                MESSAGE CLEAR,5@|CLEAR,F_CODRICPR2
  ITEM "A|Agente"                 MESSAGE ENABLE,F_SEQRIC3|CLEAR,F_CODRICPR2
  ITEM "V|Categoria di vendita"   MESSAGE ENABLE,F_SEQRIC3|CLEAR,F_CODRICPR2
  ITEM "M|Articolo di magazzino"  MESSAGE ENABLE,F_SEQRIC3|CLEAR,F_CODRICPR2
  ITEM "C|Cliente"                MESSAGE ENABLE,F_SEQRIC3|CLEAR,F_CODRICPR2
  ITEM "O|Condizione di vendita"  MESSAGE ENABLE,F_SEQRIC3|CLEAR,F_CODRICPR2
  ITEM "2|Archivio % provvigioni" MESSAGE ENABLE,F_SEQRIC3|ENABLE,F_CODRICPR2
  STR_EXPR (#THIS_FIELD=="-")||((#THIS_FIELD!=#F_SEQRIC1)&&(#THIS_FIELD!=#F_SEQRIC3)&&(#THIS_FIELD!=#F_SEQRIC4))
  WARNING "La sequenza di ricerca deve indicare quattro tipi diversi di righe"
END

STRING F_CODRICPR2 2
BEGIN
  PROMPT 59 3 ""
  FIELD CODRICPR2
  FLAGS "UZ"
  USE APR
  INPUT CODTAB F_CODRICPR2
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODRICPR2 CODTAB
  CHECKTYPE NORMAL
  STR_EXPR (#THIS_FIELD=="")||((#THIS_FIELD!=#F_CODRICPR1)&&(#THIS_FIELD!=#F_CODRICPR3)&&(#THIS_FIELD!=#F_CODRICPR4))
  WARNING "Codice archivio non valido o gia' utilizzato per questa sequenza"
END

LISTBOX F_SEQRIC3 22
BEGIN
  PROMPT 32 4 ""
  FIELD SEQRIC[3,3]
  ITEM "-|Nessuno"                   MESSAGE CLEAR,F_SEQRIC4|CLEAR,F_CODRICPR3
  ITEM "A|Agente"                    MESSAGE ENABLE,F_SEQRIC4|CLEAR,F_CODRICPR3
  ITEM "V|Categoria di vendita"      MESSAGE ENABLE,F_SEQRIC4|CLEAR,F_CODRICPR3
  ITEM "M|Articolo di magazzino"     MESSAGE ENABLE,F_SEQRIC4|CLEAR,F_CODRICPR3
  ITEM "C|Cliente"                   MESSAGE ENABLE,F_SEQRIC4|CLEAR,F_CODRICPR3
  ITEM "O|Condizione di vendita"     MESSAGE ENABLE,F_SEQRIC4|CLEAR,F_CODRICPR3
  ITEM "3|Archivio % provvigioni"    MESSAGE ENABLE,F_SEQRIC4|ENABLE,F_CODRICPR3
  GROUP 5
  STR_EXPR (#THIS_FIELD=="-")||((#THIS_FIELD!=#F_SEQRIC1)&&(#THIS_FIELD!=#F_SEQRIC2)&&(#THIS_FIELD!=#F_SEQRIC4))
  WARNING "La sequenza di ricerca deve indicare quattro tipi diversi di righe"
END

STRING F_CODRICPR3 2
BEGIN
  PROMPT 59 4 ""
  FIELD CODRICPR3
  FLAGS "UZ"
  USE APR
  INPUT CODTAB F_CODRICPR3
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODRICPR3 CODTAB
  CHECKTYPE NORMAL
  STR_EXPR (#THIS_FIELD=="")||((#THIS_FIELD!=#F_CODRICPR1)&&(#THIS_FIELD!=#F_CODRICPR2)&&(#THIS_FIELD!=#F_CODRICPR4))
  GROUP 4 5
  WARNING "Codice archivio non valido o gia' utilizzato per questa sequenza"
END

LISTBOX F_SEQRIC4 22
BEGIN
  PROMPT 32 5 ""
  FIELD SEQRIC[4,4]
  ITEM "-|Nessuno"                MESSAGE CLEAR,F_CODRICPR4
  ITEM "A|Agente"                 MESSAGE CLEAR,F_CODRICPR4
  ITEM "V|Categoria di vendita"   MESSAGE CLEAR,F_CODRICPR4
  ITEM "M|Articolo di magazzino"  MESSAGE CLEAR,F_CODRICPR4
  ITEM "C|Cliente"                MESSAGE CLEAR,F_CODRICPR4
  ITEM "O|Condizione di vendita"  MESSAGE CLEAR,F_CODRICPR4
  ITEM "4|Archivio % provvigioni" MESSAGE ENABLE,F_CODRICPR4
  STR_EXPR (#THIS_FIELD=="-")||((#THIS_FIELD!=#F_SEQRIC1)&&(#THIS_FIELD!=#F_SEQRIC2)&&(#THIS_FIELD!=#F_SEQRIC3))
  WARNING "La sequenza di ricerca deve indicare quattro tipi diversi di righe"
  GROUP 5
END

STRING F_CODRICPR4 2
BEGIN
  PROMPT 59 5 ""
  FIELD CODRICPR4
  FLAGS "UZ"
  USE APR
  INPUT CODTAB F_CODRICPR4
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODRICPR4 CODTAB
  CHECKTYPE NORMAL
  STR_EXPR (#THIS_FIELD=="")||((#THIS_FIELD!=#F_CODRICPR1)&&(#THIS_FIELD!=#F_CODRICPR2)&&(#THIS_FIELD!=#F_CODRICPR3))
  GROUP 4 5
  WARNING "Codice archivio non valido o gia' utilizzato per questa sequenza"
END

LISTBOX F_SEQALT1 22
BEGIN
  PROMPT 1 9 "Indicazione % aggiuntiva       "
  FIELD SEQALT[1,1]
  ITEM "-|Nessuno"                MESSAGE CLEAR,6@
  ITEM "A|Agente"                 MESSAGE CLEAR,F_CODALTPR1|ENABLE,F_SEQALT2
  ITEM "1|Archivio % provvigioni" MESSAGE ENABLE,F_CODALTPR1|ENABLE,F_SEQALT2
  STR_EXPR (#THIS_FIELD=="-")||((#THIS_FIELD!=#F_SEQALT2)&&(#THIS_FIELD!=#F_SEQALT3)&&(#THIS_FIELD!=#F_SEQALT4))
  WARNING "La sequenza di ricerca deve indicare quattro tipi diversi di righe"
END

STRING F_CODALTPR1 2
BEGIN
  PROMPT 59 9 ""
  FIELD CODALTPR1
  FLAGS "UZ"
  USE APR
  INPUT CODTAB F_CODALTPR1
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODALTPR1 CODTAB
  CHECKTYPE NORMAL
  STR_EXPR (#THIS_FIELD=="")||((#THIS_FIELD!=#F_CODALTPR2)&&(#THIS_FIELD!=#F_CODALTPR3)&&(#THIS_FIELD!=#F_CODALTPR4))
  GROUP 6
  WARNING "Codice archivio non valido o gia' utilizzato per questa sequenza"
END

LISTBOX F_SEQALT2 22
BEGIN
  PROMPT 32 10 ""
  FIELD SEQALT[2,2]
  ITEM "-|Nessuno"                MESSAGE CLEAR,7@|CLEAR,F_CODALTPR2
  ITEM "A|Agente"                 MESSAGE ENABLE,F_SEQALT3|CLEAR,F_CODALTPR2
  ITEM "2|Archivio % provvigioni" MESSAGE ENABLE,F_SEQALT3|ENABLE,F_CODALTPR2
  STR_EXPR (#THIS_FIELD=="-")||((#THIS_FIELD!=#F_SEQALT1)&&(#THIS_FIELD!=#F_SEQALT3)&&(#THIS_FIELD!=#F_SEQALT4))
  WARNING "La sequenza di ricerca deve indicare quattro tipi diversi di righe"
  GROUP 6
END

STRING F_CODALTPR2 2
BEGIN
  PROMPT 59 10 ""
  FIELD CODALTPR2
  FLAGS "UZ"
  USE APR
  INPUT CODTAB F_CODALTPR2
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODALTPR2 CODTAB
  CHECKTYPE NORMAL
  STR_EXPR (#THIS_FIELD=="")||((#THIS_FIELD!=#F_CODALTPR1)&&(#THIS_FIELD!=#F_CODALTPR3)&&(#THIS_FIELD!=#F_CODALTPR4))
  GROUP 6
  WARNING "Codice archivio non valido o gia' utilizzato per questa sequenza"
END

LISTBOX F_SEQALT3 22
BEGIN
  PROMPT 32 11 ""
  FIELD SEQALT[3,3]
  ITEM "-|Nessuno"                   MESSAGE CLEAR,F_SEQALT4|CLEAR,F_CODALTPR3
  ITEM "A|Agente"                    MESSAGE ENABLE,F_SEQALT4|CLEAR,F_CODALTPR3
  ITEM "3|Archivio % provvigioni"    MESSAGE ENABLE,F_SEQALT4|ENABLE,F_CODALTPR3
  STR_EXPR (#THIS_FIELD=="-")||((#THIS_FIELD!=#F_SEQALT1)&&(#THIS_FIELD!=#F_SEQALT2)&&(#THIS_FIELD!=#F_SEQALT4))
  WARNING "La sequenza di ricerca deve indicare quattro tipi diversi di righe"
  GROUP 6 7
END

STRING F_CODALTPR3 2
BEGIN
  PROMPT 59 11 ""
  FIELD CODALTPR3
  FLAGS "UZ"
  USE APR
  INPUT CODTAB F_CODALTPR3
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODALTPR3 CODTAB
  CHECKTYPE NORMAL
  STR_EXPR (#THIS_FIELD=="")||((#THIS_FIELD!=#F_CODALTPR1)&&(#THIS_FIELD!=#F_CODALTPR2)&&(#THIS_FIELD!=#F_CODALTPR4))
  GROUP 6 7
  WARNING "Codice archivio non valido o gia' utilizzato per questa sequenza"
END

LISTBOX F_SEQALT4 22
BEGIN
  PROMPT 32 12 ""
  FIELD SEQALT[4,4]
  ITEM "-|Nessuno"                MESSAGE CLEAR,F_CODALTPR4
  ITEM "A|Agente"                 MESSAGE CLEAR,F_CODALTPR4
  ITEM "4|Archivio % provvigioni" MESSAGE ENABLE,F_CODALTPR4
  STR_EXPR (#THIS_FIELD=="-")||((#THIS_FIELD!=#F_SEQALT1)&&(#THIS_FIELD!=#F_SEQALT2)&&(#THIS_FIELD!=#F_SEQALT3))
  WARNING "La sequenza di ricerca deve indicare quattro tipi diversi di righe"
  GROUP 6 7
END

STRING F_CODALTPR4 2
BEGIN
  PROMPT 59 12 ""
  FIELD CODALTPR4
  FLAGS "UZ"
  USE APR
  INPUT CODTAB F_CODALTPR4
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODALTPR4 CODTAB
  CHECKTYPE NORMAL
  STR_EXPR (#THIS_FIELD=="")||((#THIS_FIELD!=#F_CODALTPR1)&&(#THIS_FIELD!=#F_CODALTPR2)&&(#THIS_FIELD!=#F_CODALTPR3))
  GROUP 6 7
  WARNING "Codice archivio non valido o gia' utilizzato per questa sequenza"
END

GROUPBOX DLG_NULL 76 5
BEGIN
  PROMPT 1 14 "@bConto incassi"
  FLAGS "R"
END

NUMBER F_GRUPPO 3
BEGIN
  PROMPT 2 15 "Gruppo     "
  HELP "Codice del gruppo"
  FIELD GRUPPO
  USE LF_PCON SELECT CONTO=""
  INPUT GRUPPO F_GRUPPO
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_GRUPPO GRUPPO
  OUTPUT F_DESCG DESCR
  CHECKTYPE NORMAL
END

STRING F_DESCG 50
BEGIN
  PROMPT 24 15 ""
  FLAGS "D"
END

NUMBER F_CONTO 3
BEGIN
  PROMPT 2 16 "Conto      "
  HELP "Codice dell'eventuale conto"
  FIELD CONTO
  USE LF_PCON SELECT ((CONTO!="")&&(SOTTOCONTO=""))
  COPY INPUT F_GRUPPO
  INPUT CONTO F_CONTO
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_GRUPPO GRUPPO
  OUTPUT F_CONTO CONTO
  OUTPUT F_DESCC DESCR
  CHECKTYPE NORMAL
  VALIDATE REQIF_FUNC 1 F_SOTTOCONTO
  WARNING "Manca il conto"
END

STRING F_DESCC 50
BEGIN
  PROMPT 24 16 ""
  FLAGS "D"
END

NUMBER F_SOTTOCONTO 6
BEGIN
  PROMPT 2 17 "Sottoconto "
  HELP "Codice dell'eventuale sottoconto"
  FIELD SOTTOCONTO
  USE LF_PCON SELECT SOTTOCONTO!=""
  COPY INPUT F_CONTO
  INPUT SOTTOCONTO F_SOTTOCONTO
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  DISPLAY "Sosp." SOSPESO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_SOTTOCONTO SOTTOCONTO
  OUTPUT F_GRUPPO GRUPPO
  OUTPUT F_CONTO CONTO
  OUTPUT F_DESC DESCR
  CHECKTYPE NORMAL
END

STRING F_DESC 50
BEGIN
  PROMPT 24 17 ""
  USE LF_PCON KEY 2
  INPUT DESCR F_DESC
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Sosp." SOSPESO
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  COPY OUTPUT F_SOTTOCONTO
  CHECKTYPE NORMAL
  HELP "Descrizione del gruppo o del conto o del sottoconto"
  WARNING "Descrizione mancante"
END

ENDPAGE
ENDMASK