campo-sirio/ef/ef0900a.uml

#include "ef0900a.h"

TOOLBAR "" 0 19 0 3

BUTTON DLG_OK 10 2
BEGIN
  PROMPT -12 -11 ""
END

BUTTON DLG_QUIT 10 2
BEGIN
  PROMPT -22 -11 ""
END

ENDPAGE

PAGE "Parametri effetti"  1 1 60 14

GROUPBOX DLG_NULL 78 8
BEGIN
  PROMPT 1 2 "@bContabilizzazione"
END

STRING F_CAUSALE 3
BEGIN
  PROMPT 2 3 "Causale incasso   "
  FIELD CODCAUS
  FLAGS "UZ"
  USE LF_CAUSALI
  INPUT CODCAUS F_CAUSALE
  DISPLAY "Cod." CODCAUS
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Documento" TIPODOC
  DISPLAY "Registro" REG
  OUTPUT F_CAUSALE CODCAUS
  CHECKTYPE NORMAL
END

STRING F_DESCINC 25
BEGIN
  PROMPT 30 3 "Descrizione movimento "
  FIELD DESCINC
END

STRING F_CAUSALE_PAG 3
BEGIN
  PROMPT 2 4 "Causale pagamento "
  FIELD CODCAUSPAG
  FLAGS "UZ"
  COPY USE F_CAUSALE
  INPUT CODCAUS F_CAUSALE_PAG
  COPY DISPLAY F_CAUSALE
  OUTPUT F_CAUSALE_PAG CODCAUS
  CHECKTYPE NORMAL
END

STRING F_DESCPAG 25
BEGIN
  PROMPT 30 4 "Descrizione movimento "
  FIELD DESCPAG
END

STRING F_CODSIA 5
BEGIN
  PROMPT 2 6 "Codice SIA        "
  FLAGS "Z"
  FIELD CODSIA
END

NUMBER F_TRANS_G 3
BEGIN        
  PROMPT 2 7 "Conto di transito per differenze cambi analitiche "
  USE LF_PCON SELECT SOTTOCONTO!=""
  INPUT GRUPPO F_TRANS_G
  INPUT CONTO F_TRANS_C
  INPUT SOTTOCONTO F_TRANS_S
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoc." SOTTOCONTO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_TRANS_G GRUPPO
  OUTPUT F_TRANS_C CONTO
  OUTPUT F_TRANS_S SOTTOCONTO
  OUTPUT F_TRANS_D DESCR
  CHECKTYPE NORMAL
  ADD RUN CG0 -0
  FIELG DIFFCAMG
END

NUMBER F_TRANS_C 3
BEGIN
  PROMPT 59 7 ""  
  COPY ALL F_TRANS_G
  CHECKTYPE NORMAL
  FIELG DIFFCAMC
END

NUMBER F_TRANS_S 6
BEGIN
  PROMPT 66 7 ""
  COPY ALL F_TRANS_G
  CHECKTYPE NORMAL
  FIELG DIFFCAMS
END

STRING F_TRANS_D 50
BEGIN
  PROMPT 2 8 "Descrizione conto   "
  USE LF_PCON KEY 2 SELECT SOTTOCONTO!=""
  INPUT DESCR F_TRANS_D
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoc." SOTTOCONTO
  COPY OUTPUT F_TRANS_S
  CHECKTYPE NORMAL
  ADD RUN CG0 -0
END

ENDPAGE

ENDMASK