campo-sirio/ve/ve3100.uml

#include "VE3100.H"

// #define LF_SCONTI 
#define LF_ANAMAG 47

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

PAGE "Archivio sconti riga " 11 60 14

LISTBOX F_TIPO 1
BEGIN
   PROMPT 0 0 ""
   ITEM "R|"
   FLAG "H"
//   FIELD LF_SCONTI->TIPO    
END

STRING F_CODCAT 2
BEGIN
  PROMPT 3 2  "Categoria vendita "
//  FIELD LF_SCONTI->CODCAT
  USE %CVE  // CATEGORIE VENDITA
  FLAG "U"
  INPUT CODTAB  F_CODCAT
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@40" S0
      
  OUTPUT F_CODCAT  CODTAB
  OUTPUT F_CODCAT1 S0
END

STRING F_CODCAT1 40
BEGIN
  PROMPT 28 2  ""
  USE %CVE  KEY 2
  FLAG "U"
  INPUT S0  F_CODCAT1
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@40" S0
      
  OUTPUT F_CODCAT  CODTAB
  OUTPUT F_CODCAT1 S0
END

STRING F_CODART 30
BEGIN
  PROMPT 3 4  "Codice articolo "
//  FIELD LF_SCONTI->CODART
  USE LF_ANAMAG
  INPUT CODART F_CODART
  DISPLAY "Codice@30" CODART
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_CODART CODART
  OUTPUT F_DESCR DESCR
END

STRING F_DESCR 50
BEGIN
  PROMPT 3 5  "Descrizione "

  USE LF_ANAMAG KEY 2
  INPUT DESCR F_DESCR
  DISPLAY "Codice@30" CODART
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_CODART CODART
  OUTPUT F_DESCR DESCR
END

LISTBOX F_UM 10
BEGIN
   PROMPT 3 7 "U.M.  "
   ITEM "    "
// TROVARE DA ANAGRAFICA ARTICOLI 
//   FIELD LF_SCONTI->UM    
END

STRING F_SCONTO 25
BEGIN
   PROMPT 3 8 "Sconto di riga "
//   FIELD LF_SCONTI->SCONTO
END


GROUPBOX DLG_NULL 70 13

BEGIN
  PROMPT 0 0 ""
  FLAG "R"
END

ENDPAGE


ENDMASK