#include "cg2100.h"

TOOLBAR "" 0 20 0 2
#include <toolbar.h>
ENDPAGE

PAGE "Ricerca" -1 -1 77 8

GROUPBOX DLG_NULL 78 3
BEGIN
  PROMPT 1 0 ""
END

NUMBER F_CODDITTA 5
BEGIN
  PROMPT 3 1 "Ditta  "
  FLAGS "FRD"
  USE LF_NDITTE
  CHECKTYPE NORMAL
  INPUT CODDITTA F_CODDITTA
  OUTPUT F_RAGSOC RAGSOC
END

STRING F_RAGSOC 50
BEGIN
  PROMPT 17 1 "Ragione "
  FLAGS "D"
END

NUMBER F_NUMREG 6
BEGIN
  PROMPT 1 4 "Numero operazione   "
  HELP "Numero del movimento di prima nota da gestire"
  FLAGS "R"
  FIELD LF_MOV->NUMREG
  USE LF_MOV
  INPUT NUMREG F_NUMREG
  DISPLAY "Numero@6" NUMREG
  DISPLAY "Data@10" DATAREG
  DISPLAY "Causale" CODCAUS
  DISPLAY "Documento" NUMDOC
  DISPLAY "Protoc." PROTIVA
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_NUMREG NUMREG
  KEY 1
END

DATE F_DATAREG
BEGIN
  PROMPT 1 6 "Data operazione     "
  CHECKTYPE REQUIRED
  HELP "Data in cui viene registrata l'operazione"
  MESSAGE COPY,F_ANNOIVA,7,10
END

NUMBER F_ANNOIVA 4
BEGIN
  PROMPT 51 6 "Anno IVA          "
  FLAGS "D"
END

DATE F_DATACOMP
BEGIN
  PROMPT 1 7 "Data di competenza  "
  HELP "Data di competenza dell'operazione"
  CHECKTYPE REQUIRED
END

NUMBER F_ANNOES 4
BEGIN
  PROMPT 51 7 "Codice esercizio  "
  FLAGS "DRZ"
END

STRING F_CODCAUS 3
BEGIN
  PROMPT 1 9 "Causale      "
  FLAGS "UZ"
  FIELD CODCAUS
  USE LF_CAUSALI
  INPUT CODCAUS F_CODCAUS
  DISPLAY "Codice" CODCAUS
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Tipo" TIPODOC
  DISPLAY "Registro" REG
  OUTPUT F_CODCAUS CODCAUS
  OUTPUT F_DESCRCAUS DESCR
  ADD RUN cg0 -4
  CHECKTYPE NORMAL
  WARNING "Causale assente"
END

STRING F_DESCRCAUS 50
BEGIN
  PROMPT 21 9 ""
  USE LF_CAUSALI KEY 2
  CHECKTYPE NORMAL
  INPUT DESCR F_DESCRCAUS
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Codice" CODCAUS
  DISPLAY "Tipo" TIPODOC
  DISPLAY "Registro" REG
  COPY OUTPUT F_CODCAUS
  ADD RUN cg0 -4
END

ENDPAGE

ENDMASK
