#include "pd0610100a.h"

TOOLBAR "" 0 0 0 2

BUTTON DLG_SAVEREC
BEGIN
  PROMPT 1 1 "Salva"
  PICTURE TOOL_SAVEREC
END

BUTTON DLG_CANCEL
BEGIN
  PROMPT 1 1 "Annulla"
  PICTURE TOOL_CANCEL
END

#include <helpbar.h>
ENDPAGE

PAGE "Clienti/Articoli/Fornitori" -1 -1 80 20

NUMBER F_CLIENTE 6
BEGIN
  PROMPT 2 1 "Cod. cliente "
  USE LF_CLIFO
  INPUT TIPOCF "C" SELECT
  INPUT CODCF F_CLIENTE
  DISPLAY "Codice" CODCF
  DISPLAY "Descrizione@50" RAGSOC
  OUTPUT F_CLIENTE CODCF
  OUTPUT F_RAGSOC RAGSOC
  FLAGS "Z"
  CHECKTYPE REQUIRED
END

STRING F_RAGSOC 50
BEGIN
  PROMPT 25 1 ""
  USE LF_CLIFO KEY 2
  INPUT TIPOCF "C" SELECT
  INPUT RAGSOC F_RAGSOC
  DISPLAY "Ragione sociale@50" RAGSOC
  DISPLAY "Codice" CODCF
  COPY OUTPUT F_CLIENTE
  CHECKTYPE REQUIRED
END

SPREADSHEET F_SHEET 80 10
BEGIN
	PROMPT 2 3 "Articoli/Fornitori"
	ITEM "Cliente@6"
	ITEM "Cod.articolo@20"
	ITEM "Descrizione@45"
	ITEM "Fornitore 1"
	ITEM "Ragione sociale@45"
	ITEM "Fornitore 2"
	ITEM "Ragione sociale@45"
END

ENDPAGE

ENDMASK

PAGE "Articoli/Fornitori" -1 -1 80 18

NUMBER S_CLIENTE 6
BEGIN
  PROMPT 2 2 ""
  FLAGS "ZD"
END  

STRING S_ARTICOLO 20
BEGIN
  PROMPT 2 3 "Cod. art. "
  FLAG "UG"
  USE LF_ANAMAG
  INPUT CODART S_ARTICOLO
  DISPLAY "Codice@20" CODART
  DISPLAY "Descrizione@45" DESCR
  OUTPUT S_ARTICOLO CODART
  OUTPUT S_DESART DESCR
  CHECKTYPE REQUIRED
END

STRING S_DESART 50 45
BEGIN
  PROMPT 2 4 "Des. art. "
  USE LF_ANAMAG KEY 2
  INPUT DESCR S_DESART
  DISPLAY "Descrizione@45" DESCR
  DISPLAY "Codice@20" CODART
  COPY OUTPUT S_ARTICOLO
  CHECKTYPE REQUIRED
END

NUMBER S_FORN1 6
BEGIN
  PROMPT 2 5 "Fornit. 1 "
  USE LF_CLIFO
  INPUT TIPOCF "F" SELECT
  INPUT CODCF S_FORN1
  DISPLAY "Codice" CODCF
  DISPLAY "Descrizione@50" RAGSOC
  OUTPUT S_FORN1 CODCF
  OUTPUT S_RAGSOC1 RAGSOC
  CHECKTYPE NORMAL
END

STRING S_RAGSOC1 50 45
BEGIN
  PROMPT 25 5 ""
  USE LF_CLIFO KEY 2
  INPUT TIPOCF "F" SELECT
  INPUT RAGSOC S_RAGSOC1
  DISPLAY "Ragione sociale@50" RAGSOC
  DISPLAY "Codice" CODCF
  COPY OUTPUT S_FORN1
  CHECKTYPE NORMAL
END

NUMBER S_FORN2 6
BEGIN
  PROMPT 2 6 "Fornit. 2 " 
  USE LF_CLIFO
  INPUT TIPOCF "F" SELECT
  INPUT CODCF S_FORN2
  DISPLAY "Codice" CODCF
  DISPLAY "Descrizione@50" RAGSOC
  OUTPUT S_FORN2 CODCF
  OUTPUT S_RAGSOC2 RAGSOC
  CHECKTYPE NORMAL
END

STRING S_RAGSOC2 50 45
BEGIN
  PROMPT 25 6 ""
  USE LF_CLIFO KEY 2
  INPUT TIPOCF "F" SELECT
  INPUT RAGSOC S_RAGSOC2
  DISPLAY "Ragione sociale@50" RAGSOC
  DISPLAY "Codice" CODCF
  COPY OUTPUT S_FORN2
  CHECKTYPE NORMAL
END

ENDPAGE

TOOLBAR "" 0 0 0 2

BUTTON DLG_OK 2 2
BEGIN
  PROMPT 1 1 ""
END

BUTTON DLG_DELREC 2 2
BEGIN
  PROMPT 2 1 "Elimina"
  PICTURE BMP_DELREC  
END

BUTTON DLG_CANCEL 2 2
BEGIN
  PROMPT 3 1 ""
END

ENDPAGE

ENDMASK