b5807f1c53
Files correlati : ps0713 Commento : Aggiunti controlli campi nuovi, spostato cambio pagina dopo testFields == true git-svn-id: svn://10.65.10.50/branches/R_10_00@23867 c028cbd2-c16b-5b4b-a496-9718f37d4682
400 lines
6.6 KiB
Plaintext
400 lines
6.6 KiB
Plaintext
#include "ps0713800a.h"
|
|
|
|
TOOLBAR "topbar" 0 0 0 2
|
|
|
|
BUTTON DLG_OK 2 2
|
|
BEGIN
|
|
PROMPT 1 1 "Elabora"
|
|
PICTURE TOOL_ELABORA
|
|
END
|
|
|
|
BUTTON DLG_RECALC 2 2
|
|
BEGIN
|
|
PROMPT 1 1 "Aggiorna"
|
|
PICTURE TOOL_CONVERT
|
|
END
|
|
|
|
#include <helpbar.h>
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Filtri" -1 -1 80 10
|
|
|
|
STRING F_PATH 255 45
|
|
BEGIN
|
|
PROMPT 0 1 "Cartella "
|
|
DSELECT
|
|
CHECKTYPE REQUIRED
|
|
FLAGS "M"
|
|
END
|
|
|
|
STRING F_NAME 30
|
|
BEGIN
|
|
PROMPT 60 1 "File "
|
|
FLAGS "D"
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
DATE F_DADATAREG
|
|
BEGIN
|
|
PROMPT 0 2 "Da data Reg. "
|
|
END
|
|
|
|
DATE F_ADATAREG
|
|
BEGIN
|
|
PROMPT 25 2 "A data Reg. "
|
|
END
|
|
|
|
DATE F_DADATAFATT
|
|
BEGIN
|
|
PROMPT 0 3 "Da data Fatt."
|
|
END
|
|
|
|
DATE F_ADATAFATT
|
|
BEGIN
|
|
PROMPT 25 3 "A data Fatt."
|
|
END
|
|
|
|
DATE F_DADATAPAG
|
|
BEGIN
|
|
PROMPT 0 4 "Da data Pag. "
|
|
END
|
|
|
|
DATE F_ADATAPAG
|
|
BEGIN
|
|
PROMPT 25 4 "A data Pag. "
|
|
END
|
|
|
|
BOOLEAN B_DAFORNITORE
|
|
BEGIN
|
|
PROMPT 0 5 "Da Fornitore"
|
|
END
|
|
|
|
NUMBER F_DACODCF 6
|
|
BEGIN
|
|
PROMPT 15 5 "Codice:"
|
|
USE LF_CLIFO
|
|
INPUT TIPOCF "F" SELECT
|
|
INPUT CODCF F_DACODCF
|
|
DISPLAY "Codice" CODCF
|
|
DISPLAY "Ragione Sociale@50" RAGSOC
|
|
DISPLAY "Occasionale@C" OCCAS
|
|
DISPLAY "Codice Fiscale@16" COFI
|
|
DISPLAY "Partita IVA@15" PAIV
|
|
OUTPUT F_DACODCF CODCF
|
|
OUTPUT F_DARAGSOC RAGSOC
|
|
CHEKTYPE NORMAL
|
|
GROUP 1
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_DARAGSOC 50 30
|
|
BEGIN
|
|
PROMPT 31 5 "R.Soc: "
|
|
USE LF_CLIFO KEY 2
|
|
INPUT TIPOCF "F" SELECT
|
|
INPUT RAGSOC F_DARAGSOC
|
|
DISPLAY "Ragione Sociale@50" RAGSOC
|
|
DISPLAY "Codice" CODCF
|
|
DISPLAY "Codice Fiscale@16" COFI
|
|
DISPLAY "Partita IVA@15" PAIV
|
|
COPY OUTPUT F_DACODCF
|
|
ADD RUN CG0 -1
|
|
GROUP 1
|
|
FLAGS "D"
|
|
END
|
|
|
|
BOOLEAN B_AFORNITORE
|
|
BEGIN
|
|
PROMPT 0 6 "A Fornitore"
|
|
END
|
|
|
|
NUMBER F_ACODCF 6
|
|
BEGIN
|
|
PROMPT 15 6 "Codice:"
|
|
USE LF_CLIFO
|
|
INPUT TIPOCF "F" SELECT
|
|
INPUT CODCF F_ACODCF
|
|
DISPLAY "Codice" CODCF
|
|
DISPLAY "Ragione Sociale@50" RAGSOC
|
|
DISPLAY "Occasionale@C" OCCAS
|
|
DISPLAY "Codice Fiscale@16" COFI
|
|
DISPLAY "Partita IVA@15" PAIV
|
|
OUTPUT F_ACODCF CODCF
|
|
OUTPUT F_ARAGSOC RAGSOC
|
|
CHEKTYPE NORMAL
|
|
GROUP 1
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_ARAGSOC 50 30
|
|
BEGIN
|
|
PROMPT 31 6 "R.Soc: "
|
|
USE LF_CLIFO KEY 2
|
|
INPUT TIPOCF "F" SELECT
|
|
INPUT RAGSOC F_ARAGSOC
|
|
DISPLAY "Ragione Sociale@50" RAGSOC
|
|
DISPLAY "Codice" CODCF
|
|
DISPLAY "Codice Fiscale@16" COFI
|
|
DISPLAY "Partita IVA@15" PAIV
|
|
COPY OUTPUT F_ACODCF
|
|
ADD RUN CG0 -1
|
|
GROUP 1
|
|
FLAGS "D"
|
|
END
|
|
|
|
BOOLEAN B_DAGCS
|
|
BEGIN
|
|
PROMPT 0 7 ""
|
|
END
|
|
|
|
NUMBER F_DAGRUPPO 3
|
|
BEGIN
|
|
PROMPT 3 7 "Da Gruppo: "
|
|
USE LF_PCON SELECT (CONTO="")
|
|
INPUT GRUPPO F_DAGRUPPO
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Descrizione@50" DESCR
|
|
OUTPUT F_DAGRUPPO GRUPPO
|
|
CHECKTYPE REQUIRED
|
|
WARNING "Gruppo assente"
|
|
FLAGS "D"
|
|
END
|
|
|
|
NUMBER F_DACONTO 3
|
|
BEGIN
|
|
PROMPT 20 7 "Conto: "
|
|
USE LF_PCON SELECT (CONTO!="")&&(SOTTOCONTO="")
|
|
INPUT GRUPPO F_DAGRUPPO
|
|
INPUT CONTO F_DACONTO
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
DISPLAY "Tipo" TMCF
|
|
DISPLAY "Descrizione@50" DESCR
|
|
OUTPUT F_DACONTO CONTO
|
|
OUTPUT F_DAGRUPPO GRUPPO
|
|
CHECKTYPE REQUIRED
|
|
WARNING "Conto assente"
|
|
FLAGS "D"
|
|
END
|
|
|
|
NUMBER F_DASOTTOCONTO 6
|
|
BEGIN
|
|
PROMPT 40 7 "Sottoconto: "
|
|
USE LF_PCON SELECT (SOTTOCONTO!="")
|
|
COPY INPUT F_DACONTO
|
|
INPUT SOTTOCONTO F_DASOTTOCONTO
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
DISPLAY "Sottoconto" SOTTOCONTO
|
|
DISPLAY "Descrizione@50" DESCR
|
|
OUTPUT F_DASOTTOCONTO SOTTOCONTO
|
|
OUTPUT F_DAGRUPPO GRUPPO
|
|
OUTPUT F_DACONTO CONTO
|
|
CHECKTYPE REQUIRED
|
|
WARNING "Sottoconto assente"
|
|
FLAGS "D"
|
|
END
|
|
|
|
BOOLEAN B_AGCS
|
|
BEGIN
|
|
PROMPT 0 8 ""
|
|
END
|
|
|
|
NUMBER F_AGRUPPO 3
|
|
BEGIN
|
|
PROMPT 3 8 "A Gruppo: "
|
|
USE LF_PCON SELECT (CONTO="")
|
|
INPUT GRUPPO F_AGRUPPO
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Descrizione@50" DESCR
|
|
OUTPUT F_AGRUPPO GRUPPO
|
|
CHECKTYPE REQUIRED
|
|
WARNING "Gruppo assente"
|
|
FLAGS "D"
|
|
END
|
|
|
|
NUMBER F_ACONTO 3
|
|
BEGIN
|
|
PROMPT 20 8 "Conto: "
|
|
USE LF_PCON SELECT (CONTO!="")&&(SOTTOCONTO="")
|
|
INPUT GRUPPO F_AGRUPPO
|
|
INPUT CONTO F_ACONTO
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
DISPLAY "Tipo" TMCF
|
|
DISPLAY "Descrizione@50" DESCR
|
|
OUTPUT F_ACONTO CONTO
|
|
OUTPUT F_AGRUPPO GRUPPO
|
|
CHECKTYPE REQUIRED
|
|
WARNING "Conto assente"
|
|
FLAGS "D"
|
|
END
|
|
|
|
NUMBER F_ASOTTOCONTO 6
|
|
BEGIN
|
|
PROMPT 40 8 "Sottoconto: "
|
|
USE LF_PCON SELECT (SOTTOCONTO!="")
|
|
COPY INPUT F_ACONTO
|
|
INPUT SOTTOCONTO F_ASOTTOCONTO
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
DISPLAY "Sottoconto" SOTTOCONTO
|
|
DISPLAY "Descrizione@50" DESCR
|
|
OUTPUT F_ASOTTOCONTO SOTTOCONTO
|
|
OUTPUT F_AGRUPPO GRUPPO
|
|
OUTPUT F_ACONTO CONTO
|
|
CHECKTYPE REQUIRED
|
|
WARNING "Sottoconto assente"
|
|
FLAGS "D"
|
|
END
|
|
|
|
NUMBER F_DAIMPORTO 18 2
|
|
BEGIN
|
|
PROMPT 0 9 "Da Importo:"
|
|
END
|
|
|
|
NUMBER F_AIMPORTO 18 2
|
|
BEGIN
|
|
PROMPT 35 9 "A Importo:"
|
|
END
|
|
|
|
|
|
BOOLEAN B_PRTAPE
|
|
BEGIN
|
|
PROMPT 0 10 "Fatt. da Pagare"
|
|
END
|
|
|
|
BOOLEAN B_PRTCHIU
|
|
BEGIN
|
|
PROMPT 20 10 "Fatt. Pagate"
|
|
END
|
|
|
|
BOOLEAN B_SOLRITFIS
|
|
BEGIN
|
|
PROMPT 40 10 "Filtra Rit. Acconto"
|
|
END
|
|
|
|
BOOLEAN B_SOLNONINV
|
|
BEGIN
|
|
PROMPT 70 10 "Escludi Pag. Inviati"
|
|
END
|
|
|
|
|
|
RADIOBUTTON F_JOB 15
|
|
BEGIN
|
|
PROMPT 70 2 "ID lavoro"
|
|
ITEM "1|SI"
|
|
ITEM "2|NO"
|
|
FLAGS "Z"
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Risultati" -1 -1 80 10
|
|
|
|
SPREADSHEET S_RESULT
|
|
BEGIN
|
|
PROMPT 0 0 ""
|
|
ITEM "Data\nRegistrazione@10"
|
|
ITEM "ID Lavoro@10"
|
|
ITEM "Cod.\nFornitore@8"
|
|
ITEM "Rag. Soc.@30"
|
|
ITEM "Importo@10"
|
|
ITEM "Rit.Fis@10"
|
|
ITEM "Totale@10"
|
|
ITEM "Data\ndocumento@10"
|
|
ITEM "Numero\ndocumento@10"
|
|
ITEM "Data pagamento@10"
|
|
ITEM "Gruppo@5"
|
|
ITEM "Conto@5"
|
|
ITEM "Sottoconto@10"
|
|
DEFAULT "*" // Impedisce il salvataggio su profilo .ini
|
|
END
|
|
|
|
ENDPAGE
|
|
ENDMASK
|
|
|
|
PAGE "Riga" -1 -1 69 10
|
|
|
|
DATE A_DATAREG
|
|
BEGIN
|
|
PROMPT 1 0 "Data registrazione"
|
|
FLAGS "D"
|
|
END
|
|
|
|
NUMBER A_IDLAVORO 7
|
|
BEGIN
|
|
PROMPT 1 0 "N.Movimento"
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING A_CODF 6
|
|
BEGIN
|
|
PROMPT 1 0 "Codice Fornitore"
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING A_RAGSOC 50
|
|
BEGIN
|
|
PROMPT 1 0 "Rag.Soc."
|
|
FLAGS "D"
|
|
END
|
|
|
|
NUMBER A_IMPORTO 18 3
|
|
BEGIN
|
|
PROMPT 1 0 "Importo"
|
|
FLAGS "D"
|
|
END
|
|
|
|
NUMBER A_RITFIS 18 3
|
|
BEGIN
|
|
PROMPT 1 0 "Ritenute Fiscali"
|
|
FLAGS "D"
|
|
END
|
|
|
|
NUMBER A_TOTALE 18 3
|
|
BEGIN
|
|
PROMPT 1 0 "Totale Documento"
|
|
FLAGS "D"
|
|
END
|
|
|
|
DATE A_DATADOC
|
|
BEGIN
|
|
PROMPT 1 0 "Data Documento"
|
|
FLAGS "D"
|
|
END
|
|
|
|
STING A_NUMDOC 7
|
|
BEGIN
|
|
PROMPT 1 0 "Numero Documento"
|
|
FLAGS "D"
|
|
END
|
|
|
|
DATE A_DATAPAG
|
|
BEGIN
|
|
PROMPT 1 0 "Data pagamento documento"
|
|
FLAGS "D"
|
|
END
|
|
|
|
NUMBER A_GRUPPO 3
|
|
BEGIN
|
|
PROMPT 1 0 "Gruppo"
|
|
FLAGS "D"
|
|
END
|
|
|
|
NUMBER A_CONTO 3
|
|
BEGIN
|
|
PROMPT 1 0 "Conto"
|
|
FLAGS "D"
|
|
END
|
|
|
|
NUMBER A_SOTTOCONTO 6
|
|
BEGIN
|
|
PROMPT 1 0 "Sottoconto"
|
|
FLAGS "D"
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK |