campo-sirio/src/ps/ps0713800a.msk

#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_DADATAREG
BEGIN
  PROMPT 0 2 "Da data Reg. "
  FIELD ADATA  
END

DATE F_ADATAREG
BEGIN
  PROMPT 25 2 "A data Reg. "
  FIELD ADATA  
END

DATE F_DADATAFATT
BEGIN
  PROMPT 0 3 "Da data Fatt."
  FIELD ADATA  
END

DATE F_ADATAFATT
BEGIN
  PROMPT 25 3 "A data Fatt."
  FIELD ADATA  
END

BOOLEAN B_FORNITORE
BEGIN
  PROMPT 0 4 "Fornitore"
END

NUMBER F_CODCF 6
BEGIN
  PROMPT 14 4 "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 4 "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 5 "Partita aperta"
END

BOOLEAN B_PRTCHIU
BEGIN
  PROMPT 20 5 "Partita chiusa"
END

BOOLEAN B_SOLRITFIS
BEGIN
  PROMPT 40 5 "Solo Ritenute Fiscali"
END

RADIOBUTTON F_JOB 15
BEGIN
  PROMPT 70 2 "ID lavoro"
  ITEM "1|SI"
  ITEM "2|NO"
  FLAGS "Z"
END

SPREADSHEET S_RESULT
BEGIN
  PROMPT 0 6 ""
  ITEM "ID Lavoro@10"
  ITEM "Cod.\nFornitore@8"
  ITEM "Rag. Soc.@30"
  ITEM "Importo@10"
  ITEM "Rit.Fis@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

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

NUMBER A_RITFIS 18 3
BEGIN
  PROMPT 1 0 "Ritenute Fiscali"
  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

DATE A_DATAPAG
BEGIN
  PROMPT 1 0 "Data pagamento 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