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 8
BEGIN
  PROMPT 1 7 "@bParametri movimenti generati"
END

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

STRING F_CAUS_COSTI 3
BEGIN
  PROMPT 3 9 "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 9 ""
  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 3
BEGIN
  PROMPT 3 10 "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 10 ""
  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

TEXT -1
BEGIN
  PROMPT 2 11 "@bConto omaggi"
END

NUMBER F_GRUPPO 3
BEGIN
  PROMPT 3 12 ""
  FLAGS "R"
  USE LF_PCON SELECT CONTO=""
  INPUT GRUPPO F_GRUPPO
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_GRUPPO GRUPPO
  CHECKTYPE REQUIRED
END

NUMBER F_CONTO 3
BEGIN
  PROMPT 9 12 ""
  FLAGS "R"
  USE LF_PCON SELECT ((CONTO!="")&&(SOTTOCONTO=""))
  COPY INPUT F_GRUPPO
  INPUT CONTO F_CONTO
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_GRUPPO GRUPPO
  OUTPUT F_CONTO CONTO
  CHECKTYPE NORMAL
  VALIDATE REQIF_FUNC 1 F_SOTTOCONTO
  WARNING "Manca il conto"
END

NUMBER F_SOTTOCONTO 6
BEGIN
  PROMPT 15 12 ""
  USE LF_PCON SELECT (SOTTOCONTO!="")&&(ANALITICA="X") 
  COPY INPUT F_CONTO
  INPUT SOTTOCONTO F_SOTTOCONTO
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  DISPLAY "Sosp." SOSPESO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_SOTTOCONTO SOTTOCONTO
  OUTPUT F_GRUPPO GRUPPO
  OUTPUT F_CONTO CONTO
  OUTPUT F_DESC DESCR
  CHECKTYPE NORMAL
END

STRING F_DESC 50
BEGIN
  PROMPT 24 12 ""
  USE LF_PCON KEY 2
  INPUT DESCR F_DESC
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Sosp." SOSPESO
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  COPY OUTPUT F_SOTTOCONTO
  CHECKTYPE REQUIRED
  HELP "Descrizione del gruppo o del conto o del sottoconto"
  WARNING "Descrizione mancante"
END

/*BOOL F_AUTO_DATA_REG
BEGIN
  PROMPT 2 11 "Usare data documento come data registrazione"
  MESSAGE FALSE ENABLE,F_DATA_REG
  MESSAGE TRUE CLEAR,F_DATA_REG
END

DATE F_DATA_REG
BEGIN
  PROMPT 53 11 "Data reg. "
  CHECKTYPE REQUIRED
END*/

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

ENDPAGE

ENDMASK