#include "pg0002100a.h"

TOOLBAR "Toolbar" 0 0 0 2

#include <stdbar.h>

ENDPAGE

PAGE "Aggiornamento Prezzi" 0 0 0 0

GROUPBOX DLG_NULL 78 3
BEGIN
  PROMPT 1 1 "@bDitta"
END

NUMBER F_CODDITTA 5
BEGIN
  PROMPT 3 2 "Codice "
  FLAGS "FD"
  USE LF_NDITTE
  CHECKTYPE NORMAL
  INPUT CODDITTA F_CODDITTA
  OUTPUT F_RAGSOCDITTA RAGSOC
END

STRING F_RAGSOCDITTA 50
BEGIN
  PROMPT 17 2 "Ragione "
  FLAGS "D"
END

GROUPBOX DLG_NULL 78 4
BEGIN
	PROMPT 1 4 "Estremi del documento"
END

LISTBOX F_PROVV 14
BEGIN
  FIELD PROVV
  PROMPT 46 6 "Tipo "
  ITEM "D|Definitiva "
  ITEM "P|Provvisoria"
  FLAGS "DPG"
END

STRING F_CODNUM 4
BEGIN
  PROMPT 2 5 "Numerazione  "
  FIELD CODNUM
  HELP "Codice numerazione"
  USE %NUM
  INPUT CODTAB F_CODNUM
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODNUM CODTAB
  OUTPUT F_DESNUM S0
  CHECKTYPE FORCED
  FLAG "UPADG"
  WARNING "Numerazione assente"
END

STRING F_DESNUM 50
BEGIN
  PROMPT 24 5 ""
  HELP "Descrizione numerazione"
  FLAGS "D"
END

NUMBER F_ANNO 4
BEGIN
  PROMPT 2 6 "Esercizio    "
  FIELD ANNO
  FLAG "APD"
END

NUMBER F_NDOC 6
BEGIN
  PROMPT 24 6 "Numero      "
  FIELD NDOC
  FLAG "RDG"
END

SPREADSHEET F_SHEET
BEGIN
  PROMPT 0 8  ""
  ITEM "Codice@20"
  ITEM "UM@4"
  ITEM "Costo@18"
  ITEM "Ricarico"
  ITEM "Prezzo Lordo@18"
  ITEM "Prezzo@18"
  ITEM "Descrizione@50"
END

ENDPAGE

ENDMASK
PAGE "Riga Documento" -1 -1 78 18

STRING F_CODART 20
BEGIN
  PROMPT 4 1 "Codice articolo "
  FIELD CODART
  FLAGS "UD"
END

STRING F_UM 20
BEGIN
  PROMPT 4 3 "Unità di misura "
  FIELD CODART
  FLAGS "UD"
END

CURRENCY F_COSTO 
BEGIN
  PROMPT 4 5 "Costo          "
  FLAGS "D"
END

STRING F_RICARICO 2
BEGIN
  PROMPT 4 7 "Ricarico        "
  USE CVE
  INPUT CODTAB F_RICARICO
  DISPLAY "Codice vendita" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_RICARICO CODTAB
  OUTPUT F_DESCRIC S0
  CHECKTYPE REQUIRED
END

STRING F_DESCRIC 50 
BEGIN
  PROMPT 25 7 ""
  USE CVE KEY 2
  INPUT S0 F_DESCRIC
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice vendita" CODTAB
  COPY OUTPUT F_RICARICO
  CHECKTYPE SEARCH
END

CURRENCY F_PREZZOL
BEGIN
  PROMPT 4 9 "Prezzo lordo    "
END

CURRENCY F_PREZZO
BEGIN
  PROMPT 4 11 "Prezzo          "
END

STRING F_DESART 50 
BEGIN
  PROMPT 4 13 "Descrizione     "
  FLAGS "D"
END

ENDPAGE
TOOLBAR "Toolbar" 0 0 0 2

BUTTON DLG_OK 10 2
BEGIN
  PROMPT -12 -1 ""
END

BUTTON DLG_CANCEL 10 2
BEGIN
  PROMPT -22 -1 ""
END

ENDPAGE
ENDMASK