campo-sirio/ps/pg0068100a.uml

#include "pg0068100a.h"

TOOLBAR "topbar" 0 0 0 2

BUTTON DLG_USER 10 2
BEGIN
  PROMPT -12 -1 "~Selezione"
  PICTURE TOOL_MULTISEL
END

#include <elabar.h>

ENDPAGE

PAGE "Contabilizzazione HAIR KULTURE" 0 2 0 0

GROUPBOX DLG_NULL 77 4
BEGIN
  PROMPT 1 0 "@bElaborazioni"
END

STRING F_ELAB_COSTI 8
BEGIN
  PROMPT 2 1 "Costi       "
  FLAG "U"
  USE %ELD SELECT I0 == 7
  INPUT CODTAB F_ELAB_COSTI
  DISPLAY "Codice@8" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_ELAB_COSTI CODTAB
  OUTPUT F_ELAB_COSTI_DESCR S0
  CHECKTYPE REQUIRED
  WARNING "E' necessario specificare il codice elaborazione"
END

STRING F_ELAB_COSTI_DESCR 50
BEGIN
  PROMPT 25 1 ""
  USE %ELD KEY 2 SELECT I0 == 7
  INPUT S0 F_ELAB_COSTI_DESCR
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice@8" CODTAB
  COPY OUTPUT F_ELAB_COSTI
END

STRING F_ELAB_PROVV 8
BEGIN
  PROMPT 2 2 "Provvigioni "
  FLAG "U"
  USE %ELD SELECT I0 == 7
  INPUT CODTAB F_ELAB_PROVV
  DISPLAY "Codice@8" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_ELAB_PROVV CODTAB
  OUTPUT F_ELAB_PROVV_DESCR S0
  CHECKTYPE REQUIRED
  WARNING "E' necessario specificare il codice elaborazione"
END

STRING F_ELAB_PROVV_DESCR 50
BEGIN
  PROMPT 25 2 ""
  USE %ELD KEY 2 SELECT I0 == 7
  INPUT S0 F_ELAB_PROVV_DESCR
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice@8" CODTAB
  COPY OUTPUT F_ELAB_PROVV
END

GROUPBOX DLG_NULL 77 3
BEGIN
  PROMPT 1 4 "@bDate intervallo documenti"
END

DATE F_DATA_INI
BEGIN
  PROMPT 2 5 "Inizio "
  CHECKTYPE REQUIRED
  WARNING "La data di inizio intervallo e' obbligatoria"
END

DATE F_DATA_FIN
BEGIN
  PROMPT 25 5 "Fine "
  CHECKTYPE REQUIRED
  WARNING "La data di fine intervallo deve essere successiva a quella di inizio"
  VALIDATE DATE_CMP_FUNC >= F_DATA_INI
END

GROUPBOX DLG_NULL 77 6
BEGIN
  PROMPT 1 7 "@bParametri movimenti generati"
END

DATE F_DATA_REG
BEGIN
  PROMPT 2 8 "Data registrazione "
  FLAGS "A"
  CHECKTYPE REQUIRED
END

TEXT -1
BEGIN
  PROMPT 2 9 "@bCausali"
END

STRING F_CAUS_COSTI 4
BEGIN
  PROMPT 3 10 "Costi       "
  FLAGS "UZ"
  USE LF_CAUSALI
  INPUT CODCAUS F_CAUS_COSTI
  DISPLAY "Cod." CODCAUS
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Documento" TIPODOC
  DISPLAY "Tipo movimento" TIPOMOV
  DISPLAY "Inc./Pag." CODCAUSIM
  OUTPUT F_CAUS_COSTI CODCAUS
  OUTPUT F_CAUS_COSTI_DESCR DESCR
  CHECKTYPE REQUIRED
END

STRING F_CAUS_COSTI_DESCR 50
BEGIN
  PROMPT 22 10 ""
  USE LF_CAUSALI KEY 2
  INPUT DESCR F_CAUS_COSTI_DESCR
  DISPLAY "Descrizione @50" DESCR
  DISPLAY "Cod." CODCAUS
  DISPLAY "Documento" TIPODOC
  DISPLAY "Movimento" TIPOMOV
  DISPLAY "Inc./Pag." CODCAUSIM
  COPY OUTPUT F_CAUS_COSTI
  CHECKTYPE REQUIRED
END

STRING F_CAUS_PROVV 4
BEGIN
  PROMPT 3 11 "Provvigioni "
  FLAGS "UZ"
  USE LF_CAUSALI
  INPUT CODCAUS F_CAUS_PROVV
  DISPLAY "Cod." CODCAUS
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Documento" TIPODOC
  DISPLAY "Tipo movimento" TIPOMOV
  DISPLAY "Inc./Pag." CODCAUSIM
  OUTPUT F_CAUS_PROVV CODCAUS
  OUTPUT F_CAUS_PROVV_DESCR DESCR
  CHECKTYPE REQUIRED
END

STRING F_CAUS_PROVV_DESCR 50
BEGIN
  PROMPT 22 11 ""
  USE LF_CAUSALI KEY 2
  INPUT DESCR F_CAUS_PROVV_DESCR
  DISPLAY "Descrizione @50" DESCR
  DISPLAY "Cod." CODCAUS
  DISPLAY "Documento" TIPODOC
  DISPLAY "Movimento" TIPOMOV
  DISPLAY "Inc./Pag." CODCAUSIM
  COPY OUTPUT F_CAUS_PROVV
  CHECKTYPE REQUIRED
END

STRING DLG_PROFILE 50
BEGIN
  PROMPT 9 -2 "Profilo "
  PSELECT
END

ENDPAGE

ENDMASK