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 6
BEGIN
  PROMPT 1 0 "@bParametri"
END

NUMBER F_CODCF 6
BEGIN
  PROMPT 2 1 "Cliente  "
  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

NUMBER F_PROGRESSIVO 8
BEGIN
  PROMPT 2 2 "Matricola Hardy      "
  FLAGS "UZ"
  USE &ATT
  JOIN LF_ANAMAG INTO CODART=S0[1,20]
  INPUT CODTAB F_PROGRESSIVO
  DISPLAY "Matr. Hardy" CODTAB
  DISPLAY "Articolo@20" S0[1,20]
  DISPLAY "Matricola@15" S0[21,35]
  DISPLAY "Descrizione@50" LF_ANAMAG->DESCR
  DISPLAY "Cespite@10" S1[1,10]
  OUTPUT F_CODART S0[1,20]
  OUTPUT F_PROGRESSIVO CODTAB
  OUTPUT F_MATRICOLA S0[21,35]
  OUTPUT F_CESPITE S1[1,10]
  OUTPUT F_CODCF I0
  CHECKTYPE SEARCH
END

STRING F_CODART 20
BEGIN
  PROMPT 44 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 2 3 "Descrizione          "
  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_MATRICOLA 15
BEGIN
  PROMPT 2 4 "Matricola Fornitore  "
  FLAGS "U"
  USE &ATT KEY 2
  JOIN LF_ANAMAG INTO CODART=CODTAB[1,20]
  INPUT S0[1,5] F_CODART
  INPUT S0[6,20] F_MATRICOLA
  DISPLAY "Codice@20" S0[1,20]
  DISPLAY "Matricola@15" S0[21,35]
  DISPLAY "Matr. Hardy" CODTAB
  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 4 "Cespite "
  FLAGS "UZ"
  USE &ATT
  JOIN LF_ANAMAG INTO CODART=CODTAB[1,20]
  INPUT CODTAB[1,5] F_CODART
  INPUT CODTAB[6,12] F_PROGRESSIVO
  DISPLAY "Cespite@10" S1[1,10]
  DISPLAY "Articolo@20" S0[1,20]
  DISPLAY "Matr.Hardy" CODTAB
  DISPLAY "Matricola@15" S0[21,35]
  DISPLAY "Descrizione@50" LF_ANAMAG->DESCR
  DISPLAY "Cliente" I0
  COPY OUTPUT F_PROGRESSIVO
  CHECKTYPE SEARCH
END


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

TEXT DLG_NULL
BEGIN
  PROMPT 1 6 "@bAttrezzature"
END

TLIST F_ATTREZZATURE -3 6
BEGIN
  PROMPT 0 7 "Attrezzatura"
  DISPLAY "Matr.Hardy@10" CODTAB
  DISPLAY "Articolo@20" S0[1,20]
  DISPLAY "Descrizione Articolo@35" S10
  DISPLAY "Matricola@15" S0[21,35]
  DISPLAY "Cespite@10" S1[1,10]
  DISPLAY "Cliente" I0
  DISPLAY "Assegnamento" D0
  DISPLAY "Descrizione Attrezzatura@50" S3
END

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

SPREADSHEET F_STORICO
BEGIN
  PROMPT 0 15 "Storico interventi"
  ITEM "Tipo\nIntervento@16"
  ITEM "Data@10"
  ITEM "Note@15"
  ITEM "Articolo@20"
  ITEM "UM"
  ITEM "Quantit<69>"
  ITEM "Importo@10"
  ITEM "Anno\naper.@4"
  ITEM "Codnum\naper.@5"
  ITEM "N.doc.\naper.@7"
  ITEM "Anno\nChiu.@4"
  ITEM "Codnum\nChiu.@5"
  ITEM "N.doc.\nChiu.@7"
  ITEM "Cliente"
  ITEM "Sede"
  ITEM "Mag"
  ITEM "Chiusa"
  ITEM "N1@1"
  ITEM "N2@1"
  ITEM "N3@1"
  ITEM "N4@1"
  ITEM "N5@1"
  ITEM "N6@1"
  ITEM "N7@1"
  ITEM "N8@1"
  ITEM "N9@1"
  ITEM "N10@1"
  ITEM "N11@1"
  ITEM "N12@1"
  ITEM "N13@1"
  ITEM "N14@1"
  ITEM "N15@1"
  ITEM "N16@1"
  ITEM "N17@1"
  ITEM "N18@1"
  ITEM "N19@1"
  ITEM "N20@1"
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 "
  VALIDATE NOT_EMPTY_FUNC
  FIELD D0
END

STRING S_CODART 20
BEGIN
  PROMPT 1 2 "Art."
  USE LF_ANAMAG SELECT (GRMERC="50")&&(SOSPESO!="X")
  INPUT CODART S_CODART
  DISPLAY "Codice@20" 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 45
BEGIN
  PROMPT 28 2 ""
  USE ANAMAG KEY 2 SELECT GRMERC="50"
  INPUT DESCR S_DESART
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Codice@20" 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 7
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 7
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

NUMBER S_INDSPED 3
BEGIN
  PROMPT 1 11 "Sede      "
  USE LF_INDSP
  INPUT TIPOCF "C"
  INPUT CODCF S_CODCF SELECT
  INPUT CODIND S_INDSPED
  DISPLAY "Cod." CODIND
  DISPLAY "Indirizzo@35" INDIR
  DISPLAY "Ragione sociale@50" RAGSOC
  OUTPUT S_INDSPED CODIND
  OUTPUT S_DESCINDSPED RAGSOC
  CHECKTYPE NORMAL
  FIELD I1
END

STRING S_DESCINDSPED 50
BEGIN
  PROMPT 20 11 ""
  FLAGS "D"
END

STRING S_CODMAG 3
BEGIN
  PROMPT 1 12 "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 12 ""
  USE MAG KEY 2
  INPUT S0 S_DESMAG
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice" CODTAB[1,3]
  COPY OUTPUT S_CODMAG
  CHECKTYPE NORMAL
END

ENDPAGE

PAGE "Note" -1 -1 78 15

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

BOOLEAN S_FLAG01
BEGIN
  PROMPT 1 3 "Nota 1"
  FIELD S1[1,1]
END

BOOLEAN S_FLAG02
BEGIN
  PROMPT 1 4 "Nota 2"
  FIELD S1[2,2]
END

BOOLEAN S_FLAG03
BEGIN
  PROMPT 1 5 "Nota 3"
  FIELD S1[3,3]
END

BOOLEAN S_FLAG04
BEGIN
  PROMPT 1 6 "Nota 4"
  FIELD S1[4,4]
END

BOOLEAN S_FLAG05
BEGIN
  PROMPT 1 7 "Nota 5"
  FIELD S1[5,5]
END

BOOLEAN S_FLAG06
BEGIN
  PROMPT 1 8 "Nota 6"
  FIELD S1[6,6]
END

BOOLEAN S_FLAG07
BEGIN
  PROMPT 1 9 "Nota 7"
  FIELD S1[7,7]
END

BOOLEAN S_FLAG08
BEGIN
  PROMPT 1 10 "Nota 8"
  FIELD S1[8,8]
END

BOOLEAN S_FLAG09
BEGIN
  PROMPT 1 11 "Nota 9"
  FIELD S1[9,9]
END

BOOLEAN S_FLAG10
BEGIN
  PROMPT 1 12 "Nota 10"
  FIELD S1[10,10]
END

BOOLEAN S_FLAG11
BEGIN
  PROMPT 31 3 "Nota 11"
  FIELD S1[11,11]
END

BOOLEAN S_FLAG12
BEGIN
  PROMPT 31 4 "Nota 12"
    FIELD S1[12,12]
END

BOOLEAN S_FLAG13
BEGIN
  PROMPT 31 5 "Nota 13"
  FIELD S1[13,13]
END

BOOLEAN S_FLAG14
BEGIN
  PROMPT 31 6 "Nota 14"
  FIELD S1[14,14]
END

BOOLEAN S_FLAG15
BEGIN
  PROMPT 31 7 "Nota 15"
  FIELD S1[15,15]
END

BOOLEAN S_FLAG16
BEGIN
  PROMPT 31 8 "Nota 16"
  FIELD S1[16,16]
END

BOOLEAN S_FLAG17
BEGIN
  PROMPT 31 9 "Nota 17"
  FIELD S1[17,17]
END

BOOLEAN S_FLAG18
BEGIN
  PROMPT 31 10 "Nota 18"
  FIELD S1[18,18]
END

BOOLEAN S_FLAG19
BEGIN
  PROMPT 31 11 "Nota 19"
  FIELD S1[19,19]
END

BOOLEAN S_FLAG20
BEGIN
  PROMPT 31 12 "Nota 20"
  FIELD S1[20,20]
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
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
I1 = codice indirizzo spedizione
R0 = quantita
R1 = importo
D0 = data intervento
B0 = chiusura
*/