Patch level : 12.0 no-patch

Files correlati     :
Commento            :

Progetti aggiornati
This commit is contained in:
Alessandro Bonazzi 2020-07-26 19:47:17 +02:00
parent 7f5b870350
commit ba279fa250
4 changed files with 537 additions and 549 deletions

View File

@ -1,11 +1,18 @@

Microsoft Visual Studio Solution File, Format Version 11.00
# Visual Studio 2010
Microsoft Visual Studio Solution File, Format Version 12.00
# Visual Studio 15
VisualStudioVersion = 15.0.28307.1082
MinimumVisualStudioVersion = 10.0.40219.1
Project("{8BC9CEB8-8B4A-11D0-8D11-00A0C91BC942}") = "li0", "li0.vcxproj", "{E3E7DE6C-EDE3-48D4-8F15-333B71AE4AC2}"
ProjectSection(ProjectDependencies) = postProject
{A1CE9743-A597-4F92-B55A-345A366C9E55} = {A1CE9743-A597-4F92-B55A-345A366C9E55}
{0042619A-6B7C-4D3D-9CD9-9BDD8D200C15} = {0042619A-6B7C-4D3D-9CD9-9BDD8D200C15}
{B61F0AD4-0CCE-4371-8E92-85A26CAF1A7C} = {B61F0AD4-0CCE-4371-8E92-85A26CAF1A7C}
EndProjectSection
EndProject
Project("{8BC9CEB8-8B4A-11D0-8D11-00A0C91BC942}") = "AgaLib", "AgaLib.vcxproj", "{2D38A763-3D74-4338-9362-B891784EC90E}"
EndProject
Project("{8BC9CEB8-8B4A-11D0-8D11-00A0C91BC942}") = "lilib", "lilib.vcxproj", "{C575788B-0BE4-4F68-B9C9-3C204EC04E07}"
Project("{8BC9CEB8-8B4A-11D0-8D11-00A0C91BC942}") = "lilib", "lilib.vcxproj", "{B61F0AD4-0CCE-4371-8E92-85A26CAF1A7C}"
EndProject
Project("{8BC9CEB8-8B4A-11D0-8D11-00A0C91BC942}") = "vedocext", "vedocext.vcxproj", "{0042619A-6B7C-4D3D-9CD9-9BDD8D200C15}"
EndProject
@ -25,10 +32,10 @@ Global
{2D38A763-3D74-4338-9362-B891784EC90E}.Debug|Win32.Build.0 = Debug|Win32
{2D38A763-3D74-4338-9362-B891784EC90E}.Release|Win32.ActiveCfg = Release|Win32
{2D38A763-3D74-4338-9362-B891784EC90E}.Release|Win32.Build.0 = Release|Win32
{C575788B-0BE4-4F68-B9C9-3C204EC04E07}.Debug|Win32.ActiveCfg = Debug|Win32
{C575788B-0BE4-4F68-B9C9-3C204EC04E07}.Debug|Win32.Build.0 = Debug|Win32
{C575788B-0BE4-4F68-B9C9-3C204EC04E07}.Release|Win32.ActiveCfg = Release|Win32
{C575788B-0BE4-4F68-B9C9-3C204EC04E07}.Release|Win32.Build.0 = Release|Win32
{B61F0AD4-0CCE-4371-8E92-85A26CAF1A7C}.Debug|Win32.ActiveCfg = Debug|Win32
{B61F0AD4-0CCE-4371-8E92-85A26CAF1A7C}.Debug|Win32.Build.0 = Debug|Win32
{B61F0AD4-0CCE-4371-8E92-85A26CAF1A7C}.Release|Win32.ActiveCfg = Release|Win32
{B61F0AD4-0CCE-4371-8E92-85A26CAF1A7C}.Release|Win32.Build.0 = Release|Win32
{0042619A-6B7C-4D3D-9CD9-9BDD8D200C15}.Debug|Win32.ActiveCfg = Debug|Win32
{0042619A-6B7C-4D3D-9CD9-9BDD8D200C15}.Debug|Win32.Build.0 = Debug|Win32
{0042619A-6B7C-4D3D-9CD9-9BDD8D200C15}.Release|Win32.ActiveCfg = Release|Win32
@ -41,4 +48,7 @@ Global
GlobalSection(SolutionProperties) = preSolution
HideSolutionNode = FALSE
EndGlobalSection
GlobalSection(ExtensibilityGlobals) = postSolution
SolutionGuid = {C9B6BDAD-0FE2-4D97-AB23-388ED191C26B}
EndGlobalSection
EndGlobal

View File

@ -11,7 +11,7 @@
</ProjectConfiguration>
</ItemGroup>
<PropertyGroup Label="Globals">
<ProjectGuid>{C575788B-0BE4-4F68-B9C9-3C204EC04E07}</ProjectGuid>
<ProjectGuid>{B61F0AD4-0CCE-4371-8E92-85A26CAF1A7C}</ProjectGuid>
<RootNamespace>li0</RootNamespace>
<WindowsTargetPlatformVersion>10.0.17763.0</WindowsTargetPlatformVersion>
</PropertyGroup>
@ -74,7 +74,7 @@
<ProgramDataBaseFileName>$(IntDir)$(TargetName).pdb</ProgramDataBaseFileName>
<WarningLevel>Level3</WarningLevel>
<SuppressStartupBanner>true</SuppressStartupBanner>
<DebugInformationFormat>ProgramDatabase</DebugInformationFormat>
<DebugInformationFormat>EditAndContinue</DebugInformationFormat>
<StringPooling>true</StringPooling>
<MultiProcessorCompilation>true</MultiProcessorCompilation>
</ClCompile>
@ -158,27 +158,7 @@
<ItemGroup>
<ClInclude Include="..\src\li\lilib01.h" />
</ItemGroup>
<ItemGroup>
<CustomBuildStep Include="..\lib\AgaLib.lib">
<FileType>Document</FileType>
<ExcludedFromBuild Condition="'$(Configuration)|$(Platform)'=='Debug|Win32'">true</ExcludedFromBuild>
</CustomBuildStep>
<CustomBuildStep Include="..\lib\AgaLibD.lib">
<FileType>Document</FileType>
<ExcludedFromBuild Condition="'$(Configuration)|$(Platform)'=='Release|Win32'">true</ExcludedFromBuild>
</CustomBuildStep>
</ItemGroup>
<ItemGroup>
<ProjectReference Include="AgaLib.vcxproj">
<Project>{2d38a763-3d74-4338-9362-b891784ec90e}</Project>
</ProjectReference>
<ProjectReference Include="vedoc.vcxproj">
<Project>{a1ce9743-a597-4f92-b55a-345a366c9e55}</Project>
</ProjectReference>
<ProjectReference Include="vedocext.vcxproj">
<Project>{0042619a-6b7c-4d3d-9cd9-9bdd8d200c15}</Project>
</ProjectReference>
</ItemGroup>
<Import Project="$(VCTargetsPath)\Microsoft.Cpp.targets" />
<ImportGroup Label="ExtensionTargets">
<Import Project="CampoRules.targets" />

View File

@ -1,30 +1,30 @@
#include "li0100a.h"
TOOLBAR "topbar" 0 0 0 2
BUTTON DLG_RECALC 2 2
BEGIN
PROMPT 1 1 "Carica"
PICTURE TOOL_CONVERT
END
BUTTON DLG_OK 2 2
BEGIN
PROMPT 1 1 "Precarica"
PICTURE TOOL_ELABORA
END
#include <helpbar.h>
ENDPAGE
PAGE "Impostazioni" 0 2 0 0
LISTBOX F_TIPORIC 20
BEGIN
PROMPT 1 1 "Ricerca per "
ITEM "D|Estremi documenti"
ITEM "L|Lettera"
END
#include "li0100a.h"
TOOLBAR "topbar" 0 0 0 2
BUTTON DLG_RECALC 2 2
BEGIN
PROMPT 1 1 "Carica"
PICTURE TOOL_CONVERT
END
BUTTON DLG_OK 2 2
BEGIN
PROMPT 1 1 "Precarica"
PICTURE TOOL_ELABORA
END
#include <helpbar.h>
ENDPAGE
PAGE "Impostazioni" 0 2 0 0
LISTBOX F_TIPORIC 20
BEGIN
PROMPT 1 1 "Ricerca per "
ITEM "D|Estremi documenti"
ITEM "L|Lettera"
END
NUMBER F_NUMPROT 6
BEGIN
PROMPT 40 1 "Cod. lettera "
@ -46,27 +46,25 @@ BEGIN
OUTPUT F_ACODCF CODCLI
OUTPUT F_ARAGSOC LF_CLIFO->RAGSOC
FLAGS "DU"
END
DATE F_DATAINI
BEGIN
PROMPT 1 2 "Data iniziale"
VALIDATE DATE_CMP_FUNC <= F_DATAFIN
WARNING "La data iniziale non può essere maggiore della data finale"
END
DATE F_DATAFIN
BEGIN
PROMPT 40 2 "Data Finale "
VALIDATE DATE_CMP_FUNC >= F_DATAINI
WARNING "La data finale non può essere minore della data iniziale"
END
GROUPBOX DLG_NULL 80 5
BEGIN
PROMPT 0 3 "Documento"
END
END
DATE F_DATAINI
BEGIN
PROMPT 1 2 "Data iniziale"
END
DATE F_DATAFIN
BEGIN
PROMPT 40 2 "Data Finale "
VALIDATE DATE_CMP_FUNC >= F_DATAINI
WARNING "La data finale non può essere minore della data iniziale"
END
GROUPBOX DLG_NULL 80 5
BEGIN
PROMPT 0 3 "Documento"
END
STRING F_CODNUM 5
BEGIN
PROMPT 1 4 "Numerazione "
@ -124,8 +122,8 @@ BEGIN
NUM_EXPR #F_ANNO>0
FLAG "AP"
WARNING "Inserire un anno valido"
END
END
STRING F_STATO 1
BEGIN
PROMPT 24 6 "Stato "
@ -135,342 +133,342 @@ BEGIN
DISPLAY "Descrizione@50" S0
OUTPUT F_STATO CODTAB
FLAG "U"
END
GROUPBOX DLG_NULL 80 4
BEGIN
PROMPT 0 8 "Clienti"
END
NUMBER F_DACODCF 6
BEGIN
PROMPT 1 9 "Da Codice"
USE LF_CLIFO
INPUT TIPOCF "C" SELECT
INPUT CODCF F_DACODCF
DISPLAY "Codice" CODCF
DISPLAY "Ragione Sociale@50" RAGSOC
DISPLAY "Occasionale@C" OCCAS
DISPLAY "Codice Fiscale@16" COFI
DISPLAY "Partita IVA@15" PAIV
OUTPUT F_DACODCF CODCF
OUTPUT F_DARAGSOC RAGSOC
CHEKTYPE NORMAL
GROUP 1
FLAGS ""
END
STRING F_DARAGSOC 50 49
BEGIN
PROMPT 21 9 "R.Soc"
USE LF_CLIFO KEY 2
INPUT TIPOCF "C" SELECT
INPUT RAGSOC F_DARAGSOC
DISPLAY "Ragione Sociale@50" RAGSOC
DISPLAY "Codice" CODCF
DISPLAY "Codice Fiscale@16" COFI
DISPLAY "Partita IVA@15" PAIV
COPY OUTPUT F_DACODCF
ADD RUN CG0 -1
GROUP 1
FLAGS ""
END
NUMBER F_ACODCF 6
BEGIN
PROMPT 1 10 "A Codice "
USE LF_CLIFO
INPUT TIPOCF "C" SELECT
INPUT CODCF F_ACODCF
DISPLAY "Codice" CODCF
DISPLAY "Ragione Sociale@50" RAGSOC
DISPLAY "Occasionale@C" OCCAS
DISPLAY "Codice Fiscale@16" COFI
DISPLAY "Partita IVA@15" PAIV
OUTPUT F_ACODCF CODCF
OUTPUT F_ARAGSOC RAGSOC
CHEKTYPE NORMAL
GROUP 1
FLAGS ""
END
STRING F_ARAGSOC 50 49
BEGIN
PROMPT 21 10 "R.Soc"
USE LF_CLIFO KEY 2
INPUT TIPOCF "C" SELECT
INPUT RAGSOC F_ARAGSOC
DISPLAY "Ragione Sociale@50" RAGSOC
DISPLAY "Codice" CODCF
DISPLAY "Codice Fiscale@16" COFI
DISPLAY "Partita IVA@15" PAIV
COPY OUTPUT F_ACODCF
ADD RUN CG0 -1
GROUP 1
FLAGS ""
END
END
GROUPBOX DLG_NULL 80 4
BEGIN
PROMPT 0 8 "Clienti"
END
NUMBER F_DACODCF 6
BEGIN
PROMPT 1 9 "Da Codice"
USE LF_CLIFO
INPUT TIPOCF "C" SELECT
INPUT CODCF F_DACODCF
DISPLAY "Codice" CODCF
DISPLAY "Ragione Sociale@50" RAGSOC
DISPLAY "Occasionale@C" OCCAS
DISPLAY "Codice Fiscale@16" COFI
DISPLAY "Partita IVA@15" PAIV
OUTPUT F_DACODCF CODCF
OUTPUT F_DARAGSOC RAGSOC
CHEKTYPE NORMAL
GROUP 1
FLAGS ""
END
STRING F_DARAGSOC 50 49
BEGIN
PROMPT 21 9 "R.Soc"
USE LF_CLIFO KEY 2
INPUT TIPOCF "C" SELECT
INPUT RAGSOC F_DARAGSOC
DISPLAY "Ragione Sociale@50" RAGSOC
DISPLAY "Codice" CODCF
DISPLAY "Codice Fiscale@16" COFI
DISPLAY "Partita IVA@15" PAIV
COPY OUTPUT F_DACODCF
ADD RUN CG0 -1
GROUP 1
FLAGS ""
END
NUMBER F_ACODCF 6
BEGIN
PROMPT 1 10 "A Codice "
USE LF_CLIFO
INPUT TIPOCF "C" SELECT
INPUT CODCF F_ACODCF
DISPLAY "Codice" CODCF
DISPLAY "Ragione Sociale@50" RAGSOC
DISPLAY "Occasionale@C" OCCAS
DISPLAY "Codice Fiscale@16" COFI
DISPLAY "Partita IVA@15" PAIV
OUTPUT F_ACODCF CODCF
OUTPUT F_ARAGSOC RAGSOC
CHEKTYPE NORMAL
GROUP 1
FLAGS ""
END
STRING F_ARAGSOC 50 49
BEGIN
PROMPT 21 10 "R.Soc"
USE LF_CLIFO KEY 2
INPUT TIPOCF "C" SELECT
INPUT RAGSOC F_ARAGSOC
DISPLAY "Ragione Sociale@50" RAGSOC
DISPLAY "Codice" CODCF
DISPLAY "Codice Fiscale@16" COFI
DISPLAY "Partita IVA@15" PAIV
COPY OUTPUT F_ACODCF
ADD RUN CG0 -1
GROUP 1
FLAGS ""
END
STRING DLG_PROFILE 256
BEGIN
PROMPT 1 -1 "Profilo "
PSELECT
FLAGS "H"
END
ENDPAGE
PAGE "Documenti/Lettere Intento" 0 2 0 0
SPREADSHEET F_RIGHE
BEGIN
PROMPT 0 0 "Righe movimenti"
ITEM "Data\n Doc.@8F"
ITEM "Anno\nDoc.@5F"
ITEM "Numero\nDocum.@5F"
ITEM "Cod.\nNum.@8F"
ITEM "Tipo\nDoc.@4F"
ITEM "Stato\nDoc.@5F"
ITEM "C/F@2"
ITEM "Codice@6"
ITEM "Ragione Sociale@35"
ITEM "Tot. Doc.@10"
ITEM "Num Prot1@8"
ITEM "Utilizzato1@10"
ITEM "Num Prot2@8"
ITEM "Utilizzato2@10"
ITEM "Num Prot3@8"
ITEM "Utilizzato3@10"
ITEM "Num Prot4@8"
ITEM "Utilizzato4@10"
ITEM "Num Prot5@8"
ITEM "Utilizzato5@10"
ITEM "Num Prot6@8"
ITEM "Utilizzato6@10"
ITEM "Num Prot7@8"
ITEM "Utilizzato7@10"
ITEM "Num Prot8@8"
ITEM "Utilizzato8@10"
ITEM "Num Prot9@8"
ITEM "Utilizzato9@10"
ITEM "Num Prot10@8"
ITEM "Utilizzato10@10"
END
ENDPAGE
ENDMASK
PAGE "Riga" -1 -1 69 14
DATE A_DATADOC
BEGIN
PROMPT 26 0 "Data documento."
FLAGS "D"
END
NUMBER A_ANNO 4
BEGIN
PROMPT 1 0 "Anno documento"
FLAGS "D"
END
NUMBER A_NUMDOC 10
BEGIN
PROMPT 1 0 "Numero documento"
FLAGS "D"
END
STRING A_CODNUM 5
BEGIN
PROMPT 1 0 "Codice numerazione documento"
FLAGS "D"
END
STRING A_TIPODOC 5
BEGIN
PROMPT 23 6 "Tipo doc. "
FLAGS "D"
END
STRING A_STATODOC 1
BEGIN
PROMPT 1 0 "Stato documento"
FLAGS "D"
END
STRING A_TIPOCF 1
BEGIN
PROMPT 1 1 "Tipo C/F "
FLAGS "D"
END
NUMBER A_CODCF 6
BEGIN
PROMPT 26 1 "Cod. C/F"
FLAGS "D"
END
STRING A_RAGSOC 50 47
BEGIN
FIELD RAGSOC
PROMPT 1 2 "Ragione Sociale"
FLAGS "D"
END
NUMBER A_TOTDOC 12 2
BEGIN
PROMPT 42 8 "Imponibile"
FLAGS "D"
END
NUMBER PLA1_NUMPROT 6
BEGIN
PROMPT 42 8 "Num Prot"
FLAGS "D"
END
NUMBER PLA1_QTA 12 2
BEGIN
PROMPT 42 8 "Util"
FLAGS "D"
END
NUMBER PLA2_NUMPROT 6
BEGIN
PROMPT 42 8 "Num Prot"
FLAGS "D"
END
NUMBER PLA2_QTA 12 2
BEGIN
PROMPT 42 8 "Util"
FLAGS "D"
END
NUMBER PLA3_NUMPROT 6
BEGIN
PROMPT 42 8 "Num Prot"
FLAGS "D"
END
NUMBER PLA3_QTA 12 2
BEGIN
PROMPT 42 8 "Util"
FLAGS "D"
END
NUMBER PLA4_NUMPROT 6
BEGIN
PROMPT 42 8 "Num Prot"
FLAGS "D"
END
NUMBER PLA4_QTA 12 2
BEGIN
PROMPT 42 8 "Util"
FLAGS "D"
END
NUMBER PLA5_NUMPROT 6
BEGIN
PROMPT 42 8 "Num Prot"
FLAGS "D"
END
NUMBER PLA5_QTA 12 2
BEGIN
PROMPT 42 8 "Util"
FLAGS "D"
END
NUMBER PLA6_NUMPROT 6
BEGIN
PROMPT 42 8 "Num Prot"
FLAGS "D"
END
NUMBER PLA6_QTA 12 2
BEGIN
PROMPT 42 8 "Util"
FLAGS "D"
END
NUMBER PLA7_NUMPROT 6
BEGIN
PROMPT 42 8 "Num Prot"
FLAGS "D"
END
NUMBER PLA7_QTA 12 2
BEGIN
PROMPT 42 8 "Util"
FLAGS "D"
END
NUMBER PLA8_NUMPROT 6
BEGIN
PROMPT 42 8 "Num Prot"
FLAGS "D"
END
NUMBER PLA8_QTA 12 2
BEGIN
PROMPT 42 8 "Util"
FLAGS "D"
END
NUMBER PLA9_NUMPROT 6
BEGIN
PROMPT 42 8 "Num Prot"
FLAGS "D"
END
NUMBER PLA9_QTA 12 2
BEGIN
PROMPT 42 8 "Util"
FLAGS "D"
END
NUMBER PLA10_NUMPROT 6
BEGIN
PROMPT 42 8 "Num Prot"
FLAGS "D"
END
NUMBER PLA10_QTA 12 2
BEGIN
PROMPT 42 8 "Util"
FLAGS "D"
END
ENDPAGE
TOOLBAR "topbar" 0 0 0 2
BUTTON DLG_OK 2 2
BEGIN
PROMPT 1 1 ""
END
BUTTON DLG_USER 2 2
BEGIN
PROMPT 2 1 "Collega"
PICTURE TOOL_LINK
END
BUTTON DLG_DELREC 2 2
BEGIN
PROMPT 2 1 "Elimina"
PICTURE TOOL_DELREC
END
BUTTON DLG_CANCEL 2 2
BEGIN
PROMPT 4 1 ""
END
ENDPAGE
END
ENDPAGE
PAGE "Documenti/Lettere Intento" 0 2 0 0
SPREADSHEET F_RIGHE
BEGIN
PROMPT 0 0 "Righe movimenti"
ITEM "Data\n Doc.@8F"
ITEM "Anno\nDoc.@5F"
ITEM "Numero\nDocum.@5F"
ITEM "Cod.\nNum.@8F"
ITEM "Tipo\nDoc.@4F"
ITEM "Stato\nDoc.@5F"
ITEM "C/F@2"
ITEM "Codice@6"
ITEM "Ragione Sociale@35"
ITEM "Tot. Doc.@10"
ITEM "Num Prot1@8"
ITEM "Utilizzato1@10"
ITEM "Num Prot2@8"
ITEM "Utilizzato2@10"
ITEM "Num Prot3@8"
ITEM "Utilizzato3@10"
ITEM "Num Prot4@8"
ITEM "Utilizzato4@10"
ITEM "Num Prot5@8"
ITEM "Utilizzato5@10"
ITEM "Num Prot6@8"
ITEM "Utilizzato6@10"
ITEM "Num Prot7@8"
ITEM "Utilizzato7@10"
ITEM "Num Prot8@8"
ITEM "Utilizzato8@10"
ITEM "Num Prot9@8"
ITEM "Utilizzato9@10"
ITEM "Num Prot10@8"
ITEM "Utilizzato10@10"
END
ENDPAGE
ENDMASK
PAGE "Riga" -1 -1 69 14
DATE A_DATADOC
BEGIN
PROMPT 26 0 "Data documento."
FLAGS "D"
END
NUMBER A_ANNO 4
BEGIN
PROMPT 1 0 "Anno documento"
FLAGS "D"
END
NUMBER A_NUMDOC 10
BEGIN
PROMPT 1 0 "Numero documento"
FLAGS "D"
END
STRING A_CODNUM 5
BEGIN
PROMPT 1 0 "Codice numerazione documento"
FLAGS "D"
END
STRING A_TIPODOC 5
BEGIN
PROMPT 23 6 "Tipo doc. "
FLAGS "D"
END
STRING A_STATODOC 1
BEGIN
PROMPT 1 0 "Stato documento"
FLAGS "D"
END
STRING A_TIPOCF 1
BEGIN
PROMPT 1 1 "Tipo C/F "
FLAGS "D"
END
NUMBER A_CODCF 6
BEGIN
PROMPT 26 1 "Cod. C/F"
FLAGS "D"
END
STRING A_RAGSOC 50 47
BEGIN
FIELD RAGSOC
PROMPT 1 2 "Ragione Sociale"
FLAGS "D"
END
NUMBER A_TOTDOC 12 2
BEGIN
PROMPT 42 8 "Imponibile"
FLAGS "D"
END
NUMBER PLA1_NUMPROT 6
BEGIN
PROMPT 42 8 "Num Prot"
FLAGS "D"
END
NUMBER PLA1_QTA 12 2
BEGIN
PROMPT 42 8 "Util"
FLAGS "D"
END
NUMBER PLA2_NUMPROT 6
BEGIN
PROMPT 42 8 "Num Prot"
FLAGS "D"
END
NUMBER PLA2_QTA 12 2
BEGIN
PROMPT 42 8 "Util"
FLAGS "D"
END
NUMBER PLA3_NUMPROT 6
BEGIN
PROMPT 42 8 "Num Prot"
FLAGS "D"
END
NUMBER PLA3_QTA 12 2
BEGIN
PROMPT 42 8 "Util"
FLAGS "D"
END
NUMBER PLA4_NUMPROT 6
BEGIN
PROMPT 42 8 "Num Prot"
FLAGS "D"
END
NUMBER PLA4_QTA 12 2
BEGIN
PROMPT 42 8 "Util"
FLAGS "D"
END
NUMBER PLA5_NUMPROT 6
BEGIN
PROMPT 42 8 "Num Prot"
FLAGS "D"
END
NUMBER PLA5_QTA 12 2
BEGIN
PROMPT 42 8 "Util"
FLAGS "D"
END
NUMBER PLA6_NUMPROT 6
BEGIN
PROMPT 42 8 "Num Prot"
FLAGS "D"
END
NUMBER PLA6_QTA 12 2
BEGIN
PROMPT 42 8 "Util"
FLAGS "D"
END
NUMBER PLA7_NUMPROT 6
BEGIN
PROMPT 42 8 "Num Prot"
FLAGS "D"
END
NUMBER PLA7_QTA 12 2
BEGIN
PROMPT 42 8 "Util"
FLAGS "D"
END
NUMBER PLA8_NUMPROT 6
BEGIN
PROMPT 42 8 "Num Prot"
FLAGS "D"
END
NUMBER PLA8_QTA 12 2
BEGIN
PROMPT 42 8 "Util"
FLAGS "D"
END
NUMBER PLA9_NUMPROT 6
BEGIN
PROMPT 42 8 "Num Prot"
FLAGS "D"
END
NUMBER PLA9_QTA 12 2
BEGIN
PROMPT 42 8 "Util"
FLAGS "D"
END
NUMBER PLA10_NUMPROT 6
BEGIN
PROMPT 42 8 "Num Prot"
FLAGS "D"
END
NUMBER PLA10_QTA 12 2
BEGIN
PROMPT 42 8 "Util"
FLAGS "D"
END
ENDPAGE
TOOLBAR "topbar" 0 0 0 2
BUTTON DLG_OK 2 2
BEGIN
PROMPT 1 1 ""
END
BUTTON DLG_USER 2 2
BEGIN
PROMPT 2 1 "Collega"
PICTURE TOOL_LINK
END
BUTTON DLG_DELREC 2 2
BEGIN
PROMPT 2 1 "Elimina"
PICTURE TOOL_DELREC
END
BUTTON DLG_CANCEL 2 2
BEGIN
PROMPT 4 1 ""
END
ENDPAGE
ENDMASK

View File

@ -1,140 +1,140 @@
#include "li0200a.h"
TOOLBAR "topbar" 0 0 0 2
#include <stdbar.h>
ENDPAGE
PAGE "Impostazioni dichiarazioni d'intento" 0 2 0 0
STRING F_TABIVA_CODTAB 4
BEGIN
PROMPT 1 1 "Codice IVA plafond:"
FIELD CODTAB
KEY 1
USE %IVA
FLAGS "U"
INPUT CODTAB F_TABIVA_CODTAB
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
DISPLAY "Tipo" S1
DISPLAY "%@5" R0
DISPLAY "Vent." S6
DISPLAY "Sospeso" B2
OUTPUT F_TABIVA_CODTAB CODTAB
HELP "Inserire il codice IVA"
CHECKTYPE REQUIRED
VALIDATE ZEROFILL_FUNC 2
END
#include "li0200a.h"
TOOLBAR "topbar" 0 0 0 2
#include <stdbar.h>
ENDPAGE
PAGE "Impostazioni dichiarazioni d'intento" 0 2 0 0
STRING F_TABIVA_CODTAB 4
BEGIN
PROMPT 1 1 "Codice IVA plafond:"
FIELD CODTAB
KEY 1
USE %IVA
FLAGS "U"
INPUT CODTAB F_TABIVA_CODTAB
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
DISPLAY "Tipo" S1
DISPLAY "%@5" R0
DISPLAY "Vent." S6
DISPLAY "Sospeso" B2
OUTPUT F_TABIVA_CODTAB CODTAB
HELP "Inserire il codice IVA"
CHECKTYPE REQUIRED
VALIDATE ZEROFILL_FUNC 2
END
DATE F_A_DATA
BEGIN
PROMPT 1 2 "A data "
CHECKTYPE REQUIRED
END
NUMBER F_CODICE_CLIFO_DA 6
BEGIN
PROMPT 1 3 "Da cod. cliente: "
FLAG "UR"
USE LF_CLIFO
INPUT TIPOCF "C"
INPUT CODCF F_CODICE_CLIFO_DA
DISPLAY "Cliente" CODCF
DISPLAY "Ragione sociale@60" RAGSOC
OUTPUT F_CODICE_CLIFO_DA CODCF
GROUP 1
END
NUMBER F_CODICE_CLIFO_A 6
BEGIN
PROMPT 32 3 "a: "
FLAG "UR"
USE LF_CLIFO
INPUT TIPOCF "C"
INPUT CODCF F_CODICE_CLIFO_A
COPY DISPLAY F_CODICE_CLIFO_DA
OUTPUT F_CODICE_CLIFO_A CODCF
NUM_EXPR #F_CODICE_CLIFO_A>=#F_CODICE_CLIFO_DA
WARNING "Digitare un codice maggiore o uguale al campo 'da codice cliente'"
GROUP 1
END
SPREADSHEET DOCUMENTI_STATO 45 10
BEGIN
PROMPT 1 5 ""
ITEM "Tipo Numerazione"
ITEM "Da stato"
ITEM "A stato"
END
ENDPAGE
ENDMASK
PAGE "Riga tipo numerazione" -1 -1 78 8
STRING F_TIPODOC 4
BEGIN
PROMPT 2 1 "Tipo Documento "
FIELD TIPODOC
HELP "Codice tipo documento"
USE %TIP
INPUT CODTAB F_TIPODOC
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_TIPODOC CODTAB
CHECKTYPE REQUIRED
END
STRING F_STATODOCDA 4
BEGIN
PROMPT 2 2 "Da Numerazione "
FIELD CODTAB
KEY 1
USE %STD
FLAGS "U"
INPUT CODTAB F_STATODOCA
DISPLAY "Stato" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_STATODOCDA CODTAB
//CHECKTYPE REQUIRED
END
STRING F_STATODOCA 4
BEGIN
PROMPT 2 3 "A Numerazione "
FIELD CODTAB
KEY 1
USE %STD
FLAGS "U"
INPUT CODTAB F_STATODOCA
DISPLAY "Stato" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_STATODOCA CODTAB
NUM_EXPR #F_STATODOCA>=#F_STATODOCDA
//CHECKTYPE REQUIRED
END
ENDPAGE
TOOLBAR "Documento" 0 0 0 2
BUTTON DLG_OK 2 2
BEGIN
PROMPT 1 1 ""
END
BUTTON DLG_DELREC 2 2
BEGIN
PROMPT 1 1 ""
END
BUTTON DLG_CANCEL 2 2
BEGIN
PROMPT 1 1 ""
END
ENDPAGE
ENDMASK
END
NUMBER F_CODICE_CLIFO_DA 6
BEGIN
PROMPT 1 3 "Da cod. cliente: "
FLAG "UR"
USE LF_CLIFO
INPUT TIPOCF "C"
INPUT CODCF F_CODICE_CLIFO_DA
DISPLAY "Cliente" CODCF
DISPLAY "Ragione sociale@60" RAGSOC
OUTPUT F_CODICE_CLIFO_DA CODCF
GROUP 1
END
NUMBER F_CODICE_CLIFO_A 6
BEGIN
PROMPT 32 3 "a: "
FLAG "UR"
USE LF_CLIFO
INPUT TIPOCF "C"
INPUT CODCF F_CODICE_CLIFO_A
COPY DISPLAY F_CODICE_CLIFO_DA
OUTPUT F_CODICE_CLIFO_A CODCF
NUM_EXPR #F_CODICE_CLIFO_A>=#F_CODICE_CLIFO_DA
WARNING "Digitare un codice maggiore o uguale al campo 'da codice cliente'"
GROUP 1
END
SPREADSHEET DOCUMENTI_STATO 45 10
BEGIN
PROMPT 1 5 ""
ITEM "Tipo Numerazione"
ITEM "Da stato"
ITEM "A stato"
END
ENDPAGE
ENDMASK
PAGE "Riga tipo numerazione" -1 -1 78 8
STRING F_TIPODOC 4
BEGIN
PROMPT 2 1 "Tipo Documento "
FIELD TIPODOC
HELP "Codice tipo documento"
USE %TIP
INPUT CODTAB F_TIPODOC
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_TIPODOC CODTAB
CHECKTYPE REQUIRED
END
STRING F_STATODOCDA 4
BEGIN
PROMPT 2 2 "Da Numerazione "
FIELD CODTAB
KEY 1
USE %STD
FLAGS "U"
INPUT CODTAB F_STATODOCA
DISPLAY "Stato" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_STATODOCDA CODTAB
//CHECKTYPE REQUIRED
END
STRING F_STATODOCA 4
BEGIN
PROMPT 2 3 "A Numerazione "
FIELD CODTAB
KEY 1
USE %STD
FLAGS "U"
INPUT CODTAB F_STATODOCA
DISPLAY "Stato" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_STATODOCA CODTAB
NUM_EXPR #F_STATODOCA>=#F_STATODOCDA
//CHECKTYPE REQUIRED
END
ENDPAGE
TOOLBAR "Documento" 0 0 0 2
BUTTON DLG_OK 2 2
BEGIN
PROMPT 1 1 ""
END
BUTTON DLG_DELREC 2 2
BEGIN
PROMPT 1 1 ""
END
BUTTON DLG_CANCEL 2 2
BEGIN
PROMPT 1 1 ""
END
ENDPAGE
ENDMASK