root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Patch level :2.1 79

Browse Source 
Files correlati     :
Ricompilazione Demo : [ ]
Commento            :spostati in MG (come i 2 commit precedenti)


git-svn-id: svn://10.65.10.50/trunk@12229 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
luca 2004-06-30 13:40:12 +00:00
parent 6df8639bb8
commit 4645c775ed
2 changed files with 0 additions and 419 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

66
ve/bastmag.uml
View File

@ -1,66 +0,0 @@
#include "../ba/ba3200.h"
PAGE "Stampa Tabella Magazzini e depositi" -1 -1 58 8
STRING F_INIZIO1 3
BEGIN
PROMPT 2 1 "Da magazzino "
HELP "Inserire il codice d'inizio "
FIELD LF_TABCOM->CODTAB[1,3]
USE MAG
INPUT CODTAB[1,3] F_INIZIO1
INPUT CODTAB[4,5] F_INIZIO2
DISPLAY "Codice Magazzino" CODTAB[1,3]
DISPLAY "Codice Deposito" CODTAB[4,5]
DISPLAY "Descrizione@50" S0
OUTPUT F_INIZIO1 CODTAB[1,3]
OUTPUT F_INIZIO2 CODTAB[4,5]
GROUP 1
END
STRING F_INIZIO2 2
BEGIN
PROMPT 28 1 "Da deposito "
HELP "Inserire il codice d'inizio "
FIELD LF_TABCOM->CODTAB[4,5]
COPY ALL F_INIZIO1
GROUP 1
END
STRING F_FINE1 3
BEGIN
PROMPT 2 3 "A magazzino "
HELP "Inserire il codice di fine "
FIELD LF_TABCOM->CODTAB[1,3]
COPY USE F_INIZIO1
INPUT CODTAB[1,3] F_FINE1
INPUT CODTAB[4,5] F_FINE2
COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB[1,3]
OUTPUT F_FINE2 CODTAB[4,5]
GROUP 2
END
STRING F_FINE2 2
BEGIN
PROMPT 28 3 "A deposito "
HELP "Inserire il codice di fine "
FIELD LF_TABCOM->CODTAB[4,5]
COPY ALL F_FINE1
GROUP 2
END
BUTTON DLG_OK 10 2
BEGIN
PROMPT -12 -1 ""
END
BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -22 -1 ""
END
ENDPAGE
ENDMASK

353
ve/batbmag.uml
View File

@ -1,353 +0,0 @@
#include "batbmag.h"
TOOLBAR "" 0 -3 60 3
#include <toolbar.h>
ENDPAGE
PAGE "Magazzini" -1 -1 78 20
GROUPBOX DLG_NULL 75 6
BEGIN
PROMPT 1 0 ""
FLAGS "R"
END
NUMBER F_DITTA 5
BEGIN
PROMPT 0 0 ""
FLAGS "FGH"
END
STRING F_CODICE 3
BEGIN
PROMPT 2 2 "Codice magazzino "
FIELD CODTAB[1,3]
KEY 1
USE MAG SELECT CODTAB[4,5]==""
FLAG "U"
INPUT CODTAB F_CODICE
DISPLAY "Codice " CODTAB[1,3]
DISPLAY "Denominazione mag.@50 " S0
OUTPUT F_CODICE CODTAB[1,3]
OUTPUT F_DESCR S0
OUTPUT H_DESCR S0
OUTPUT F_NATMAG I2
OUTPUT H_GESTGIA B0
OUTPUT F_CODLGIOR S8
OUTPUT F_UNLOC I1
CHECKTYPE REQUIRED
END
STRING F_CODDEP 2
BEGIN
PROMPT 28 2 "Codice deposito "
FIELD CODTAB[4,5]
FLAGS "U"
KEY 1
USE MAG
INPUT CODTAB[1,3] F_CODICE SELECT
INPUT CODTAB[4,5] F_CODDEP
DISPLAY "Cod. magazzino" CODTAB[1,3]
DISPLAY "Cod. deposito" CODTAB[4,5]
DISPLAY "Denominazione dep.@50" S0
OUTPUT F_CODICE CODTAB[1,3]
OUTPUT F_CODDEP CODTAB[4,5]
OUTPUT F_DESDEP S0
MESSAGE SHOW,H_DESCR|HIDE,F_DESCR|SHOW,F_DESDEP|HIDE,F_GESTGIA|HIDE,G_INFOMAG@
MESSAGE EMPTY HIDE,H_DESCR|SHOW,F_DESCR|HIDE,F_DESDEP|SHOW,F_GESTGIA|SHOW,G_INFOMAG@
CHECKTYPE NORMAL
// controllo abilit. CODDEP (utilizzabile sempre)
STR_EXPR (#H_GESTGIA=="X")||(#F_CODDEP=="")
WARNING "Il magazzino deve essere abilitato alla gestione dei depositi"
END
//Abilitazione/disabil. dei campi relativi al deposito
BOOLEAN H_GESTGIA
BEGIN
PROMPT 1 1 ""
FLAGS "HG"
MESSAGE TRUE SHOW,F_CODDEP
MESSAGE FALSE HIDE,F_CODDEP
END
STRING H_DESCR 50
BEGIN
PROMPT 2 3 "Denominazione mag. "
FLAGS "D"
END
STRING F_DESDEP 50
BEGIN
PROMPT 2 4 "Denominazione dep. "
FIELD S0
USE MAG KEY 2
KEY 2
INPUT S0 F_DESDEP
DISPLAY "Denominazione dep.@50" S0
DISPLAY "Cod. magazzino" CODTAB[1,3]
DISPLAY "Cod. deposito" CODTAB[4,5]
COPY OUTPUT F_CODDEP
MESSAGE K_TAB,F_CODDEP
CHECKTYPE REQUIRED
WARNING "Manca la denominazione"
END
STRING F_DESCR 50
BEGIN
PROMPT 2 3 "Denominazione mag. "
FIELD S0
KEY 2
USE MAG KEY 2
INPUT S0 F_DESCR
DISPLAY "Denominazione mag.@50" S0
DISPLAY "Cod. magazzino" CODTAB[1,3]
DISPLAY "Cod. deposito" CODTAB[4,5]
COPY OUTPUT F_CODDEP
OUTPUT F_DESCR S0
MESSAGE K_TAB,F_CODDEP
CHECKTYPE REQUIRED
WARNING "Manca la denominazione del magazzino"
END
GROUPBOX DLG_NULL 75 6
BEGIN
PROMPT 1 7 "Sede magazzino/deposito"
END
STRING F_IND 35
BEGIN
PROMPT 2 8 "Indirizzo "
FIELD S2
END
STRING F_CIV 10
BEGIN
PROMPT 60 8 "N. "
FIELD S7
END
STRING F_COM 4
BEGIN
PROMPT 2 9 "Codice comune "
FLAGS "U"
FIELD S5
USE LF_COMUNI
INPUT STATO ""
INPUT COM F_COM
#include <comdcod.h>
OUTPUT F_COM COM
OUTPUT F_LOC DENCOM
OUTPUT F_PROV PROVCOM
OUTPUT F_CAP CAPCOM
CHECKTYPE NORMAL
WARNING "Comune assente"
ADD RUN ba4 -0
END
STRING F_LOC 50
BEGIN
PROMPT 2 10 "Comune "
USE LF_COMUNI KEY 2
INPUT DENCOM F_LOC
#include <comdden.h>
COPY OUTPUT F_COM
ADD RUN ba4 -0
CHECKTYPE NORMAL
END
STRING F_PROV 2
BEGIN
PROMPT 2 11 "Provincia "
FLAGS "D"
END
STRING F_CAP 5
BEGIN
PROMPT 60 11 "C.A.P. "
FIELD S3
END
LISTBOX F_NATMAG 1 50
BEGIN
PROMPT 2 14 "Natura del magazzino "
FIELD I2
ITEM "1|Proprieta' dell'azienda "
ITEM "2|Materiale nostro in lavorazione presso terzi"
ITEM "3|Materiale nostro in deposito presso terzi"
ITEM "4|Materiale di terzi in lavorazione presso l'azienda"
ITEM "5|Materiale di terzi in deposito presso l'azienda"
END
BOOL F_MAGSTD
BEGIN
PROMPT 2 16 "Usa come magazzino standard "
FIELD B1
END
ENDPAGE
PAGE "Parametri" -1 -1 78 20
NUMBER F_ANNO 4
BEGIN
PROMPT 0 0 ""
FLAGS "AH"
END
BOOLEAN F_GESTGIA
BEGIN
PROMPT 5 2 "Gestione giacenze in piu' depositi "
FIELD B0
MESSAGE TRUE CLEAR,F_MAGSTD
MESSAGE FALSE ENABLE,F_MAGSTD
GROUP G_INFOMAG
END
STRING F_CODLGIOR 3
BEGIN
PROMPT 5 4 "Codice libro giornale "
FLAGS "U"
FIELD S8
USE REG SELECT I0=9
INPUT CODTAB[1,4] F_ANNO
INPUT CODTAB[5,7] F_CODLGIOR
DISPLAY "Anno" CODTAB[1,4]
DISPLAY "Giornale" CODTAB[5,7]
DISPLAY "Descrizione@50" S0
OUTPUT F_CODLGIOR CODTAB[5,7]
OUTPUT F_ANNO CODTAB[1,4]
WARNING "Registro non valido come Libro giornale "
GROUP G_INFOMAG
END
/*STRING F_CODLUNICO 3
BEGIN
PROMPT 26 5 "Codice libro unico "
FLAGS "HU"
FIELD S9
USE %LBU
INPUT CODTAB[1,4] F_ANNO SELECT
INPUT CODTAB[5,7] F_CODLUNICO
DISPLAY "Anno" CODTAB[1,4]
DISPLAY "Libro" CODTAB[5,7]
DISPLAY "Descrizione@50" S0
OUTPUT F_CODLUNICO CODTAB[5,7]
CHECKTYPE REQUIRED
WARNING "Codice errato o non relativo a questo anno"
END
BOOLEAN F_USALUNICO
BEGIN
PROMPT 52 5 "Usa libro unico "
FLAGS "HU"
FIELD B6
MESSAGE FALSE HIDE,F_CODLUNICO|SHOW,F_CODLGIOR
MESSAGE TRUE SHOW,F_CODLUNICO|HIDE,F_CODLGIOR
END
*/
GROUPBOX DLG_NULL 72 5
BEGIN
PROMPT 4 6 "Unita' locale"
GROUP G_INFOMAG
END
NUMBER F_UNLOC 3
BEGIN
PROMPT 6 7 "Codice "
FIELD I1
USE LF_UNLOC KEY 1
JOIN LF_COMUNI INTO COM=COMULC STATO==""
INPUT CODDITTA F_DITTA SELECT
INPUT CODULC F_UNLOC
DISPLAY "Unita' Locale" CODULC
DISPLAY "Indirizzo@35" INDULC
DISPLAY "N." CIVULC
DISPLAY "C.A.P." CAPULC
DISPLAY "Comune@50" LF_COMUNI->DENCOM
DISPLAY "Provincia" LF_COMUNI->PROVCOM
OUTPUT H_COM COMULC
OUTPUT F_UNLOC CODULC
OUTPUT H_IND INDULC
OUTPUT H_CIV CIVULC
OUTPUT H_CAP CAPULC
OUTPUT H_LOC LF_COMUNI->DENCOM
OUTPUT H_PROV LF_COMUNI->PROVCOM
CHECKTYPE NORMAL
GROUP G_INFOMAG
ADD RUN ba4 -3
END
STRING H_COM 4
BEGIN
PROMPT 30 7 "Comune "
FLAGS "D"
GROUP G_INFOMAG
END
STRING H_CAP 5
BEGIN
PROMPT 44 7 "C.A.P. "
FLAGS "D"
GROUP G_INFOMAG
END
STRING H_PROV 2
BEGIN
PROMPT 60 7 "Provincia "
FLAGS "D"
GROUP G_INFOMAG
END
STRING H_IND 35
BEGIN
PROMPT 6 8 "Indirizzo "
FLAGS "D"
GROUP G_INFOMAG
END
STRING H_CIV 10
BEGIN
PROMPT 60 8 "N. "
FLAGS "D"
GROUP G_INFOMAG
END
STRING H_LOC 50
BEGIN
PROMPT 6 9 "Comune "
FLAGS "D"
GROUP G_INFOMAG
END
/*LISTBOX F_STARAGG 22
BEGIN
PROMPT 2 4 "Stampare i movimenti su "
FIELD I2
ITEM "1|altro magazzino"
MESSAGE HIDE,F_CODLGIOR|SHOW,F_CODMAGSTA
ITEM "2|libro giornale"
MESSAGE HIDE,F_CODMAGSTA|SHOW,F_CODLGIOR
END
STRING F_CODMAGSTA 3
BEGIN
PROMPT 28 5 "Codice magazzino "
FLAGS "U"
FIELD S6
USE MAG SELECT CODTAB[4,5] == ""
INPUT CODTAB[1,3] F_CODMAGSTA
DISPLAY "Codice " CODTAB
DISPLAY "Denominazione mag.@50 " S0
OUTPUT F_CODMAGSTA CODTAB[1,3]
CHECKTYPE REQUIRED
END*/
ENDPAGE
ENDMASK