#include "tf0300a.h"

TOOLBAR "topbar" 0 0 0 2

#include <elabar.h>
ENDPAGE

PAGE "Cambio stato" 0 2 0 0

DATE F_DATAINI
BEGIN
  PROMPT 1 0 "Data iniziale:"
  VALIDATE DATE_CMP_FUNC <= F_DATAFIN
  WARNING "La data iniziale non puņ essere maggiore della data finale"
  CHECKTYPE REQUIRED
END

DATE F_DATAFIN
BEGIN
  PROMPT 40 0 "Data Finale: "
  VALIDATE DATE_CMP_FUNC >= F_DATAINI
  WARNING "La data finale non puņ essere minore della data iniziale"
  CHECKTYPE REQUIRED
  FLAGS "A"
END

LIST A_STATOINI 1 15
BEGIN
  PROMPT 1 1 "Da stato      "
  ITEM "X|Inviare"
  ITEM "E|Errore"
  ITEM "N|Non Inviare"
  ITEM "F|Forzato"
  ITEM "I|Inviato"
END

LIST A_STATOFIN 1 15
BEGIN
  PROMPT 40 1 "A stato      "
  ITEM "X|Inviare"
  ITEM "E|Errore"
  ITEM "N|Non Inviare"
  ITEM "F|Forzato"
  ITEM "I|Inviato"
END


RADIOBUTTON F_TIPOCF 15
BEGIN
  PROMPT 1 2 "Tipo C/F"
  ITEM "C|Cliente"
  ITEM "F|Fornitore"
END

NUMBER F_CODCF 6
BEGIN
  PROMPT 20 3 "Codice:"
  USE LF_CLIFO
  INPUT TIPOCF F_TIPOCF 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 ""
END

STRING F_RAGSOC 50 49
BEGIN
  PROMPT 20 4 "R.Soc: "
  USE LF_CLIFO KEY 2
  INPUT TIPOCF F_TIPOCF 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 ""
END

ENDPAGE
ENDMASK