campo-sirio/ef/ef0900a.uml

#include "ef0900a.h"

TOOLBAR "topbar" 0 0 0 2
#include <stdbar.h>
ENDPAGE

PAGE "Parametri effetti"  0 2 0 0

GROUPBOX DLG_NULL 78 11
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
  OUTPUT F_DESCCAUINC DESCR
  CHECKTYPE NORMAL
END

STRING F_DESCCAUINC 50 45
BEGIN
  PROMPT 30 3 ""
  USE LF_CAUSALI KEY 2
  INPUT DESCR F_DESCCAUINC
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Cod." CODCAUS
  DISPLAY "Documento" TIPODOC
  DISPLAY "Registro" REG
  COPY OUTPUT F_CAUSALE 
END

STRING F_DESCINC 50
BEGIN
  PROMPT 2 4 "Descr. movimento  "
  FIELD DESCINC
END

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

STRING F_DESCCAUPAG 50 45
BEGIN
  PROMPT 30 5 ""
  COPY USE F_DESCCAUINC
  INPUT DESCR F_DESCCAUPAG
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Cod." CODCAUS
  DISPLAY "Documento" TIPODOC
  DISPLAY "Registro" REG
  COPY OUTPUT F_CAUSALE_PAG 
END

STRING F_DESCPAG 50
BEGIN
  PROMPT 2 6 "Descr. movimento  "
  FIELD DESCPAG
END

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

NUMBER F_TRANS_G 3
BEGIN        
  PROMPT 2 9 "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 9 ""  
  COPY ALL F_TRANS_G
  CHECKTYPE NORMAL
  FIELG DIFFCAMC
END

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

STRING F_TRANS_D 50
BEGIN
  PROMPT 2 10 "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

BOOLEAN F_CONTSEP
BEGIN
  PROMPT 2 11 "Contabilizzazione per contabilit<69> separata"
  FIELD ContSep
END

ENDPAGE

ENDMASK