campo-sirio/ve/batbspp.uml

#include "batbspp.h"

TOOLBAR "" 0 20 60 2
#include <toolbar.h>
ENDPAGE

PAGE "Tabella spese e prestazioni " 11 60 14

GROUPBOX DLG_NULL 75 7
BEGIN
 PROMPT 1 0 ""
 FLAGS "R"
END

STRING F_CODICE 3
BEGIN
  PROMPT 2 2 "Cod. tabella "
  FIELD SPP->CODTAB
  KEY 1
  USE SPP
  FLAG "U"
  INPUT CODTAB  F_CODICE
  DISPLAY "Codice "         CODTAB
  DISPLAY "Descrizione@50 " S0
  OUTPUT F_CODICE CODTAB
  OUTPUT F_DESCR  S0
  CHECKTYPE REQUIRED
END


STRING F_DESCR 50
BEGIN
  PROMPT 2 4  "Descrizione  "
  FIELD SPP->S0
  KEY 2
  USE SPP KEY 2
  INPUT S0  F_DESCR
  DISPLAY "Descrizione@50 " S0
  DISPLAY "Codice " CODTAB
  OUTPUT F_CODICE CODTAB
  OUTPUT F_DESCR  S0
  CHECKTYPE REQUIRED
END


STRING F_CODASSFIS 4
BEGIN
  PROMPT 2 7  "Codice IVA    "
  FIELD SPP->S1[1,4]
  USE %IVA
  INPUT CODTAB  F_CODASSFIS
  DISPLAY "Codice " CODTAB
  DISPLAY "D2escrizione@50" S0
  OUTPUT F_CODASSFIS CODTAB
  OUTPUT F_CODASSFIS1 S0
END

STRING F_CODASSFIS1 50
BEGIN
  PROMPT 25 7 ""
  FLAG "D"
END

STRING F_CODDIV 4
BEGIN
  PROMPT 2 8 "Codice valuta "
  FIELD SPP->S1[5,7]
  USE VAL
  INPUT CODTAB  F_CODDIV
  DISPLAY "Codice " CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODDIV CODTAB
  OUTPUT F_CODDIV1 S0
END

STRING F_CODDIV1 50
BEGIN
  PROMPT 25 8 ""
  FLAG "D"
END

LISTBOX F_CAMPI 15
BEGIN
  PROMPT 2 10  "Campo da proporre      "
  FIELD SPP->S6
  ITEM "Q|Qta prezzo "
  MESSAGE HIDE,F_VALORE|HIDE,F_PERCENTUALE|SHOW,F_PREZZO
  ITEM "V|Valore "
  MESSAGE HIDE,F_PREZZO|HIDE,F_PERCENTUALE|SHOW,F_VALORE
  ITEM "P|Percentuale "
  MESSAGE HIDE,F_PREZZO|HIDE,F_VALORE|SHOW,F_PERCENTUALE
END

NUMBER F_PREZZO 13 2
BEGIN
  PROMPT 50 10 "Prezzo      "
  FIELD SPP->R0
END

NUMBER F_VALORE 13 2
BEGIN
  PROMPT 50 10 "Valore      "
  FIELD SPP->R0
END

NUMBER F_PERCENTUALE 5 2
BEGIN
  PROMPT 50 10 "Percentuale "
  FIELD SPP->R0
END

STRING F_NCAMPOCAL 2
BEGIN
  PROMPT 2 12 "N. calcolo    "
  FIELD SPP->I0
END

STRING F_NCAMPOCAL1 50
BEGIN
  PROMPT 25 12 ""
  FLAG "D"
END

LISTBOX F_TIPO 8
BEGIN
  PROMPT 2 14  "Tipo spesa    "
  FIELD SPP->S1[9]
  ITEM "S|Spesa "
  ITEM "M|Merce "
END

BOOLEAN F_INCASSO
BEGIN
  PROMPT 2 16 "Spesa da incassare su prima rata "
  FIELD SPP->B0
END

BOOLEAN F_STAMPA
BEGIN
  PROMPT 2 17 "Stampa riga su corpo documento "
  FIELD SPP->B1
END

ENDPAGE

PAGE "Tabella spese e prestazioni " 11 60 14

STRING F_CODTABAGG 2
BEGIN
  PROMPT 2 2 "N. agg. piede     "
  FIELD SPP->S1[11,12]
END

STRING F_CODTABAGG1 50
BEGIN
  PROMPT 25 2 ""
  FLAG "D"
END

STRING F_NCAMPOAUTOM 2
BEGIN
  PROMPT 2 4 "N. calcolo spese  "
  FIELD SPP->S1[14,15]
END

STRING F_NCAMPOAUTOM1 50
BEGIN
  PROMPT 25 4 ""
  FLAG "D"
END

STRING F_SEGNO 1
BEGIN
  PROMPT 2 6 "Segno "
  FIELD SPP->S1[17]
END

NUMBER F_GRUPPO 3
BEGIN
  PROMPT 2 8 "Conto ric./costo  "
  FIELD SPP->S2
 END

NUMBER F_CONTO 3
BEGIN
  PROMPT 28 8 ""
  FIELD SPP->S3
  USE LF_PCON SELECT (INDBIL="3")||(INDBIL="4")
  INPUT GRUPPO      F_GRUPPO
  INPUT CONTO       F_CONTO
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_GRUPPO  GRUPPO
  OUTPUT F_CONTO  CONTO
  ADD RUN CG0 -0
 END

NUMBER F_SOTTO 6
BEGIN
  PROMPT 38 8 ""
  FIELD SPP->S4
  USE LF_PCON
  INPUT GRUPPO      F_GRUPPO
  INPUT CONTO       F_CONTO
  INPUT SOTTOCONTO  F_SOTTO
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_GRUPPO  GRUPPO
  OUTPUT F_CONTO  CONTO
  OUTPUT F_SOTTO  SOTTOCONTO
  OUTPUT F_DESCRCONTO  DESCR
  ADD RUN CG0 -0
END

STRING F_DESCRCONTO 50
BEGIN
  PROMPT 25 10 ""
  FLAG "D"
END

STRING F_CODMOVCOM 3
BEGIN
  PROMPT 2 12 "Mov. commessa     "
  FIELD SPP->S1[19,20]
END

STRING F_CODMOVCOM1 50
BEGIN
  PROMPT 25 12 ""
  FLAG "D"
END

ENDPAGE

ENDMASK