#include "ct0100a.h"

TOOLBAR "Topbar" 0 0 0 2

BUTTON DLG_PREVIEW 2 2
BEGIN
  PROMPT 1 1 "~Anteprima"
  PICTURE TOOL_PREVIEW
END

#include <printbar.h>

ENDPAGE

PAGE "Tracciabilita'" 0 0 0 2

GROUPBOX DLG_NULL 78 7
BEGIN
  PROMPT 0 1 "@bSelezione stampa"
END

RADIOBUTTON F_ARCHIVI 32
BEGIN
  PROMPT 1 2 "Tipo di archivi "  
  ITEM "M|Movimenti contabili"
  ITEM "D|Documenti"
  ITEM "E|Effetti"
  ITEM "R|Rilevazione ore"
END

RADIOBUTTON F_ORDINAMENTO 32
BEGIN
  PROMPT 36 2 "Ordinamento per:"
  ITEM "1|CUP - CIG"
  ITEM "2|Cliente/Fornitore"
END

GROUPBOX DLG_NULL 78 4
BEGIN
  PROMPT 0 8 "@bFiltri CUP-CIG"
END

STRING F_CUP 15
BEGIN
  PROMPT 1 9 "CUP "
  USE %CUP
  INPUT CODTAB F_CUP
  DISPLAY "Codice@15" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CUP CODTAB
  OUTPUT F_CUP_DESCR S0
  FIELD #CUP
  CHECKTYPE NORMAL
END

STRING F_CUP_DESCR 50
BEGIN
  PROMPT 25 9 ""
  USE %CUP KEY 2
  INPUT S0 F_CUP_DESCR
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice@15" CODTAB
  COPY OUTPUT F_CUP
  CHECKTYPE NORMAL
END

STRING F_CIG 10
BEGIN
  PROMPT 1 10 "CIG "
  USE %CIG
  INPUT CODTAB F_CIG
  DISPLAY "Codice@10" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CIG CODTAB
  OUTPUT F_CIG_DESCR S0
  FIELD #CIG
  CHECKTYPE NORMAL
END

STRING F_CIG_DESCR 50
BEGIN
  PROMPT 25 10 ""
  USE %CIG KEY 2
  INPUT S0 F_CIG_DESCR
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice@10" CODTAB
  COPY OUTPUT F_CIG
  CHECKTYPE NORMAL
END

GROUPBOX DLG_NULL 78 4
BEGIN
  PROMPT 0 12 "@bFiltri Cliente/Fornitore"
END

LIST F_TIPOCF 1 11
BEGIN
  PROMPT 1 13 "Tipo "
  ITEM "C|Clienti"
  ITEM "F|Fornitori"
  FIELD #TIPOCF
END

NUMBER F_CODCF 6
BEGIN
  PROMPT 20 13 "Codice "
  USE LF_CLIFO
  INPUT TIPOCF F_TIPOCF SELECT
  INPUT CODCF F_CODCF
  DISPLAY "Codice@6R" CODCF
  DISPLAY "Sospeso@C" SOSPESO
  DISPLAY "Ragione sociale@50" RAGSOC
  DISPLAY "Codice fiscale@16" COFI
  DISPLAY "Partita IVA@11" PAIV
  OUTPUT F_TIPOCF TIPOCF
  OUTPUT F_CODCF CODCF
  OUTPUT F_RAGSOC RAGSOC
  FLAGS "GR"
  FIELD #CODCF
  CHECKTYPE NORMAL
END

STRING F_RAGSOC 50
BEGIN
  PROMPT 1 14 "Cognome/Rag. Soc.  "
  USE LF_CLIFO KEY 2
  INPUT TIPOCF F_TIPOCF SELECT
  INPUT RAGSOC F_RAGSOC
  DISPLAY "Ragione sociale@50" RAGSOC
  DISPLAY "Sospeso" SOSPESO
  DISPLAY "Codice@R" CODCF
  DISPLAY "Codice fiscale@16" COFI
  DISPLAY "Partita IVA@11" PAIV
  COPY OUTPUT F_CODCF
  CHECKTYPE NORMAL
END

DATE F_DADATA
BEGIN
  PROMPT 1 17 "Dalla data "
  FIELD #DADATA
  CHECKTYPE REQUIRED
END

DATE F_ADATA
BEGIN
  PROMPT 25 17 "Alla data "
  FIELD #ADATA
  VALIDATE DATE_CMP_FUNC >= F_DADATA
  WARNING "La data finale deve essere succeviva a quella iniziale"
END

ENDPAGE

ENDMASK