9b29908760
Files correlati : Commento : Nuova personalizzazione ATS, consente di eportare su file i dati IVA. Questo programma è un evoluzione di ps0713100 con l'aggiunta di filtri e sheet per visualizzare in anteprima i dati da esportare git-svn-id: svn://10.65.10.50/branches/R_10_00@23690 c028cbd2-c16b-5b4b-a496-9718f37d4682
203 lines
2.9 KiB
Plaintext
203 lines
2.9 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 "Trasferimento dati IVA per ATS" -1 -1 80 10
|
|
|
|
STRING DLG_PROFILE 50
|
|
BEGIN
|
|
PROMPT 9 -12 "Profilo "
|
|
PSELECT
|
|
FLAGS "H"
|
|
END
|
|
|
|
STRING F_PATH 255 45
|
|
BEGIN
|
|
PROMPT 0 1 "Cartella "
|
|
DSELECT
|
|
CHECKTYPE REQUIRED
|
|
FLAGS "M"
|
|
FIELD PATH
|
|
END
|
|
|
|
STRING F_NAME 30
|
|
BEGIN
|
|
PROMPT 60 1 "File "
|
|
FLAGS "D"
|
|
CHECKTYPE NORMAL
|
|
FIELD NAME
|
|
END
|
|
|
|
DATE F_DADATA
|
|
BEGIN
|
|
PROMPT 0 2 "Da data "
|
|
CHECKTYPE REQUIRED
|
|
FIELD ADATA
|
|
END
|
|
|
|
DATE F_ADATA
|
|
BEGIN
|
|
PROMPT 20 2 "A data "
|
|
CHECKTYPE REQUIRED
|
|
FIELD ADATA
|
|
END
|
|
|
|
RADIOBUTTON F_JOB 12
|
|
BEGIN
|
|
PROMPT 70 2 "ID lavoro"
|
|
ITEM "1|SI"
|
|
ITEM "2|NO"
|
|
FLAGS "Z"
|
|
END
|
|
|
|
BOOLEAN B_FORNITORE
|
|
BEGIN
|
|
PROMPT 0 3 "Fornitore"
|
|
END
|
|
|
|
NUMBER F_CODCF 6
|
|
BEGIN
|
|
PROMPT 14 3 "Codice:"
|
|
USE LF_CLIFO
|
|
INPUT TIPOCF "F" SELECT
|
|
INPUT CODCF F_CODCF
|
|
DISPLAY "Codice" CODCF
|
|
DISPLAY "Ragione Sociale@50" RAGSOC
|
|
DISPLAY "Occasionale@C" OCCAS
|
|
DISPLAY "Codice Fiscale@16" COFI
|
|
DISPLAY "Partita IVA@15" PAIV
|
|
OUTPUT F_CODCF CODCF
|
|
OUTPUT F_RAGSOC RAGSOC
|
|
CHEKTYPE NORMAL
|
|
GROUP 1
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_RAGSOC 50 30
|
|
BEGIN
|
|
PROMPT 30 3 "R.Soc: "
|
|
USE LF_CLIFO KEY 2
|
|
INPUT TIPOCF "F" SELECT
|
|
INPUT RAGSOC F_RAGSOC
|
|
DISPLAY "Ragione Sociale@50" RAGSOC
|
|
DISPLAY "Codice" CODCF
|
|
DISPLAY "Codice Fiscale@16" COFI
|
|
DISPLAY "Partita IVA@15" PAIV
|
|
COPY OUTPUT F_CODCF
|
|
ADD RUN CG0 -1
|
|
GROUP 1
|
|
FLAGS "D"
|
|
END
|
|
|
|
BOOLEAN B_PRTAPE
|
|
BEGIN
|
|
PROMPT 0 4 "Partita aperta"
|
|
END
|
|
|
|
BOOLEAN B_PRTCHIU
|
|
BEGIN
|
|
PROMPT 20 4 "Partita chiusa"
|
|
END
|
|
|
|
SPREADSHEET S_RESULT
|
|
BEGIN
|
|
PROMPT 0 5 ""
|
|
ITEM "ID Lavoro@10"
|
|
ITEM "Cod.\nFornitore@8"
|
|
ITEM "Rag. Soc.@30"
|
|
ITEM "Importo@10"
|
|
ITEM "Data\ndocumento@10"
|
|
ITEM "Numero\ndocumento@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
|
|
|
|
NUMBER A_IDLAVORO 7
|
|
BEGIN
|
|
PROMPT 1 0 "N.Movimento"
|
|
FLAGS "D"
|
|
FIELD PROGR
|
|
END
|
|
|
|
STRING A_CODF 6
|
|
BEGIN
|
|
PROMPT 1 0 "Codice Fornitore"
|
|
FLAGS "D"
|
|
FIELD PROGR
|
|
END
|
|
|
|
STRING A_RAGSOC 50
|
|
BEGIN
|
|
PROMPT 1 0 "Rag.Soc."
|
|
FLAGS "D"
|
|
FIELD PROGR
|
|
END
|
|
|
|
NUMBER A_IMPORTO 18 3
|
|
BEGIN
|
|
PROMPT 1 0 "Importo"
|
|
FLAGS "D"
|
|
FIELD PROGR
|
|
END
|
|
|
|
DATE A_DATADOC
|
|
BEGIN
|
|
PROMPT 1 0 "Data Documento"
|
|
FLAGS "D"
|
|
FIELD PROGR
|
|
END
|
|
|
|
STING A_NUMDOC 7
|
|
BEGIN
|
|
PROMPT 1 0 "Numero Documento"
|
|
FLAGS "D"
|
|
FIELD PROGR
|
|
END
|
|
|
|
NUMBER A_GRUPPO 3
|
|
BEGIN
|
|
PROMPT 1 0 "Gruppo"
|
|
FLAGS "D"
|
|
FIELD PROGR
|
|
END
|
|
|
|
NUMBER A_CONTO 3
|
|
BEGIN
|
|
PROMPT 1 0 "Conto"
|
|
FLAGS "D"
|
|
FIELD PROGR
|
|
END
|
|
|
|
NUMBER A_SOTTOCONTO 6
|
|
BEGIN
|
|
PROMPT 1 0 "Sottoconto"
|
|
FLAGS "D"
|
|
FIELD PROGR
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK |