campo-sirio/ba/baeur20.uml

#include "baeur20.h"

TOOLBAR "" 0 -3 0 3

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

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

ENDPAGE    

PAGE "Conversione saldi" 0 0 80 18

GROUPBOX DLG_NULL 78 6
BEGIN
  PROMPT 1 1 "@bDitta da convertire"  
END

NUMBER F20_DITTA 5
BEGIN
  PROMPT 2 2 "Ditta "
  USE LF_NDITTE
  INPUT CODDITTA F20_DITTA
  OUTPUT F20_RAGSOC RAGSOC
  CHECKTYPE REQUIRED
  FLAGS "DF"
END

STRING F20_RAGSOC 50
BEGIN
  PROMPT 21 2 ""
  FLAGS "D"
END

STRING F20_DATI 50
BEGIN
  PROMPT 2 3 "Area dati in Lire  "
  FLAGS "D"
END

STRING F20_DATIE 50
BEGIN
  PROMPT 2 4 "Area dati in Euro  "
  FLAGS "D"
END

DATE F20_ADOZIONE
BEGIN
  PROMPT 2 5 "Data adozione Euro "
  FLAGS "D"
END

GROUPBOX DLG_NULL 78 6
BEGIN
  PROMPT 1 7 "@bChiusura"  
END
 
STRING F20_CAUS_C 3
BEGIN
  PROMPT 2 8 "Causale chiusura "
  FLAGS "U"
  USE LF_CAUSALI SELECT MOVAP="C"
  INPUT CODCAUS F20_CAUS_C
  DISPLAY "Codice" CODCAUS
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F20_CAUS_C CODCAUS
  OUTPUT F20_DESCAUS_C DESCR
  CHECKTYPE REQUIRED
END 

STRING F20_DESCAUS_C 50
BEGIN
  PROMPT 25 8 ""
  USE LF_CAUSALI KEY 2 SELECT MOVAP="C"
  INPUT DESCR F20_DESCAUS_C
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Codice" CODCAUS
  COPY OUTPUT F20_CAUS_C 
END 

STRING F20_DESC_C 50
BEGIN
  PROMPT 2 9 "Descrizione aggiuntiva "
END 

NUMBER F20_CONTROG_C 3
BEGIN
  PROMPT 2 10 "Contropartita          "
  FLAGS "U"
END

NUMBER F20_CONTROC_C 3
BEGIN
  PROMPT 30 10 ""
  FLAGS "U"
END

NUMBER F20_CONTROS_C 6
BEGIN
  PROMPT 36 10 ""
  USE LF_PCON SELECT SOTTOCONTO!=""
  INPUT GRUPPO F20_CONTROG_C
  INPUT CONTO F20_CONTROC_C
  INPUT SOTTOCONTO F20_CONTROS_C
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" GRUPPO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F20_CONTROG_C GRUPPO 
  OUTPUT F20_CONTROC_C CONTO 
  OUTPUT F20_CONTROS_C SOTTOCONTO
  OUTPUT F20_CONTROD_C DESCR
  CHECKTYPE REQUIRED 
  ADD RUN cg0 -0
END

STRING F20_CONTROD_C 50
BEGIN
  PROMPT 25 11 ""
  USE LF_PCON KEY 2 SELECT SOTTOCONTO!=""
  INPUT DESCR F20_CONTROD_C
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" GRUPPO
  COPY OUTPUT F20_CONTROS_C
  CHECKTYPE REQUIRED 
  ADD RUN cg0 -0
END

GROUPBOX DLG_NULL 78 6
BEGIN
  PROMPT 1 13 "@bApertura"  
END
 
STRING F20_CAUS_A 3
BEGIN
  PROMPT 2 14 "Causale apertura "
  FLAGS "U"
  USE LF_CAUSALI SELECT MOVAP="A"
  INPUT CODCAUS F20_CAUS_A
  DISPLAY "Codice" CODCAUS
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F20_CAUS_A CODCAUS
  OUTPUT F20_DESCAUS_A DESCR
  CHECKTYPE REQUIRED
END 

STRING F20_DESCAUS_A 50
BEGIN
  PROMPT 25 14 ""
  USE LF_CAUSALI KEY 2 SELECT MOVAP="A"
  INPUT DESCR F20_DESCAUS_A
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Codice" CODCAUS
  COPY OUTPUT F20_CAUS_A
END 

STRING F20_DESC_A 50
BEGIN
  PROMPT 2 15 "Descrizione aggiuntiva "
END 

NUMBER F20_CONTROG_A 3
BEGIN
  PROMPT 2 16 "Contropartita          "
  FLAGS "U"
END

NUMBER F20_CONTROC_A 3
BEGIN
  PROMPT 30 16 ""
  FLAGS "U"
END

NUMBER F20_CONTROS_A 6
BEGIN
  PROMPT 36 16 ""
  USE LF_PCON SELECT SOTTOCONTO!=""
  INPUT GRUPPO F20_CONTROG_A
  INPUT CONTO F20_CONTROC_A
  INPUT SOTTOCONTO F20_CONTROS_A
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F20_CONTROG_A GRUPPO 
  OUTPUT F20_CONTROC_A CONTO 
  OUTPUT F20_CONTROS_A SOTTOCONTO
  OUTPUT F20_CONTROD_A DESCR
  CHECKTYPE REQUIRED 
  ADD RUN cg0 -0
END

STRING F20_CONTROD_A 50
BEGIN
  PROMPT 25 17 ""
  USE LF_PCON KEY 2 SELECT SOTTOCONTO!=""
  INPUT DESCR F20_CONTROD_A
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  COPY OUTPUT F20_CONTROS_A
  CHECKTYPE REQUIRED 
  ADD RUN cg0 -0
END

GROUPBOX DLG_NULL 78 3
BEGIN
  PROMPT 1 19 "@bConto Differenza Arrotondamenti"  
END

NUMBER F20_DIFF_G 3
BEGIN
  PROMPT 2 20 ""
  FLAGS "U"
END

NUMBER F20_DIFF_C 3
BEGIN
  PROMPT 7 20 ""
  FLAGS "U"
END

NUMBER F20_DIFF_S 6
BEGIN
  PROMPT 12 20 ""
  FLAGS "U"
  USE LF_PCON SELECT SOTTOCONTO!=""
  INPUT GRUPPO F20_DIFF_G
  INPUT CONTO F20_DIFF_C
  INPUT SOTTOCONTO F20_DIFF_S
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" GRUPPO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F20_DIFF_G GRUPPO 
  OUTPUT F20_DIFF_C CONTO 
  OUTPUT F20_DIFF_S SOTTOCONTO
  OUTPUT F20_DIFF_D DESCR
  CHECKTYPE REQUIRED 
  WARNING "E' necessario specificare il conto per gli arrotondamenti"
  ADD RUN cg0 -0
END

STRING F20_DIFF_D 50
BEGIN
  PROMPT 25 20 ""
  USE LF_PCON KEY 2 SELECT SOTTOCONTO!=""
  INPUT DESCR F20_DIFF_D
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" GRUPPO
  COPY OUTPUT F20_DIFF_S 
  CHECKTYPE REQUIRED 
  ADD RUN cg0 -0
END

ENDMASK