#include "vetbnar.h"

TOOLBAR "Toolbar" 0 0 0 2

#include <relapbar.h>

ENDPAGE

PAGE "Note articoli " 0 2 0 0

NUMBER F_CODICE 6
BEGIN
  PROMPT 1 1 "Codice nota   "
  FLAGS "Z"
  USE NAR
  INPUT CODTAB F_CODICE
  DISPLAY "Codice@6" CODTAB
  DISPLAY "C/F" S0[1,1]
  DISPLAY "Codice" S0[2,7]
  DISPLAY "Tipo" S0[8,11]
  DISPLAY "Articolo@20" S0[12,31]
  DISPLAY "Note@50" S1
  OUTPUT F_CODICE CODTAB
  CHECKTYPE REQUIRED
  FIELD CODTAB
  KEY 1
END

LIST F_TIPOCF 1 10
BEGIN
  PROMPT 1 3 ""
  ITEM "|"           MESSAGE CLEAR, F_CLIFO|CLEAR, F_RAGSOC
  ITEM "C|Cliente"   MESSAGE ENABLE,F_CLIFO|ENABLE,F_RAGSOC
  ITEM "F|Fornitore" MESSAGE ENABLE,F_CLIFO|ENABLE,F_RAGSOC
  FIELD S0[1,1]
END

NUMBER F_CLIFO 6
BEGIN
  PROMPT 15 3 ""
  USE LF_CLIFO
  INPUT TIPOCF F_TIPOCF SELECT
  INPUT CODCF F_CLIFO
  DISPLAY "Codice" CODCF
  DISPLAY "Ragione Sociale@50" RAGSOC
  OUTPUT F_CLIFO CODCF
  OUTPUT F_RAGSOC RAGSOC
  CHECKTYPE NORMAL
  FIELD S0[2,7]
  FLAGS "Z"
END

STRINGA F_TIPO 4
BEGIN
  PROMPT 1 5 "Tipo documento  "
  USE %TIP
  INPUT CODTAB F_TIPO 
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_TIPO CODTAB
  OUTPUT F_DESCTIPO S0
  CHECKTYPE NORMAL
  FIELD S0[8,11]
END

STRING F_ARTICOLO 20
BEGIN
  PROMPT 1 7 "Articolo      "
  FIELD S0[12,31]
  USE ANAMAG
  INPUT CODART F_ARTICOLO
  DISPLAY "Codice@20" CODART
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_ARTICOLO CODART
  OUTPUT F_DESCART DESCR
  CHECKTYPE NORMAL
  VALIDATE ONEREQ_FUNC 3 F_CLIFO F_TIPO F_ARTICOLO
  WARNING "Inserire almeno un dato a scelta tra: codice cliente/fornitore; tipo documento; codice articolo"
END

STRING F_RAGSOC 50
BEGIN
  PROMPT 26 3 ""
  USE LF_CLIFO KEY 2
  INPUT TIPOCF F_TIPOCF SELECT
  INPUT RAGSOC F_RAGSOC
  DISPLAY "Ragione Sociale@50" RAGSOC
  DISPLAY "Codice" CODCF
  COPY OUTPUT F_CLIFO
  CHECKTYPE NORMAL 
END

STRING F_DESCTIPO 50
BEGIN
  PROMPT 26 5 ""
  USE %TIP KEY 2
  INPUT S0 F_DESCTIPO
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT F_TIPO
  CHECKTYPE NORMAL 
END

STRING F_DESCART 50
BEGIN
  PROMPT 15 8 ""
  USE ANAMAG KEY 2
  INPUT DESCR F_DESCART
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Codice@20" CODART
  COPY OUTPUT F_ARTICOLO
  CHECKTYPE NORMAL
END

GROUPBOX DLG_NULL 78 5
BEGIN
  PROMPT 1 10 "@bNote"
END

STRING F_DESCR1 50
BEGIN
  PROMPT 15 11  ""
  FIELD S1
  CHECKTYPE REQUIRED
END

STRING F_DESCR2 50
BEGIN
  PROMPT 15 12 ""
  FIELD S2
END

STRING F_DESCR3 50
BEGIN
  PROMPT 15 13 ""
  FIELD S3
END

ENDPAGE

ENDMASK