campo-sirio/ha/hatbatt.uml

#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 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
  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

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)
I0 = codice cliente
I1 = codice indirizzo spedizione
D0 = data assegnamento
D1 = data fabbricazione
*/