Patch level : 10.0 patch 494

Files correlati     :
Ricompilazione Demo : [ ]
Commento            :
Dimenticato nel commit di prima...


git-svn-id: svn://10.65.10.50/trunk@19565 c028cbd2-c16b-5b4b-a496-9718f37d4682

lv/lv3300a.uml

@@ -0,0 +1,208 @@
+#include "lv3uml.h"
+
+TOOLBAR "Toolbar" 0 0 0 2
+
+#include <relapbar.h>
+
+ENDPAGE
+
+PAGE "Estremi del documento" 0 0 0 0
+
+GROUPBOX DLG_NULL 78 3
+BEGIN
+  PROMPT 1 1 "@bDitta"
+END
+
+NUMBER F_CODDITTA 5
+BEGIN
+  PROMPT 3 2 "Codice "
+  FLAGS "FD"
+  USE LF_NDITTE
+  CHECKTYPE NORMAL
+  INPUT CODDITTA F_CODDITTA
+  OUTPUT F_RAGSOCDITTA RAGSOC
+END
+
+STRING F_RAGSOCDITTA 50
+BEGIN
+  PROMPT 17 2 "Ragione "
+  FLAGS "D"
+END
+
+GROUPBOX DLG_NULL 78 8
+BEGIN
+	PROMPT 1 4 "Estremi del documento"
+END
+
+STRING F_CODNUM 4
+BEGIN
+  PROMPT 2 5 "Numerazione  "
+  FIELD CODNUM
+  HELP "Codice numerazione"
+  USE %NUM
+  INPUT CODTAB F_CODNUM
+  DISPLAY "Codice" CODTAB
+  DISPLAY "Descrizione@50" S0
+  OUTPUT F_CODNUM CODTAB
+  OUTPUT F_DESNUM S0
+  CHECKTYPE FORCED
+  FLAG "UPA"
+  WARNING "Numerazione assente"
+  KEY 1 2
+END
+
+STRING F_DESNUM 50
+BEGIN
+  PROMPT 24 5 ""
+  HELP "Descrizione numerazione"
+  USE %NUM KEY 2
+  INPUT S0 F_DESNUM
+  DISPLAY "Descrizione@60" S0
+  DISPLAY "Codice" CODTAB
+  COPY OUTPUT F_CODNUM
+END
+
+STRING F_TIPODOC 4
+BEGIN
+  PROMPT 2 6 "Tipo         "
+  FIELD TIPODOC
+  HELP "Codice tipo documento"
+  USE %TIP
+  INPUT CODTAB F_TIPODOC
+  DISPLAY "Codice" CODTAB
+  DISPLAY "Descrizione@50" S0
+  OUTPUT F_TIPODOC CODTAB
+  OUTPUT F_DESTIPODOC S0
+  CHECKTYPE FORCED
+  FLAG "UP"
+END
+
+STRING F_DESTIPODOC 50
+BEGIN
+  PROMPT 24 6 ""
+  HELP "Descrizione tipo documento"
+  USE %TIP KEY 2
+  INPUT S0 F_DESTIPODOC
+  DISPLAY "Descrizione@60" S0
+  DISPLAY "Codice" CODTAB
+  COPY OUTPUT F_TIPODOC
+END
+
+NUMBER F_ANNO 4
+BEGIN
+  PROMPT 2 7 "Esercizio    "
+  FIELD ANNO
+  CHECKTYPE REQUIRED
+  NUM_EXPR #F_ANNO>0
+  FLAG "AP"
+  KEY 1 2
+  WARNING "Inserire un anno valido"
+END
+
+NUMBER F_NDOC 6
+BEGIN
+  PROMPT 24 7 "Numero      "
+  FIELD NDOC
+  USE LF_DOC SELECT ((#F_STATO=="")||(STATO==#F_STATO))&&((#F_DATADOC=="")||(DATADOC==#F_DATADOC))
+  JOIN LF_CLIFO TO LF_DOC INTO TIPOCF==TIPOCF CODCF==CODCF 
+  INPUT PROVV F_PROVV SELECT
+  INPUT ANNO F_ANNO SELECT
+  INPUT CODNUM F_CODNUM SELECT
+  INPUT NDOC F_NDOC  
+  DISPLAY "Num." CODNUM
+  DISPLAY "Anno" ANNO
+  DISPLAY "Provv" PROVV
+  DISPLAY "Tipo" TIPODOC
+  DISPLAY "N.Doc. " NDOC
+  DISPLAY "Stato@R" STATO
+  DISPLAY "Data\ndocumento" DATADOC
+  DISPLAY "C/F" TIPOCF
+  DISPLAY "Codice" CODCF
+  DISPLAY "Ragione Sociale@50" LF_CLIFO->RAGSOC
+  OUTPUT F_NDOC NDOC
+  OUTPUT F_STATO STATO
+  OUTPUT F_TIPODOC TIPODOC
+	OUTPUT F_PROVV PROVV
+  CHECKTYPE REQUIRED
+  KEY 1 2
+  FLAG "R"
+END
+
+DATE F_DATADOC
+BEGIN
+  FIELD DATADOC
+  PROMPT 46 7 "Data "
+END
+
+STRING F_STATO 1
+BEGIN
+  PROMPT 69 7 "Stato "
+  FIELD STATO
+  USE %STD
+  INPUT CODTAB F_STATO
+  DISPLAY "Codice" CODTAB
+  DISPLAY "Descrizione@50" S0
+  OUTPUT F_STATO CODTAB  
+  FLAG "U"  
+END
+
+LIST F_TIPOCF 1 12
+BEGIN
+  PROMPT 2 8 "Tipo " 
+  ITEM "C|Cliente"
+  ITEM "F|Fornitore"
+  KEY 2
+END
+
+NUMBER F_CODCF 6
+BEGIN
+  PROMPT 24 8 "Codice      " 
+  USE LF_DOC KEY 2 SELECT (CODNUM==#F_CODNUM)&&(PROVV==#F_PROVV)&&(ANNO==#F_ANNO)&&((#F_STATO=="")||(STATO==#F_STATO))&&((#F_DATADOC=="")||(DATADOC==#F_DATADOC))
+  JOIN LF_CLIFO INTO TIPOCF==TIPOCF CODCF==CODCF
+  INPUT TIPOCF F_TIPOCF SELECT
+  INPUT CODCF F_CODCF
+  INPUT PROVV F_PROVV
+  INPUT ANNO F_ANNO
+  DISPLAY "Codice" CODCF
+  DISPLAY "Ragione Sociale@50" LF_CLIFO->RAGSOC
+	DISPLAY "Partita IVA@12" LF_CLIFO->PAIV
+  DISPLAY "Num." CODNUM
+  DISPLAY "Anno" ANNO
+  DISPLAY "Provv" PROVV
+  DISPLAY "Tipo" TIPODOC
+  DISPLAY "N.Doc. " NDOC
+  DISPLAY "Stato@R" STATO
+  DISPLAY "Data\ndocumento" DATADOC
+  DISPLAY "Valuta" CODVAL
+  DISPLAY "Totale\ndocumento@18V" G1:TOTDOC
+  COPY OUTPUT F_NDOC
+  OUTPUT F_CODCF CODCF
+  CHECKTYPE NORMAL
+  KEY 2
+END
+   
+STRING F_NUMDOCRIF 7
+BEGIN
+  PROMPT 46 8 "Riferimento "
+  FLAGS "B"
+END
+
+STRING F_RAGSOCSEARCH 50
+BEGIN
+	PROMPT 2 9 "Ragione Sociale       "
+	FLAGS "B"
+END
+
+LISTBOX F_PROVV 14
+BEGIN
+  FIELD PROVV
+  PROMPT 2 10 "Tipo "
+  ITEM "D|Definitiva "
+  ITEM "P|Provvisoria"
+  KEY 1 2
+  FLAGS "DPG"
+END
+
+ENDPAGE
+
+ENDMASK