#include "ps0430500a.h"

PAGE "Generazione rimanenze finali" -1 -1 60 9

LIST F_SOCIETA 1 20
BEGIN
  PROMPT 1 0 "Società "
  ITEM "1|Il Cigno"
  ITEM "2|Team Service"
END

GROUPBOX DLG_NULL 56 4
BEGIN
  PROMPT 1 1 "@bRimanenze finali"
END

STRING F_CODCAUS_FIN 3 
BEGIN
  PROMPT 2 2 "Causale "
  USE LF_CAUSALI SELECT (REG="")&&(TIPOMOV="")&&(MOVAP="")&&(MOVIND!="")
  INPUT CODCAUS F_CODCAUS_FIN
  DISPLAY "Codice" CODCAUS
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_CODCAUS_FIN CODCAUS
  OUTPUT F_DESCAUS_FIN DESCR
  ADD RUN cg0 -4
  CHECKTYPE REQUIRED
END

STRING F_DESCAUS_FIN 50
BEGIN
  PROMPT 2 3 ""
  USE LF_CAUSALI KEY 2 SELECT (REG="")&&(TIPOMOV="")&&(MOVAP="")&&(MOVIND!="")
  INPUT CODCAUS F_CODCAUS_FIN
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Codice" CODCAUS
  COPY OUTPUT F_CODCAUS_FIN
  ADD RUN cg0 -4
  CHECKTYPE REQUIRED
END

DATE F_DATAREG_FIN
BEGIN
  PROMPT 37 2 "Data "
  CHECKTYPE REQUIRED
END

GROUPBOX DLG_NULL 56 4
BEGIN
  PROMPT 1 5 "@bRimanenze iniziali"
END

STRING F_CODCAUS_INI 3 
BEGIN
  PROMPT 2 6 "Causale "
  COPY USE F_CODCAUS_FIN
  INPUT CODCAUS F_CODCAUS_INI
  COPY DISPLAY F_CODCAUS_FIN
  OUTPUT F_CODCAUS_INI CODCAUS
  OUTPUT F_DESCAUS_INI DESCR
  ADD RUN cg0 -4
  CHECKTYPE REQUIRED
END

STRING F_DESCAUS_INI 50
BEGIN
  PROMPT 2 7 ""
  COPY USE F_DESCAUS_FIN
  INPUT CODCAUS F_CODCAUS_INI
  COPY DISPLAY F_DESCAUS_FIN
  COPY OUTPUT F_CODCAUS_INI
  ADD RUN cg0 -4
  CHECKTYPE REQUIRED
END

DATE F_DATAREG_INI
BEGIN
  PROMPT 37 6 "Data "
  FLAGS "A"
  CHECKTYPE REQUIRED
END



STRING DLG_PROFILE 256 50
BEGIN
  PROMPT 1 4 "Profilo "
  PSELECT
  FLAGS "H"
END

ENDPAGE

TOOLBAR "" 0 0 0 2

BUTTON DLG_SAVEREC 2 2
BEGIN
  PROMPT 1 1 "Ricalcola"
  PICTURE TOOL_SAVEREC
  MESSAGE RUN,mg1,-2
END

#include <elabar.h>

ENDPAGE

ENDMASK