campo-sirio/sc/sc0100a.uml

#include "sc0100a.h"

TOOLBAR "" 0 0 0 2

BUTTON DLG_OK 11 2
BEGIN
  PROMPT -14 -11 "Selezione"
END

#include <helpbar.h>

ENDPAGE

PAGE "Selezione partite" 0 0 0 0

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

NUMBER F_GRUPPO 3
BEGIN
  PROMPT 27 1 "Gruppo "
  USE LF_PCON SELECT CONTO==""
  INPUT GRUPPO F_GRUPPO
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_GRUPPO GRUPPO
  CHECKTYPE REQUIRED
  ADD RUN cg0 -0
END

NUMBER F_CONTO 3
BEGIN
  PROMPT 41 1 "Conto "
  USE LF_PCON SELECT (CONTO!="")&&(SOTTOCONTO=="")
  INPUT GRUPPO F_GRUPPO
  INPUT CONTO F_CONTO
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Tipo" TMCF 
  OUTPUT F_TIPO TMCF
  OUTPUT F_GRUPPO GRUPPO
  OUTPUT F_CONTO CONTO
  CHECKTYPE REQUIRED
  ADD RUN cg0 -0
END

NUMBER F_SOTTOCONTO 6
BEGIN
  PROMPT 55 1 "Sottoc.   "
  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_DESCR DESCR
  ADD RUN cg0 -0
  GROUP 1
  CHECKTYPE REQUIRED
END

NUMBER F_CLIENTE 6
BEGIN
  PROMPT 55 1 "Cliente   "
  USE LF_CLIFO
  INPUT TIPOCF "C"
  INPUT CODCF F_CLIENTE
  DISPLAY "Cliente" CODCF
  DISPLAY "Descrizione@50" RAGSOC
//  OUTPUT F_GRUPPO GRUPPO
//  OUTPUT F_CONTO CONTO
  OUTPUT F_CLIENTE CODCF
  OUTPUT F_DESCRCLI RAGSOC
  ADD RUN cg0 -1 C
  GROUP 2
  CHECKTYPE REQUIRED
  MESSAGE COPY,F_SOTTOCONTO
END

NUMBER F_FORNITORE 6
BEGIN
  PROMPT 55 1 "Fornitore "
  USE LF_CLIFO
  INPUT TIPOCF "F"
  INPUT CODCF F_FORNITORE
  DISPLAY "Fornitore" CODCF
  DISPLAY "Descrizione@50" RAGSOC
//  OUTPUT F_GRUPPO GRUPPO
//  OUTPUT F_CONTO CONTO
  OUTPUT F_FORNITORE CODCF
  OUTPUT F_DESCRFOR RAGSOC
  ADD RUN cg0 -1 F
  GROUP 3
  CHECKTYPE REQUIRED
  MESSAGE COPY,F_SOTTOCONTO
END

STRING F_DESCR 50 58
BEGIN
  PROMPT 1 2 "Descrizione "
  USE LF_PCON KEY 2
  INPUT DESCR F_DESCR
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  COPY OUTPUT F_SOTTOCONTO
  CHECKTYPE REQUIRED
  GROUP 1
  ADD RUN cg0 -0
END

STRING F_DESCRCLI 50 58
BEGIN
  PROMPT 1 2 "Descrizione "
  USE LF_CLIFO KEY 2
  INPUT TIPOCF "C"
  INPUT RAGSOC F_DESCRCLI
  DISPLAY "Ragione sociale@58" RAGSOC
  DISPLAY "Codice" CODCF
  COPY OUTPUT F_CLIENTE
  CHECKTYPE REQUIRED
  GROUP 2
  ADD RUN cg0 -1 C
END

STRING F_DESCRFOR 50 58
BEGIN
  PROMPT 1 2 "Descrizione "
  USE LF_CLIFO KEY 2      
  INPUT TIPOCF "F"
  INPUT RAGSOC F_DESCRFOR
  COPY DISPLAY F_DESCRCLI
  COPY OUTPUT F_FORNITORE
  CHECKTYPE REQUIRED
  GROUP 3
  ADD RUN cg0 -1 F
END

NUMBER F_NUMERO 7
BEGIN
  PROMPT 1 4 "Registrazione "
  USE LF_PARTITE SELECT (TIPOC=#F_TIPO)&&(NREG!="")
  JOIN LF_CLIFO INTO TIPOCF=TIPOC CODCF==SOTTOCONTO
  INPUT NREG F_NUMERO
  DISPLAY "Numero" NREG
  DISPLAY "Data@10" DATAREG
  DISPLAY "Tipo" TIPOMOV
  DISPLAY "C/F" TIPOC
  DISPLAY "Gruppo" GRUPPOCL
  DISPLAY "Conto" CONTOCL
  DISPLAY "Sottonto" SOTTOCONTO
  DISPLAY "Ragione sociale@50" LF_CLIFO->RAGSOC
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_NUMERO NREG 
  OUTPUT F_GRUPPO GRUPPOCL
  OUTPUT F_CONTO CONTOCL
  OUTPUT F_SOTTOCONTO SOTTOCONTO
  OUTPUT F_CLIENTE SOTTOCONTO
  OUTPUT F_FORNITORE SOTTOCONTO
  CHECKTYPE SEARCH
END


ENDMASK