campo-sirio/sc/sc0300a.uml

#include "sc0300a.h"

TOOLBAR "" 0 0 0 2

BUTTON DLG_ELABORA 2 2
BEGIN
  PROMPT 1 1 "Elabora"
  PICTURE TOOL_ELABORA
  FLAGS "D"
END

BUTTON DLG_RECALC 2 2
BEGIN
  PROMPT 2 1 "Converti"
  PICTURE TOOL_CONVERT
  FLAGS "D"
END

BUTTON DLG_LINK 2 2
BEGIN
  PROMPT 3 1 "Collega"
  PICTURE TOOL_LINK
  FLAGS "D"
END

#include <helpbar.h>

ENDPAGE

PAGE "Pareggio Partite" 0 0 0 0

LIST F_TIPO 1 10
BEGIN
  PROMPT 1 0 "Tipo conto  "
//  ITEM "|Conto"    MESSAGE SHOW,1@|HIDE,2@|HIDE,3@
  ITEM "C|Cliente"   MESSAGE HIDE,1@|SHOW,2@|HIDE,3@
  ITEM "F|Fornitore" MESSAGE HIDE,1@|HIDE,2@|SHOW,3@
END

NUMBER F_GRUPPO 3
BEGIN
  PROMPT 28 0 "Gruppo "
  FLAGS "D"
END

NUMBER F_CONTO 3
BEGIN
  PROMPT 43 0 "Conto "
  FLAGS "D"
END

NUMBER F_SOTTOCONTO 6
BEGIN
  PROMPT 58 0 "Sottoconto "
  USE LF_PCON SELECT SOTTOCONTO!=""
  INPUT GRUPPO F_GRUPPO
  INPUT CONTO 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_DESCR DESCR
  GROUP 1
  CHECKTYPE REQUIRED
END

NUMBER F_CLIENTE 6
BEGIN
  PROMPT 58 0 "Cliente    "
  USE LF_CLIFO SELECT (LF_PARTITE->SOTTOCONTO!="")
  JOIN LF_PARTITE INTO TIPOC=TIPOCF SOTTOCONTO==CODCF
  INPUT TIPOCF "C"
  INPUT CODCF F_CLIENTE
  DISPLAY "Cliente" CODCF
  DISPLAY "Descrizione@50" RAGSOC
  DISPLAY "Partita IVA" PAIV
  DISPLAY "Codice Fiscale" COFI
  DISPLAY "Sosp." SOSPESO
  DISPLAY "Ric.Alt.@30" RICALT
  OUTPUT F_CLIENTE CODCF
  OUTPUT F_DESCRCLI RAGSOC
  ADD RUN cg0 -1 C
  GROUP 2
  CHECKTYPE REQUIRED
END

NUMBER F_FORNITORE 6
BEGIN
  PROMPT 58 0 "Fornitore  "
  USE LF_CLIFO SELECT (LF_PARTITE->SOTTOCONTO!="")
  JOIN LF_PARTITE INTO TIPOC=TIPOCF SOTTOCONTO==CODCF
  INPUT TIPOCF "F"
  INPUT CODCF F_FORNITORE
  DISPLAY "Fornitore" CODCF
  DISPLAY "Descrizione@50" RAGSOC
  DISPLAY "Partita IVA" PAIV
  DISPLAY "Codice Fiscale" COFI
  DISPLAY "Sosp." SOSPESO
  DISPLAY "Ric.Alt.@30" RICALT
  OUTPUT F_FORNITORE CODCF
  OUTPUT F_DESCRFOR RAGSOC
  ADD RUN cg0 -1 F
  GROUP 3
  CHECKTYPE REQUIRED
END

STRING F_DESCR 50 58
BEGIN
  PROMPT 1 1 "Descrizione     "
  GROUP 1
  CHECKTYPE NORMAL
END

STRING F_DESCRCLI 50 58
BEGIN
  PROMPT 1 1 "Ragione sociale "
  USE LF_CLIFO KEY 2 SELECT (LF_PARTITE->SOTTOCONTO!="")
  JOIN LF_PARTITE INTO TIPOC="C" SOTTOCONTO==CODCF
  INPUT TIPOCF "C"
  INPUT RAGSOC F_DESCRCLI
  DISPLAY "Ragione Sociale@50" RAGSOC
  DISPLAY "Cliente" CODCF
  DISPLAY "Partita IVA" PAIV
  DISPLAY "Codice Fiscale" COFI
  DISPLAY "Sosp." SOSPESO
  DISPLAY "Ric.Alt.@30" RICALT
  OUTPUT F_CLIENTE CODCF
  OUTPUT F_DESCRCLI RAGSOC
  CHECKTYPE NORMAL
  ADD RUN cg0 -1 F
  GROUP 2
END

STRING F_DESCRFOR 50 58
BEGIN
  PROMPT 1 1 "Ragione sociale "
  USE LF_CLIFO KEY 2 SELECT (LF_PARTITE->SOTTOCONTO!="")
  JOIN LF_PARTITE INTO TIPOC=TIPOCF SOTTOCONTO==CODCF
  INPUT TIPOCF "F"
  INPUT RAGSOC F_DESCRFOR
  DISPLAY "Ragione Sociale@50" RAGSOC
  DISPLAY "Fornitore" CODCF
  DISPLAY "Partita IVA" PAIV
  DISPLAY "Codice Fiscale" COFI
  DISPLAY "Sosp." SOSPESO
  DISPLAY "Ric.Alt.@30" RICALT
  OUTPUT F_FORNITORE CODCF
  OUTPUT F_DESCRFOR RAGSOC
  CHECKTYPE NORMAL
  ADD RUN cg0 -1 F
  GROUP 3
END

RADIOBUTTON F_TUTTE 1 38
BEGIN
  PROMPT 1 2 "Mostra fatture"
  ITEM "1|Aperte"
  ITEM "2|Chiuse"
  ITEM "3|Tutte"
  FLAGS "Z"
END

STRING F_CODVAL 3
BEGIN
  PROMPT 43 2 "Valuta  "
  USE %VAL
  INPUT CODTAB F_CODVAL
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODVAL CODTAB
  FLAGS "U"
  CHECKTYPE NORMAL
END

STRING F_CODCAUS_C 4
BEGIN
  PROMPT 43 3 "Causale "
  USE LF_CAUSALI SELECT (TIPOMOV=2)&&(LF_RCAUSALI->TIPOCF="C")
  JOIN LF_RCAUSALI INTO CODCAUS==CODCAUS
  INPUT CODCAUS F_CODCAUS_C
  DISPLAY "Codice" CODCAUS
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Tipo" TIPODOC
  OUTPUT F_CODCAUS_C CODCAUS
  FLAGS "GU"
  CHECKTYPE REQUIRED
  ADD RUN CG0 -4
  GROUP 2
END

STRING F_CODCAUS_F 4
BEGIN
  PROMPT 43 3 "Causale "
  USE LF_CAUSALI SELECT (TIPOMOV=2)&&(LF_RCAUSALI->TIPOCF="F")
  JOIN LF_RCAUSALI INTO CODCAUS==CODCAUS
  INPUT CODCAUS F_CODCAUS_F
  COPY DISPLAY F_CODCAUS_C
  OUTPUT F_CODCAUS_F CODCAUS
  FLAGS "GU"
  CHECKTYPE REQUIRED
  ADD RUN CG0 -4
  GROUP 3
END

TLIST F_NC_TREE 35 -1
BEGIN
  PROMPT 0 5 ""
  DISPLAY "Partita@11" NUMPART
  //DISPLAY "N.@3R" NRIGA
  DISPLAY "Data@7" DATADOC
  DISPLAY "Importo@10R" IMPORTO
  DISPLAY "Residuo@10R" RESIDUO
  DISPLAY "Descrizione@35" PART.DESCR
  DISPLAY "P.N.@5R" NREG
END

TLIST F_FT_TREE 35 -1
BEGIN
  PROMPT 35 5 ""
  DISPLAY "Partita@11" NUMPART
  //DISPLAY "N.@3R" NRIGA
  DISPLAY "Rata@4R" NRATA
  DISPLAY "Data@7" DATASCAD
  DISPLAY "Residuo@10R" RESIDUO
  DISPLAY "Importo@10R" IMPORTO
  DISPLAY "Descrizione Fattura@35" PART.DESCR
  DISPLAY "P.N.@5R" PART.NREG
  FLAGS "M"
END

ENDMASK