campo-sirio/ve/ve3300.uml

#include "VE3300.H"

// #define LF_SCONTI 

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

PAGE "Archivio sconti incondizionati " 11 60 14

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

STRING F_CODCAT 2
BEGIN
  PROMPT 3 2  "Categoria vendita "
//  FIELD LF_SCONTI->CODART[1,2]
  USE CVE
  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 30 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_SCONTOC 2
BEGIN
  PROMPT 3 4  "Sconto cliente  "
//  FIELD LF_SCONTI->CODART[4,5]
  USE %SCC  // CATEGORIE VENDITA
  FLAG "U"
  INPUT CODTAB  F_SCONTOC
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@40" S0
      
  OUTPUT F_SCONTOC  CODTAB
  OUTPUT F_SCONTOC1 S0
END

STRING F_SCONTOC1 40
BEGIN
  PROMPT 25 4  ""
  USE %SCC  KEY 2
  FLAG "U"
  INPUT S0  F_SCONTOC1
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@40" S0
      
  OUTPUT F_SCONTOC  CODTAB
  OUTPUT F_SCONTOC1 S0
END

STRING F_ZONA 2
BEGIN
  PROMPT 3 6  "Zona      "
//  FIELD LF_SCONTI->CODART[7,8]
  USE %ZON  // ZONE
  FLAG "U"
  INPUT CODTAB  F_ZONA
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@40" S0
      
  OUTPUT F_ZONA  CODTAB
  OUTPUT F_ZONA1 S0
END

STRING F_ZONA1 40
BEGIN
  PROMPT 20 6  ""
  USE %SCC  KEY 2
  FLAG "U"
  INPUT S0  F_ZONA1
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@40" S0
      
  OUTPUT F_ZONA  CODTAB
  OUTPUT F_ZONA1 S0
END

STRING F_CODPAG 4
BEGIN
  PROMPT 3 8  "Codice pagamento "
//  FIELD LF_SCONTI->CODART[10,13]
  
END

STRING F_CODPAG1 40
BEGIN
  PROMPT 25 8  ""
  FLAG "D"
END


STRING F_SCONTO 25
BEGIN
   PROMPT 3 10 "Sconto incondizionato "
//   FIELD LF_SCONTI->SCONTO
END




GROUPBOX DLG_NULL 70 13

BEGIN
  PROMPT 0 0 ""
  FLAG "R"
END

ENDPAGE


ENDMASK