#include "hatbatt.h"

TOOLBAR "" 0 0 0 2
#include "relapbar.h"
ENDPAGE

PAGE "Attrezzature" 0 2 0 0

GROUPBOX DLG_NULL 76 7
BEGIN
  PROMPT 1 0 "@bAttrezzatura"
END

STRING F_CODART 5
BEGIN
  PROMPT 2 1 "Articolo  " 
  FLAGS "U"  
  USE LF_ANAMAG SELECT (GRMERC="50")&&(SOSPESO!="X")
  INPUT CODART F_CODART
  DISPLAY "Codice" CODART
  DISPLAY "Descrizione@50" DESCR
  OUPUT F_CODART CODART
  OUPUT F_DESCRART DESCR
  FIELD CODTAB[1,5]
  CHECKTYPE FORCED
  MESSAGE COPY,F_CODART_X_MATR
  KEY 1
  ADD RUN ve2 -3
END

STRING F_DESCRART 50
BEGIN
  PROMPT 22 1 ""
  USE LF_ANAMAG KEY 2 SELECT (GRMERC="50")&&(SOSPESO!="X")
  INPUT DESCR F_DESCRART
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Codice" CODART
  COPY OUTPUT F_CODART
  CHECKTYPE REQUIRED
END

NUMBER F_PROGRESSIVO 7
BEGIN
  PROMPT 2 2 "Progress. "
  FLAGS "UZ"
  USE &ATT
  JOIN LF_ANAMAG INTO CODART=CODTAB[1,5]
  JOIN LF_CESPI INTO IDCESPITE=S1
  INPUT CODTAB[1,5] F_CODART
  INPUT CODTAB[6,12] F_PROGRESSIVO
  DISPLAY "Progressivo" CODTAB[6,12]
  DISPLAY "Articolo" CODTAB[1,5]
  DISPLAY "Matricola@15" S0[6,20]
  DISPLAY "Cespite@10" S1
  DISPLAY "Descrizione cespite@35" LF_CESPI->DESC
  DISPLAY "Note@35" S3
  DISPLAY "Descrizione articolo@50" LF_ANAMAG->DESCR
  OUTPUT F_CODART CODTAB[1,5]
  OUTPUT F_PROGRESSIVO CODTAB[6,12]
  FIELD CODTAB[6,12]
  CHECKTYPE REQUIRED
  KEY 1
END

//questo campo serve per poter avere le display della matricola gia' puntate sul corretto articolo
STRING F_CODART_X_MATR 5
BEGIN
  PROMPT 40 3 "Atricolo x matricola"
  FIELD S0[1,5]
  FLAGS "H"
END

STRING F_MATRICOLA 15
BEGIN
  PROMPT 2 3 "Matricola "
  FLAGS "U"
  USE &ATT KEY 2
  JOIN LF_ANAMAG INTO CODART=CODTAB[1,5]
  JOIN LF_CESPI INTO IDCESPITE=S1
  INPUT S0[1,5] F_CODART
  INPUT S0[6,20] F_MATRICOLA
  DISPLAY "Articolo@5" S0[1,5]
  DISPLAY "Matricola@15" S0[6,20]
  DISPLAY "Progressivo" CODTAB[6,12]
  DISPLAY "Cespite@10" S1
  DISPLAY "Descrizione cespite@35" LF_CESPI->DESC
  DISPLAY "Note@35" S3
  DISPLAY "Descrizione articolo@50" LF_ANAMAG->DESCR
  COPY OUTPUT F_PROGRESSIVO
  OUTPUT F_MATRICOLA S0[6,20]
  CHECKTYPE NORMAL
  FIELD S0[6,20]
  KEY 2
END

STRING F_CESPITE_NEW 10
BEGIN
  PROMPT 2 4 "Cespite   "
  FLAGS "HUZ"
  USE LF_CESPI 
  INPUT IDCESPITE F_CESPITE_NEW
  DISPLAY "Cespite@10" IDCESPITE
  DISPLAY "Desc@50" DESC
  DISPLAY "Cat." CODCAT
  OUTPUT F_CESPITE_NEW IDCESPITE
  OUTPUT F_DESC_CES_NEW DESC
  CHECKTYPE NORMAL
  FIELD S1
  GROUP 1
END

STRING F_DESC_CES_NEW 50 46
BEGIN
  PROMPT 26 4 ""
  FLAGS "H"
  USE LF_CESPI KEY 3
  INPUT DESC F_DESC_CES_NEW
  DISPLAY "Desc@50" DESC
  DISPLAY "Codice@10" IDCESPITE
  DISPLAY "Cat." CODCAT
  COPY OUTPUT F_CESPITE_NEW
  GROUP 1
END

STRING F_CESPITE_SEARCH 10
BEGIN
  PROMPT 2 4 "Cespite   "
  FLAGS "UZ"
  USE &ATT
  JOIN LF_CESPI INTO IDCESPITE=S1
  JOIN LF_ANAMAG INTO CODART=CODTAB[1,5]
  INPUT S1[1,10] F_CESPITE_SEARCH
  DISPLAY "Cespite@10" S1
  DISPLAY "Descrizione cespite@50" LF_CESPI->DESC
  DISPLAY "Note@35" S3
  DISPLAY "Articolo" CODTAB[1,5]
  DISPLAY "Progressivo" CODTAB[6,12]
  DISPLAY "Matricola@15" S0[6,20]
  COPY OUTPUT F_PROGRESSIVO
  OUTPUT F_CESPITE_SEARCH S1
  OUTPUT F_DESC_CES_SEARCH LF_CESPI->DESC
  CHECKTYPE NORMAL
  FIELD S1
  GROUP 2
  KEY 3
END

STRING F_DESC_CES_SEARCH 50 46
BEGIN
  PROMPT 26 4 ""
  FLAGS "DU"
  /*USE &ATT
  JOIN LF_CESPI INTO IDCESPITE=S1
  INPUT S1 F_CESPITE_SEARCH
  DISPLAY "Descrizione cespite@50" LF_CESPI->DESC
  DISPLAY "Cespite@10" S1
  DISPLAY "Note@35" S3
  DISPLAY "Articolo" CODTAB[1,5]
  DISPLAY "Progressivo" CODTAB[6,12]
  DISPLAY "Matricola@15" S0[6,20]
  COPY OUTPUT F_CESPITE_SEARCH*/
  GROUP 2
END

DATE F_DATA_FABBR
BEGIN
  PROMPT 2 5 "Data fab. "
  FIELD D1
END

STRING F_NOTE 50 46
BEGIN
  PROMPT 26 5 ""
  FIELD S3
END

GROUPBOX DLG_NULL 76 8
BEGIN
  PROMPT 1 7 "@bCliente"
END

NUMBER F_CODCF 6
BEGIN
  PROMPT 2 8 "Codice    " 
  FLAGS "U"  
  USE LF_CLIFO
  INPUT TIPOCF "C"
  INPUT CODCF F_CODCF
  DISPLAY "Codice" CODCF
  DISPLAY "Descrizione@50" RAGSOC
  DISPLAY "Indirizzo@30" INDCF
  OUTPUT F_CODCF CODCF
  OUTPUT F_DESCF RAGSOC
  CHECKTYPE NORMAL
  FIELD I0
  ADD RUN cg0 -1 C
END

STRING F_DESCF 50
BEGIN
  PROMPT 2 9 "Rag. soc. "
  USE LF_CLIFO KEY 2
  INPUT TIPOCF "C"
  INPUT RAGSOC F_DESCF
  DISPLAY "Descrizione@50" RAGSOC
  DISPLAY "Indirizzo@30" INDCF
  DISPLAY "Codice" CODCF
  COPY OUTPUT F_CODCF
  CHECKTYPE NORMAL
  ADD RUN cg0 -1 C
END

DATE F_DATA_CONSEGNA
BEGIN
  PROMPT 2 10 "Data presa in consegna   "
  CHECKTYPE REQUIRED
  FIELD D0
END

TEXT DLG_NULL
BEGIN
  PROMPT 2 11 "@bIndirizzo di spedizione"
END

NUMBER F_CODINDSP 3
BEGIN
  PROMPT 2 12 "Codice  "
  USE LF_INDSP
  INPUT TIPOCF "C"
  INPUT CODCF F_CODCF SELECT
  INPUT CODIND F_CODINDSP
  DISPLAY "Cod." CODIND
  DISPLAY "Indirizzo@35" INDIR
  DISPLAY "Ragione sociale@50" RAGSOC
  OUTPUT F_CODINDSP CODIND
  OUTPUT F_INDSP INDIR
  OUTPUT F_RAGSOCINDSP RAGSOC
  CHECKTYPE NORMAL
  FIELD I1
END

STRING F_INDSP 35
BEGIN
  PROMPT 17 12 "Indirizzo "
  FLAGS "D"
  CHECKTYPE SEARCH
END

STRING F_RAGSOCINDSP 50
BEGIN
  PROMPT 2 13 "Ragsoc. "
  FLAGS "D"
  CHECKTYPE SEARCH
END

ENDPAGE

ENDMASK

/*
Mappa campi sul file TABMOD (tabella &ATT):
-------------------------------------------
CODTAB[1,5]   = codart (A)
CODTAB[6,12]  = progressivo (N z)
S0[1,5]  = codart per matricola (A)
S0[6,20] = matricola (A)
S1[1,10] = codice cespite (A)
S3 = descrizione aggiuntiva cespite (da importazione iniziale dati Hardy)
I0 = codice cliente
I1 = codice indirizzo spedizione
D0 = data assegnamento
D1 = data fabbricazione
*/