campo-sirio/sc/sc1400a.uml

#include "sc1400.h"

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

PAGE "Abbuoni automatici" 0 2 0 0

LIST F_TIPOCF 1 10
BEGIN
  PROMPT 1 1 "Chiusura automatica delle scadenze dei "
  IT "C|Clienti"
  IT "F|Fornitori"
END

CURRENCY F_IMPORTO 12
BEGIN
  PROMPT 1 2 "il cui residuo non superi l'importo di "
  DRIVENBY F_CODVAL
  CHECKTYPE REQUIRED
  WARNING "E' necessario specificare un importo massimo"
END

BOOLEAN F_INVALUTA
BEGIN
  PROMPT 1 3 "in valuta "
  MESSAGE FALSE HIDE,3@
  MESSAGE TRUE  SHOW,3@
END

STRING F_CODVAL 3
BEGIN
  PROMPT 16 3 ""
  USE %VAL
  INPUT CODTAB F_CODVAL
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODVAL CODTAB
  CHECKTYPE REQUIRED
  GROUP 3
  FLAGS "U"
END

DATE F_DATACAMBIO
BEGIN
  PROMPT 25 3 "al cambio del  "
  FIELD DATACAM
  USE CAM
  JOIN %VAL ALIAS 104 INTO CODTAB[1,3]==CODTAB[1,3]
  INPUT CODTAB[1,3] F_CODVAL SELECT
  INPUT CODTAB[4,11] F_DATACAMBIO
  DISPLAY "Cod" CODTAB[1,3]
  DISPLAY "Data@10" D0
  DISPLAY "Cambio@16R" S4
  DISPLAY "Valuta@50" 104@->S0
  OUTPUT F_DATACAMBIO D0
  OUTPUT F_CAMBIO S4
  GROUP 3
  CHECKTYPE SEARCH
END

NUMBER F_CAMBIO 16 6
BEGIN
  PROMPT 55 3 "di "
  FLAGS "RU"
  GROUP 3
  PICTURE ".6"
  CHECKTYPE REQUIRED  
  WARNING "Inserire il cambio o eliminare il codice valuta"
END

GROUP DLG_NULL 78 4
BEGIN
  PROMPT 1 4 "Parametri movimento contabile"
END

STRING F_CAUSALE 3
BEGIN
  PROMPT 2 5 "Causale "
  USE LF_CAUSALI SELECT (TIPOMOV="3")&&(TRIM(MOVVAL)=#F_INVALUTA)&&(LF_RCAUSALI->TIPOCF=#F_TIPOCF)
  JOIN LF_RCAUSALI INTO CODCAUS==CODCAUS
  INPUT CODCAUS F_CAUSALE
  DISPLAY "Codice" CODCAUS
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_CAUSALE CODCAUS
  OUTPUT F_DESCAUS DESCR
  CHECKTYPE REQUIRED
  FLAGS "U"
  ADD RUN cg0 -4
END

STRING F_DESCAUS 50
BEGIN
  PROMPT 24 5 ""
  FLAGS "D"
END

DATE F_DATAREG 
BEGIN
  PROMPT 2 6 "Data di registrazione "
  FLAGS "A"
  CHECKTYPE REQUIRED
END

DATE F_DATACOMP
BEGIN
  PROMPT 44 6 "Data di competenza "
  VALIDATE DATE_CMP_FUNC <= F_DATAREG
END

ENDPAGE

ENDMASK