campo-sirio/ve/vetbpro.uml

#include "vetbpro.h"
#define LF_CLIFOR 20


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

PAGE "Archivio provvigioni " 11 60 14


LISTBOX F_TIPOCF 1
BEGIN
   PROMPT 0 0 ""
   ITEM "C|"
   FLAG "H"
END


STRING F_CODCLI 6  
BEGIN
  PROMPT 3 3 "Codice cliente  "
  FIELD PRO->CODTAB
  KEY 1
  USE LF_CLIFOR
  FLAG "U"
  INPUT TIPOCF F_TIPOCF SELECT
  INPUT CODCF  F_CODCLI
  DISPLAY "Cod. cliente " CODCF
  DISPLAY "Ragione sociale@50" RAGSOC
  OUTPUT F_TIPOCF TIPOCF
  OUTPUT F_CODCLI CODCF 
  OUTPUT F_CODCLI1 RAGSOC 
  CHECKTYPE REQUIRED
END

STRING F_CODCLI1 50
BEGIN
   PROMPT 3 4 "Ragione sociale "
   KEY 2
   USE LF_CLIFOR KEY 2
   FLAG "U"
   INPUT RAGSOC  F_CODCLI1
   INPUT TIPOCF F_TIPOCF SELECT
  
   DISPLAY "Cod. cliente " CODCF
   DISPLAY "Ragione sociale@50" RAGSOC
   OUTPUT F_TIPOCF TIPOCF
   OUTPUT F_CODCLI CODCF 
   OUTPUT F_CODCLI1 RAGSOC 
   CHECKTYPE REQUIRED
END

STRING F_CODAGENTE 6  
BEGIN
  PROMPT 3 6 "Codice agente   "
  FIELD PRO->S0
  KEY 1
  USE AGE
  FLAG "U"
  INPUT CODTAB  F_CODAGENTE
  DISPLAY "Cod. agente " CODTAB
  DISPLAY "Descrizione@30" S0
  
  OUTPUT F_CODAGENTE CODTAB
  OUTPUT F_CODAGENTE2    S0
  CHECKTYPE REQUIRED
  
END


STRING F_CODAGENTE2 30
BEGIN
   PROMPT 3 7 "Descrizione     "
   KEY 2
   USE AGE KEY 2
   INPUT S0  F_CODAGENTE2
   DISPLAY "Cod. agente " CODTAB
   DISPLAY "Descrizione@30" S0
  
   OUTPUT F_CODAGENTE CODTAB
   OUTPUT F_CODAGENTE2    S0
   CHECKTYPE REQUIRED
  
END

NUMBER F_IMPORTO 9 2
BEGIN
  PROMPT 3 9 "Importo provvigione  "
  FIELD PRO->R0
END

NUMBER F_PERCENTUALE 5 2
BEGIN
  PROMPT 3 11 "Percentuale provvigione  "
  FIELD PRO->R1
END

GROUPBOX DLG_NULL 75 14
BEGIN
  PROMPT 0 0 ""
  FLAG "R"
END

ENDPAGE


ENDMASK