#include "ps0430500a.h"

PAGE "Generazione rimanenze finali" -1 -1 63 5

DATE F_DATAREG 
BEGIN
  PROMPT 1 1 "Data    "
  FLAGS "A"
  CHECKTYPE REQUIRED
END

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

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

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

ENDPAGE

TOOLBAR "" 0 0 0 2
#include <elabar.h>
ENDPAGE

ENDMASK