fbe6a5c729
Files correlati : Ricompilazione Demo : [ ] Commento : git-svn-id: svn://10.65.10.50/branches/R_10_00@21966 c028cbd2-c16b-5b4b-a496-9718f37d4682
178 lines
3.4 KiB
Plaintext
Executable File
178 lines
3.4 KiB
Plaintext
Executable File
#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]
|
|
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]
|
|
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]
|
|
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]
|
|
COPY OUTPUT F_PROGRESSIVO
|
|
CHECKTYPE NORMAL
|
|
FIELD S0[6,20]
|
|
KEY 2
|
|
END
|
|
|
|
STRING F_CESPITE 10
|
|
BEGIN
|
|
PROMPT 2 4 "Cespite "
|
|
FLAGS "UZ"
|
|
USE LF_CESPI
|
|
INPUT IDCESPITE F_CESPITE
|
|
DISPLAY "Cespite@10" IDCESPITE
|
|
DISPLAY "Desc@50" DESC
|
|
DISPLAY "Cat." CODCAT
|
|
OUTPUT F_CESPITE IDCESPITE
|
|
OUTPUT F_DESC_CES DESC
|
|
CHECKTYPE NORMAL
|
|
FIELD S1
|
|
END
|
|
|
|
STRING F_DESC_CES 50 46
|
|
BEGIN
|
|
PROMPT 26 4 ""
|
|
USE LF_CESPI KEY 3
|
|
INPUT DESC F_DESC_CES
|
|
DISPLAY "Desc@50" DESC
|
|
DISPLAY "Codice@10" IDCESPITE
|
|
DISPLAY "Cat." CODCAT
|
|
COPY OUTPUT F_CESPITE
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
DATE F_DATA_FABBR
|
|
BEGIN
|
|
PROMPT 2 5 "Data fabbricazione "
|
|
FIELD D1
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 76 5
|
|
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
|
|
OUTPUT F_CODCF CODCF
|
|
OUTPUT F_DESCF RAGSOC
|
|
CHECKTYPE NORMAL
|
|
FIELD I0
|
|
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 "Codice" CODCF
|
|
COPY OUTPUT F_CODCF
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
DATE F_DATA_CONSEGNA
|
|
BEGIN
|
|
PROMPT 2 10 "Data presa in consegna "
|
|
CHECKTYPE REQUIRED
|
|
FIELD D0
|
|
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)
|
|
I0 = codice cliente
|
|
D0 = data assegnamento
|
|
D1 = data fabbricazione
|
|
*/ |