campo-sirio/sc/sc2500.uml

#include "sc2500.h"

TOOLBAR "toolbar" 0 0 0 2

BUTTON DLG_ELABORA 10 2
BEGIN       
  PROMPT -14 -11 "~Elabora"
  PICTURE BMP_ELABORA
  GROUP 4
END

BUTTON F_CANCEL 10 2
BEGIN       
  PROMPT -34 -11 "~Annulla"
  PICTURE BMP_CANCEL
  FLAGS "H"
END

BUTTON DLG_PRINT 10 2
BEGIN
  PROMPT -24 -11 ""
  FLAGS "D"
  GROUP 6
END

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

ENDPAGE

PAGE "Controllo saldi" 0 0 0 0

GROUPBOX DLG_NULL 78 4
BEGIN
  PROMPT 1 0 "@bSelezione conto iniziale"
END

LIST F_TIPOC 1 10
BEGIN
  PROMPT 2 1 "Tipo conto "
  ITEM " |Conto"
    MESSAGE SHOW,1@|HIDE,2@|HIDE,3@|COPY,F_ATIPOC
  ITEM "C|Cliente"
    MESSAGE SHOW,2@|HIDE,1@|HIDE,3@|COPY,F_ATIPOC
  ITEM "F|Fornitore"
    MESSAGE SHOW,3@|HIDE,1@|HIDE,2@|COPY,F_ATIPOC
  GROUP 4 5
END

NUMBER F_GRUPPO 3
BEGIN
  PROMPT 30 1 "Gruppo "
  USE LF_PCON SELECT (CONTO=="")&&(SOTTOCONTO=="")
  INPUT GRUPPO F_GRUPPO
  //INPUT CONTO F_CONTO
  DISPLAY "Gruppo" GRUPPO
  //DISPLAY "Conto" CONTO
  //DISPLAY "Tipo" TMCF
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_GRUPPO GRUPPO
  //OUTPUT F_CONTO CONTO
  //OUTPUT F_TIPOC TMCF
  CHECKTYPE SEARCH
  GROUP 4 5
END

NUMBER F_CONTO 3
BEGIN
  PROMPT 46 1 "Conto "
  USE LF_PCON SELECT (CONTO!="")&&(SOTTOCONTO=="")
  INPUT GRUPPO F_GRUPPO
  INPUT CONTO F_CONTO
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Tipo" TMCF
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_GRUPPO GRUPPO
  OUTPUT F_CONTO CONTO
  OUTPUT F_TIPOC TMCF
  CHECKTYPE SEARCH
  GROUP 4 5  
END

NUMBER F_SOTTOCONTO 6 
BEGIN
  PROMPT 2 2 "Sottoconto "        
  USE LF_PCON SELECT SOTTOCONTO!=""
  COPY INPUT F_CONTO
  INPUT SOTTOCONTO F_SOTTOCONTO
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_GRUPPO GRUPPO
  OUTPUT F_CONTO CONTO
  OUTPUT F_SOTTOCONTO SOTTOCONTO
  OUTPUT F_CON_DESCR DESCR
  CHECKTYPE SEARCH
  GROUP 1 4 5
END

STRING F_CON_DESCR 50
BEGIN
  PROMPT 25 2 ""
  USE LF_PCON KEY 2 SELECT SOTTOCONTO!=""
  INPUT DESCR F_CON_DESCR
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  COPY OUTPUT F_SOTTOCONTO
  CHECKTYPE SEARCH
  GROUP 1 4 5
END

NUMBER F_CLIENTE 6 
BEGIN   
  PROMPT 2 2 "Cliente    "
  USE LF_CLIFO 
  INPUT TIPOCF "C"
  INPUT CODCF F_CLIENTE
  DISPLAY "Codice" CODCF
  DISPLAY "Ragione Sociale@50" RAGSOC
  OUTPUT F_CLIENTE CODCF
  OUTPUT F_CLI_DESCR RAGSOC
  CHECKTYPE SEARCH
  MESSAGE COPY,F_SOTTOCONTO
  GROUP 2 4 5
END

STRING F_CLI_DESCR 50
BEGIN
  PROMPT 25 2 ""
  USE LF_CLIFO KEY 2
  INPUT TIPOCF "C"
  INPUT RAGSOC F_CLI_DESCR
  DISPLAY "Ragione Sociale@60" RAGSOC
  DISPLAY "Codice" CODCF
  COPY OUTPUT F_CLIENTE
  CHECKTYPE SEARCH
  GROUP 2 4 5
END

NUMBER F_FORNITORE 6 
BEGIN
  PROMPT 2 2 "Fornitore  "
  USE LF_CLIFO 
  INPUT TIPOCF "F"
  INPUT CODCF F_FORNITORE
  DISPLAY "Codice" CODCF
  DISPLAY "Ragione Sociale@50" RAGSOC
  OUTPUT F_FORNITORE CODCF
  OUTPUT F_FOR_DESCR RAGSOC
  CHECKTYPE SEARCH
  MESSAGE COPY,F_SOTTOCONTO
  GROUP 3 4 5
END

STRING F_FOR_DESCR 50
BEGIN
  PROMPT 25 2 ""
  USE LF_CLIFO KEY 2
  INPUT TIPOCF "F"
  INPUT RAGSOC F_FOR_DESCR
  COPY DISPLAY F_CLI_DESCR
  COPY OUTPUT F_FORNITORE
  CHECKTYPE SEARCH
  GROUP 3 4 5
END

GROUPBOX DLG_NULL 78 4
BEGIN
  PROMPT 1 4 "@bSelezione conto finale"
END

LIST F_ATIPOC 1 10
BEGIN
  PROMPT 2 5 "Tipo conto "
  ITEM " |Conto"  
  ITEM "C|Cliente"
  ITEM "F|Fornitore"
  FLAGS "D"
END

NUMBER F_AGRUPPO 3
BEGIN
  PROMPT 30 5 "Gruppo "
  COPY USE F_GRUPPO
  INPUT GRUPPO F_AGRUPPO
  //INPUT CONTO F_ACONTO
  COPY DISPLAY F_GRUPPO
  OUTPUT F_AGRUPPO GRUPPO
  //OUTPUT F_ACONTO CONTO
  CHECKTYPE SEARCH
  GROUP 1 4 5
END

NUMBER F_ACONTO 3
BEGIN
  PROMPT 46 5 "Conto "
  COPY USE F_CONTO
  INPUT GRUPPO F_AGRUPPO
  INPUT CONTO F_ACONTO
  COPY DISPLAY F_CONTO
  OUTPUT F_AGRUPPO GRUPPO
  OUTPUT F_ACONTO CONTO
  CHECKTYPE SEARCH
  GROUP 1 4 5
END

NUMBER F_ASOTTOCONTO 6 
BEGIN
  PROMPT 2 6 "Sottoconto "        
  COPY USE F_SOTTOCONTO
  COPY INPUT F_ACONTO
  INPUT SOTTOCONTO F_ASOTTOCONTO
  COPY DISPLAY F_SOTTOCONTO
  OUTPUT F_AGRUPPO GRUPPO
  OUTPUT F_ACONTO CONTO
  OUTPUT F_ASOTTOCONTO SOTTOCONTO
  OUTPUT F_ACON_DESCR DESCR
  CHECKTYPE SEARCH
  GROUP 1 4 5
END

STRING F_ACON_DESCR 50
BEGIN
  PROMPT 25 6 ""
  COPY USE F_CON_DESCR
  INPUT DESCR F_ACON_DESCR
  COPY DISPLAY F_CON_DESCR
  COPY OUTPUT F_ASOTTOCONTO
  CHECKTYPE SEARCH
  GROUP 1 4 5
END

NUMBER F_ACLIENTE 6 
BEGIN   
  PROMPT 2 6 "Cliente    "
  COPY USE F_CLIENTE
  INPUT TIPOCF "C"
  INPUT CODCF F_ACLIENTE
  COPY DISPLAY F_CLIENTE
  OUTPUT F_ACLIENTE CODCF
  OUTPUT F_ACLI_DESCR RAGSOC
  CHECKTYPE SEARCH
  MESSAGE COPY,F_ASOTTOCONTO
  GROUP 2 4 5
END

STRING F_ACLI_DESCR 50
BEGIN
  PROMPT 25 6 ""
  COPY USE F_CLI_DESCR
  INPUT TIPOCF "C"
  INPUT RAGSOC F_ACLI_DESCR
  COPY DISPLAY F_CLI_DESCR
  COPY OUTPUT F_ACLIENTE
  CHECKTYPE SEARCH
  GROUP 2 4 5
END

NUMBER F_AFORNITORE 6 
BEGIN
  PROMPT 2 6 "Fornitore  "
  COPY USE F_FORNITORE
  INPUT TIPOCF "F"
  INPUT CODCF F_AFORNITORE
  COPY DISPLAY F_FORNITORE
  OUTPUT F_AFORNITORE CODCF
  OUTPUT F_AFOR_DESCR RAGSOC
  CHECKTYPE SEARCH
  MESSAGE COPY,F_ASOTTOCONTO
  GROUP 3 4 5
END

STRING F_AFOR_DESCR 50
BEGIN
  PROMPT 25 6 ""
  COPY USE F_FOR_DESCR
  INPUT TIPOCF "F"
  INPUT RAGSOC F_AFOR_DESCR
  COPY DISPLAY F_FOR_DESCR
  COPY OUTPUT F_AFORNITORE
  CHECKTYPE SEARCH
  GROUP 3 4 5
END

BOOLEAN F_BILANCIATI
BEGIN
  PROMPT 1 8 "Stampa anche i conti con sbilancio nullo"
  GROUP 4  
END

BUTTON F_AZZERA 17 1
BEGIN
  PROMPT 60 8 "~Azzera selezioni"
  MESSAGE RESET,5@
END

BROWSEFILE F_PREVIEW 0 -1
BEGIN
  PROMPT 0 9 ""
  GROUP 5
END
 
ENDPAGE

ENDMASK