campo-sirio/src/fp/fp0200a.uml

#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