root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
campo-sirio/pr/pr0500a.uml
guy 5f6c357ce3 Patch level : 
Files correlati     :
Ricompilazione Demo : [ ]
Commento            :
Corretta gestione capozona


git-svn-id: svn://10.65.10.50/branches/R_10_00@22470 c028cbd2-c16b-5b4b-a496-9718f37d4682
2011-10-29 08:35:13 +00:00

575 lines
15 KiB
Plaintext
Executable File
Raw Blame History

#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
Reference in New Issue View Git Blame Copy Permalink