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

NUMBER F_PROGRESSIVO 8
BEGIN
  PROMPT 2 1 "Matricola Hardy "
  FLAGS "UZ"
  USE &ATT
  JOIN LF_ANAMAG INTO CODART=S0[1,20]
  JOIN LF_CESPI INTO IDCESPITE=S1
  INPUT CODTAB F_PROGRESSIVO
  DISPLAY "Matr.Hardy" CODTAB
  DISPLAY "Articolo@20" S0[1,20]
  DISPLAY "Matricola@15" S0[21,35]
  DISPLAY "Cespite@10" S1
  DISPLAY "Descrizione cespite@35" LF_CESPI->DESC
  DISPLAY "Note@35" S3
  DISPLAY "Descrizione articolo@50" LF_ANAMAG->DESCR
  OUTPUT F_PROGRESSIVO CODTAB
  FIELD CODTAB
  CHECKTYPE REQUIRED
  KEY 1
END

STRING F_CODART 20
BEGIN
  PROMPT 38 1 "Articolo  " 
  FLAGS "U"  
  USE LF_ANAMAG SELECT (GRMERC="50")&&(SOSPESO!="X")
  INPUT CODART F_CODART
  DISPLAY "Codice@20" CODART
  DISPLAY "Descrizione@50" DESCR
  OUPUT F_CODART CODART
  OUPUT F_DESCRART DESCR
  FIELD S0[1,20]
  CHECKTYPE FORCED
  ADD RUN ve2 -3
END

STRING F_DESCRART 50
BEGIN
  PROMPT 2 2 "Descrizione     "
  USE LF_ANAMAG KEY 2 SELECT (GRMERC="50")&&(SOSPESO!="X")
  INPUT DESCR F_DESCRART
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Codice@20" CODART
  COPY OUTPUT F_CODART
  CHECKTYPE REQUIRED
END

STRING F_MATRICOLA 15
BEGIN
  PROMPT 2 3 "Matricola "
  FLAGS "U"
  USE &ATT KEY 2
  JOIN LF_ANAMAG INTO CODART=S0[1,20]
  JOIN LF_CESPI INTO IDCESPITE=S1
  INPUT S0[1,20] F_CODART
  INPUT S0[21,35] F_MATRICOLA
  DISPLAY "Articolo@20" S0[1,20]
  DISPLAY "Matricola@15" S0[21,35]
  DISPLAY "Matr.Hardy" CODTAB
  DISPLAY "Cespite@10" S1
  DISPLAY "Descrizione cespite@35" LF_CESPI->DESC
  DISPLAY "Note@35" S3
  DISPLAY "Descrizione articolo@50" LF_ANAMAG->DESCR
  COPY OUTPUT F_PROGRESSIVO
  OUTPUT F_MATRICOLA S0[21,35]
  CHECKTYPE NORMAL
  FIELD S0[21,35]
  KEY 2
END

STRING F_CESPITE_NEW 10
BEGIN
  PROMPT 2 4 "Cespite   "
  FLAGS "HUZ"
  USE LF_CESPI 
  INPUT IDCESPITE F_CESPITE_NEW
  DISPLAY "Cespite@10" IDCESPITE
  DISPLAY "Desc@50" DESC
  DISPLAY "Cat." CODCAT
  OUTPUT F_CESPITE_NEW IDCESPITE
  OUTPUT F_DESC_CES_NEW DESC
  CHECKTYPE NORMAL
  FIELD S1
  GROUP 1
END

STRING F_DESC_CES_NEW 50 46
BEGIN
  PROMPT 26 4 ""
  FLAGS "H"
  USE LF_CESPI KEY 3
  INPUT DESC F_DESC_CES_NEW
  DISPLAY "Desc@50" DESC
  DISPLAY "Codice@10" IDCESPITE
  DISPLAY "Cat." CODCAT
  COPY OUTPUT F_CESPITE_NEW
  GROUP 1
END

STRING F_CESPITE_SEARCH 10
BEGIN
  PROMPT 2 4 "Cespite   "
  FLAGS "UZ"
  USE &ATT
  JOIN LF_CESPI INTO IDCESPITE=S1
  JOIN LF_ANAMAG INTO CODART=S0[1,20]
  INPUT S1[1,10] F_CESPITE_SEARCH
  DISPLAY "Cespite@10" S1
  DISPLAY "Descrizione cespite@50" LF_CESPI->DESC
  DISPLAY "Note@35" S3
  DISPLAY "Articolo" S0[1,20]
  DISPLAY "Matr.Hardy" CODTAB
  DISPLAY "Matricola@15" S0[21,35]
  COPY OUTPUT F_PROGRESSIVO
  OUTPUT F_CESPITE_SEARCH S1
  OUTPUT F_DESC_CES_SEARCH LF_CESPI->DESC
  CHECKTYPE NORMAL
  FIELD S1
  GROUP 2
  KEY 3
END

STRING F_DESC_CES_SEARCH 50 46
BEGIN
  PROMPT 26 4 ""
  FLAGS "DU"
  /*USE &ATT
  JOIN LF_CESPI INTO IDCESPITE=S1
  INPUT S1 F_CESPITE_SEARCH
  DISPLAY "Descrizione cespite@50" LF_CESPI->DESC
  DISPLAY "Cespite@10" S1
  DISPLAY "Note@35" S3
  DISPLAY "Articolo" S0[1,20]
  DISPLAY "Matr.Hardy" CODTAB
  DISPLAY "Matricola@15" S0[21,35]
  COPY OUTPUT F_CESPITE_SEARCH*/
  GROUP 2
END

DATE F_DATA_FABBR
BEGIN
  PROMPT 2 5 "Data fab. "
  FIELD D1
END

STRING F_NOTE 50 46
BEGIN
  PROMPT 26 5 ""
  FIELD S3
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
  DISPLAY "Indirizzo@30" INDCF
  OUTPUT F_CODCF CODCF
  OUTPUT F_DESCF RAGSOC
  CHECKTYPE NORMAL
  FIELD I0
  ADD RUN cg0 -1 C
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 "Indirizzo@30" INDCF
  DISPLAY "Codice" CODCF
  COPY OUTPUT F_CODCF
  CHECKTYPE NORMAL
  ADD RUN cg0 -1 C
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 = Matricola Hardy (N8 z)
S0[1,20]  = codart per matricola (A20)
S0[21,35] = matricola fornitore (A15)
S1[1,10] = codice cespite (A10)
S3 = descrizione aggiuntiva cespite (da importazione iniziale dati Hardy)
I0 = codice cliente
I1 = codice indirizzo spedizione
D0 = data assegnamento
D1 = data fabbricazione
*/