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

Corretto MI6032

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@3215 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex 1996-07-19 15:15:02 +00:00
parent e0aba35d3e
commit 848874ff86
1 changed files with 15 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
cg/cg0200a.uml
View File

@ -35,7 +35,7 @@ BEGIN
USE LF_CLIFO KEY 1 USE LF_CLIFO KEY 1
INPUT TIPOCF F_TIPOCF SELECT INPUT TIPOCF F_TIPOCF SELECT
INPUT CODCF F_CODCF INPUT CODCF F_CODCF
DISPLAY "Codice" CODCF DISPLAY "Codice@6R" CODCF
DISPLAY "Sospeso" SOSPESO DISPLAY "Sospeso" SOSPESO
DISPLAY "Ragione sociale@50" RAGSOC DISPLAY "Ragione sociale@50" RAGSOC
DISPLAY "Codice fiscale@16" COFI DISPLAY "Codice fiscale@16" COFI
@ -63,7 +63,7 @@ BEGIN
INPUT RAGSOC[1,30] F_RAGSOC INPUT RAGSOC[1,30] F_RAGSOC
DISPLAY "Ragione sociale@50" RAGSOC DISPLAY "Ragione sociale@50" RAGSOC
DISPLAY "Sospeso" SOSPESO DISPLAY "Sospeso" SOSPESO
DISPLAY "Codice" CODCF DISPLAY "Codice@R" CODCF
DISPLAY "Codice fiscale@16" COFI DISPLAY "Codice fiscale@16" COFI
DISPLAY "Partita IVA@11" PAIV DISPLAY "Partita IVA@11" PAIV
COPY OUTPUT F_CODCF COPY OUTPUT F_CODCF
@ -129,7 +129,7 @@ BEGIN
INPUT COFI F_COFI INPUT COFI F_COFI
DISPLAY "Codice fiscale@16" COFI DISPLAY "Codice fiscale@16" COFI
DISPLAY "Sospeso" SOSPESO DISPLAY "Sospeso" SOSPESO
DISPLAY "Codice" CODCF DISPLAY "Codice@R" CODCF
DISPLAY "Ragione sociale@50" RAGSOC DISPLAY "Ragione sociale@50" RAGSOC
DISPLAY "Partita IVA@11" PAIV DISPLAY "Partita IVA@11" PAIV
COPY OUTPUT F_CODCF COPY OUTPUT F_CODCF
@ -148,7 +148,7 @@ BEGIN
INPUT PAIV F_PAIV INPUT PAIV F_PAIV
DISPLAY "Partita IVA@11" PAIV DISPLAY "Partita IVA@11" PAIV
DISPLAY "Sospeso" SOSPESO DISPLAY "Sospeso" SOSPESO
DISPLAY "Codice" CODCF DISPLAY "Codice@R" CODCF
DISPLAY "Ragione sociale@50" RAGSOC DISPLAY "Ragione sociale@50" RAGSOC
DISPLAY "Codice fiscale@16" COFI DISPLAY "Codice fiscale@16" COFI
COPY OUTPUT F_CODCF COPY OUTPUT F_CODCF
@ -1621,26 +1621,20 @@ USE LF_PCON SELECT (CONTO!="")&&(SOTTOCONTO="")&&(TMCF=#F_TIPOCF)
HELP "Codice del magazzino movimentato" HELP "Codice del magazzino movimentato"
END END
STRING F_CODLIST 5 STRING F_CODLIST 3
BEGIN BEGIN
PROMPT 48 6 "Codice listino " PROMPT 48 6 "Codice listino "
FIELD LF_CFVEN->CODLIST FIELD LF_CFVEN->CODLIST
USE LIS USE LF_CONDV
INPUT CODTAB F_CODLIST JOIN %CVE TO LF_CONDV INTO CODTAB=CATVEN
INPUT TIPO "L"
INPUT CATVEN F_CATVEN SELECT
INPUT COD F_CODLIST
DISPLAY "Cat.Ven." CATVEN
DISPLAY "Codice" COD DISPLAY "Codice" COD
DISPLAY "Descrizione@50" S0 DISPLAY "Descrizione@50" DESCR
OUTPUT F_CODLIST CODTAB OUTPUT F_CODLIST COD
// USE LF_CONDV OUTPUT F_CATVEN CATVEN
// JOIN %CVE TO LF_CONDV INTO CODTAB=CATVEN
// INPUT TIPO "L"
// INPUT CATVEN F_CATVEN SELECT
// INPUT COD F_CODLIST
// DISPLAY "Cat.Ven." CATVEN
// DISPLAY "Codice" COD
// DISPLAY "Descrizione@50" DESCR
// OUTPUT F_CODLIST COD
// OUTPUT F_CATVEN CATVEN
// ADD RUN ve2 -1 l
HELP "Codice listino utilizzato" HELP "Codice listino utilizzato"
CHECKTYPE NORMAL CHECKTYPE NORMAL
WARNING "Listino assente" WARNING "Listino assente"