campo-sirio/ve/ve2300x.uml

#include <lffiles.h>
#include "ve2300x.h"

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

PAGE "Righe cond. di vend." 0 0 70 20

GROUPBOX DLG_NULL 78 9 
BEGIN
  PROMPT 0 0 ""
  FLAG "R"
END

STRING F_R_TIPO 1
BEGIN
  PROMPT 100 100 ""
  FIELD LF_RCONDV->TIPO
  FLAG "DUP"
  KEY 1
  CHECKTYPE REQUIRED
END

STRING F_R_L_CATVEN 2 // campo riservato ai listini
BEGIN
  PROMPT 2 2 "Cat. vendita "
  FIELD LF_RCONDV->CATVEN
  FLAG "UP"
  KEY 1
  USE CVE
  INPUT CODTAB F_R_L_CATVEN
  DISPLAY "Cat." CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_R_L_CATVEN CODTAB
  OUTPUT F_R_L_DESVEN S0
  CHECKTYPE REQUIRED
END

STRING F_R_L_DESVEN 50 // campo riservato ai listini
BEGIN
  PROMPT 25 2 ""
  FLAG "D"
END

LIST F_R_C_TIPOCF 7 // campo riservato ai contratti
BEGIN
  PROMPT 2 1 "Tipo C/F  "
  FIELD LF_RCONDV->TIPOCF
  FLAG "P"
  KEY 1
  ITEM "C|Cliente"
  ITEM "F|Fornit."
END

STRING F_R_C_CODCF 6 // campo riservato ai contratti
BEGIN
  PROMPT 2 2 "Cod. C/F  "
  FIELD LF_RCONDV->CODCF
  FLAG "UP"
  KEY 1
  USE LF_CLIFO
  INPUT TIPOCF F_R_C_TIPOCF
  INPUT CODCF F_R_C_CODCF
  DISPLAY "C/F" TIPOCF
  DISPLAY "Codice" CODCF
  DISPLAY "Ragione sociale@50" RAGSOC
  OUTPUT F_R_C_TIPOCF TIPOCF
  OUTPUT F_R_C_CODCF CODCF
  OUTPUT F_R_C_DESCF RAGSOC
  CHECKTYPE REQUIRED
END

STRING F_R_C_DESCF 50 // campo riservato ai contratti
BEGIN
  PROMPT 25 2 ""
  FLAG "D"
END

STRING F_R_C_COD 3 // campo riservato ai contratti
BEGIN
  PROMPT 2 3 "Contratto N. "
  FIELD LF_RCONDV->COD
  FLAG "PGU"
  KEY 1
  USE LF_CONDV
  INPUT TIPO F_R_TIPO SELECT
  INPUT TIPOCF F_R_C_TIPOCF SELECT
  INPUT CODCF F_R_C_CODCF SELECT
  INPUT COD F_R_C_COD
  DISPLAY "C/F" TIPOCF
  DISPLAY "Codice" CODCF
  DISPLAY "Numero" COD
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_R_TIPO TIPO
  OUTPUT F_R_C_TIPOCF TIPOCF
  OUTPUT F_R_C_CODCF CODCF
  OUTPUT F_R_C_COD COD
  OUTPUT F_R_C_DES DESCR
  CHECKTYPE REQUIRED
END

STRING F_R_L_COD 3 // campo riservato ai listini
BEGIN
  PROMPT 2 3 "Listino      "
  FIELD LF_RCONDV->COD
  FLAG "UPG"
  KEY 1
  USE LF_CONDV
  INPUT TIPO F_R_TIPO SELECT
  INPUT CATVEN F_R_L_CATVEN SELECT
  INPUT COD F_R_L_COD
  DISPLAY "C.V." CATVEN
  DISPLAY "Codice" COD
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_R_TIPO TIPO
  OUTPUT F_R_L_CATVEN CATVEN
  OUTPUT F_R_L_COD COD
  OUTPUT F_R_L_DES DESCR
  CHECKTYPE REQUIRED
END

STRING F_R_L_DES 50 // campo riservato ai contratti
BEGIN
  PROMPT 25 3 ""
  FLAG "D"
END

STRING F_R_C_DES 50 // campo riservato ai listini
BEGIN
  PROMPT 25 3 ""
  FLAG "D"
END

STRING F_R_O_COD 3 // campo riservato alle offerte
BEGIN
  PROMPT 2 2 "Codice offerta "
  FIELD LF_RCONDV->COD
  FLAG "UPG"
  KEY 1
  USE LF_CONDV
  INPUT TIPO F_R_TIPO SELECT
  INPUT COD F_R_O_COD
  DISPLAY "Codice" COD
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_R_TIPO TIPO
  OUTPUT F_R_O_COD COD
  OUTPUT F_R_O_DES DESCR
  CHECKTYPE REQUIRED
END

STRING F_R_O_DES 50 // campo riservato alle offerte
BEGIN
  PROMPT 2 3 "Descr. offerta "
  FLAG "D"
END

LIST F_R_TIPORIGA 14
BEGIN
  PROMPT 2 4 "Tipo riga    "
  FIELD LF_RCONDV->TIPORIGA
  FLAG "P"
  KEY 1
  ITEM "A|Articolo"
  ITEM "G|Gruppo merc."
  ITEM "S|Sottogr. merc."
  ITEM "R|Ragg. fiscale"
END

STRING F_R_CODRIGA_A 20
BEGIN
  PROMPT 37 4 "Codice articolo "
  FIELD LF_RCONDV->CODRIGA
  FLAG "U"
  KEY 1
  USE LF_ANAMAG
  INPUT CODART F_R_CODRIGA_A
  DISPLAY "Articolo@20" CODART
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_R_CODRIGA_A CODART
  OUTPUT F_R_DESRIGA_A DESCR
  CHECKTYPE FORCED
END

STRING F_R_DESRIGA_A 50
BEGIN
  PROMPT 2 5 "Descrizione articolo "
  FLAG "D"
END

STRING F_R_CODRIGA_G 3
BEGIN
  PROMPT 2 5 "Gruppo merc. "
  FIELD LF_RCONDV->CODRIGA[1,3]
  FLAG "U"
  KEY 1
  USE GMC SELECT CODTAB[4,5] == ""
  INPUT CODTAB[1,3] F_R_CODRIGA_G
  DISPLAY "Gr. merc." CODTAB[1,3]
  DISPLAY "Descrizione@50" S0
  OUTPUT F_R_CODRIGA_G CODTAB[1,3]
  OUTPUT F_R_DESRIGA_G S0
//  MESSAGE COPY,F_R_CODRIGA_A
  CHECKTYPE FORCED
END

STRING F_R_DESRIGA_G 50
BEGIN
  PROMPT 25 5 ""
  FLAG "D"
END

STRING F_R_CODRIGA_S 5
BEGIN
  PROMPT 2 5  "Sottogr.mer. "
  FIELD LF_RCONDV->CODRIGA[1,5]
  FLAG "U"
  KEY 1
  USE GMC SELECT CODTAB[4,5] != ""
  INPUT CODTAB F_R_CODRIGA_S
  DISPLAY "Gruppo merc." CODTAB[1,3]
  DISPLAY "Sottogr. merc." CODTAB[4,5]
  DISPLAY "Descrizione@50" S0
  OUTPUT F_R_CODRIGA_S CODTAB
  OUTPUT F_R_DESRIGA_S S0
//  MESSAGE COPY,F_R_CODRIGA_A
  CHECKTYPE FORCED
END

STRING F_R_DESRIGA_S 50
BEGIN
  PROMPT 25 5 ""
  FLAG "D"
END

STRING F_R_CODRIGA_R 5
BEGIN
  PROMPT 2 5 "Ragg.fiscale "
  FIELD LF_RCONDV->CODRIGA[1,5]
  FLAG "U"
  KEY 1
  USE RFA
  INPUT CODTAB F_R_CODRIGA_R
  DISPLAY "Ragg. fisc." CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_R_CODRIGA_R CODTAB
  OUTPUT F_R_DESRIGA_R S0
//  MESSAGE COPY,F_R_CODRIGA_A
  CHECKTYPE FORCED
END

STRING F_R_DESRIGA_R 50
BEGIN
  PROMPT 25 5 ""
  FLAG "D"
END

STRING F_R_UM 2
BEGIN
  PROMPT 2 7 "U.M.   "
  FIELD LF_RCONDV->UM
  FLAG "U"
  KEY 1
  USE LF_UMART KEY 2
  JOIN %UMS INTO CODTAB=UM
  INPUT CODART F_R_CODRIGA_A SELECT
  INPUT UM F_R_UM
  DISPLAY "U.M." UM
  DISPLAY "Descrizione@50" %UMS->S0
  OUTPUT F_R_UM UM
  CHECKTYPE FORCED
END

NUMBER F_R_NSCAGL 1
BEGIN
  PROMPT 15 7 "N.ro scaglione "
  FIELD LF_RCONDV->NSCAGL
  KEY 1
  CHECKTYPE REQUIRED
END

STRING F_R_L_RICERCA 1 // campo di aggancio per la ricerca sui listini, nascosto
BEGIN
  PROMPT 100 100 ""
  FLAG "D"
  USE LF_RCONDV SELECT (TIPO==#F_R_TIPO)&&(CATVEN==#F_R_L_CATVEN)&&(COD==#F_R_L_COD)
//INPUT TIPO F_R_TIPO SELECT
//INPUT CATVEN F_R_L_CATVEN
//INPUT COD F_R_L_COD
  INPUT TIPORIGA F_R_TIPORIGA
  INPUT CODRIGA F_R_CODRIGA_A
  INPUT UM F_R_UM
  INPUT NSCAGL F_R_NSCAGL
  DISPLAY "Tipo" TIPORIGA
  DISPLAY "Codice@20" CODRIGA
  DISPLAY "U.M." UM
  DISPLAY "N.S." NSCAGL
  OUTPUT F_R_TIPORIGA TIPORIGA
  OUTPUT F_R_CODRIGA_R CODRIGA[1,5]
  OUTPUT F_R_CODRIGA_S CODRIGA[1,5]
  OUTPUT F_R_CODRIGA_G CODRIGA[1,3]
  OUTPUT F_R_CODRIGA_A CODRIGA
  OUTPUT F_R_UM UM
  OUTPUT F_R_NSCAGL NSCAGL
END

STRING F_R_C_RICERCA 1 // campo di aggancio per la ricerca sui contratti, nascosto
BEGIN
  PROMPT 100 100 ""
  FLAG "D"
  USE LF_RCONDV SELECT (TIPO==#F_R_TIPO)&&(TIPOCF==#F_R_C_TIPOCF)&&(CODCF==#F_R_C_CODCF)&&(COD==#F_R_L_COD)
//INPUT TIPO F_R_TIPO SELECT
//INPUT TIPOCF F_R_C_TIPOCF
//INPUT CODCF F_R_C_CODCF
//INPUT COD F_R_C_COD
  INPUT TIPORIGA F_R_TIPORIGA
  INPUT CODRIGA F_R_CODRIGA_A
  INPUT NSCAGL F_R_NSCAGL
  DISPLAY "Tipo" TIPORIGA
  DISPLAY "Codice@20" CODRIGA
  DISPLAY "N.S." NSCAGL
  OUTPUT F_R_TIPORIGA TIPORIGA
  OUTPUT F_R_CODRIGA_R CODRIGA[1,5]
  OUTPUT F_R_CODRIGA_S CODRIGA[1,5]
  OUTPUT F_R_CODRIGA_G CODRIGA[1,3]
  OUTPUT F_R_CODRIGA_A CODRIGA
  OUTPUT F_R_NSCAGL NSCAGL
END

STRING F_R_O_RICERCA 1 // campo di aggancio per la ricerca sulle offerte, nascosto
BEGIN
  PROMPT 100 100 ""
  FLAG "D"
  USE LF_RCONDV SELECT (TIPO==#F_R_TIPO)&&(COD==#F_R_L_COD)
//INPUT TIPO F_R_TIPO SELECT
//INPUT COD F_R_O_COD
  INPUT TIPORIGA F_R_TIPORIGA
  INPUT CODRIGA F_R_CODRIGA_A
  INPUT UM F_R_UM
  INPUT NSCAGL F_R_NSCAGL
  DISPLAY "Tipo" TIPORIGA
  DISPLAY "Codice@20" CODRIGA
  DISPLAY "U.M." UM
  DISPLAY "N.S." NSCAGL
  OUTPUT F_R_TIPORIGA TIPORIGA
  OUTPUT F_R_CODRIGA_R CODRIGA[1,5]
  OUTPUT F_R_CODRIGA_S CODRIGA[1,5]
  OUTPUT F_R_CODRIGA_G CODRIGA[1,3]
  OUTPUT F_R_CODRIGA_A CODRIGA
  OUTPUT F_R_UM UM
  OUTPUT F_R_NSCAGL NSCAGL
END

NUMBER F_R_QLIM 15 5
BEGIN
  PROMPT 2 9 "Q.ta' limite scagl.  "
  FIELD LF_RCONDV->QLIM
END

NUMBER F_R_PREZZO 15
BEGIN
  PROMPT 2 10 "Prezzo netto         "
  FIELD LF_RCONDV->PREZZO
  PICTURE "###.###.###.###"
END


NUMBER F_R_PREZZO_VAL 15
BEGIN
  PROMPT 2 10 "Prezzo netto         "
  FIELD LF_RCONDV->PREZZO
  PICTURE "###.###.###,@@@"
  FLAGS "H"
END

NUMBER F_R_PREZZO_LORDO 15
BEGIN
  PROMPT 46 10 "Prezzo lordo    "
  PICTURE "###.###.###.###"
  FLAGS "H"
END


NUMBER F_R_PREZZO_LORDO_VAL 15
BEGIN
  PROMPT 46 10 "Prezzo lordo    "
  PICTURE "###.###.###,@@@"
  FLAGS "H"
END

STRING F_R_SCONTO 25
BEGIN
  PROMPT 2 11 "Sconto               "
  FIELD LF_RCONDV->SCONTO
  FLAG "U"
END

NUMBER F_R_PERCPROVV 5 2
BEGIN
  PROMPT 2 12 "Provvigione %        "
  FIELD LF_RCONDV->PERCPROVV
  NUM_EXPR (#F_R_PERCPROVV>=0)&&(#F_R_PERCPROVV<=100)
  WARNING "La percentuale di provvigione deve essere compresa tra 0 e 100"
END

BOOLEAN F_R_ADDIVA
BEGIN
  PROMPT 2 13 "Addebito IVA"
  FIELD LF_RCONDV->ADDIVA
  GROUP 1
END

STRING F_R_CODIVA 4
BEGIN
  PROMPT 53 13 "Codice IVA "
  FIELD LF_RCONDV->CODIVA
  FLAG "U"
  USE %IVA
  INPUT CODTAB F_R_CODIVA
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_R_CODIVA CODTAB
  CHECKTYPE NORMAL
  GROUP 1
END

NUMBER F_R_QOM 15 5
BEGIN
  PROMPT 2 14 "Q.ta' sconto/omaggio "
  FIELD LF_RCONDV->QOM
  GROUP 1
END

STRING F_R_UMOM 2
BEGIN
  PROMPT 47 14 "U.M. q.ta' omaggio "
  FIELD LF_RCONDV->UMOM
  FLAG "U"
  USE LF_UMART KEY 2
  JOIN %UMS INTO CODTAB=UM
  INPUT CODART F_R_CODARTOM SELECT
  INPUT UM F_R_UMOM
  DISPLAY "U.M." UM
  DISPLAY "Descrizione@50" %UMS->S0
  OUTPUT F_R_UMOM UM
END

NUMBER F_R_QBASE 15 5
BEGIN
  PROMPT 2 15 "Q.ta' base sconto    "
  FIELD LF_RCONDV->QBASE
  GROUP 1
END

STRING F_R_CODARTOM 20
BEGIN
  PROMPT 2 16 "Codice art. omaggio  "
  FIELD LF_RCONDV->CODARTOM
  FLAG "U"
  USE LF_ANAMAG
  INPUT CODART F_R_CODARTOM
  DISPLAY "Articolo@20" CODART
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_R_CODARTOM CODART
  CHECKTYPE NORMAL
  GROUP 1
END

NUMBER F_R_PROMAGGIO 18 2
BEGIN
  PROMPT 2 17 "Prezzo omaggio       "
  FIELD LF_RCONDV->PROMAGGIO
  GROUP 1
END

//STRINF F_R_CO_CODLOTTO 6
//BEGIN
//PROMPT 2 18 "Codice lotto         "
//FIELD LF_RCONDV->CODLOTTO
//FLAG "U"
//END

BOOLEAN F_R_O_ARTES
BEGIN
  PROMPT 47 18 "Art. in esaurimento"
  FIELD LF_RCONDV->ARTES
END

ENDPAGE

ENDMASK