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 "Filtri" -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_DAFORNITORE
BEGIN
  PROMPT 0 5 "Da Fornitore"
END

NUMBER F_DACODCF 6
BEGIN
  PROMPT 15 5 "Codice:"
  USE LF_CLIFO
  INPUT TIPOCF "F" 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
  GROUP 1
  FLAGS "D"
END

STRING F_DARAGSOC 50 30
BEGIN
  PROMPT 31 5 "R.Soc: "
  USE LF_CLIFO KEY 2
  INPUT TIPOCF "F" SELECT
  INPUT RAGSOC F_DARAGSOC
  DISPLAY "Ragione Sociale@50" RAGSOC
  DISPLAY "Codice" CODCF
  DISPLAY "Codice Fiscale@16" COFI
  DISPLAY "Partita IVA@15" PAIV
  COPY OUTPUT F_DACODCF
  ADD RUN CG0 -1
  GROUP 1
  FLAGS "D"
END

BOOLEAN B_AFORNITORE
BEGIN
  PROMPT 0 6 "A Fornitore"
END

NUMBER F_ACODCF 6
BEGIN
  PROMPT 15 6 "Codice:"
  USE LF_CLIFO
  INPUT TIPOCF "F" 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
  GROUP 1
  FLAGS "D"
END

STRING F_ARAGSOC 50 30
BEGIN
  PROMPT 31 6 "R.Soc: "
  USE LF_CLIFO KEY 2
  INPUT TIPOCF "F" SELECT
  INPUT RAGSOC F_ARAGSOC
  DISPLAY "Ragione Sociale@50" RAGSOC
  DISPLAY "Codice" CODCF
  DISPLAY "Codice Fiscale@16" COFI
  DISPLAY "Partita IVA@15" PAIV
  COPY OUTPUT F_ACODCF
  ADD RUN CG0 -1
  GROUP 1
  FLAGS "D"
END

BOOLEAN B_DAGCS
BEGIN
  PROMPT 0 7 ""
END

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

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

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

BOOLEAN B_AGCS
BEGIN
  PROMPT 0 8 ""
END

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

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

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

NUMBER F_DAIMPORTO 18 2
BEGIN
  PROMPT 0 9 "Da Importo:"
END

NUMBER F_AIMPORTO 18 2
BEGIN
  PROMPT 35 9 "A Importo:"
END


BOOLEAN B_PRTAPE
BEGIN
  PROMPT 0 10 "Fatt. da Pagare"
END

BOOLEAN B_PRTCHIU
BEGIN
  PROMPT 20 10 "Fatt. Pagate"
END

BOOLEAN B_SOLRITFIS
BEGIN
  PROMPT 40 10 "Filtra Rit. Acconto"
END

BOOLEAN B_SOLNONINV
BEGIN
  PROMPT 70 10 "Escludi Pag. Inviati"
END


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

ENDPAGE

PAGE "Risultati" -1 -1 80 10

SPREADSHEET S_RESULT
BEGIN
  PROMPT 0 0 ""
  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