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

Patch level :10.0

Browse Source 
Files correlati     :
Ricompilazione Demo : [ ]
Commento            :aggiunto programma (NON funzionante) delle giacenze x clifo


git-svn-id: svn://10.65.10.50/trunk@17162 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
luca 2008-09-04 15:14:18 +00:00
parent 6901596ed5
commit 6c823af76e
2 changed files with 9 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
mg/mg0400.cpp
View File

@ -223,7 +223,7 @@ void TClifo_giac_mask::set_parametered_fields()
// costruttore della maschera anagrafica di magazzino // costruttore della maschera anagrafica di magazzino
TClifo_giac_mask::TClifo_giac_mask(TRelation * rel) : TMask("mg0400") TClifo_giac_mask::TClifo_giac_mask(TRelation * rel) : TMask("mg0400a")
{ {
_rel = rel; _rel = rel;

16
mg/mg0400a.uml
View File

@ -17,12 +17,13 @@ BEGIN
ITEM "C|Clienti" ITEM "C|Clienti"
ITEM "F|Fornitori" ITEM "F|Fornitori"
FIELD TIPOCF FIELD TIPOCF
KEY 1 2
END END
NUMBER F_CODCF 6 NUMBER F_CODCF 6
BEGIN BEGIN
PROMPT 22 1 "Codice " PROMPT 22 1 "Codice "
FLAGS "GR" FLAGS "R"
USE LF_CLIFO USE LF_CLIFO
INPUT TIPOCF F_TIPOCF SELECT INPUT TIPOCF F_TIPOCF SELECT
INPUT CODCF F_CODCF INPUT CODCF F_CODCF
@ -32,7 +33,7 @@ BEGIN
OUTPUT F_CODCF CODCF OUTPUT F_CODCF CODCF
OUTPUT F_RAGSOC RAGSOC[1,30] OUTPUT F_RAGSOC RAGSOC[1,30]
FIELD CODCF FIELD CODCF
KEY 1 KEY 1 2
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
END END
@ -45,14 +46,11 @@ BEGIN
DISPLAY "Ragione sociale@50" RAGSOC DISPLAY "Ragione sociale@50" RAGSOC
DISPLAY "Codice@R" CODCF DISPLAY "Codice@R" CODCF
COPY OUTPUT F_CODCF COPY OUTPUT F_CODCF
CHECKTYPE REQUIRED
END END
STRING F_CODART 20 STRING F_CODART 20
BEGIN BEGIN
PROMPT 1 4 "Articolo " PROMPT 1 4 "Articolo "
FIELD LF_ANAMAG->CODART
KEY 1
FLAG "UG" FLAG "UG"
USE LF_ANAMAG USE LF_ANAMAG
INPUT CODART F_CODART INPUT CODART F_CODART
@ -60,21 +58,20 @@ BEGIN
DISPLAY "Descrizione@50" DESCR DISPLAY "Descrizione@50" DESCR
OUTPUT F_CODART CODART OUTPUT F_CODART CODART
OUTPUT F_DESART DESCR OUTPUT F_DESART DESCR
FIELD CODART
KEY 1 2
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
END END
STRING F_DESART 50 41 STRING F_DESART 50 41
BEGIN BEGIN
PROMPT 34 4 "" PROMPT 34 4 ""
FIELD LF_ANAMAG->DESCR
KEY 2
USE LF_ANAMAG KEY 2 USE LF_ANAMAG KEY 2
INPUT DESCR F_DESART INPUT DESCR F_DESART
DISPLAY "Codice@20" CODART DISPLAY "Codice@20" CODART
DISPLAY "Descrizione@50" DESCR DISPLAY "Descrizione@50" DESCR
OUTPUT F_CODART CODART OUTPUT F_CODART CODART
OUTPUT F_DESART DESCR OUTPUT F_DESART DESCR
CHECKTYPE REQUIRED
END END
STRING F_ANNOES 4 STRING F_ANNOES 4
@ -88,6 +85,7 @@ BEGIN
DISPLAY "Al@16" D1 DISPLAY "Al@16" D1
OUTPUT F_ANNOES CODTAB OUTPUT F_ANNOES CODTAB
FIELD ANNOES FIELD ANNOES
KEY 1 2
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
ADD RUN cg0 -5 ESC ADD RUN cg0 -5 ESC
END END
@ -96,7 +94,7 @@ SPREADSHEET F_SHEETGIAC 0 -2
BEGIN BEGIN
PROMPT 0 6 "Giacenze" PROMPT 0 6 "Giacenze"
FLAGS "A" FLAGS "A"
USE LF_MAG KEY NRIGA USE LF_CLIFOGIAC KEY NRIGA
INPUT ANNOES F_ANNOES INPUT ANNOES F_ANNOES
INPUT CODART F_CODART INPUT CODART F_CODART
// la sequenza delle colonne livelliX è usata per ottenere // la sequenza delle colonne livelliX è usata per ottenere