#include "cg4700.h"

TOOLBAR "" 0 20 0 2

#include <toolbar.h>

ENDPAGE

PAGE "Gestione acconti di Dicembre" -1 -1 78 15

NUMBER F_CODDITTA 5
BEGIN
  PROMPT 1 1 "Ditta "
  FIELD CODTAB[1,5]
  FLAGS "ZFR"
  KEY 1
  USE LF_NDITTE KEY 1
  INPUT CODDITTA F_CODDITTA
  DISPLAY "Ditta" CODDITTA
  DISPLAY "Ragione sociale@50" RAGSOC
  OUTPUT F_CODDITTA CODDITTA
  OUTPUT F_RAGSOC RAGSOC
  CHECKTYPE FORCED
  WARNING "Ditta assente"
END

STRING F_RAGSOC 50
BEGIN                   
  PROMPT 16 1 "Rag.Soc "
  KEY 1
  USE LF_NDITTE KEY 2
  INPUT RAGSOC F_RAGSOC   
  DISPLAY "Ragione sociale@50" RAGSOC
  DISPLAY "Ditta" CODDITTA
  COPY OUTPUT F_CODDITTA 
  WARNING "Ditta assente"
  CHECKTYPE NORMAL
END

NUMBER F_ANNO 4
BEGIN
  PROMPT 1 3 "Anno liquidazione      " 
  HELP "Introdurre l'anno liquidazione"
  FIELD CODTAB[6,9]
  CHECKTYPE REQUIRED
  KEY 1
  USE %LIA 
  JOIN LF_NDITTE TO %LIA INTO CODDITTA=CODTAB[1,5]
  INPUT CODTAB[1,5] F_CODDITTA
  INPUT CODTAB[6,9] F_ANNO
  DISPLAY "Ditta" CODTAB[1,5]
  DISPLAY "Ragione sociale@50" LF_NDITTE->RAGSOC
  DISPLAY "Anno" CODTAB[6,9]
  OUTPUT F_CODDITTA CODTAB[1,5]
  OUTPUT F_ANNO CODTAB[6,9]
  VALIDATE FIXLEN_FUNC 4
END
  
NUMBER F_ACCONTO 15
BEGIN
  PROMPT 1 7 "Acconto dovuto         "
  HELP "Introdurre l'acconto dovuto"
  PICTURE "."
  FLAGS "R"
  FIELD R4
  NUM_CALC ROUND(#THIS_FIELD,-3)
  //NUM_EXPR (#THIS_FIELD>=0.0)
  //WARNING "Valore non valido (>=0.0)"
END

NUMBER F_CREDITO 15
BEGIN
  PROMPT 1 9 "Credito utilizzato     "
  HELP "Introdurre il credito utilizzato"
  PICTURE "."
  FLAGS "R"
  FIELD R6
  NUM_CALC ROUND(#THIS_FIELD,-3)
  //NUM_EXPR (#THIS_FIELD>=0.0)
  //WARNING "Valore non valido (>=0.0)"  
END

ENDPAGE

ENDMASK