campo-sirio/ps/ps0430300a.uml

#include "ps0430300a.h"

TOOLBAR "" 0 -2 0 2

BUTTON 1 15 2
BEGIN
  PROMPT -17 -11 "~Elabora"
  PICTURE BMP_ELABORA
END

BUTTON 24 15 2
BEGIN
  PROMPT -27 -11 "Stampa ~Consumi"
END

BUTTON DLG_PRINTDOC 15 2
BEGIN
  PROMPT -37 -11 "~Stampa Doc."
END

BUTTON 17 15 2
BEGIN
  PROMPT -47 -11 "E~limina Doc."
END

BUTTON DLG_PRINTINV 15 2
BEGIN
  PROMPT -57 -11 "Stampa ~Invent."
  MESSAGE RUN,MG4,-1
END

BUTTON 27 15 2
BEGIN
  PROMPT -67 -11 "~Gen. carichi"
  MESSAGE 13
END

BUTTON DLG_QUIT 15 2
BEGIN
  PROMPT -77 -11 ""
END

ENDPAGE

PAGE "Gestione Documenti" 0 0 0 -3

STRING F_CAZ_CODART 20
BEGIN
  PROMPT 30 1 "Codice articolo "
  USE LF_ANAMAG
  INPUT CODART F_CAZ_CODART
  DISPLAY "Codice@20" CODART
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_CAZ_CODART CODART
  CHECKTYPE SEARCH
END

DATE F_DATADOC
BEGIN
  PROMPT 1 1 "Data documento "
  FLAGS "A"
END

SPREADSHEET F_ARTICLES
BEGIN
PROMPT 1 3 "Articoli"
  ITEM "Codice\nArticolo@15F"
  ITEM "Quantità@10F"
  ITEM "Data\nConsegna@10F"
  ITEM "UM@F"
  ITEM "Descrizione@35"
  ITEM "Codice\nForn.@6"
  ITEM "Ragione sociale@30"
  ITEM "Commessa@20"
  ITEM "Fase@10"
  ITEM "Id Cespite@20"
  ITEM "Codice\nAggiuntivo 2@20"
  ITEM "Lead\ntime@5"
  ITEM "Lotto minimo\ndi riordino@10"
  ITEM "Descrizione aggiuntiva@50"
  ITEM "Giacenza@15"
  ITEM "Pezzi per\nconfezione@15"
  ITEM "Disponibilità@15"
  ITEM "Campo Aggiuntivo 1@15"
  ITEM "Campo Aggiuntivo 2@15"
  ITEM "Campo Aggiuntivo 3@15"
  ITEM "Campo Aggiuntivo 4@15"
  ITEM "Campo Aggiuntivo 5@15"
  ITEM "Campo Aggiuntivo 6@15"
  ITEM "Campo Aggiuntivo 7@15"
  ITEM "Campo Aggiuntivo 8@15"
  ITEM "Campo Aggiuntivo 9@15"
  ITEM "Campo Aggiuntivo 10@15"
END

ENDPAGE

PAGE "Stato Documenti" 0 0 0 -3

STRING F_DASTATO 1
BEGIN
  PROMPT 1 1 "Dallo stato "
  USE %STD 
  INPUT CODTAB F_DASTATO
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_DASTATO CODTAB
  CHECKTYPE NORMAL
  FIELD OR14_DASTATO
END

STRING F_ASTATO 1
BEGIN
  PROMPT 21 1 "Allo stato "
  COPY USE F_DASTATO
  INPUT CODTAB F_ASTATO
  COPY DISPLAY F_DASTATO
  OUTPUT F_ASTATO CODTAB
  CHECKTYPE NORMAL
  FIELD OR14_ASTATO
END

NUMBER F_ANNO 4
BEGIN
  PROMPT 51 1 "Anno "
  CHECKTYPE REQUIRED
  FIELD OR14_ANNO
END

DATE F_DATADOCCAR
BEGIN
  PROMPT 65 1 "Data doc. "
  FLAGS "A"
END

SPREADSHEET F_DOCUMENTS
BEGIN
PROMPT 1 2 "Ordini"
  ITEM "Data\nDoc.@10"
  ITEM "Numero\nDoc.@7"
  ITEM "Riga\nDoc.@4"
  ITEM "Stato\nDoc.@4"
  ITEM "Codice\nArticolo@20"
  ITEM "Descrizione@50"
  ITEM "UM"
  ITEM "Quantità@15"
  ITEM "Qta evasa@15"
  ITEM "Residuo@15"
  ITEM "Da\nEvadere"
  ITEM "Qta da evadere@15"
  ITEM "Data di\nconsegna@10"
  ITEM "Fornitore"
  ITEM "Ragione sociale@50"
  ITEM "Commessa@20"
  ITEM "Fase@10"
  ITEM "Descrizione aggiuntiva@50"
  ITEM "Pezzi\nper conf."
  ITEM "Taglie@10"
FLAGS "D"
END

ENDPAGE

PAGE "Note" 0 0 0 -3

MEMO 168 70 -1
BEGIN
  PROMPT 1 1 "Note "
  FLAGS ""
END

ENDPAGE

PAGE "Filtri" 0 0 0 -3

GROUPBOX DLG_NULL 78 5
BEGIN
  PROMPT 1 1 "@bGruppo merceologico"
END

STRING F_GRMERC 3
BEGIN
  PROMPT 2 2 "Gruppo merc.   "
  USE GMC KEY 1 SELECT CODTAB[4,5]==""
  INPUT CODTAB F_GRMERC
  DISPLAY "Codice" CODTAB[1,3]
  DISPLAY "Descrizione@50" S0
  OUTPUT F_GRMERC CODTAB[1,3]
  OUTPUT F_DGRMERC S0
  FLAGS "U"
  CHECKTYPE NORMAL
  FIELD OR14_GRM
END

STRING F_DGRMERC 50
BEGIN
  PROMPT 25 2 ""
  USE GMC KEY 2 SELECT CODTAB[4,5]==""
  INPUT S0 F_DGRMERC
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  COPY OUTPUT F_GRMERC
  CHECKTYPE SEARCH
END

STRING F_SGRMERC 3
BEGIN
  PROMPT 2 3 "Sottogr. merc. "
  USE GMC
  INPUT CODTAB[1,3] F_GRMERC
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_GRMERC CODTAB[1,3]
  OUTPUT F_SGRMERC CODTAB[4,5]
  OUTPUT F_DSGRMERC S0
  FLAGS "U"
  CHECKTYPE NORMAL
  FIELD OR14_SGR
END

STRING F_DSGRMERC 50
BEGIN
  PROMPT 25 3 ""
  USE GMC KEY 2 SELECT CODTAB[4,5] != ""
  INPUT S0 F_DSGRMERC
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT F_SGRMERC
  CHECKTYPE NORMAL
END

BOOLEAN F_SOTTOSCORTA
BEGIN
  PROMPT 2 4 "Sottoscorta"
  FIELD OR14_SSC
END

GROUPBOX DLG_NULL 78 5
BEGIN
  PROMPT 1 6 "@bArticolo"
END

STRING F_SCODART 20
BEGIN
  PROMPT 2 7 "Codice      "
  USE LF_ANAMAG
  INPUT CODART F_SCODART
  DISPLAY "Codice@20" CODART
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_SCODART CODART
  OUTPUT F_SDESART DESCR
  OUTPUT F_SDESAGG DESCRAGG
  CHECKTYPE NORMAL
  FLAGS "U"
END

STRING F_SDESART 50
BEGIN
  PROMPT 2 8 "Descrizione "
  USE LF_ANAMAG KEY 2
  INPUT DESCR F_SDESART
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Codice@20" CODART
  COPY OUTPUT F_SCODART
END

STRING F_SDESAGG 50
BEGIN
  PROMPT 2 9 "Descr. agg. "
  FLAGS "D"
END

GROUPBOX DLG_NULL 78 4
BEGIN
  PROMPT 1 11 "@bFornitore"
END

STRING F_SCODFOR 7
BEGIN
  PROMPT 2 12 "Codice    "
  USE LF_CLIFO
  INPUT TIPOCF "F"
  INPUT CODCF F_SCODFOR
  DISPLAY "Codice " CODCF
  DISPLAY "Ragione sociale@50" RAGSOC
  OUTPUT F_SCODFOR CODCF
  OUTPUT F_SRAGSOC RAGSOC
  CHECKTYPE NORMAL
END

STRING F_SRAGSOC 50
BEGIN
  PROMPT 2 13 "Rag. soc. "
  USE LF_CLIFO KEY 2
  INPUT TIPOCF "F"
  INPUT RAGSOC F_SRAGSOC
  DISPLAY "Ragione sociale@50" RAGSOC
  DISPLAY "Codice " CODCF
  COPY OUTPUT F_SCODFOR
  FLAGS ""
  CHECKTYPE NORMAL
END

ENDPAGE

PAGE "Parametri" 0 0 0 -3

GROUPBOX DLG_NULL 78 4
BEGIN
  PROMPT 1 1 "@bTipologia documento ordine"
END

STRING F_CODNUM 4
BEGIN
  PROMPT 2 2 "Numerazione "
  USE %NUM SELECT (CODTAB=="BACQ")||(CODTAB=="MAG")||(CODTAB=="ORF")||(CODTAB=="ORFT")||(CODTAB=="MAGT")
  INPUT CODTAB F_CODNUM
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@60" S0
  OUTPUT F_CODNUM CODTAB
  OUTPUT F_DESNUM S0
  OUTPUT F_TIPODOC S2[1,4]
  OUTPUT 100 S2[1,4]
  OUTPUT 101 S2[5,8]
  OUTPUT 102 S2[9,12]
  OUTPUT 103 S2[13,16]
  OUTPUT 104 S2[17,20]
  OUTPUT 105 S2[21,24]
  FLAGS "UG"
  CHECKTYPE REQUIRED
  FIELD OR14_NUM
  MESSAGE RESET,F_MAGC|RESET,F_DESMAGC
END

STRING F_DESNUM 50
BEGIN
  PROMPT 21 2 ""
  USE %NUM KEY 2 SELECT (CODTAB=="BACQ")||(CODTAB=="MAG")||(CODTAB=="ORF")||(CODTAB=="ORFT")||(CODTAB=="MAGT")
  INPUT S0 F_DESNUM
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT F_CODNUM
  CHECKTYPE REQUIRED
END

STRING 100 4
BEGIN
PROMPT 2 12 "1 "
FLAGS "H"
END

STRING 101 4
BEGIN
PROMPT 9 12 "2 "
FLAGS "H"
END

STRING 102 4
BEGIN
PROMPT 16 12 "3 "
FLAGS "H"
END

STRING 103 4
BEGIN
PROMPT 23 12 "4 "
FLAGS "H"
END

STRING 104 4
BEGIN
PROMPT 30 12 "5 "
FLAGS "H"
END

STRING 105 4
BEGIN
PROMPT 37 12 "6 "
FLAGS "H"
END

STRING F_TIPODOC 4
BEGIN
  PROMPT 2 3 "Tipo        "
  USE %TIP SELECT (CODTAB==#100)||(CODTAB==#101)||(CODTAB==#102)||(CODTAB==#103)||(CODTAB==#104)||(CODTAB==#105)
  INPUT CODTAB F_TIPODOC
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@60" S0
  OUTPUT F_TIPODOC CODTAB
  OUTPUT F_DESTIPODOC S0
  CHECKTYPE REQUIRED
  FLAGS "UG"
  FIELD OR14_TIP
END

STRING 160 50
BEGIN
  PROMPT 21 3 ""
  USE %TIP KEY 2 SELECT (CODTAB==#100)||(CODTAB==#101)||(CODTAB==#102)||(CODTAB==#103)||(CODTAB==#104)||(CODTAB==#105)
  INPUT S0 F_DESTIPODOC
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT F_TIPODOC
  CHECKTYPE REQUIRED
END

GROUPBOX DLG_NULL 78 3
BEGIN
  PROMPT 1 5 "@bCentro di costo  / Commessa"
END

STRING F_CDCT 20
BEGIN
  PROMPT 2 6 "CDC/Commessa "
  USE CMS
  INPUT CODTAB F_CDCT
  DISPLAY "Codice@20" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CDCT CODTAB
  FIELD OR14_CDCT
  FLAGS "UZ"
  CHECKTYPE NORMAL
END

STRING F_FSCT 10
BEGIN
  PROMPT 50 6 "Fase   "
  FLAGS "DUZ"
  USE FSC
  INPUT CODTAB F_FSCT
  DISPLAY "Codice@20" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_FSCT CODTAB
  FIELD OR14_FSCT
  CHECKTYPE NORMAL
END

GROUPBOX DLG_NULL 78 6
BEGIN
  PROMPT 1 8 "@bMagazzino / Deposito"
END

STRING F_MAG 3
BEGIN
  PROMPT 2 9 "Magazzino   "  
  USE MAG SELECT CODTAB[4,5]==""
  INPUT CODTAB F_MAG
  DISPLAY "Codice " CODTAB[1,3]
  DISPLAY "Denominazione mag.@50 " S0
  OUTPUT F_MAG CODTAB[1,3]
  OUTPUT F_DESMAG S0
  CHECKTYPE NORMAL
  FIELD OR14_MAG
  FLAGS "UG"
END

STRING F_DESMAG 50
BEGIN
  PROMPT 21 9 ""
  USE MAG KEY 2 SELECT CODTAB[4,5]==""
  INPUT S0 F_DESMAG
  DISPLAY "Denominazione magazzino@50" S0
  DISPLAY "Cod. magazzino" CODTAB[1,3]
  DISPLAY "Cod. deposito" CODTAB[4,5]
  COPY OUTPUT F_MAG
  CHECKTYPE SEARCH
  FLAGS "UG"
END

STRING F_DEP 2
BEGIN
  PROMPT 2 10 "Deposito    "
  USE MAG SELECT (CODTAB[1,3]==#F_MAG)&&(CODTAB[4,5]!="")
  INPUT CODTAB[1,3] F_MAG
  INPUT CODTAB[4,5] F_DEP
  DISPLAY "Codice" CODTAB
  DISPLAY "Denominazione dep.@50 " S0
  OUTPUT F_MAG CODTAB[1,3]
  OUTPUT F_DEP CODTAB[4,5]
  FLAGS "HU"
  CHECKTYPE SEARCH
  FIELD OR14_DEP
END

STRING F_DESDEP 50
BEGIN
  PROMPT 21 10 ""
  USE MAG KEY 2 SELECT (CODTAB[1,3]==#F_MAG)&&(CODTAB[4,5]!="")
  INPUT S0 F_DESDEP
  DISPLAY "Denominazione deposito@50" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT F_DEP
  FLAGS "H"
  CHECKTYPE SEARCH
END

STRING F_MAGC 3
BEGIN
  PROMPT 2 11 "Mag.coll.   "
  USE MAG SELECT CODTAB[4,5]==""
  INPUT CODTAB F_MAGC
  DISPLAY "Codice" CODTAB[1,3]
  DISPLAY "Denominazione mag.@50 " S0
  OUTPUT F_MAGC CODTAB[1,3]
  OUTPUT F_DESMAGC S0
  FLAGS "UG"
  CHECKTYPE NORMAL
  FIELD OR14_MAGC
END

STRING F_DESMAGC 50
BEGIN
  PROMPT 21 11 ""
  USE MAG KEY 2 SELECT CODTAB[4,5]==""
  INPUT S0 F_DESMAGC
  DISPLAY "Denominazione magazzino@50" S0
  DISPLAY "Cod. magazzino" CODTAB[1,3]
  DISPLAY "Cod. deposito" CODTAB[4,5]
  OUTPUT F_MAGC CODTAB[1,3]
  OUTPUT F_DESMAGC S0
  CHECKTYPE SEARCH
END

STRING F_DEPC 2
BEGIN
  PROMPT 2 12 "Deposito    "
  USE MAG SELECT (CODTAB[1,3]==#F_MAGC)&&(CODTAB[4,5]!="")
  INPUT CODTAB[1,3] F_MAGC
  INPUT CODTAB[4,5] F_DEPC
  DISPLAY "Codice " CODTAB
  DISPLAY "Denominazione deposito@50 " S0
  OUTPUT F_MAGC CODTAB[1,3]
  OUTPUT F_DEPC CODTAB[4,5]
  FLAGS "HU"
  CHECKTYPE SEARCH
  FIELD OR14_DEPC
END

STRING F_DESDEPC 50
BEGIN
  PROMPT 21 12 ""
  USE MAG KEY 2 SELECT (CODTAB[1,3]==#F_MAGC)&&(CODTAB[4,5]!="")
  INPUT S0 F_DESDEPC
  DISPLAY "Denominazione deposito@50" S0
  DISPLAY "Codice" CODTAB
  OUTPUT F_DEPC CODTAB[4,5]
  FLAGS "HU"
  CHECKTYPE SEARCH
END

GROUPBOX -1 78 3
BEGIN
  PROMPT 1 14 "@bValorizzazione"
END

LIST F_PREZZO 15
BEGIN
  PROMPT 2 15 "Prezzo      "
  ITEM "U|Ultimo Costo"
  ITEM "S|Costo Standard"
  FIELD OR14_TPR
END

ENDPAGE

ENDMASK

//---Maschere di riga degli sheet---//

//---Riga sheet degli articoli SA---//
TOOLBAR "" 0 -2 0 3

BUTTON 1 10 2
BEGIN
  PROMPT -12 -11 ""
END

BUTTON 2 10 2
BEGIN
  PROMPT -22 -11 ""
END

ENDPAGE

PAGE "Righe ordine" -1 -1 80 20

STRING SA_CODART 20
BEGIN
  PROMPT 1 2 "Articolo "
  FLAGS "D"
END

STRING SA_DESCR 50 38
BEGIN
  PROMPT 32 2 ""
  FLAGS "D"
END

STRING SA_UM 2
BEGIN
  PROMPT 1 3 "U.M. " 
  USE LF_UMART KEY 2 SELECT CODART==#SA_CODART
  JOIN %UMS INTO CODTAB==UM
  INPUT CODART SA_CODART SELECT
  INPUT UM SA_UM
  DISPLAY "U.M." UM
  DISPLAY "Descrizione@50" %UMS->S0
  DISPLAY "F.C.@10" FC
  OUTPUT SA_UM UM 
  CHECKTYPE REQUIRED
  FLAGS "UG"
END

NUMBER SA_QTA 13 5
BEGIN
  PROMPT 16 3 "Quantità "
END

DATA SA_DATACONS
BEGIN
  PROMPT 43 3 "Data di consegna "
  WARNING "Indicare la data di consegna"
  VALIDATE 12 1 104
END

NUMBER SA_FORNITORE 6
BEGIN
  PROMPT 1 5 "Fornitore "
  FIELD CODCF
  USE LF_CLIFO
  INPUT TIPOCF "F"
  INPUT CODCF SA_FORNITORE
  DISPLAY "Codice" CODCF
  DISPLAY "Ragione sociale@50" RAGSOC
  OUTPUT SA_FORNITORE CODCF
  OUTPUT SA_RAGSOC RAGSOC
  CHECKTYPE NORMAL
  FLAGS "D"
END

STRING SA_RAGSOC 50
BEGIN
  FLAGS "D"
  PROMPT 20 5 ""
  USE LF_CLIFO KEY 2
  INPUT TIPOCF "F"
  INPUT RAGSOC SA_RAGSOC
  DISPLAY "Ragione sociale@50" RAGSOC
  DISPLAY "Codice" CODCF
  COPY OUTPUT SA_FORNITORE
  CHECKTYPE SEARCH
END

//versione 3.2
STRING SA_CDC 20
BEGIN
  PROMPT 1 8 "Commessa "
  USE CMS
  INPUT CODTAB SA_CDC
  DISPLAY "Codice@20" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT SA_CDC CODTAB
  CHECKTYPE NORMAL
  FLAGS "DUZ"
END

/* Versione 10.0
STRING SA_CDC 20
BEGIN
  PROMPT 1 8 "Commessa "
  USE LF_COMMESSE
  INPUT CODCMS SA_CDC
  DISPLAY "Codice@20" CODCMS
  DISPLAY "Descrizione@50" DESCRIZ
  OUTPUT SA_CDC CODCMS
  CHECKTYPE NORMAL
  FLAGS "D"
END*/

//versione 3.2
STRING SA_FSC 10
BEGIN
  PROMPT 45 8 "Fase "
  USE FSC
  INPUT CODTAB SA_FSC
  DISPLAY "Codice@20" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT SA_FSC CODTAB
  CHECKTYPE NORMAL
  FLAGS "DUZ"
END

/* Versione 10.0 (deve essere legabile alla commessa!!)
STRING SA_FSC 10
BEGIN
  PROMPT 45 8 "Fase "
  USE LF_FASI
  INPUT CODFASE SA_FSC SELECT CODCMSFAS==#SA_CDC
  DISPLAY "Codice@20" CODFASE
  DISPLAY "Descrizione@50" descriz
  OUTPUT SA_FSC CODfase
  CHECKTYPE NORMAL
  FLAGS "DUZ"
END*/

STRING SA_CODAGG1 20
BEGIN
  PROMPT 1 7 "Cespite  "
  FLAGS "D"
END

STRING SA_CODAGG2 20
BEGIN
  PROMPT 37 7 "Codice agg.2 "
  FLAGS "D"  
END

NUMBER SA_LEADTIME 5
BEGIN
  PROMPT 1 15 "Lead time "
  FLAGS "D"
END

NUMBER SA_LOTTOMIN 10 3
BEGIN
  PROMPT 19 15 "Lotto "
  FLAGS "D"
END

MEMO SA_DESCRAGG 50 4
BEGIN
  PROMPT 1 10 "Descr.aggiuntiva"
  FLAGS "D"
END

NUMBER SA_GIACENZA 15 5
BEGIN
  PROMPT 1 17 "Giacenza"
  FLAGS "D"
END

NUMBER SA_PPCONF 15
BEGIN
  PROMPT 38 15 "Pezzi per conf. "
  FLAGS "D"
END

NUMBER SA_DISPON 15 5
BEGIN
  PROMPT 39 17 "Disponibilita' "
  FLAGS "D"
END

ENDPAGE

PAGE "Campi Utente" -1 -1 80 20

STRING SA_USER1 20
BEGIN
PROMPT 2 2 "Campo utente  1 "
FLAGS "D"
END

STRING SA_USER2 20
BEGIN
PROMPT 2 4 "Campo utente  2 "
FLAGS "D"
END

STRING SA_USER3 20
BEGIN
PROMPT 2 6 "Campo utente  3 "
FLAGS "D"
END

STRING SA_USER4 20
BEGIN
PROMPT 2 8 "Campo utente  4 "
FLAGS "D"
END

STRING SA_USER5 20
BEGIN
PROMPT 2 10 "Campo utente  5 "
FLAGS "D"
END

STRING SA_USER6 20
BEGIN
PROMPT 2 12 "Campo utente  6 "
FLAGS "D"
END

STRING SA_USER7 20
BEGIN
PROMPT 2 14 "Campo utente  7 "
FLAGS "D"
END

STRING SA_USER8 20
BEGIN
PROMPT 2 16 "Campo utente  8 "
FLAGS "D"
END

STRING SA_USER9 20
BEGIN
PROMPT 2 18 "Campo utente  9 "
FLAGS "D"
END

STRING SA_USER10 20
BEGIN
PROMPT 2 20 "Campo utente 10 "
FLAGS "D"
END

ENDPAGE
ENDMASK

//---Riga sheet degi documenti SD---//

TOOLBAR "" 0 -2 0 3

BUTTON 2 10 2
BEGIN
  PROMPT -12 -1 ""
END

BUTTON 1 10 2
BEGIN
  PROMPT -22 -1 ""
END

ENDPAGE

PAGE "Documenti" -1 -1 80 20

GROUPBOX DLG_NULL 80 3
BEGIN
  PROMPT 1 0 "@bEstremi del documento"
END

DATE 101
BEGIN
  PROMPT 2 1 "Data    "
  FIELD 33.DATADOC
  FLAGS "D"
END

NUMBER 102 6
BEGIN
  PROMPT 25 1 "Numero "
  FIELD NDOC
  FLAGS "D"
END

NUMBER 103 4
BEGIN
PROMPT 43 1 "Riga "
FIELD NRIGA
FLAGS "D"
END

STRING 104 1
BEGIN
PROMPT 57 1 "Stato "
FIELD 33.STATO
FLAGS "D"
END

GR -1 80 6
BEGIN
PROMPT 1 3 "@bArticolo"
END

STRING 105 20
BEGIN
PROMPT 2 4 "Codice      "
FIELD CODART
FLAGS "D"
END

STRING 106 50
BEGIN
PROMPT 2 5 "Descrizione "
FIELD 47.DESCR
FLAGS "D"
END

STRING 107 2
BEGIN
PROMPT 2 6 "Quantità    "
FLAGS "UD"
FIELD UMQTA
END

NUMBER 108 13 5
BEGIN
PROMPT 18 6 ""
FIELD QTA
FLAGS "D"
END

NUMBER 109 13 5
BEGIN
PROMPT 34 6 "Evasa "
FIELD QTAEVASA
  CHECKTYPE NORMAL
FLAGS "D"
END

NUMBER 110 13 5
BEGIN
PROMPT 56 6 "Residuo "
VA 14 1 #108-#109
DR 108 109
  CHECKTYPE NORMAL
FLAGS "DG"
END

BO 111
BEGIN
PROMPT 2 7 "Da evadere"
MESSAGE 0 CLEAR, 112
MESSAGE 1 ENABLE,112
END

NUMBER 112 13 5
BEGIN
PROMPT 16 7 "Qta da evadere"
END

DATA 113
BEGIN
PROMPT 47 7 "Data di consegna "
FIELD DATACONS
END

GROUPBOX DLG_NULL 80 3
BEGIN
PROMPT 1 8 "@bFornitore"
END

NUMBER SD_FORNITORE 6
BEGIN
  PROMPT 2 10 ""
  FIELD 33.CODCF
  FLAGS "D"
END

STRING 115 50
BEGIN
PROMPT 14 10 ""
FIELD 20.RAGSOC
FLAGS "D"
END

GR -1 80 4
BEGIN
PROMPT 1 11 "@bCentro di costo/Commessa"
END

STRING 116 20
BEGIN
PROMPT 2 13 "Codice      "
FLAGS "UZD"
FIELD CODCMS
END

STRING 117 10
BEGIN
PROMPT 2 14 "Fase        "
FLAGS "UZD"
FIELD FASCMS
END

STRING 118 50
BEGIN
PROMPT 2 16 "Descr. agg. "
FIELD 47.DESCRAGG[1,50]
FLAGS "D"
END

NUMBER 119 15
BEGIN
PROMPT 2 17 "P.per conf. "
FIELD 47.PPCONF
FLAGS "D"
END

STRING 120 20
BEGIN
PROMPT 42 17 "Taglie "
FIELD 47.USER2
FLAGS "D"
END

ENDPAGE
ENDMASK