#include "ha3700a.h"

PAGE "Storico attrezzature" -1 -1 78 12

STRING F_CODAG 5
BEGIN
  PROMPT 1 1 "Agente  "
  USE LF_AGENTI
  INPUT CODAGE F_CODAG
  DISPLAY "Codice@8R" CODAGE
  DISPLAY "Descrizione@50" RAGSOC
  OUTPUT F_CODAG CODAGE
  OUTPUT F_DESCRAG RAGSOC
  CHECKTYPE NORMAL
  FLAGS "UZ"
  FIELD #CODAG
END

STRING F_DESCRAG 50
BEGIN
  PROMPT 20 1 ""
  USE LF_AGENTI KEY 2
  INPUT RAGSOC F_DESCRAG
  DISPLAY "Descrizione@50" RAGSOC
  DISPLAY "Codice@5R" CODAGE
  COPY OUTPUT F_CODAG
  CHECKTYPE NORMAL
END

NUMBER F_CODCF 6
BEGIN
  PROMPT 1 2 "Cliente " 
  FLAGS "U"  
  USE LF_CLIFO
  INPUT TIPOCF "C"
  INPUT CODCF F_CODCF
  DISPLAY "Codice" CODCF
  DISPLAY "Descrizione@50" RAGSOC
  OUTPUT F_CODCF CODCF
  OUTPUT F_RAGSOC RAGSOC
  CHECKTYPE NORMAL
  FIELD #CODCF
END

STRING F_RAGSOC 50
BEGIN
  PROMPT 20 2 ""
  USE LF_CLIFO KEY 2
  INPUT TIPOCF "C"
  INPUT RAGSOC F_RAGSOC
  DISPLAY "Descrizione@50" RAGSOC
  DISPLAY "Codice" CODCF
  COPY OUTPUT F_CODCF
  CHECKTYPE NORMAL
END

NUMBER F_CODINDSP 3
BEGIN
  PROMPT 1 3 "Sede    "
  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_CODCF CODCF
  OUTPUT F_CODINDSP CODIND
  OUTPUT F_INDSP INDIR
  OUTPUT F_RAGSOCINDSP RAGSOC
  CHECKTYPE NORMAL
  FIELD #INDSPED
END

STRING F_INDSP 35
BEGIN
  PROMPT 20 3 ""
  FLAGS "D"
  CHECKTYPE SEARCH
END

STRING F_RAGSOCINDSP 50
BEGIN
  PROMPT 1 4 "Ragsoc. "
  FLAGS "D"
  CHECKTYPE SEARCH
END

GROUPBOX DLG_NULL 76 4
BEGIN
  PROMPT 1 6 "@bAttrezzatura"
END

STRING F_CODART 5
BEGIN
  PROMPT 2 7 "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_DESART DESCR
  CHECKTYPE NORMAL
  FIELD #CODART
END

STRING F_DESART 50
BEGIN
  PROMPT 23 7 ""
  USE LF_ANAMAG KEY 2 SELECT (GRMERC="50")&&(SOSPESO!="X")
  INPUT DESCR F_DESART
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Codice" CODART
  COPY OUTPUT F_CODART
  CHECKTYPE NORMAL
END

STRING F_PROGRESSIVO 8
BEGIN
  PROMPT 2 8 "Progres. "
  FLAGS "UZ"
  USE &ATT
  JOIN LF_ANAMAG INTO CODART=CODTAB[1,5]
  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 "Descrizione@50" LF_ANAMAG->DESCR
  DISPLAY "Cespite@10" S1[1,10]
  OUTPUT F_CODART CODTAB[1,5]
  OUTPUT F_PROGRESSIVO CODTAB[6,12]
  OUTPUT F_MATRICOLA S0[6,20]
  //OUTPUT F_CESPITE S1[1,10]
  OUTPUT F_CODCF I0
  CHECKTYPE SEARCH
  FIELD #PROGRESSIVO
END

STRING F_MATRICOLA 15
BEGIN
  PROMPT 23 8 "Matricola "
  FLAGS "U"
  USE &ATT KEY 2
  JOIN LF_ANAMAG INTO CODART=CODTAB[1,5]
  INPUT S0[1,5] F_CODART
  INPUT S0[6,20] F_MATRICOLA
  DISPLAY "Codice@5" S0[1,5]
  DISPLAY "Matricola@15" S0[6,20]
  DISPLAY "Progressivo" CODTAB[6,12]
  DISPLAY "Descrizione@50" LF_ANAMAG->DESCR
  DISPLAY "Cespite@10" S1[1,10]
  DISPLAY "Cliente" I0
  COPY OUTPUT F_PROGRESSIVO
  CHECKTYPE SEARCH
  FIELD #MATRICOLA
END

LISTBOX F_TIPO 1 16
BEGIN
  PROMPT 1 10 "Tipo intervento"
  ITEM " |Tutti"
  ITEM "C|Comodato d'uso"
  ITEM "D|Descrittivo"
  ITEM "I|Insegne nuove"
  ITEM "R|Riparazione"
  ITEM "V|Varie"
  FIELD #TIPO
END

ENDPAGE


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

ENDMAK