51a3faef37
Files correlati : fp Commento : Programma aggiornamento cod clifo: - Aggiunta ricerca per rag. soc. - Aggiunto reset sheet
159 lines
2.3 KiB
Plaintext
159 lines
2.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_SAVEREC 2 2
|
|
BEGIN
|
|
PROMPT 3 1 "Salva"
|
|
PICTURE TOOL_SAVEREC
|
|
END
|
|
|
|
#include <helpbar.h>
|
|
ENDPAGE
|
|
|
|
PAGE "Elenco clienti/fornitori" 0 2 0 0
|
|
|
|
RADIOBUTTON F_TIPOCF 15
|
|
BEGIN
|
|
PROMPT 1 0 "Tipo C/F"
|
|
ITEM "C|Cliente"
|
|
ITEM "F|Fornitore"
|
|
END
|
|
|
|
NUMBER F_DACODCF 6
|
|
BEGIN
|
|
PROMPT 20 1 "Da codice"
|
|
USE LF_CLIFO
|
|
INPUT TIPOCF F_TIPOCF 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
|
|
FLAGS ""
|
|
END
|
|
|
|
STRING F_DARAGSOC 50
|
|
BEGIN
|
|
PROMPT 40 1 ""
|
|
KEY 2
|
|
USE LF_CLIFO KEY 2
|
|
INPUT TIPOCF F_TIPOCF SELECT
|
|
INPUT RAGSOC F_DARAGSOC
|
|
COPY DISPLAY F_DACODCF
|
|
COPY OUTPUT F_DACODCF
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
NUMBER F_ACODCF 6
|
|
BEGIN
|
|
PROMPT 20 2 "A codice "
|
|
USE LF_CLIFO
|
|
INPUT TIPOCF F_TIPOCF 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
|
|
FLAGS ""
|
|
END
|
|
|
|
STRING F_ARAGSOC 50
|
|
BEGIN
|
|
PROMPT 40 2 ""
|
|
KEY 2
|
|
USE LF_CLIFO KEY 2
|
|
INPUT TIPOCF F_TIPOCF SELECT
|
|
INPUT RAGSOC F_ARAGSOC
|
|
COPY DISPLAY F_ACODCF
|
|
COPY OUTPUT F_ACODCF
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
|
|
SPREADSHEET F_RIGHE
|
|
BEGIN
|
|
PROMPT 1 4 ""
|
|
ITEM "Codice@6"
|
|
ITEM "Ragione Sociale"
|
|
ITEM "P.A.@4"
|
|
ITEM "PEC"
|
|
ITEM "Cod. SDI@10"
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|
|
|
|
PAGE "Riga" -1 -1 69 14
|
|
|
|
NUMBER S_CODCF 6
|
|
BEGIN
|
|
PROMPT 1 1 "Cod. C/F"
|
|
END
|
|
|
|
STRING S_RAGSOC 50 50
|
|
BEGIN
|
|
FIELD RAGSOC
|
|
PROMPT 1 2 "Ragione Sociale"
|
|
FLAGS "D"
|
|
END
|
|
|
|
BOOLEAN S_ISPA
|
|
BEGIN
|
|
PROMPT 15 1 "Pubblica Amministrazione"
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING S_PEC 50
|
|
BEGIN
|
|
PROMPT 1 3 "PEC"
|
|
END
|
|
|
|
STRING S_CODSDI 7
|
|
BEGIN
|
|
PROMPT 50 3 "Codice SDI"
|
|
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 |