#include "cg5900a.h"
 
PAGE "Stampa pro-rata" -1 -1 72 6

NUMBER F_CODDITTA 5
BEGIN
  PROMPT 1 1 "Ditta    "
  FLAGS "FDGZ"
  USE LF_NDITTE
  INPUT CODDITTA F_CODDITTA
  OUTPUT F_RAGSOC RAGSOC
  CHECKTYPE REQUIRED
END

STRING F_RAGSOC 50
BEGIN
  PROMPT 19 1 ""
  FLAGS "D"
END

NUMBER F_CODATT 5
BEGIN
  PROMPT 1 2 "Attivitą "
  USE LF_ATTIV
  INPUT CODDITTA F_CODDITTA SELECT
  INPUT CODATT F_CODATT
  DISPLAY "Ditta" CODDITTA
  DISPLAY "Attivitą" CODATT
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_CODATT CODATT
  OUTPUT F_DESCATT DESCR
  CHECKTYPE REQUIRED
  FIELD #CODATT
END

NUMBER F_PRORATA 3
BEGIN
  PROMPT 1 3 "Pro-rata "
  FLAGS "D"
  FIELD #PRORATA
END

STRING F_CAUSALE 4
BEGIN
  PROMPT 31 3 "Causale per movimento contabile "
  USE LF_CAUSALI SELECT (REG="")&&(TIPOMOV="")&&(MOVAP="")
  INPUT CODCAUS F_CAUSALE
  DISPLAY "Codice" CODCAUS
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_CAUSALE CODCAUS
  CHEKCTYPE NORMAL
  FLAGS "U"
  ADD RUN cg0 -4
  MESSAGE EMPTY DISABLE,DLG_ELABORA
  MESSAGE ENABLE,DLG_ELABORA
END

STRING F_DESCATT 50
BEGIN
  PROMPT 19 2 ""
  FLAGS "D"
END

DATE F_DATAINI
BEGIN
  PROMPT 1 4 "Data iniziale "
  FIELD #DATAINI
  CHECKTYPE REQUIRED
END

DATE F_DATAFIN
BEGIN
  PROMPT 31 4 "Data finale   "
  FIELD #DATAFIN
  CHECKTYPE REQUIRED
END

ENDPAGE

TOOLBAR "Topbar" 0 0 0 2

BUTTON DLG_ELABORA 2 2 
BEGIN
  PROMPT 1 1 "Prima Nota"
  PICTURE TOOL_ELABORA
END

BUTTON DLG_NULL 2 2 
BEGIN
END

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

#include <printbar.h>

ENDPAGE

ENDMASK