Corretta gestione sottoconto di contropartita

git-svn-id: svn://10.65.10.50/trunk@4854 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 1997-07-09 15:27:37 +00:00
parent 1c2f8ecd3c
commit efb13d697e
2 changed files with 16 additions and 13 deletions

View File

@ -1404,7 +1404,7 @@ HIDDEN void ini2bill(TConfig& ini, TBill& bil, bool contro)
char tipo = ini.get_char(contro ? "TIPOC" : "TIPO");
int gruppo = ini.get_int(contro ? "GRUPPOC" : "GRUPPO");
int conto = ini.get_int(contro ? "CONTOC" : "CONTO");
long sottoconto = ini.get_long(contro ? "SOTTOCONTOC" : "SOTTOCONTO");
long sottoconto = ini.get_long(contro ? "SOTTOCONTC" : "SOTTOCONTO");
bil.set(gruppo, conto, sottoconto, tipo);
}

View File

@ -60,12 +60,13 @@ END
NUMBER CG_GRUPPO 3
BEGIN
PROMPT 20 6 "Gruppo "
FIELD GRUPPO
END
NUMBER CG_CONTO 3
BEGIN
PROMPT 32 6 "Conto "
FIELD LF_PCON->CONTO
FIELD CONTO
USE LF_PCON SELECT (CONTO!="") && (SOTTOCONTO="")
INPUT GRUPPO 104
INPUT CONTO 105
@ -86,7 +87,7 @@ END
NUMBER CG_SOTTOCONTO 6
BEGIN
PROMPT 45 6 "Sottoconto "
FIELD LF_PCON->SOTTOCONTO
FIELD SOTTOCONTO
USE LF_PCON SELECT SOTTOCONTO!=""
INPUT GRUPPO 104
INPUT CONTO 105
@ -107,7 +108,7 @@ END
NUMBER 206 6
BEGIN
PROMPT 45 6 "Cliente "
FIELD LF_PCON->SOTTOCONTO
FIELD SOTTOCONTO
USE LF_CLIFO
INPUT TIPOCF "C"
INPUT CODCF 206
@ -126,7 +127,7 @@ END
NUMBER 306 6
BEGIN
PROMPT 45 6 "Fornitore "
FIELD LF_PCON->SOTTOCONTO
FIELD SOTTOCONTO
USE LF_CLIFO
INPUT TIPOCF "F"
INPUT CODCF 306
@ -146,7 +147,7 @@ END
STRING 107 50
BEGIN
PROMPT 2 7 "Descriz. "
FIELD LF_PCON->DESCR
FIELD DESCRCONTO
USE LF_PCON KEY 2
INPUT DESCR 107
DISPLAY "Descrizione@50" DESCR
@ -212,12 +213,13 @@ END
NUMBER 111 3
BEGIN
PROMPT 20 10 "Gruppo "
FIELD GRUPPOC
END
NUMBER 112 3
BEGIN
PROMPT 32 10 "Conto "
FIELD LF_PCON->CONTO
FIELD CONTOC
COPY USE 105
INPUT GRUPPO 111
INPUT CONTO 112
@ -235,7 +237,7 @@ END
NUMBER 113 6
BEGIN
PROMPT 45 10 "Sottoconto "
FIELD LF_PCON->SOTTOCONTO
FIELD SOTTOCONTC
COPY USE 106
COPY INPUT 112
INPUT SOTTOCONTO 113
@ -250,7 +252,7 @@ END
NUMBER 213 6
BEGIN
PROMPT 45 10 "Cliente "
FIELD LF_CLIFO->CODCF
FIELD SOTTOCONTC
COPY USE 206
INPUT TIPOCF "C"
INPUT CODCF 213
@ -264,7 +266,7 @@ END
NUMBER 313 6
BEGIN
PROMPT 45 10 "Fornitore "
FIELD LF_CLIFO->CODCF
FIELD SOTTOCONTC
COPY USE 306
INPUT TIPOCF "F"
INPUT CODCF 313
@ -278,7 +280,7 @@ END
STRING 114 50
BEGIN
PROMPT 2 11 "Descriz. "
FIELD LF_PCON->DESCR
FIELD DESCRCONTOC
COPY USE 107
INPUT DESCR 114
COPY DISPLAY 107
@ -290,7 +292,7 @@ END
STRING 214 50
BEGIN
PROMPT 2 11 "Cliente "
FIELD LF_CLIFO->RAGSOC
FIELD DESCRCONTOC
COPY USE 207
INPUT TIPOCF "C"
INPUT RAGSOC 214
@ -304,7 +306,7 @@ END
STRING 314 50
BEGIN
PROMPT 2 11 "Fornitore "
FIELD LF_CLIFO->RAGSOC
FIELD DESCRCONTOC
COPY USE 307
INPUT TIPOCF "F"
INPUT RAGSOC 314
@ -344,6 +346,7 @@ BEGIN
ITEM "S|Ritenute sociali"
ITEM "T|Totale documento"
FLAGS "D"
FIELD ROWTYPE
END