#include "ha3900a.h"

TOOLBAR "" 0 0 0 2

BUTTON DLG_SAVEREC 2 2
BEGIN
  PROMPT 1 1 "~Registra"
  PICTURE TOOL_SAVEREC
END

#include <cancelbar.h>

ENDPAGE

PAGE "Gestione attrezzature" 0 2 0 0

GROUPBOX DLG_NULL 79 5
BEGIN
  PROMPT 0 0 "@bParametri"
END

NUMBER F_CODCF 6
BEGIN
  PROMPT 1 1 "Cliente   "
  FLAGS "R"
  USE LF_CLIFO
  INPUT TIPOCF "C"
  INPUT CODCF F_CODCF
  DISPLAY "Codice" CODCF
  DISPLAY "Ragione Sociale@50" RAGSOC
  DISPLAY "Partita IVA@12" PAIV
  DISPLAY "Sospeso" SOSPESO
  OUTPUT F_CODCF CODCF
  OUTPUT F_DESCF RAGSOC
  CHECKTYPE NORMAL
END

STRING F_DESCF 50
BEGIN
  PROMPT 22 1 ""
  USE LF_CLIFO KEY 2
  INPUT TIPOCF "C"
  INPUT RAGSOC F_DESCF
  DISPLAY "Ragione Sociale@50" RAGSOC
  DISPLAY "Codice" CODCF
  DISPLAY "Partita IVA@12" PAIV
  DISPLAY "Sospeso" SOSPESO
  COPY OUTPUT F_CODCF
  CHECKTYPE NORMAL
END

STRING F_COD_ART 5
BEGIN
  PROMPT 1 2 "Articolo  " 
  FLAGS "U"  
  USE LF_ANAMAG SELECT GRMERC="50"
  INPUT CODART F_COD_ART
  DISPLAY "Codice" CODART
  DISPLAY "Descrizione@50" DESCR
  OUPUT F_COD_ART CODART
  OUPUT F_DESCR_ART DESCR
  CHECKTYPE REQUIRED
  ADD RUN ve2 -3
END

STRING F_DESCR_ART 50
BEGIN
  PROMPT 22 2 ""
  USE LF_ANAMAG KEY 2 SELECT GRMERC="50"
  INPUT DESCR F_DESCR_ART
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Codice" CODART
  COPY OUTPUT F_COD_ART
  CHECKTYPE NORMAL
END

STRING F_COD_MATR 15
BEGIN
  PROMPT 1 3 "Matricola "
  FLAGS "U"
  USE &ATT
  JOIN LF_ANAMAG INTO CODART=CODTAB[1,5]
  INPUT CODTAB[1,5] F_COD_ART
  INPUT CODTAB[16,30] F_COD_MATR
  DISPLAY "Codice@5" CODTAB[1,5]
  DISPLAY "Matricola@15" CODTAB[16,30]
  DISPLAY "Descrizione@50" LF_ANAMAG->DESCR
  DISPLAY "Cliente" I0
  OUTPUT F_COD_ART CODTAB[1,5]
  OUTPUT F_COD_MATR CODTAB[16,30]
  OUTPUT F_CODCF I0
  CHECKTYPE REQUIRED
END

TEXT DLG_NULL
BEGIN
  PROMPT 1 5 "@bAttrezzature"
END

TLIST F_ATTREZZATURE 78 5
BEGIN
  PROMPT 1 6 "Attrezzatura"
  DISPLAY "Codice@20" CODTAB
  DISPLAY "Descrizione@35" S0
  DISPLAY "Cliente" I0
  DISPLAY "Assegnamento" D0
END

TEXT DLG_NULL
BEGIN
  PROMPT 1 12 "@bStorico interventi"
END

SPREADSHEET F_STORICO 0 0
BEGIN
  PROMPT 0 13 "Storico interventi"
  ITEM "Tipo"
  ITEM "Data@10"
  ITEM "Note@15"
  ITEM "Articolo"
  ITEM "UM"
  ITEM "Quantita"
  ITEM "Importo@10"
  ITEM "Ap.Anno"
  ITEM "Ap.Codnum"
  ITEM "Ap.Ndoc"
  ITEM "Ch.Anno"
  ITEM "Ch.Codnum"
  ITEM "Ch.Ndoc"
  ITEM "Cliente"
  ITEM "Mag"
END

ENDPAGE

ENDMASK


/////////////////////////////////////////
//maschera di riga sheet

PAGE "Dati intervento" -1 -1 78 15

LISTBOX S_TIPO 1 16
BEGIN
  PROMPT 1 1 "Tipo intervento"
  ITEM "C|Comodato d'uso"		MESSAGE DISABLE,1@
  ITEM "D|Descrittivo"			MESSAGE DISABLE,1@
  ITEM "I|Insegne nuove"		MESSAGE DISABLE,1@
  ITEM "R|Riparazione"			MESSAGE DISABLE,1@
  ITEM "V|Varie"				MESSAGE ENABLE,1@
  FIELD S7
END

DATE S_DATA
BEGIN
  PROMPT 58 1 "Data "
  CHECKTYPE REQUIRED
  FLAGS "A"
  FIELD D0
END

STRING S_CODART 5
BEGIN
  PROMPT 1 2 "Art. collegato "
  USE LF_ANAMAG SELECT GRMERC="50"
  INPUT CODART S_CODART
  DISPLAY "Codice" CODART
  DISPLAY "Descrizione@50" DESCR
  OUTPUT S_CODART CODART
  OUTPUT S_DESART DESCR
  GROUP 1
  MESSAGE EMPTY HIDE,S_UM_CODART|SHOW,S_UM_GENERICO
  MESSAGE HIDE,S_UM_GENERICO|SHOW,S_UM_CODART
  FLAGS "G"
  FIELD S2
END

STRING S_DESART 50
BEGIN
  PROMPT 25 2 ""
  USE ANAMAG KEY 2 SELECT GRMERC="50"
  INPUT DESCR S_DESART
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Codice" CODART
  COPY OUTPUT S_CODART
  GROUP 1
END

//u.m. nel caso non ci sia alcun articolo collegato selezionato
STRING S_UM_GENERICO 2
BEGIN
  PROMPT 1 3 "U.M. "
  USE %UMS
  INPUT CODTAB S_UM_GENERICO
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT S_UM_GENERICO CODTAB
  FLAGS "U"
  CHECKTYPE NORMAL
  FIELD S6
END

//u.m. nel caso venga selezionato un articolo collegato (è una u.m. di quell'articolo)
STRING S_UM_CODART 2
BEGIN
  PROMPT 1 3 "U.M. "
  USE LF_UMART KEY 2 SELECT CODART=#S_CODART
  INPUT CODART S_CODART SELECT
  INPUT UM S_UM_CODART
  DISPLAY "U.M." UM
  DISPLAY "Articolo@20" CODART
  OUTPUT S_UM_CODART UM 
  FLAGS "U"
  CHECKTYPE NORMAL
  FIELD S6
END

NUMBER S_QTA 8 2
BEGIN
  PROMPT 12 3 "Qta "
  FIELD R0
END

CURRENCY S_IMPORTO 12
BEGIN
  PROMPT 32 3 "Importo "
  FIELD R1
END

GROPUPBOX DLG_NULL 76 3
BEGIN
  PROMPT 1 4 "@bBolla di apertura"
END

NUMBER S_BOL_OPEN_ANNO 4
BEGIN
  PROMPT 2 5 "Anno "
  FIELD S4[1,4]
END

STRING S_BOL_OPEN_CODNUM 4
BEGIN
  PROMPT 15 5 "Cod.Num. "
  USE %NUM
  INPUT CODTAB S_BOL_OPEN_CODNUM
  DISPLAY "Codnum" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT S_BOL_OPEN_CODNUM CODTAB
  CHECKTYPE NORMAL
  FIELD S4[5,8]
END

NUMBER S_BOL_OPEN_NDOC 4
BEGIN
  PROMPT 35 5 "N.Doc. "
  USE DOC SELECT TIPOCF="C"
  JOIN LF_CLIFO INTO TIPOCF=TIPOCF CODCF==CODCF
  INPUT PROVV "D"
  INPUT ANNO S_BOL_OPEN_ANNO SELECT
  INPUT CODNUM S_BOL_OPEN_CODNUM SELECT
  INPUT NDOC S_BOL_OPEN_NDOC
  DISPLAY "Anno" ANNO
  DISPLAY "Codnum" CODNUM
  DISPLAY "N. doc.@7" NDOC
  DISPLAY "Data doc.@10" DATADOC
  DISPLAY "Cliente" CODCF
  DISPLAY "Ragione sociale@50" LF_CLIFO->RAGSOC
  OUTPUT S_BOL_OPEN_NDOC NDOC
  CHECKTYPE NORMAL
  FIELD S4[9,15]
END

GROPUPBOX DLG_NULL 76 3
BEGIN
  PROMPT 1 7 "@bBolla di chiusura"
END

NUMBER S_BOL_CLOSE_ANNO 4
BEGIN
  PROMPT 2 8 "Anno "
  FIELD S5[1,4]
END

STRING S_BOL_CLOSE_CODNUM 4
BEGIN
  PROMPT 15 8 "Cod.Num. "
  COPY USE S_BOL_OPEN_CODNUM
  INPUT CODTAB S_BOL_CLOSE_CODNUM
  COPY DISPLAY S_BOL_OPEN_CODNUM
  OUTPUT S_BOL_CLOSE_CODNUM CODTAB
  CHECKTYPE NORMAL
  FIELD S5[5,8]
END

NUMBER S_BOL_CLOSE_NDOC 4
BEGIN
  PROMPT 35 8 "N.Doc. "
  USE DOC SELECT TIPOCF="C"
  JOIN LF_CLIFO INTO TIPOCF=TIPOCF CODCF==CODCF
  INPUT PROVV "D"
  INPUT ANNO S_BOL_CLOSE_ANNO SELECT
  INPUT CODNUM S_BOL_CLOSE_CODNUM SELECT
  INPUT NDOC S_BOL_CLOSE_NDOC
  COPY DISPLAY S_BOL_OPEN_NDOC
  OUTPUT S_BOL_CLOSE_NDOC NDOC
  CHECKTYPE NORMAL
  FIELD S5[9,15]
END

NUMBER S_CODCF 6
BEGIN
  PROMPT 1 10 "Cliente   "
  USE LF_CLIFO
  INPUT TIPOCF "C"
  INPUT CODCF S_CODCF
  DISPLAY "Codice" CODCF
  DISPLAY "Ragione sociale@50" RAGSOC
  OUTPUT S_CODCF CODCF
  OUTPUT S_DESCF RAGSOC
  CHECKTYPE NORMAL
  FIELD I0
END

STRING S_DESCF 50
BEGIN
  PROMPT 20 10 ""
  USE LF_CLIFO KEY 2
  INPUT TIPOCF "C"
  INPUT RAGSOC S_DESCF
  DISPLAY "Ragione sociale@50" RAGSOC
  DISPLAY "Codice" CODCF
  COPY OUTPUT S_CODCF
  CHECKTYPE NORMAL
END

STRING S_CODMAG 3
BEGIN
  PROMPT 1 11 "Magazzino "
  USE MAG
  INPUT CODTAB[1,3] S_CODMAG
  DISPLAY "Codice" CODTAB[1,3]
  DISPLAY "Descrizione@50" S0
  OUTPUT S_CODMAG CODTAB[1,3]
  OUTPUT S_DESMAG S0
  CHECKTYPE NORMAL
  FIELD S3
END

STRING S_DESMAG 50
BEGIN
  PROMPT 20 11 ""
  USE MAG KEY 2
  INPUT S0 S_DESMAG
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice" CODTAB[1,3]
  COPY OUTPUT S_CODMAG
  CHECKTYPE NORMAL
END

STRING S_NOTE 70
BEGIN
  PROMPT 1 13 "Note "
  FIELD S0
END

ENDPAGE

TOOLBAR "bottombar" 0 0 0 2

BUTTON DLG_OK 2 2
BEGIN
  PROMPT 1 1 ""
END

BUTTON DLG_DELREC 2 2
BEGIN
  PROMPT 2 1 ""
END

BUTTON DLG_CANCEL 2 2
BEGIN
  PROMPT 3 1 ""
END

ENDPAGE

ENDMASK