campo-sirio/ha/ha3900a.uml

#include "ha3900a.h"

TOOLBAR "" 0 0 0 2

BUTTON DLG_SAVEREC 2 2
BEGIN
  PROMPT 1 1 "~Registra"
  PICTURE TOOL_SAVEREC
END

#include <cancelbar.h>

ENDPAGE

PAGE "Gestione attrezzature" 0 2 0 0

GROUPBOX DLG_NULL 79 5
BEGIN
  PROMPT 1 0 "@bParametri"
END

NUMBER F_CODCF 6
BEGIN
  PROMPT 2 1 "Cliente  "
  FLAGS "R"
  USE LF_CLIFO
  INPUT TIPOCF "C"
  INPUT CODCF F_CODCF
  DISPLAY "Codice" CODCF
  DISPLAY "Ragione Sociale@50" RAGSOC
  DISPLAY "Partita IVA@12" PAIV
  DISPLAY "Sospeso" SOSPESO
  OUTPUT F_CODCF CODCF
  OUTPUT F_DESCF RAGSOC
  CHECKTYPE NORMAL
END

STRING F_DESCF 50
BEGIN
  PROMPT 23 1 ""
  USE LF_CLIFO KEY 2
  INPUT TIPOCF "C"
  INPUT RAGSOC F_DESCF
  DISPLAY "Ragione Sociale@50" RAGSOC
  DISPLAY "Codice" CODCF
  DISPLAY "Partita IVA@12" PAIV
  DISPLAY "Sospeso" SOSPESO
  COPY OUTPUT F_CODCF
  CHECKTYPE NORMAL
END

STRING F_CODART 5
BEGIN
  PROMPT 2 2 "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 REQUIRED
  ADD RUN ve2 -3
END

STRING F_DESART 50
BEGIN
  PROMPT 23 2 ""
  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

NUMBER F_PROGRESSIVO 7
BEGIN
  PROMPT 2 3 "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
END

STRING F_MATRICOLA 15
BEGIN
  PROMPT 24 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]
  DISPLAY "Cliente" I0
  COPY OUTPUT F_PROGRESSIVO
  CHECKTYPE SEARCH
END

STRING F_CESPITE 10
BEGIN
  PROMPT 55 3 "Cespite "
  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 "Cespite@10" S1[1,10]
  DISPLAY "Articolo" CODTAB[1,5]
  DISPLAY "Progressivo" CODTAB[6,12]
  DISPLAY "Matricola@15" S0[6,20]
  DISPLAY "Descrizione@50" LF_ANAMAG->DESCR
  DISPLAY "Cliente" I0
  COPY OUTPUT F_PROGRESSIVO
  CHECKTYPE SEARCH
  FIELD S1
END


BUTTON DLG_ADD_NEW 20 1
BEGIN
  PROMPT 53 5 "Nuova attrezzatura"
END


TEXT DLG_NULL
BEGIN
  PROMPT 1 5 "@bAttrezzature"
END

TLIST F_ATTREZZATURE 0 6
BEGIN
  PROMPT 0 6 "Attrezzatura"
  DISPLAY "Codice@20" CODTAB
  DISPLAY "Matricola@15" S0[6,20]
  DISPLAY "Descrizione@35" S10
  DISPLAY "Cespite@10" S1[1,10]
  DISPLAY "Cliente" I0
  DISPLAY "Assegnamento" D0
END

TEXT DLG_NULL
BEGIN
  PROMPT 1 12 "@bStorico interventi"
END

SPREADSHEET F_STORICO 0 0
BEGIN
  PROMPT 0 13 "Storico interventi"
  ITEM "Tipo"
  ITEM "Data@10"
  ITEM "Note@15"
  ITEM "Articolo"
  ITEM "UM"
  ITEM "Quantita"
  ITEM "Importo@10"
  ITEM "Ap.Anno"
  ITEM "Ap.Codnum"
  ITEM "Ap.Ndoc"
  ITEM "Ch.Anno"
  ITEM "Ch.Codnum"
  ITEM "Ch.Ndoc"
  ITEM "Cliente"
  ITEM "Mag"
  ITEM "Chiusa"
END

ENDPAGE

ENDMASK


/////////////////////////////////////////
//maschera di riga sheet

PAGE "Dati intervento" -1 -1 78 15

LISTBOX S_TIPO 1 16
BEGIN
  PROMPT 1 1 "Tipo intervento"
  ITEM "C|Comodato d'uso"		MESSAGE DISABLE,1@|ENABLE,S_CLOSED
  ITEM "D|Descrittivo"			MESSAGE DISABLE,1@|CLEAR,S_CLOSED
  ITEM "I|Insegne nuove"		MESSAGE DISABLE,1@|CLEAR,S_CLOSED
  ITEM "R|Riparazione"			MESSAGE DISABLE,1@|CLEAR,S_CLOSED
  ITEM "V|Varie"				MESSAGE ENABLE,1@|CLEAR,S_CLOSED
  FIELD S7[1,1]
END

BOOLEAN S_CLOSED
BEGIN
  PROMPT 40 1 "Chiusura"
  FIELD B0
END

DATE S_DATA
BEGIN
  PROMPT 58 1 "Data "
  CHECKTYPE REQUIRED
  FIELD D0
END

STRING S_CODART 5
BEGIN
  PROMPT 1 2 "Art. collegato "
  USE LF_ANAMAG SELECT (GRMERC="50")&&(SOSPESO!="X")
  INPUT CODART S_CODART
  DISPLAY "Codice" CODART
  DISPLAY "Descrizione@50" DESCR
  OUTPUT S_CODART CODART
  OUTPUT S_DESART DESCR
  GROUP 1
  MESSAGE EMPTY HIDE,S_UM_CODART|SHOW,S_UM_GENERICO
  MESSAGE HIDE,S_UM_GENERICO|SHOW,S_UM_CODART
  FLAGS "G"
  FIELD S3
END

STRING S_DESART 50
BEGIN
  PROMPT 25 2 ""
  USE ANAMAG KEY 2 SELECT GRMERC="50"
  INPUT DESCR S_DESART
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Codice" CODART
  COPY OUTPUT S_CODART
  GROUP 1
END

//u.m. nel caso non ci sia alcun articolo collegato selezionato
STRING S_UM_GENERICO 2
BEGIN
  PROMPT 1 3 "U.M. "
  USE %UMS
  INPUT CODTAB S_UM_GENERICO
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT S_UM_GENERICO CODTAB
  FLAGS "U"
  CHECKTYPE NORMAL
  FIELD S6
END

//u.m. nel caso venga selezionato un articolo collegato (<28> una u.m. di quell'articolo)
STRING S_UM_CODART 2
BEGIN
  PROMPT 1 3 "U.M. "
  USE LF_UMART KEY 2 SELECT CODART=#S_CODART
  INPUT CODART S_CODART SELECT
  INPUT UM S_UM_CODART
  DISPLAY "U.M." UM
  DISPLAY "Articolo@20" CODART
  OUTPUT S_UM_CODART UM 
  FLAGS "U"
  CHECKTYPE NORMAL
  FIELD S6
END

NUMBER S_QTA 8 2
BEGIN
  PROMPT 12 3 "Qta "
  FIELD R0
END

CURRENCY S_IMPORTO 12
BEGIN
  PROMPT 32 3 "Importo "
  FIELD R1
END

GROPUPBOX DLG_NULL 76 3
BEGIN
  PROMPT 1 4 "@bBolla di apertura"
END

NUMBER S_BOL_OPEN_ANNO 4
BEGIN
  PROMPT 2 5 "Anno "
  FIELD S4[1,4]
END

STRING S_BOL_OPEN_CODNUM 4
BEGIN
  PROMPT 15 5 "Cod.Num. "
  USE %NUM
  INPUT CODTAB S_BOL_OPEN_CODNUM
  DISPLAY "Codnum" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT S_BOL_OPEN_CODNUM CODTAB
  CHECKTYPE NORMAL
  FIELD S4[5,8]
END

NUMBER S_BOL_OPEN_NDOC 4
BEGIN
  PROMPT 35 5 "N.Doc. "
  USE DOC SELECT TIPOCF="C"
  JOIN LF_CLIFO INTO TIPOCF=TIPOCF CODCF==CODCF
  INPUT PROVV "D"
  INPUT ANNO S_BOL_OPEN_ANNO SELECT
  INPUT CODNUM S_BOL_OPEN_CODNUM SELECT
  INPUT NDOC S_BOL_OPEN_NDOC
  DISPLAY "Anno" ANNO
  DISPLAY "Codnum" CODNUM
  DISPLAY "N. doc.@7" NDOC
  DISPLAY "Data doc.@10" DATADOC
  DISPLAY "Cliente" CODCF
  DISPLAY "Ragione sociale@50" LF_CLIFO->RAGSOC
  OUTPUT S_BOL_OPEN_NDOC NDOC
  CHECKTYPE NORMAL
  FIELD S4[9,15]
END

GROPUPBOX DLG_NULL 76 3
BEGIN
  PROMPT 1 7 "@bBolla di chiusura"
END

NUMBER S_BOL_CLOSE_ANNO 4
BEGIN
  PROMPT 2 8 "Anno "
  FIELD S5[1,4]
END

STRING S_BOL_CLOSE_CODNUM 4
BEGIN
  PROMPT 15 8 "Cod.Num. "
  COPY USE S_BOL_OPEN_CODNUM
  INPUT CODTAB S_BOL_CLOSE_CODNUM
  COPY DISPLAY S_BOL_OPEN_CODNUM
  OUTPUT S_BOL_CLOSE_CODNUM CODTAB
  CHECKTYPE NORMAL
  FIELD S5[5,8]
END

NUMBER S_BOL_CLOSE_NDOC 4
BEGIN
  PROMPT 35 8 "N.Doc. "
  USE DOC SELECT TIPOCF="C"
  JOIN LF_CLIFO INTO TIPOCF=TIPOCF CODCF==CODCF
  INPUT PROVV "D"
  INPUT ANNO S_BOL_CLOSE_ANNO SELECT
  INPUT CODNUM S_BOL_CLOSE_CODNUM SELECT
  INPUT NDOC S_BOL_CLOSE_NDOC
  COPY DISPLAY S_BOL_OPEN_NDOC
  OUTPUT S_BOL_CLOSE_NDOC NDOC
  CHECKTYPE NORMAL
  FIELD S5[9,15]
END

NUMBER S_CODCF 6
BEGIN
  PROMPT 1 10 "Cliente   "
  USE LF_CLIFO
  INPUT TIPOCF "C"
  INPUT CODCF S_CODCF
  DISPLAY "Codice" CODCF
  DISPLAY "Ragione sociale@50" RAGSOC
  OUTPUT S_CODCF CODCF
  OUTPUT S_DESCF RAGSOC
  CHECKTYPE NORMAL
  FIELD I0
END

STRING S_DESCF 50
BEGIN
  PROMPT 20 10 ""
  USE LF_CLIFO KEY 2
  INPUT TIPOCF "C"
  INPUT RAGSOC S_DESCF
  DISPLAY "Ragione sociale@50" RAGSOC
  DISPLAY "Codice" CODCF
  COPY OUTPUT S_CODCF
  CHECKTYPE NORMAL
END

STRING S_CODMAG 3
BEGIN
  PROMPT 1 11 "Magazzino "
  USE MAG
  INPUT CODTAB[1,3] S_CODMAG
  DISPLAY "Codice" CODTAB[1,3]
  DISPLAY "Descrizione@50" S0
  OUTPUT S_CODMAG CODTAB[1,3]
  OUTPUT S_DESMAG S0
  CHECKTYPE NORMAL
  FIELD S7[2,4]
END

STRING S_DESMAG 50
BEGIN
  PROMPT 20 11 ""
  USE MAG KEY 2
  INPUT S0 S_DESMAG
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice" CODTAB[1,3]
  COPY OUTPUT S_CODMAG
  CHECKTYPE NORMAL
END

STRING S_NOTE 70
BEGIN
  PROMPT 1 13 "Note "
  FIELD S0
END

ENDPAGE

TOOLBAR "bottombar" 0 0 0 2

BUTTON DLG_OK 2 2
BEGIN
  PROMPT 1 1 ""
END

BUTTON DLG_DELREC 2 2
BEGIN
  PROMPT 2 1 ""
END

BUTTON DLG_CANCEL 2 2
BEGIN
  PROMPT 3 1 ""
END

ENDPAGE

ENDMASK

/*
Mappa campi sul file TABMOD (tabella &HIS):
-------------------------------------------
CODTAB[1,5]   = codart (A)
CODTAB[6,12]  = progressivo (N z)
CODTAB[13,17] = numero riga (N z)
S0 = descrizione
S1[1,10] = cpdice cespite (A)
S3[1,5]  = codart collegato
S4[1,4]  = anno doc. apertura (N)
S4[5,8]  = numerazione doc. apertura (A)
S4[9,15] = numero doc. apertura (N)
S5[1,4]  = anno doc. chiusura (N)
S5[5,8]  = numerazione doc. chiusura (A)
S5[9,15] = numero doc. chiusura (N)
S6[1,2]  = umqta
S7[1,1] = tipo
S7[2,4] = codmag
I0 = codice cliente
R0 = quantita
R1 = importo
D0 = data intervento
B0 = chiusura
*/