467 lines
7.3 KiB
Plaintext
467 lines
7.3 KiB
Plaintext
|
#include "fp0200a.h"
|
|||
|
|
|
|||
|
|
TOOLBAR "topbar" 0 0 0 2
|
|||
|
|
BUTTON DLG_RECALC 2 2
|
|||
|
|
BEGIN
|
|||
|
|
PROMPT 1 1 "Carica"
|
|||
|
|
PICTURE TOOL_CONVERT
|
|||
|
|
END
|
|||
|
|
|
|||
|
|
BUTTON DLG_ARCHIVE 2 2
|
|||
|
|
BEGIN
|
|||
|
|
PROMPT 2 1 "Controlla"
|
|||
|
|
PICTURE TOOL_SMILE
|
|||
|
|
END
|
|||
|
|
|
|||
|
|
BUTTON DLG_SAVEREC 2 2
|
|||
|
|
BEGIN
|
|||
|
|
PROMPT 3 1 "Salva"
|
|||
|
|
PICTURE TOOL_SAVEREC
|
|||
|
|
END
|
|||
|
|
|
|||
|
|
BUTTON DLG_EDIT 10 2
|
|||
|
|
BEGIN
|
|||
|
|
PROMPT 3 1 "E~xcel"
|
|||
|
|
PICTURE TOOL_EXCEL
|
|||
|
|
END
|
|||
|
|
|
|||
|
|
BUTTON DLG_OK 2 2
|
|||
|
|
BEGIN
|
|||
|
|
PROMPT 1 1 "Esporta"
|
|||
|
|
PICTURE TOOL_ELABORA
|
|||
|
|
END
|
|||
|
|
|
|||
|
|
BUTTON DLG_EMAIL 2 2
|
|||
|
|
BEGIN
|
|||
|
|
PROMPT 1 1 "Crea XML"
|
|||
|
|
PICTURE TOOL_EMAIL
|
|||
|
|
END
|
|||
|
|
|
|||
|
|
#include <helpbar.h>
|
|||
|
|
ENDPAGE
|
|||
|
|
|
|||
|
|
PAGE "Impostazioni" 0 2 0 0
|
|||
|
|
|
|||
|
|
DATE F_DATAINI
|
|||
|
|
BEGIN
|
|||
|
|
PROMPT 1 1 "Data iniziale:"
|
|||
|
|
CHECKTYPE REQUIRED
|
|||
|
|
VALIDATE DATE_CMP_FUNC <= F_DATAFIN
|
|||
|
|
WARNING "La data iniziale non pu<70> essere maggiore della data finale"
|
|||
|
|
END
|
|||
|
|
|
|||
|
|
DATE F_DATAFIN
|
|||
|
|
BEGIN
|
|||
|
|
PROMPT 40 1 "Data Finale: "
|
|||
|
|
CHECKTYPE REQUIRED
|
|||
|
|
VALIDATE DATE_CMP_FUNC >= F_DATAINI
|
|||
|
|
WARNING "La data finale non pu<70> essere minore della data iniziale"
|
|||
|
|
END
|
|||
|
|
|
|||
|
|
RADIOBUTTON F_TIPOCF 15
|
|||
|
|
BEGIN
|
|||
|
|
PROMPT 1 2 "Tipo C/F"
|
|||
|
|
ITEM "C|Cliente"
|
|||
|
|
ITEM "F|Fornitore"
|
|||
|
|
END
|
|||
|
|
|
|||
|
|
NUMBER F_CODCF 6
|
|||
|
|
BEGIN
|
|||
|
|
PROMPT 18 3 "Codice:"
|
|||
|
|
USE LF_CLIFO
|
|||
|
|
INPUT TIPOCF F_TIPOCF 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 ""
|
|||
|
|
END
|
|||
|
|
|
|||
|
|
STRING F_RAGSOC 50 49
|
|||
|
|
BEGIN
|
|||
|
|
PROMPT 18 4 "R.Soc: "
|
|||
|
|
USE LF_CLIFO KEY 2
|
|||
|
|
INPUT TIPOCF F_TIPOCF 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 ""
|
|||
|
|
END
|
|||
|
|
|
|||
|
|
|
|||
|
|
RADIOBUTTON F_FATTSEL 25
|
|||
|
|
BEGIN
|
|||
|
|
PROMPT 1 6 "Fatture da visualizzare"
|
|||
|
|
ITEM "0|Da inviare"
|
|||
|
|
ITEM "1|Inviate"
|
|||
|
|
ITEM "2|Mai elaborati"
|
|||
|
|
ITEM "3|Forzate"
|
|||
|
|
ITEM "4|Errate"
|
|||
|
|
ITEM "5|Disabilitate"
|
|||
|
|
ITEM "6|Tutti"
|
|||
|
|
END
|
|||
|
|
|
|||
|
|
GROUPBOX DLG_NULL 65 5
|
|||
|
|
BEGIN
|
|||
|
|
PROMPT 30 6 "Tipi documento selezionati"
|
|||
|
|
END
|
|||
|
|
|
|||
|
|
BOOLEAN B_TIPO_AUTOFATT
|
|||
|
|
BEGIN
|
|||
|
|
PROMPT 31 7 "Autofattura"
|
|||
|
|
FLAGS ""
|
|||
|
|
END
|
|||
|
|
BOOLEAN B_TIPO_FATTACQ
|
|||
|
|
BEGIN
|
|||
|
|
PROMPT 45 7 "Fatt d'Acq"
|
|||
|
|
FLAGS ""
|
|||
|
|
END
|
|||
|
|
BOOLEAN B_TIPO_FATTFISC
|
|||
|
|
BEGIN
|
|||
|
|
PROMPT 60 7 "Fatt Fisc"
|
|||
|
|
FLAGS ""
|
|||
|
|
END
|
|||
|
|
BOOLEAN B_TIPO_FATTVEN
|
|||
|
|
BEGIN
|
|||
|
|
PROMPT 75 7 "Fatt Ven"
|
|||
|
|
FLAGS ""
|
|||
|
|
END
|
|||
|
|
|
|||
|
|
BOOLEAN B_TIPO_FATTSCO
|
|||
|
|
BEGIN
|
|||
|
|
PROMPT 31 8 "Fatt Scontr"
|
|||
|
|
FLAGS ""
|
|||
|
|
END
|
|||
|
|
|
|||
|
|
BOOLEAN B_TIPO_NOTC
|
|||
|
|
BEGIN
|
|||
|
|
PROMPT 45 8 "Nota Cred"
|
|||
|
|
FLAGS ""
|
|||
|
|
END
|
|||
|
|
BOOLEAN B_TIPO_NOTD
|
|||
|
|
BEGIN
|
|||
|
|
PROMPT 60 8 "Nota Deb"
|
|||
|
|
FLAGS ""
|
|||
|
|
END
|
|||
|
|
BOOLEAN B_TIPO_BOLLADOG
|
|||
|
|
BEGIN
|
|||
|
|
PROMPT 75 8 "Bolla Dog"
|
|||
|
|
FLAGS ""
|
|||
|
|
END
|
|||
|
|
BOOLEAN B_TIPO_STORDOC
|
|||
|
|
BEGIN
|
|||
|
|
PROMPT 31 9 "Storno Doc"
|
|||
|
|
FLAGS ""
|
|||
|
|
END
|
|||
|
|
|
|||
|
|
ENDPAGE
|
|||
|
|
|
|||
|
|
PAGE "Trasferimento Fatture" 0 2 0 0
|
|||
|
|
|
|||
|
|
SPREADSHEET F_RIGHE
|
|||
|
|
BEGIN
|
|||
|
|
PROMPT 0 0 "Righe movimenti"
|
|||
|
|
ITEM "Data\n Reg.@8F"
|
|||
|
|
ITEM "Tipo\nDocum.@2F"
|
|||
|
|
ITEM "Tipo\nDoc. AE.@5F"
|
|||
|
|
ITEM "Numero\nDocum.@5F"
|
|||
|
|
ITEM "Data\nDocum.@10"
|
|||
|
|
ITEM "Aliquota@4"
|
|||
|
|
ITEM "Imponibile@10"
|
|||
|
|
ITEM "Imposta@10"
|
|||
|
|
ITEM "Natura\nIVA@4"
|
|||
|
|
ITEM "% Detr.@6"
|
|||
|
|
ITEM "C/F@2"
|
|||
|
|
ITEM "Codice@6"
|
|||
|
|
ITEM "Occas.@16"
|
|||
|
|
ITEM "Ragione Sociale@35"
|
|||
|
|
ITEM "RF/SO@16"
|
|||
|
|
ITEM "Rag. Soc. RF/SO@35"
|
|||
|
|
ITEM "Partita IVA@11"
|
|||
|
|
ITEM "Codice Fiscale@15"
|
|||
|
|
ITEM "Rev.\nCharge@4"
|
|||
|
|
ITEM "Auto\nfatt.@3"
|
|||
|
|
ITEM "Spedita@5"
|
|||
|
|
ITEM "Inviare@5"
|
|||
|
|
ITEM "Modificata@10"
|
|||
|
|
ITEM "N.\nRegistraz.@10"
|
|||
|
|
ITEM "Codici Errori@10"
|
|||
|
|
|
|||
|
|
END
|
|||
|
|
|
|||
|
|
ENDPAGE
|
|||
|
|
|
|||
|
|
ENDMASK
|
|||
|
|
|
|||
|
|
PAGE "Riga" -1 -1 69 14
|
|||
|
|
|
|||
|
|
BOOLEAN A_SPEDITA
|
|||
|
|
BEGIN
|
|||
|
|
PROMPT 52 10 "Gia' spedita"
|
|||
|
|
FIELD SPEDITA
|
|||
|
|
FLAGS "D"
|
|||
|
|
END
|
|||
|
|
|
|||
|
|
LIST A_INVIO 1 15
|
|||
|
|
BEGIN
|
|||
|
|
PROMPT 1 10 "Da inviare"
|
|||
|
|
ITEM "X|X, Da Inviare"
|
|||
|
|
ITEM "I|I, Inviato"
|
|||
|
|
ITEM "N|N, Disabilitato"
|
|||
|
|
ITEM "F|F, Forzato"
|
|||
|
|
ITEM "E|E, Errato"
|
|||
|
|
FIELD INVIO
|
|||
|
|
END
|
|||
|
|
|
|||
|
|
BOOLEAN A_FORZATA
|
|||
|
|
BEGIN
|
|||
|
|
PROMPT 30 10 "Forzatura manuale"
|
|||
|
|
FIELD FORZATURA
|
|||
|
|
END
|
|||
|
|
|
|||
|
|
NUMBER A_NUMERO 10
|
|||
|
|
BEGIN
|
|||
|
|
PROMPT 1 0 "N.Movimento"
|
|||
|
|
FLAGS "D"
|
|||
|
|
FIELD PROGR
|
|||
|
|
END
|
|||
|
|
|
|||
|
|
DATE A_DATAREG
|
|||
|
|
BEGIN
|
|||
|
|
PROMPT 26 0 "Data reg."
|
|||
|
|
FIELD DATAREG
|
|||
|
|
CHEKTYPE REQUIRED
|
|||
|
|
END
|
|||
|
|
|
|||
|
|
LIST A_TIPOCF 1 10
|
|||
|
|
BEGIN
|
|||
|
|
PROMPT 1 1 "Tipo C/F "
|
|||
|
|
ITEM "C|Cliente"
|
|||
|
|
ITEM "F|Fornitore"
|
|||
|
|
FIELD TIPOCF
|
|||
|
|
FLAGS "D"
|
|||
|
|
END
|
|||
|
|
|
|||
|
|
NUMBER A_CODCF 6
|
|||
|
|
BEGIN
|
|||
|
|
PROMPT 26 1 "Cod. C/F"
|
|||
|
|
USE LF_CLIFO
|
|||
|
|
INPUT TIPOCF A_TIPOCF SELECT
|
|||
|
|
INPUT CODCF A_CODCF
|
|||
|
|
DISPLAY "Codice" CODCF
|
|||
|
|
DISPLAY "Ragione Sociale@50" RAGSOC
|
|||
|
|
DISPLAY "Occasionale@C" OCCAS
|
|||
|
|
DISPLAY "Partita IVA" PAIV
|
|||
|
|
DISPLAY "Codice fiscale@16" COFI
|
|||
|
|
OUTPUT A_CODCF CODCF
|
|||
|
|
OUTPUT A_RAGSOC RAGSOC
|
|||
|
|
OUTPUT A_PAIV PAIV
|
|||
|
|
OUTPUT A_COFI COFI
|
|||
|
|
ADD RUN cg0 -1
|
|||
|
|
FIELD CODCF
|
|||
|
|
END
|
|||
|
|
|
|||
|
|
STRING A_OCFPI 16
|
|||
|
|
BEGIN
|
|||
|
|
PROMPT 44 1 "Occas."
|
|||
|
|
USE LF_OCCAS
|
|||
|
|
INPUT CFPI A_OCFPI
|
|||
|
|
DISPLAY "Codice@16" CFPI
|
|||
|
|
DISPLAY "Ragione Sociale@50" RAGSOC
|
|||
|
|
DISPLAY "Partita IVA" PAIV
|
|||
|
|
DISPLAY "Codice fiscale@16" COFI
|
|||
|
|
OUTPUT A_OCFPI CFPI
|
|||
|
|
OUTPUT A_RAGSOC RAGSOC
|
|||
|
|
OUTPUT A_PAIV PAIV
|
|||
|
|
OUTPUT A_COFI COFI
|
|||
|
|
CHEKTYPE NORMAL
|
|||
|
|
GROUP 3
|
|||
|
|
ADD RUN cg0 -6
|
|||
|
|
FIELD OCFPI
|
|||
|
|
END
|
|||
|
|
|
|||
|
|
STRING A_RAGSOC 50 47
|
|||
|
|
BEGIN
|
|||
|
|
FIELD RAGSOC
|
|||
|
|
PROMPT 1 2 "Ragione Sociale"
|
|||
|
|
FLAGS "D"
|
|||
|
|
END
|
|||
|
|
|
|||
|
|
STRING A_RFSO 6
|
|||
|
|
BEGIN
|
|||
|
|
FIELD RFSO
|
|||
|
|
PROMPT 1 4 "Codice RF/SO: "
|
|||
|
|
HELP "Codice Rappresentante Fiscale o Stabile Organizzazione"
|
|||
|
|
FLAGS "D"
|
|||
|
|
END
|
|||
|
|
|
|||
|
|
STRING A_RAGSOCRFSO 50 47
|
|||
|
|
BEGIN
|
|||
|
|
FIELD RAGSOCRFSO
|
|||
|
|
PROMPT 1 5 "Rag. Soc. RF/SO"
|
|||
|
|
HELP "Ragione Sociale RF/SO"
|
|||
|
|
FLAGS "D"
|
|||
|
|
END
|
|||
|
|
|
|||
|
|
STRING A_TIPODOC 2
|
|||
|
|
BEGIN
|
|||
|
|
PROMPT 23 6 "Tipo doc. "
|
|||
|
|
FIELD TIPODOC
|
|||
|
|
USE %TPD
|
|||
|
|
INPUT CODTAB A_TIPODOC
|
|||
|
|
DISPLAY "Tipo " CODTAB
|
|||
|
|
DISPLAY "Descrizione @50" S0
|
|||
|
|
OUTPUT A_TIPODOC CODTAB
|
|||
|
|
WARNING "Tipo documento errato"
|
|||
|
|
CHECKTYPE REQUIRED
|
|||
|
|
FLAGS "HUD"
|
|||
|
|
ADD NONE
|
|||
|
|
END
|
|||
|
|
|
|||
|
|
LIST A_TIPODOCAE 6
|
|||
|
|
BEGIN
|
|||
|
|
PROMPT 23 6 "Tipo doc. "
|
|||
|
|
ITEM "TD01|TD01"
|
|||
|
|
ITEM "TD04|TD04"
|
|||
|
|
ITEM "TD05|TD05"
|
|||
|
|
ITEM "TD07|TD07"
|
|||
|
|
ITEM "TD08|TD08"
|
|||
|
|
ITEM "TD10|TD10"
|
|||
|
|
ITEM "TD11|TD11"
|
|||
|
|
ITEM "ERR0|Errore"
|
|||
|
|
END
|
|||
|
|
|
|||
|
|
STRING A_NUMDOC 7
|
|||
|
|
BEGIN
|
|||
|
|
PROMPT 42 6 "Num. doc. "
|
|||
|
|
FLAGS "U"
|
|||
|
|
FIELD NUMDOC
|
|||
|
|
CHEKTYPE REQUIRED
|
|||
|
|
END
|
|||
|
|
|
|||
|
|
DATE A_DATADOC
|
|||
|
|
BEGIN
|
|||
|
|
PROMPT 1 6 "Data doc."
|
|||
|
|
FIELD DATADOC
|
|||
|
|
CHEKTYPE REQUIRED
|
|||
|
|
END
|
|||
|
|
|
|||
|
|
LIST A_NATURA 1 35
|
|||
|
|
BEGIN
|
|||
|
|
PROMPT 20 7 "Natura IVA"
|
|||
|
|
ITEM "|IVA ordinaria"
|
|||
|
|
ITEM "N1|N1 - IVA esclusa ex art 15"
|
|||
|
|
ITEM "N2|N2 - IVA non soggetta"
|
|||
|
|
ITEM "N3|N3 - IVA non imponibile"
|
|||
|
|
ITEM "N4|N4 - IVA esente"
|
|||
|
|
ITEM "N5|N5 - IVA in regime del margine"
|
|||
|
|
ITEM "N6|N6 - IVA in reverse charge"
|
|||
|
|
ITEM "N7|N7 - IVA assolta in altro stato U3"
|
|||
|
|
END
|
|||
|
|
|
|||
|
|
STRING A_ALIQUOTA 4
|
|||
|
|
BEGIN
|
|||
|
|
PROMPT 1 7 "Aliquota "
|
|||
|
|
HELP "Codice aliquota"
|
|||
|
|
FIELD CODTAB
|
|||
|
|
KEY 1
|
|||
|
|
USE %IVA
|
|||
|
|
FLAGS "U"
|
|||
|
|
INPUT CODTAB A_ALIQUOTA
|
|||
|
|
DISPLAY "Codice" CODTAB
|
|||
|
|
DISPLAY "Descrizione@50" S0
|
|||
|
|
DISPLAY "Tipo" S1
|
|||
|
|
DISPLAY "%@5" R0
|
|||
|
|
DISPLAY "Vent." S6
|
|||
|
|
DISPLAY "Sospeso" B2
|
|||
|
|
OUTPUT A_ALIQUOTA CODTAB
|
|||
|
|
CHECKTYPE REQUIRED
|
|||
|
|
VALIDATE ZEROFILL_FUNC 2
|
|||
|
|
END
|
|||
|
|
|
|||
|
|
STRING A_DETRAIB 6
|
|||
|
|
BEGIN
|
|||
|
|
PROMPT 1 8 "% Detraibilita'"
|
|||
|
|
HELP "Percentuale di detraibilita'"
|
|||
|
|
FLAGS "D"
|
|||
|
|
END
|
|||
|
|
|
|||
|
|
NUMBER A_IMPONIBILE 12 2
|
|||
|
|
BEGIN
|
|||
|
|
PROMPT 42 8 "Imponibile"
|
|||
|
|
END
|
|||
|
|
|
|||
|
|
NUMBER A_IMPOSTA 12 2
|
|||
|
|
BEGIN
|
|||
|
|
PROMPT 42 9 "Imposta "
|
|||
|
|
END
|
|||
|
|
|
|||
|
|
BOOLEAN A_REVERSE
|
|||
|
|
BEGIN
|
|||
|
|
PROMPT 1 9 "Reverse charge"
|
|||
|
|
END
|
|||
|
|
|
|||
|
|
BOOLEAN A_AUTOFATT
|
|||
|
|
BEGIN
|
|||
|
|
PROMPT 25 9 "Autofattura"
|
|||
|
|
FLAGS "D"
|
|||
|
|
END
|
|||
|
|
|
|||
|
|
STRING A_PAIV 12
|
|||
|
|
BEGIN
|
|||
|
|
PROMPT 1 3 "Partita IVA "
|
|||
|
|
FLAGS "D"
|
|||
|
|
END
|
|||
|
|
|
|||
|
|
STRING A_COFI 16
|
|||
|
|
BEGIN
|
|||
|
|
PROMPT 33 3 "Codice Fiscale"
|
|||
|
|
FLAGS "D"
|
|||
|
|
END
|
|||
|
|
|
|||
|
|
STRING A_CODERR 10
|
|||
|
|
BEGIN
|
|||
|
|
PROMPT 0 13 "Codici errori"
|
|||
|
|
//FLAGS "D"
|
|||
|
|
END
|
|||
|
|
|
|||
|
|
ENDPAGE
|
|||
|
|
|
|||
|
|
TOOLBAR "topbar" 0 0 0 2
|
|||
|
|
|
|||
|
|
BUTTON DLG_OK 2 2
|
|||
|
|
BEGIN
|
|||
|
|
PROMPT 1 1 ""
|
|||
|
|
END
|
|||
|
|
|
|||
|
|
BUTTON DLG_USER 2 2
|
|||
|
|
BEGIN
|
|||
|
|
PROMPT 2 1 "Collega"
|
|||
|
|
PICTURE TOOL_LINK
|
|||
|
|
END
|
|||
|
|
|
|||
|
|
BUTTON DLG_DELREC 2 2
|
|||
|
|
BEGIN
|
|||
|
|
PROMPT 2 1 "Elimina"
|
|||
|
|
PICTURE TOOL_DELREC
|
|||
|
|
END
|
|||
|
|
|
|||
|
|
BUTTON DLG_CANCEL 2 2
|
|||
|
|
BEGIN
|
|||
|
|
PROMPT 4 1 ""
|
|||
|
|
END
|
|||
|
|
|
|||
|
|
ENDPAGE
|
|||
|
|
|
|||
|
|
ENDMASK
|