0640c520b1
git-svn-id: svn://10.65.10.50/branches/R_10_00@22705 c028cbd2-c16b-5b4b-a496-9718f37d4682
179 lines
3.3 KiB
Plaintext
Executable File
179 lines
3.3 KiB
Plaintext
Executable File
#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 |