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 F_PATH 255 45
BEGIN
  PROMPT 0 1 "Cartella "
  DSELECT
  CHECKTYPE REQUIRED
  FLAGS "M"
END

STRING F_NAME 30
BEGIN
  PROMPT 60 1 "File "  
  FLAGS "D"
  CHECKTYPE NORMAL
END

DATE F_DADATAREG
BEGIN
  PROMPT 0 2 "Da data Reg. "
END

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

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

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

DATE F_DADATAPAG
BEGIN
  PROMPT 0 4 "Da data Pag. "
END

DATE F_ADATAPAG
BEGIN
  PROMPT 25 4 "A data Pag. "
END

BOOLEAN B_FORNITORE
BEGIN
  PROMPT 0 5 "Fornitore"
END

NUMBER F_CODCF 6
BEGIN
  PROMPT 14 5 "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 5 "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_GCS
BEGIN
  PROMPT 0 6 ""
END

NUMBER F_GRUPPO 3
BEGIN
  PROMPT 3 6 "Gruppo: "
  USE LF_PCON SELECT (CONTO="")
  INPUT GRUPPO F_GRUPPO
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_GRUPPO GRUPPO
  CHECKTYPE REQUIRED
  WARNING "Gruppo assente"
  FLAGS "D"
END

NUMBER F_CONTO 3
BEGIN
  PROMPT 20 6 "Conto: "
  USE LF_PCON SELECT (CONTO!="")&&(SOTTOCONTO="")
  INPUT GRUPPO F_GRUPPO
  INPUT CONTO F_CONTO
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Tipo" TMCF
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_CONTO CONTO
  OUTPUT F_GRUPPO GRUPPO
  CHECKTYPE REQUIRED
  WARNING "Conto assente"
  FLAGS "D"
END

NUMBER F_SOTTOCONTO 6
BEGIN
  PROMPT 40 6 "Sottoconto: "
  USE LF_PCON SELECT (SOTTOCONTO!="")
  COPY INPUT F_CONTO
  INPUT SOTTOCONTO F_SOTTOCONTO
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_SOTTOCONTO SOTTOCONTO
  OUTPUT F_GRUPPO GRUPPO
  OUTPUT F_CONTO CONTO
  CHECKTYPE REQUIRED
  WARNING "Sottoconto assente"
  FLAGS "D"
END

BOOLEAN B_PRTAPE
BEGIN
  PROMPT 0 7 "Partita aperta"
END

BOOLEAN B_PRTCHIU
BEGIN
  PROMPT 20 7 "Partita chiusa"
END

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

BOOLEAN B_SOLNONINV
BEGIN
  PROMPT 70 7 "Solo doc. non inviati"
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 8 ""
  ITEM "Data\nRegistrazione@10"
  ITEM "ID Lavoro@10"
  ITEM "Cod.\nFornitore@8"
  ITEM "Rag. Soc.@30"
  ITEM "Importo@10"
  ITEM "Rit.Fis@10"
  ITEM "Totale@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

DATE A_DATAREG
BEGIN
  PROMPT 1 0 "Data registrazione"
  FLAGS "D"
END

NUMBER A_IDLAVORO 7
BEGIN
  PROMPT 1 0 "N.Movimento"
  FLAGS "D"
END

STRING A_CODF 6
BEGIN
  PROMPT 1 0 "Codice Fornitore"
  FLAGS "D"
END

STRING A_RAGSOC 50
BEGIN
  PROMPT 1 0 "Rag.Soc."
  FLAGS "D"
END

NUMBER A_IMPORTO 18 3
BEGIN
  PROMPT 1 0 "Importo"
  FLAGS "D"
END

NUMBER A_RITFIS 18 3
BEGIN
  PROMPT 1 0 "Ritenute Fiscali"
  FLAGS "D"
END

NUMBER A_TOTALE 18 3
BEGIN
  PROMPT 1 0 "Totale Documento"
  FLAGS "D"
END

DATE A_DATADOC
BEGIN
  PROMPT 1 0 "Data Documento"
  FLAGS "D"
END

STING A_NUMDOC 7
BEGIN
  PROMPT 1 0 "Numero Documento"
  FLAGS "D"
END

DATE A_DATAPAG
BEGIN
  PROMPT 1 0 "Data pagamento documento"
  FLAGS "D"
END

NUMBER A_GRUPPO 3
BEGIN
  PROMPT 1 0 "Gruppo"
  FLAGS "D"
END

NUMBER A_CONTO 3
BEGIN
  PROMPT 1 0 "Conto"
  FLAGS "D"
END

NUMBER A_SOTTOCONTO 6
BEGIN
  PROMPT 1 0 "Sottoconto"
  FLAGS "D"
END

ENDPAGE

ENDMASK