7d1b49c6f2
Files correlati : ba7.exe Ricompilazione Demo : [ ] Commento : Aggiornamento maschere all 10.0 nuove toolbar modulo cespiti git-svn-id: svn://10.65.10.50/trunk@16501 c028cbd2-c16b-5b4b-a496-9718f37d4682
648 lines
12 KiB
Plaintext
Executable File
648 lines
12 KiB
Plaintext
Executable File
#include "ce0400a.h"
|
|
|
|
TOOLBAR "topbar" 0 0 0 2
|
|
|
|
BUTTON DLG_OK 10 2
|
|
BEGIN
|
|
PROMPT -12 -11 ""
|
|
END
|
|
|
|
BUTTON DLG_QUIT 10 2
|
|
BEGIN
|
|
PROMPT -22 -11 ""
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Parametri Ditta" 0 2 0 0
|
|
|
|
GROUPBOX DLG_NULL 76 6
|
|
BEGIN
|
|
PROMPT 1 1 "@bEsercizio/Attivita' corrente"
|
|
FLAGS "R"
|
|
END
|
|
|
|
NUMBER F_DITTA 5
|
|
BEGIN
|
|
PROMPT 2 2 "Ditta "
|
|
FLAGS "DFG"
|
|
USE LF_NDITTE
|
|
INPUT CODDITTA F_DITTA
|
|
OUTPUT F_RAGSOC RAGSOC
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_RAGSOC 50
|
|
BEGIN
|
|
PROMPT 25 2 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
NUMBER F_ESERCORR 4
|
|
BEGIN
|
|
PROMPT 2 3 "Esercizio "
|
|
FIELD CODESCORR
|
|
FLAGS "Z"
|
|
USE CCE
|
|
JOIN ESC ALIAS 105 INTO CODTAB==CODTAB
|
|
INPUT CODTAB F_ESERCORR
|
|
DISPLAY "Codice esercizio" CODTAB
|
|
DISPLAY "Data inizio" 105@->D0
|
|
DISPLAY "Data fine@10" 105@->D1
|
|
OUTPUT F_ESERCORR CODTAB
|
|
OUTPUT F_DATAINIZIO 105@->D0
|
|
OUTPUT F_DATAFINE 105@->D1
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
DATE F_DATAINIZIO
|
|
BEGIN
|
|
PROMPT 20 3 "Data inizio "
|
|
FLAGS "D"
|
|
END
|
|
|
|
DATE F_DATAFINE
|
|
BEGIN
|
|
PROMPT 45 3 "Data fine "
|
|
FLAGS "D"
|
|
END
|
|
|
|
NUMBER F_GRUPPOCORR 2
|
|
BEGIN
|
|
PROMPT 2 4 "Gruppo "
|
|
FIELD GRUPPOCORR
|
|
FLAGS "Z"
|
|
USE CCB KEY 1
|
|
JOIN %CGR ALIAS 106 INTO CODTAB==CODTAB[5,6]
|
|
JOIN %CAT ALIAS 107 INTO CODTAB==CODTAB[5,10]
|
|
INPUT CODTAB[1,4] F_ESERCORR SELECT
|
|
INPUT CODTAB[5,6] F_GRUPPOCORR
|
|
INPUT CODTAB[7,10] F_SPECIECORR
|
|
DISPLAY "Gruppo" CODTAB[5,6]
|
|
DISPLAY "Specie" CODTAB[7,10]
|
|
DISPLAY "Descrizione@60" 107@->S0
|
|
OUTPUT F_GRUPPOCORR CODTAB[5,6]
|
|
OUTPUT F_D_GRUPPOCORR 106@->S0
|
|
OUTPUT F_SPECIECORR CODTAB[7,10]
|
|
OUTPUT F_D_SPECIECORR 107@->S0
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_D_GRUPPOCORR 60 58
|
|
BEGIN
|
|
PROMPT 17 4 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_SPECIECORR 4
|
|
BEGIN
|
|
PROMPT 2 5 "Specie "
|
|
FIELD SPECIECORR
|
|
FLAGS "_"
|
|
COPY ALL F_GRUPPOCORR
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_D_SPECIECORR 60 58
|
|
BEGIN
|
|
PROMPT 17 5 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
DATE F_DATACONS
|
|
BEGIN
|
|
PROMPT 1 7 "Data conseguimento primi ricavi "
|
|
FIELD CADTR
|
|
END
|
|
|
|
TEXT DLG_NULL
|
|
BEGIN
|
|
PROMPT 1 8 "Anno inizio applicazione TUIR"
|
|
END
|
|
|
|
RADIOBUTTON F_ANNOTUIR 30
|
|
BEGIN
|
|
FLAGS "Z"
|
|
PROMPT 33 7 ""
|
|
ITEM "1988|1988"
|
|
ITEM "1989|1989"
|
|
FIELD CATSU
|
|
END
|
|
|
|
BOOLEAN F_AMMPROP
|
|
BEGIN
|
|
PROMPT 1 9 "Attiva ammortamento proporzionale da entrata in funzione"
|
|
FIELD AMMPROP
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
//-----------------------------------------------------------------------------------------------//
|
|
|
|
PAGE "Campi personalizzati" -1 -1 78 10
|
|
|
|
SPREADSHEET F_USER
|
|
BEGIN
|
|
PROMPT 0 1 "Parametri campi personalizzati"
|
|
ITEM "Nome@10"
|
|
ITEM "Prompt@20"
|
|
ITEM "Picture@50"
|
|
ITEM "Ricerca"
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
//-----------------------------------------------------------------------------------------------//
|
|
|
|
PAGE "Collegamento a Contabilita'" -1 -1 78 10
|
|
|
|
BOOLEAN F_COLLCOGE
|
|
BEGIN
|
|
PROMPT 2 0 "Attiva collegamento a contabilita'"
|
|
FIELD COLLCOGE
|
|
MESSAGE FALSE DISABLE,9@
|
|
MESSAGE TRUE ENABLE,9@
|
|
END
|
|
|
|
BOOLEAN F_PLUSMIN
|
|
BEGIN
|
|
PROMPT 2 1 "Genera anche movimenti plus/minusvalenza"
|
|
MESSAGE FALSE DISABLE,F_TIPOSCRIT|"X",F_TIPOSCRIT|CLEAR,F_PLUSVAL_GR|CLEAR,F_PLUSVAL_CO|CLEAR,F_PLUSVAL_SO|CLEAR,F_PLUSVAL_D|CLEAR,F_MINUSVAL_GR|CLEAR,F_MINUSVAL_CO|CLEAR,F_MINUSVAL_SO|CLEAR,F_MINUSVAL_D
|
|
MESSAGE TRUE ENABLE,F_TIPOSCRIT|ENABLE,F_PLUSVAL_GR|ENABLE,F_PLUSVAL_CO|ENABLE,F_PLUSVAL_SO|ENABLE,F_PLUSVAL_D|REQUIRED,F_PLUSVAL_SO|ENABLE,F_MINUSVAL_GR|ENABLE,F_MINUSVAL_CO|ENABLE,F_MINUSVAL_SO|ENABLE,F_MINUSVAL_D|REQUIRED,F_MINUSVAL_SO
|
|
FIELD COPLMN
|
|
GROUP 9
|
|
END
|
|
|
|
RADIOBUTTON F_TIPOSCRIT 1 60
|
|
BEGIN
|
|
PROMPT 2 2 "Tipo scrittura per vendita cespite "
|
|
ITEM "|Su Conto Vendite"
|
|
MESSAGE ENABLE,F_VEND_CESP_GR|ENABLE,F_VEND_CESP_CO|ENABLE,F_VEND_CESP_SO|ENABLE,F_VEND_CESP_D
|
|
ITEM "X|Su Conto Cespite"
|
|
MESSAGE CLEAR,F_VEND_CESP_GR|CLEAR,F_VEND_CESP_CO|CLEAR,F_VEND_CESP_SO|CLEAR,F_VEND_CESP_D
|
|
FIELD COR5PM
|
|
FLAGS "Z"
|
|
GROUP 9
|
|
END
|
|
|
|
LIST F_TIPOAMM 15
|
|
BEGIN
|
|
PROMPT 2 5 "Tipo ammortamenti "
|
|
ITEM "1|Fiscali"
|
|
ITEM "2|Civilistici"
|
|
FIELD TPAMM
|
|
GROUP 9
|
|
END
|
|
|
|
LIST F_MOVDETT 50
|
|
BEGIN
|
|
PROMPT 2 6 "Dettaglio movimenti "
|
|
ITEM "0|Non dettagliati"
|
|
ITEM "1|Per cespite con conto della categoria"
|
|
ITEM "2|Per cespite con sottoconto = codice cespite"
|
|
FIELD MOVDETT
|
|
GROUP 9
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 78 6
|
|
BEGIN
|
|
PROMPT 1 7 ""
|
|
FLAGS "R"
|
|
END
|
|
|
|
TEXT -1
|
|
BEGIN
|
|
PROMPT 33 8 "@BCod."
|
|
END
|
|
|
|
TEXT -1
|
|
BEGIN
|
|
PROMPT 40 8 "@BCausale"
|
|
END
|
|
|
|
STRING F_ELIMCESP 3
|
|
BEGIN
|
|
PROMPT 2 9 "Eliminazione cespite "
|
|
FIELD COAUEL
|
|
USE LF_CAUSALI SELECT ((SOSPESO!="X")&&(TIPODOC=="")&&(COLLCESP==""))
|
|
INPUT CODCAUS F_ELIMCESP
|
|
DISPLAY "Codice" CODCAUS
|
|
DISPLAY "Descrizione@50" DESCR
|
|
OUTPUT F_ELIMCESP CODCAUS
|
|
OUTPUT F_D_ELIMCESP DESCR
|
|
ADD RUN CG0 -4
|
|
CHECKTYPE REQUIRED
|
|
GROUP 9
|
|
END
|
|
|
|
STRING F_D_ELIMCESP 50 35
|
|
BEGIN
|
|
PROMPT 40 9 ""
|
|
USE LF_CAUSALI KEY 2
|
|
INPUT DESCR F_D_ELIMCESP
|
|
DISPLAY "Descrizione@50" DESCR
|
|
DISPLAY "Codice" CODCAUS
|
|
COPY OUTPUT F_ELIMCESP
|
|
ADD RUN CG0 -4
|
|
CHECKTYPE REQUIRED
|
|
GROUP 9
|
|
END
|
|
|
|
STRING F_CHIUCESP 3
|
|
BEGIN
|
|
PROMPT 2 10 "Chiusura cespite "
|
|
FIELD COAUCH
|
|
COPY USE F_ELIMCESP
|
|
INPUT CODCAUS F_CHIUCESP
|
|
COPY DISPLAY F_ELIMCESP
|
|
OUTPUT F_CHIUCESP CODCAUS
|
|
OUTPUT F_D_CHIUCESP DESCR
|
|
ADD RUN CG0 -4
|
|
CHECKTYPE REQUIRED
|
|
GROUP 9
|
|
END
|
|
|
|
STRING F_D_CHIUCESP 50 35
|
|
BEGIN
|
|
PROMPT 40 10 ""
|
|
COPY USE F_D_ELIMCESP
|
|
INPUT DESCR F_D_CHIUCESP
|
|
COPY DISPLAY F_D_ELIMCESP
|
|
COPY OUTPUT F_CHIUCESP
|
|
ADD RUN CG0 -4
|
|
CHECKTYPE REQUIRED
|
|
GROUP 9
|
|
END
|
|
|
|
STRING F_RIL_QUOT 3
|
|
BEGIN
|
|
PROMPT 2 11 "Rilevazione quote ammortamento "
|
|
FIELD COAUQU
|
|
COPY USE F_ELIMCESP
|
|
INPUT CODCAUS F_RIL_QUOT
|
|
COPY DISPLAY F_ELIMCESP
|
|
OUTPUT F_RIL_QUOT CODCAUS
|
|
OUTPUT F_D_RIL_QUOT DESCR
|
|
ADD RUN CG0 -4
|
|
CHECKTYPE REQUIRED
|
|
GROUP 9
|
|
END
|
|
|
|
STRING F_D_RIL_QUOT 50 35
|
|
BEGIN
|
|
PROMPT 40 11 ""
|
|
COPY USE F_D_ELIMCESP
|
|
INPUT DESCR F_D_RIL_QUOT
|
|
COPY DISPLAY F_D_ELIMCESP
|
|
COPY OUTPUT F_RIL_QUOT
|
|
ADD RUN CG0 -4
|
|
CHECKTYPE REQUIRED
|
|
GROUP 9
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 78 7
|
|
BEGIN
|
|
PROMPT 1 12 ""
|
|
FLAGS "R"
|
|
END
|
|
|
|
TEXT -1
|
|
BEGIN
|
|
PROMPT 25 13 "@BGr."
|
|
END
|
|
|
|
TEXT -1
|
|
BEGIN
|
|
PROMPT 31 13 "@BCo."
|
|
END
|
|
|
|
TEXT -1
|
|
BEGIN
|
|
PROMPT 37 13 "@BSottoc."
|
|
END
|
|
|
|
TEXT -1
|
|
BEGIN
|
|
PROMPT 46 13 "@BDescrizione"
|
|
END
|
|
|
|
NUMBER F_SOPR_PAS_GR 3
|
|
BEGIN
|
|
PROMPT 2 14 "Sopravvenienze passive "
|
|
FIELD GRCOTELI
|
|
FLAGS "R"
|
|
USE LF_PCON KEY 1 SELECT CONTO=""
|
|
INPUT GRUPPO F_SOPR_PAS_GR
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Descrizione@50" DESCR
|
|
OUTPUT F_SOPR_PAS_GR GRUPPO
|
|
ADD RUN CG0 -0
|
|
CHECKTYPE REQUIRED
|
|
GROUP 9
|
|
END
|
|
|
|
NUMBER F_SOPR_PAS_CO 3
|
|
BEGIN
|
|
PROMPT 31 14 ""
|
|
FIELD COCOTELI
|
|
FLAGS "R"
|
|
USE LF_PCON KEY 1 SELECT ((CONTO!="")&&(SOTTOCONTO=""))
|
|
COPY INPUT F_SOPR_PAS_GR
|
|
INPUT CONTO F_SOPR_PAS_CO
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
DISPLAY "Descrizione@50" DESCR
|
|
OUTPUT F_SOPR_PAS_GR GRUPPO
|
|
OUTPUT F_SOPR_PAS_CO CONTO
|
|
ADD RUN CG0 -0
|
|
CHECKTYPE REQUIRED
|
|
VALIDATE REQIF_FUNC 1 F_SOPR_PAS_SO
|
|
WARNING "Manca il conto"
|
|
GROUP 9
|
|
END
|
|
|
|
NUMBER F_SOPR_PAS_SO 6
|
|
BEGIN
|
|
PROMPT 37 14 ""
|
|
FIELD SOCOTELI
|
|
FLAGS "R"
|
|
USE LF_PCON KEY 1 SELECT SOTTOCONTO!=""
|
|
COPY INPUT F_SOPR_PAS_CO
|
|
INPUT SOTTOCONTO F_SOPR_PAS_SO
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
DISPLAY "Sottoconto" SOTTOCONTO
|
|
DISPLAY "Sosp." SOSPESO
|
|
DISPLAY "Descrizione@50" DESCR
|
|
OUTPUT F_SOPR_PAS_SO SOTTOCONTO
|
|
OUTPUT F_SOPR_PAS_GR GRUPPO
|
|
OUTPUT F_SOPR_PAS_CO CONTO
|
|
OUTPUT F_SOPR_PAS_D DESCR
|
|
ADD RUN CG0 -0
|
|
CHECKTYPE REQUIRED
|
|
GROUP 9
|
|
END
|
|
|
|
STRING F_SOPR_PAS_D 50 29
|
|
BEGIN
|
|
PROMPT 46 14 ""
|
|
USE LF_PCON KEY 2 SELECT SOTTOCONTO!=""
|
|
INPUT DESCR F_SOPR_PAS_D
|
|
DISPLAY "Descrizione@50" DESCR
|
|
DISPLAY "Sosp." SOSPESO
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
DISPLAY "Sottoconto" SOTTOCONTO
|
|
COPY OUTPUT F_SOPR_PAS_SO
|
|
ADD RUN CG0 -0
|
|
CHECKTYPE REQUIRED
|
|
WARNING "Manca la descrizione"
|
|
GROUP 9
|
|
END
|
|
|
|
NUMBER F_PLUSVAL_GR 3
|
|
BEGIN
|
|
PROMPT 2 15 "Plusvalenze "
|
|
FIELD GRCOTPLU
|
|
FLAGS "R"
|
|
COPY USE F_SOPR_PAS_GR
|
|
INPUT GRUPPO F_PLUSVAL_GR
|
|
COPY DISPLAY F_SOPR_PAS_GR
|
|
OUTPUT F_PLUSVAL_GR GRUPPO
|
|
ADD RUN CG0 -0
|
|
CHECKTYPE NORMAL
|
|
GROUP 9
|
|
END
|
|
|
|
NUMBER F_PLUSVAL_CO 3
|
|
BEGIN
|
|
PROMPT 31 15 ""
|
|
FIELD COCOTPLU
|
|
FLAGS "R"
|
|
USE LF_PCON KEY 1 SELECT ((CONTO!="")&&(SOTTOCONTO="")&&(INDBIL==4))
|
|
COPY INPUT F_PLUSVAL_GR
|
|
INPUT CONTO F_PLUSVAL_CO
|
|
COPY DISPLAY F_SOPR_PAS_CO
|
|
OUTPUT F_PLUSVAL_GR GRUPPO
|
|
OUTPUT F_PLUSVAL_CO CONTO
|
|
ADD RUN CG0 -0
|
|
CHECKTYPE NORMAL
|
|
VALIDATE REQIF_FUNC 1 F_PLUSVAL_SO
|
|
WARNING "Manca il conto"
|
|
GROUP 9
|
|
END
|
|
|
|
NUMBER F_PLUSVAL_SO 6
|
|
BEGIN
|
|
PROMPT 37 15 ""
|
|
FIELD SOCOTPLU
|
|
FLAGS "R"
|
|
COPY USE F_SOPR_PAS_SO
|
|
INPUT GRUPPO F_PLUSVAL_GR SELECT
|
|
INPUT CONTO F_PLUSVAL_CO SELECT
|
|
INPUT SOTTOCONTO F_PLUSVAL_SO
|
|
COPY DISPLAY F_SOPR_PAS_SO
|
|
OUTPUT F_PLUSVAL_SO SOTTOCONTO
|
|
OUTPUT F_PLUSVAL_GR GRUPPO
|
|
OUTPUT F_PLUSVAL_CO CONTO
|
|
OUTPUT F_PLUSVAL_D DESCR
|
|
ADD RUN CG0 -0
|
|
CHECKTYPE NORMAL
|
|
GROUP 9
|
|
END
|
|
|
|
STRING F_PLUSVAL_D 50 29
|
|
BEGIN
|
|
PROMPT 46 15 ""
|
|
USE LF_PCON KEY 2
|
|
INPUT DESCR F_PLUSVAL_D
|
|
COPY DISPLAY F_SOPR_PAS_D
|
|
COPY OUTPUT F_PLUSVAL_SO
|
|
ADD RUN CG0 -0
|
|
CHECKTYPE NORMAL
|
|
WARNING "Manca la descrizione"
|
|
GROUP 9
|
|
END
|
|
|
|
NUMBER F_MINUSVAL_GR 3
|
|
BEGIN
|
|
PROMPT 2 16 "Minusvalenze "
|
|
FIELD GRCOTMIN
|
|
FLAGS "R"
|
|
COPY USE F_SOPR_PAS_GR
|
|
INPUT GRUPPO F_MINUSVAL_GR
|
|
COPY DISPLAY F_SOPR_PAS_GR
|
|
OUTPUT F_MINUSVAL_GR GRUPPO
|
|
ADD RUN CG0 -0
|
|
CHECKTYPE NORMAL
|
|
GROUP 9
|
|
END
|
|
|
|
NUMBER F_MINUSVAL_CO 3
|
|
BEGIN
|
|
PROMPT 31 16 ""
|
|
FIELD COCOTMIN
|
|
FLAGS "R"
|
|
USE LF_PCON KEY 1 SELECT ((CONTO!="")&&(SOTTOCONTO="")&&(INDBIL==3))
|
|
COPY INPUT F_MINUSVAL_GR
|
|
INPUT CONTO F_MINUSVAL_CO
|
|
COPY DISPLAY F_SOPR_PAS_CO
|
|
OUTPUT F_MINUSVAL_GR GRUPPO
|
|
OUTPUT F_MINUSVAL_CO CONTO
|
|
ADD RUN CG0 -0
|
|
CHECKTYPE NORMAL
|
|
VALIDATE REQIF_FUNC 1 F_MINUSVAL_SO
|
|
WARNING "Manca il conto"
|
|
GROUP 9
|
|
END
|
|
|
|
NUMBER F_MINUSVAL_SO 6
|
|
BEGIN
|
|
PROMPT 37 16 ""
|
|
FIELD SOCOTMIN
|
|
FLAGS "R"
|
|
COPY USE F_SOPR_PAS_SO
|
|
INPUT GRUPPO F_MINUSVAL_GR SELECT
|
|
INPUT CONTO F_MINUSVAL_CO SELECT
|
|
INPUT SOTTOCONTO F_MINUSVAL_SO
|
|
COPY DISPLAY F_SOPR_PAS_SO
|
|
OUTPUT F_MINUSVAL_SO SOTTOCONTO
|
|
OUTPUT F_MINUSVAL_GR GRUPPO
|
|
OUTPUT F_MINUSVAL_CO CONTO
|
|
OUTPUT F_MINUSVAL_D DESCR
|
|
ADD RUN CG0 -0
|
|
CHECKTYPE NORMAL
|
|
GROUP 9
|
|
END
|
|
|
|
STRING F_MINUSVAL_D 50 29
|
|
BEGIN
|
|
PROMPT 46 16 ""
|
|
USE LF_PCON KEY 2
|
|
INPUT DESCR F_MINUSVAL_D
|
|
COPY DISPLAY F_SOPR_PAS_D
|
|
COPY OUTPUT F_MINUSVAL_SO
|
|
ADD RUN CG0 -0
|
|
CHECKTYPE NORMAL
|
|
WARNING "Manca la descrizione"
|
|
GROUP 9
|
|
END
|
|
|
|
NUMBER F_VEND_CESP_GR 3
|
|
BEGIN
|
|
PROMPT 2 17 "Vendite cespiti "
|
|
FIELD GRCOTVEN
|
|
FLAGS "R"
|
|
COPY USE F_SOPR_PAS_GR
|
|
INPUT GRUPPO F_VEND_CESP_GR
|
|
COPY DISPLAY F_SOPR_PAS_GR
|
|
OUTPUT F_VEND_CESP_GR GRUPPO
|
|
ADD RUN CG0 -0
|
|
CHECKTYPE REQUIRED
|
|
GROUP 9
|
|
END
|
|
|
|
NUMBER F_VEND_CESP_CO 3
|
|
BEGIN
|
|
PROMPT 31 17 ""
|
|
FIELD COCOTVEN
|
|
FLAGS "R"
|
|
COPY USE F_SOPR_PAS_CO
|
|
COPY INPUT F_VEND_CESP_GR
|
|
INPUT CONTO F_VEND_CESP_CO
|
|
COPY DISPLAY F_SOPR_PAS_CO
|
|
OUTPUT F_VEND_CESP_GR GRUPPO
|
|
OUTPUT F_VEND_CESP_CO CONTO
|
|
ADD RUN CG0 -0
|
|
CHECKTYPE REQUIRED
|
|
VALIDATE REQIF_FUNC 1 F_VEND_CESP_SO
|
|
WARNING "Manca il conto"
|
|
GROUP 9
|
|
END
|
|
|
|
NUMBER F_VEND_CESP_SO 6
|
|
BEGIN
|
|
PROMPT 37 17 ""
|
|
FIELD SOCOTVEN
|
|
FLAGS "R"
|
|
COPY USE F_SOPR_PAS_SO
|
|
COPY INPUT F_VEND_CESP_CO
|
|
INPUT SOTTOCONTO F_VEND_CESP_SO
|
|
COPY DISPLAY F_SOPR_PAS_SO
|
|
OUTPUT F_VEND_CESP_SO SOTTOCONTO
|
|
OUTPUT F_VEND_CESP_GR GRUPPO
|
|
OUTPUT F_VEND_CESP_CO CONTO
|
|
OUTPUT F_VEND_CESP_D DESCR
|
|
ADD RUN CG0 -0
|
|
CHECKTYPE REQUIRED
|
|
GROUP 9
|
|
END
|
|
|
|
STRING F_VEND_CESP_D 50 29
|
|
BEGIN
|
|
PROMPT 46 17 ""
|
|
USE LF_PCON KEY 2
|
|
INPUT DESCR F_VEND_CESP_D
|
|
COPY DISPLAY F_SOPR_PAS_D
|
|
COPY OUTPUT F_VEND_CESP_SO
|
|
ADD RUN CG0 -0
|
|
CHECKTYPE REQUIRED
|
|
WARNING "Manca la descrizione"
|
|
GROUP 9
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|
|
|
|
//------------------------------------------------------------------------------------------------
|
|
//-----------Pagina di riga dello sheet----------------------//
|
|
|
|
PAGE "File personalizzato" -1 -1 66 10
|
|
|
|
STRING F_NAME_USER 10
|
|
BEGIN
|
|
PROMPT 1 1 "Nome "
|
|
FIELD USER_NAME
|
|
FLAGS "BU"
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
STRING F_PROMPT_USER 20
|
|
BEGIN
|
|
PROMPT 1 2 "Prompt "
|
|
FIELD USER_PROMPT
|
|
END
|
|
|
|
STRING F_PICTURE_USER 50
|
|
BEGIN
|
|
PROMPT 1 3 "Picture "
|
|
FIELD USER_PICTURE
|
|
FLAGS "U"
|
|
END
|
|
|
|
BOOLEAN F_SEARCH_USER
|
|
BEGIN
|
|
PROMPT 1 4 "Campo di ricerca"
|
|
FIELD USER_SEARCH
|
|
END
|
|
|
|
BUTTON DLG_OK 10 2
|
|
BEGIN
|
|
PROMPT -13 -1 ""
|
|
END
|
|
|
|
BUTTON DLG_DELREC 10 2
|
|
BEGIN
|
|
PROMPT -23 -1 ""
|
|
END
|
|
|
|
BUTTON DLG_CANCEL 10 2
|
|
BEGIN
|
|
PROMPT -33 -1 ""
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|