root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
campo-sirio/ps/ps0430300a.uml
luca 3ac60e1f6f Patch level :10.0 
Files correlati     :
Ricompilazione Demo : [ ]
Commento            :
iniziato casino per il cigno. per ora va sulla riga corretta e risolve l'articolo


git-svn-id: svn://10.65.10.50/branches/R_10_00@22241 c028cbd2-c16b-5b4b-a496-9718f37d4682
2011-06-08 14:41:09 +00:00

875 lines
11 KiB
Plaintext
Executable File
Raw Blame History

#include "ps0430300a.h"
TOOLBAR "" 0 -2 0 2
BU 1 15 2
BE
PR -17 -11 "~Elabora"
PI 120
EN
BU 24 15 2
BE
PR -27 -11 "Stampa ~Consumi"
EN
BU 178 15 2
BE
PR -37 -11 "~Stampa Doc."
EN
BU 17 15 2
BE
PR -47 -11 "E~limina Doc."
EN
BU 179 15 2
BE
PR -57 -11 "Stampa ~Inv."
ME RU,MG4,-1
EN
BU 27 15 2
BE
PR -67 -11 "~Gen. carichi"
ME 13
EN
BU 9 15 2
BE
PR -77 -11 ""
EN
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"
IT "Codice\nArticolo@15"
IT "Descrizione@35"
IT "UM"
IT "Quantità@10"
IT "Data\nConsegna@10"
IT "Codice\nForn.@6"
IT "Ragione sociale@30"
IT "Commessa@20"
IT "Fase@10"
IT "Id Cespite@20"
IT "Codice\nAggiuntivo 2@20"
IT "Lead\ntime@5"
IT "Lotto minimo\ndi riordino@10"
IT "Descrizione aggiuntiva@50"
IT "Giacenza@15"
IT "Pezzi per\nconfezione@15"
IT "Disponibilità@15"
IT "Campo Aggiuntivo 1@15"
IT "Campo Aggiuntivo 2@15"
IT "Campo Aggiuntivo 3@15"
IT "Campo Aggiuntivo 4@15"
IT "Campo Aggiuntivo 5@15"
IT "Campo Aggiuntivo 6@15"
IT "Campo Aggiuntivo 7@15"
IT "Campo Aggiuntivo 8@15"
IT "Campo Aggiuntivo 9@15"
IT "Campo Aggiuntivo 10@15"
END
ENDPAGE
PAGE "Stato Documenti" 0 0 0 -3
ST 201 1
BE
PR 1 1 "Dallo stato "
US %STD
IN CODTAB 201
DI "Codice" CODTAB
DI "Descrizione@50" S0
OU 201 CODTAB
CH NORMAL
FI OR14_DASTATO
EN
ST 202 1
BE
PR 21 1 "Allo stato "
CO US 201
IN CODTAB 202
CO DI 201
OU 202 CODTAB
CH NORMAL
FI OR14_ASTATO
EN
NU 203 4
BE
PR 51 1 "Anno "
CH REQUIRED
FI OR14_ANNO
EN
DA 204
BE
PR 65 1 "Data doc. "
FL "A"
EN
SPREADSHEET 210
BE
PR 1 2 "Ordini"
IT "Data\nDoc.@10"
IT "Numero\nDoc.@7"
IT "Riga\nDoc.@4"
IT "Stato\nDoc.@4"
IT "Codice\nArticolo@20"
IT "Descrizione@50"
IT "UM"
IT "Quantità@15"
IT "Qta evasa@15"
IT "Residuo@15"
IT "Da\nEvadere"
IT "Qta da evadere@15"
IT "Data di\nconsegna@10"
IT "Fornitore"
IT "Ragione sociale@50"
IT "Commessa@20"
IT "Fase@10"
IT "Descrizione aggiuntiva@50"
IT "Pezzi\nper conf."
IT "Taglie@10"
FL "D"
EN
ENDPAGE
PAGE "Note" 0 0 0 -3
ME 168 70 -1
BE
PR 1 1 "Note "
FLAGS ""
EN
ENDPAGE
PAGE "Filtri" 0 0 0 -3
GR -1 78 5
BE
PR 1 1 "@bGruppo merceologico"
EN
ST 149 2
BE
PR 2 2 "Gruppo merceologico "
FLAG "U"
US GMC KE 1 SE CODTAB[3,5]==""
IN CODTAB 149
DI "Codice" CODTAB[1,2]
DI "Descrizione@50" S0
OU 151 CODTAB[1,3]
OU 149 CODTAB[1,2]
OU 152 S0
ME 0 CO,151
CH NO
EN
ST 150 3
BE
PR 2 3 "Sottogruppo merceologico "
FLAG "U"
US GMC
IN CODTAB[1,2] 149
IN CODTAB[3,5] 150
DI "Codice" CODTAB
DI "Descrizione@50" S0
OU 151 CODTAB[1,3]
OU 153 CODTAB[4,5]
OU 150 CODTAB[3,5]
OU 154 S0
CH NO
ME 0 CO,153
EN
ST 151 3
BE
PR 2 2 "Gruppo merceologico "
FLAG "UH"
CH SE
FI OR14_GRM
EN
ST 152 50 35
BE
PR 35 2 ""
US GMC KE 2 SE CODTAB[4,5]==""
IN S0 152
DI "Codice" CODTAB
DI "Descrizione@50" S0
OU 151 CODTAB[1,3]
OU 149 CODTAB[1,2]
OU 152 S0
CH SE
EN
ST 153 2
BE
PR 2 3 "Sottogruppo merceologico "
FLAG "UH"
US GMC
CH SE
FI OR14_SGR
EN
ST 154 50 35
BE
PR 35 3 ""
US GMC KE 2 SE CODTAB[4,5] != ""
IN S0 154
DI "Descrizione@50" S0
DI "Codice" CODTAB
CO OU 153
CH NORMAL
EN
BO 155
BE
PR 2 4 "Sottoscorta"
FI OR14_SSC
EN
GR -1 78 5
BE
PR 1 9 "@bArticolo"
EN
ST 169 20
BE
PR 2 10 "Codice "
EN
ST 170 50
BE
PR 2 11 "Descrizione "
EN
ST 171 50
BE
PR 2 12 "Descrizione aggiuntiva "
EN
GR -1 78 4
BE
PR 1 14 "@bFornitore"
EN
ST 172 7
BE
PR 2 15 "Codice "
US 20
IN TIPOCF "F"
IN CODCF 172
DI "Codice " CODCF
DI "Ragione sociale@50" RAGSOC
OU 172 CODCF
EN
ST 173 50
BE
PR 2 16 "Ragione sociale "
FL "D"
EN
ENDPAGE
PAGE "Parametri" 0 0 0 -3
GR -1 78 4
BE
PR 1 1 "@bTipologia documento ordine"
EN
ST 157 4
BE
PR 2 2 "Numerazione "
US %NUM SE (CODTAB=="BACQ")||(CODTAB=="MAG")||(CODTAB=="ORF")||(CODTAB=="ORFT")||(CODTAB=="MAGT")
IN CODTAB 157
DI "Codice" CODTAB
DI "Descrizione@60" S0
OU 157 CODTAB
OU 158 S0
OU 159 S2[1,4]
OU 100 S2[1,4]
OU 101 S2[5,8]
OU 102 S2[9,12]
OU 103 S2[13,16]
OU 104 S2[17,20]
OU 105 S2[21,24]
FLAG "UG"
CH REQUIRED
FI OR14_NUM
ME RESET,174|RESET,175
EN
ST 158 50 30
BE
PR 24 2 ""
US %NUM KE 2 SE (CODTAB=="BACQ")||(CODTAB=="MAG")||(CODTAB=="ORF")||(CODTAB=="ORFT")||(CODTAB=="MAGT")
IN S0 158
DI "Descrizione@60" S0
DI "Codice" CODTAB
CO OU 157
CH REQUIRED
EN
ST 100 4
BE
PR 2 12 "1 "
FL "H"
EN
ST 101 4
BE
PR 9 12 "2 "
FL "H"
EN
ST 102 4
BE
PR 16 12 "3 "
FL "H"
EN
ST 103 4
BE
PR 23 12 "4 "
FL "H"
EN
ST 104 4
BE
PR 30 12 "5 "
FL "H"
EN
ST 105 4
BE
PR 37 12 "6 "
FL "H"
EN
ST 159 4
BE
PR 2 3 "Tipo "
// US %TIP SE (CODTAB=="BACQ")||(CODTAB=="ORF")||(CODTAB=="MMAG")||(CODTAB=="TRAS")||(CODTAB=="ORFT")||(CODTAB=="MMGT")||(CODTAB=="TRAT")||(CODTAB=="TRCA")
US %TIP SE (CODTAB==#100)||(CODTAB==#101)||(CODTAB==#102)||(CODTAB==#103)||(CODTAB==#104)||(CODTAB==#105)
IN CODTAB 159
DI "Codice" CODTAB
DI "Descrizione@60" S0
OU 159 CODTAB
OU 160 S0
CH REQUIRED
FLAG "UG"
FI OR14_TIP
EN
ST 160 50 30
BE
PR 24 3 ""
// US %TIP KE 2 SE (CODTAB=="BACQ")||(CODTAB=="ORF")||(CODTAB=="MMAG")||(CODTAB=="TRAS")||(CODTAB=="ORFT")||(CODTAB=="MMGT")||(CODTAB=="TRAT")||(CODTAB=="TRCA")
US %TIP SE (CODTAB==#100)||(CODTAB==#101)||(CODTAB==#102)||(CODTAB==#103)||(CODTAB==#104)||(CODTAB==#105)
IN S0 160
DI "Descrizione@60" S0
DI "Codice" CODTAB
CO OU 159
CH REQUIRED
EN
GR -1 78 3
BE
PR 1 5 "@bCentro di costo / Commessa"
EN
ST 166 20
BE
PR 2 6 "CDC/Commessa "
FL "UZ"
US CMS
IN CODTAB 166
DI "Codice@20" CODTAB
DI "Descrizione@70" S0
OU 166 CODTAB
FI OR14_CDCT
CH NORMAL
EN
ST 167 10
BE
PR 50 6 "Fase "
FL "DUZ"
US FSC
IN CODTAB 167
DI "Codice@20" CODTAB
DI "Descrizione@70" S0
OU 167 CODTAB
FI OR14_FSCT
CH NORMAL
EN
GR -1 78 6
BE
PR 1 8 "@bMagazzino / Deposito"
EN
ST 161 3
BE
PR 2 9 "Magazzino "
FL "UG"
US MAG SE CODTAB[4,5]==""
IN CODTAB 161
DI "Codice " CODTAB[1,3]
DI "Denominazione mag.@50 " S0
OU 161 CODTAB[1,3]
OU 162 S0
CH NORMAL
FI OR14_MAG
EN
ST 162 50
BE
PR 24 9 ""
FL "DUG"
US MAG KE 2 SE CODTAB[4,5]==""
IN S0 162
DI "Denominazione magazzino@50" S0
DI "Cod. magazzino" CODTAB[1,3]
DI "Cod. deposito" CODTAB[4,5]
OU 161 CODTAB[1,3]
OU 162 S0
CH SE
EN
ST 163 2
BE
PR 2 10 "Deposito "
FL "HU"
US MAG SE (CODTAB[1,3]==#161)&&(CODTAB[4,5]!="")
IN CODTAB[1,3] 161
IN CODTAB[4,5] 163
DI "Codice " CODTAB
DI "Denominazione dep.@50 " S0
OU 161 CODTAB[1,3]
OU 163 CODTAB[4,5]
CH SE
FI OR14_DEP
EN
ST 164 50
BE
PR 24 10 ""
FL "H"
US MAG KE 2 SE (CODTAB[1,3]==#161)&&(CODTAB[4,5]!="")
IN S0 164
CO DI 162
OU 163 CODTAB[4,5]
CH SE
EN
ST 174 3
BE
PR 2 11 "Mag.coll. "
FL "UG"
US MAG SE CODTAB[4,5]==""
IN CODTAB 174
DI "Codice " CODTAB[1,3]
DI "Denominazione mag.@50 " S0
OU 174 CODTAB[1,3]
OU 175 S0
CH NORMAL
FI OR14_MAGC
EN
ST 175 50
BE
PR 24 11 ""
US MAG KE 2 SE CODTAB[4,5]==""
IN S0 175
DI "Denominazione magazzino@50" S0
DI "Cod. magazzino" CODTAB[1,3]
DI "Cod. deposito" CODTAB[4,5]
OU 174 CODTAB[1,3]
OU 175 S0
CH SE
EN
ST 176 2
BE
PR 2 12 "Deposito "
FL "HU"
US MAG SE (CODTAB[1,3]==#161)&&(CODTAB[4,5]!="")
IN CODTAB[1,3] 174
IN CODTAB[4,5] 176
DI "Codice " CODTAB
DI "Denominazione dep.@50 " S0
OU 174 CODTAB[1,3]
OU 176 CODTAB[4,5]
CH SE
FI OR14_DEPC
EN
ST 177 50
BE
PR 24 12 ""
US MAG KE 2 SE (CODTAB[1,3]==#161)&&(CODTAB[4,5]!="")
FL "HU"
IN S0 177
CO DI 162
OU 176 CODTAB[4,5]
CH SE
EN
GR -1 78 3
BE
PR 1 14 "@bValorizzazione"
EN
LI 165 15
BE
PR 2 15 "Prezzo "
IT "U|Ultimo Costo"
IT "S|Costo Standard"
FI OR14_TPR
EN
EN
ENDMASK
TOOLBAR "" 0 -3 0 3
BU 1 10 2
BE
PR -12 -11 ""
EN
BU 2 10 2
BE
PR -22 -11 ""
EN
ENDPAGE
PAGE "Righe ordine" -1 -1 80 20
ST 101 20
BE
PR 1 2 "Codice "
FL "D"
EN
ST 102 50 35
BE
PR 42 2 ""
FL "D"
EN
ST 103 2
BE
PR 2 4 "Unità di misura "
FL "UG"
US 49 KE 2 SE CODART==#101
JO %UMS INTO CODTAB==UM
IN CODART 101 SE
IN UM 103
DI "U.M.@10" UM
DI "Descrizione@50" %UMS->S0
DI "F.C.@10" FC
OU 103 UM
CH REQUIRED
EN
NUMBER F_QTA 13 5
BEGIN
PROMPT 25 4 "Quantità "
END
DATA F_DATACONS
BEGIN
PROMPT 48 4 "Data di consegna "
WARNING "Indicare la data di consegna"
VALIDATE 12 1 104
END
NU 106 6
BE
PR 2 6 "Codice fornitore "
FI CODCF
US 20
FL "D"
IN TIPOCF "F"
IN CODCF 106
DI "Codice " CODCF
DI "Ragione sociale@50" RAGSOC
OU 106 CODCF
OU 107 RAGSOC
CH NORMAL
ADD RU CG0 -1
EN
ST 107 50 35
BE
FL "D"
PR 42 6 ""
US 20 KE 2
IN TIPOCF "F"
IN RAGSOC 107
DI "Ragione sociale@50" RAGSOC
DI "Codice " CODCF
CO OU 106
CH SE
ADD RU CG0 -1
EN
ST 108 20
BE
PR 2 8 "CDC/Commessa "
FL "DUZ"
US CMS
IN CODTAB 108
DI "Codice@20" CODTAB
DI "Descrizione@70" S0
OU 108 CODTAB
CH NORMAL
EN
ST 109 10
BE
PR 42 8 "Fase "
FL "DUZ"
US FSC
IN CODTAB 109
DI "Codice@20" CODTAB
DI "Descrizione@70" S0
OU 109 CODTAB
CH NORMAL
EN
STRING F_CODAGG1 20
BEGIN
PROMPT 2 9 "ID Cespite "
END
ST 111 20
BE
PR 42 9 "Codice agg. 2 "
FL "D"
EN
NU 112 5
BE
PR 2 11 "Lead time "
FL "D"
EN
NU 113 10 3
BE
PR 42 11 "Lotto "
FL "D"
EN
ME 114 50 4
BE
PR 2 12 "Descr.aggiuntiva"
FL "D"
EN
NU 115 15 5
BE
PR 2 16 "Giacenza"
FL "D"
EN
NU 116 15
BE
PR 42 16 "Pezzi per conf. "
FL "D"
EN
NU 117 15 5
BE
PR 2 17 "Disponibilità"
FL "D"
EN
ENDPAGE
PAGE "Campi Utente" -1 -1 80 20
ST 118 20
BE
PR 2 2 "Campo utente 1 "
FL "D"
EN
ST 119 20
BE
PR 2 4 "Campo utente 2 "
FL "D"
EN
ST 120 20
BE
PR 2 6 "Campo utente 3 "
FL "D"
EN
ST 121 20
BE
PR 2 8 "Campo utente 4 "
FL "D"
EN
ST 122 20
BE
PR 2 10 "Campo utente 5 "
FL "D"
EN
ST 123 20
BE
PR 2 12 "Campo utente 6 "
FL "D"
EN
ST 124 20
BE
PR 2 14 "Campo utente 7 "
FL "D"
EN
ST 125 20
BE
PR 2 16 "Campo utente 8 "
FL "D"
EN
ST 126 20
BE
PR 2 18 "Campo utente 9 "
FL "D"
EN
ST 127 20
BE
PR 2 20 "Campo utente 10 "
FL "D"
EN
ENDPAGE
ENDMASK
PAGE "Ordini" -1 -1 80 20
GR -1 80 3
BE
PR 1 0 "@bEstremi del documento"
EN
DA 101
BE
PR 2 1 "Data "
FI 33.DATADOC
FL "D"
EN
NU 102 6
BE
PR 25 1 "Numero "
FI NDOC
FL "D"
EN
NU 103 4
BE
PR 43 1 "Riga "
FI NRIGA
FL "D"
EN
ST 104 1
BE
PR 57 1 "Stato "
FI 33.STATO
FL "D"
EN
GR -1 80 6
BE
PR 1 3 "@bArticolo"
EN
ST 105 20
BE
PR 2 4 "Codice "
FI CODART
FL "D"
EN
ST 106 50
BE
PR 2 5 "Descrizione "
FI 47.DESCR
FL "D"
EN
ST 107 2
BE
PR 2 6 "Quantità "
FL "UD"
FI UMQTA
EN
NU 108 13 5
BE
PR 18 6 ""
FI QTA
FL "D"
EN
NU 109 13 5
BE
PR 34 6 "Evasa "
FI QTAEVASA
CH NORMAL
FL "D"
EN
NU 110 13 5
BE
PR 56 6 "Residuo "
VA 14 1 #108-#109
DR 108 109
CH NORMAL
FL "DG"
EN
BO 111
BE
PR 2 7 "Da evadere"
ME 0 CLEAR, 112
ME 1 ENABLE,112
EN
NU 112 13 5
BE
PR 16 7 "Qta da evadere"
EN
DATA 113
BE
PR 47 7 "Data di consegna "
FI DATACONS
EN
GR -1 80 3
BE
PR 1 8 "@bFornitore"
EN
NU 114 6
BE
PR 2 10 ""
FI 33.CODCF
FL "D"
EN
ST 115 50
BE
PR 14 10 ""
FI 20.RAGSOC
FL "D"
EN
GR -1 80 4
BE
PR 1 11 "@bCentro di costo/Commessa"
EN
ST 116 20
BE
PR 2 13 "Codice "
FL "UZD"
FI CODCMS
EN
ST 117 10
BE
PR 2 14 "Fase "
FL "UZD"
FI FASCMS
EN
ST 118 50
BE
PR 2 16 "Descr. agg. "
FI 47.DESCRAGG[1,50]
FL "D"
EN
NU 119 15
BE
PR 2 17 "P.per conf. "
FI 47.PPCONF
FL "D"
EN
ST 120 20
BE
PR 42 17 "Taglie "
FI 47.USER2
FL "D"
EN
BU 2 10 2
BE
PR -12 -1 ""
EN
BU 1 10 2
BE
PR -22 -1 ""
EN
ENDPAGE
ENDMASK
Reference in New Issue View Git Blame Copy Permalink