campo-sirio/ve/batbspp.uml

#include "BATBSPP.H"
#define LF_PCON 19

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

PAGE "Tabella spese e prestazioni " 11 60 14

STRING F_CODICE 3  
BEGIN
  PROMPT 3 1 "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 3 2  "Descrizione  "
  FIELD SPP->S0
  KEY 2
  USE SPP KEY 2
  
  INPUT S0  F_DESCR
  DISPLAY "Codice " CODTAB
  DISPLAY "Descrizione@50 " S0
  OUTPUT F_CODICE CODTAB
  OUTPUT F_DESCR  S0
  CHECKTYPE REQUIRED
END


STRING F_CODASSFIS 4
BEGIN
  PROMPT 3 4  "Codice assogg. fiscale  "
  FIELD SPP->S1[1,4]
  USE %IVA
  INPUT CODTAB  F_CODASSFIS
  DISPLAY "Codice " CODTAB
  DISPLAY "Descrizione@30" S0
  OUTPUT F_CODASSFIS CODTAB
  OUTPUT F_CODASSFIS1 S0
  
END

STRING F_CODASSFIS1 30
BEGIN
  PROMPT 35 4 ""
  FLAG "D"
END

STRING F_CODDIV 3
BEGIN
  PROMPT 3 5 "Codice divisa  "
  FIELD SPP->S1[5,7]
  USE CVA
  INPUT CODTAB  F_CODDIV
  DISPLAY "Codice " CODTAB
  DISPLAY "Descrizione@30" S0
  OUTPUT F_CODDIV CODTAB
  OUTPUT F_CODDIV1 S0
  
END

STRING F_CODDIV1 30
BEGIN
  PROMPT 30 5 ""
  FLAG "D"
END

NUMBER F_PREZZO 13 2
BEGIN
  PROMPT 3 6 "Prezzo  "
  FIELD SPP->R0
END

NUMBER F_VALORE 13 2
BEGIN
  PROMPT 30 6 "Valore  "
  FIELD SPP->R1
END

STRING F_NCAMPOCAL 2
BEGIN
  PROMPT 3 7 "N° campo di calcolo  "
  FIELD SPP->I0
END

STRING F_NCAMPOCAL1 20
BEGIN
  PROMPT 29 7 ""
  FLAG "D"
END

NUMBER F_PERCENTUALE 5 2
BEGIN
  PROMPT 51 7 "Percentuale "
  FIELD SPP->R2
END

LISTBOX F_TIPO 8
BEGIN
  PROMPT 3 8  "Tipo spesa  "
  FIELD SPP->S1[9]
  ITEM "0|Spesa "
  ITEM "1|Merce "
END

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

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

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

STRING F_CODTABAGG1 20
BEGIN
  PROMPT 40 13 ""
  FLAG "D"
END

STRING F_NCAMPOAUTOM 2
BEGIN
  PROMPT 3 14 "Num. campo calcolo spese autom.  "
  FIELD SPP->S1[14,15] 
END

STRING F_NCAMPOAUTOM1 15
BEGIN
  PROMPT 40 14 ""
  FLAG "D"
END

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

STRING F_GRUPPO 2
BEGIN
  PROMPT 3 15 "Conto di ric./costo "
  FIELD SPP->S2 
  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
  CHECKTYPE REQUIRED
END

STRING F_CONTO 2
BEGIN
  PROMPT 29 15 ""
  FIELD SPP->S3 
END

STRING F_SOTTO 6 
BEGIN
  PROMPT 33 15 ""
  FIELD SPP->S4 
END

STRING F_DESCRCONTO 35
BEGIN
  PROMPT 41 15 ""
  FLAG "D"
END


STRING F_CODMOVCOM 2
BEGIN
  PROMPT 3 16 "Codice movimento commessa        "
  FIELD SPP->S1[19,20] 
END

STRING F_CODMOVCOM1 30
BEGIN
  PROMPT 40 16 ""
  FLAG "D"
END


GROUPBOX DLG_NULL 73 4
BEGIN
  PROMPT 0 0 ""
  FLAG "R"
END

ENDPAGE


ENDMASK