Archivado/Noviseda_FactuGES2
Archived
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

repaso albaranes

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Noviseda_FactuGES2/trunk@74 f33bb606-9f5c-448d-9c99-757f00063c96
This commit is contained in:
David Arranz 2010-01-28 14:06:34 +00:00
parent f4ccb5aedc
commit 0b88d43bde
43 changed files with 1167 additions and 1360 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
Build/Build.fbl6
View File

Binary file not shown.

4
Database/udfs/LEEME.txt Normal file
View File

@ -0,0 +1,4 @@
La UDF de conversión RTF->Texto se basa en el componente TRichView
que no está incluido en las librerías del proyecto.
Descargar del repositorio e instalar en Delphi cuando se quiera
cambiar o recompilar la UDF.

82
Database/udfs/funciones.pas
View File

@ -7,7 +7,69 @@ function RtfToText(Cadena: PChar): PChar; cdecl; export;
implementation implementation
uses uses
Forms, Classes, SysUtils, StdCtrls, ComCtrls; Forms, Classes, SysUtils, StdCtrls, ComCtrls,
RVRTF, RVRTFErr, Menus, RVTypes;
type
TConversor = class(TObject)
private
FirstLine: Boolean;
procedure DoReaderText(Sender: TRVRTFReader; const Text: TRVAnsiString;
Position: TRVRTFPosition);
public
RTFText: TRVAnsiString;
function ExtractTextFromRTF(const AStream: TStream): Boolean;
end;
{ TConversor }
procedure TConversor.DoReaderText(Sender: TRVRTFReader;
const Text: TRVAnsiString; Position: TRVRTFPosition);
begin
if (Position <> rtf_ts_ContinuePara) and not FirstLine then
RTFText := RTFText+#13#10;
FirstLine := False;
RTFText := RTFText+Text;
end;
function TConversor.ExtractTextFromRTF(const AStream: TStream): Boolean;
var
Parser: TRVRTFReader;
begin
{FirstLine := True;}
parser := TRVRTFReader.Create(nil);
try
Parser.OnNewText := DoReaderText;
Result := (Parser.ReadFromStream(AStream) = rtf_ec_OK);
finally
Parser.Free;
end;
end;
function RtfToText(Cadena: PChar): PChar;
var
AStream : TStringStream;
AConversor : TConversor;
begin
AStream := TStringStream.Create(Cadena);
AConversor := TConversor.Create;
try
AConversor.ExtractTextFromRTF(AStream);
Result := PChar(AConversor.RTFText);
finally
FreeAndNil(AConversor);
FreeAndNIL(AStream);
end;
end;
// NO USAR LAS FUNCIONES QUE VIENEN A CONTINUACIÓN
// Esta función falla cuando hay caracteres especiales en el texto (ñ, por ejemplo). // Esta función falla cuando hay caracteres especiales en el texto (ñ, por ejemplo).
@ -47,10 +109,12 @@ end;
http://www.delphipraxis.net/topic45179.html http://www.delphipraxis.net/topic45179.html
} }
// Esta función falla porque se come letras del final de cada línea (¿?)
// HAY QUE LIMPIAR LA CADENA DE ENTRADA DE SALTOS DE LÍNEA (#$D#$A) POR QUE // HAY QUE LIMPIAR LA CADENA DE ENTRADA DE SALTOS DE LÍNEA (#$D#$A) POR QUE
// SI NO, NO ES UNA CADENA CON TEXTO RTF VÁLIDO // SI NO, NO ES UNA CADENA CON TEXTO RTF VÁLIDO
function RtfToText(Cadena: PChar): PChar; function RtfToText3(Cadena: PChar): PChar;
const const
SaltoLinea = #13#10; //--> #$D#$A SaltoLinea = #13#10; //--> #$D#$A
var var
@ -215,12 +279,12 @@ var
begin begin
// Hay que quitar el salto de línea al final de la aSource RTF // Hay que quitar el salto de línea al final de la aSource RTF
aSource := StringReplace(Cadena, SaltoLinea, '', [rfreplaceall]); aSource := Copy(Cadena, 1, length(Cadena)-2);
// Cambiar los saltos de línea que no son de RTF por un caracter para
// que se limpien.
// aSource := StringReplace(aSource, SaltoLinea, '^', [rfreplaceall]);
// o bien:
//
//aSource := Copy( cLinea, 1, length(cLinea)-2) );
if InitSource then if InitSource then
begin begin
NChar:=1; NChar:=1;
@ -231,7 +295,3 @@ begin
end; end;
end. end.

BIN
Database/udfs/udf_RtfToText.dll
View File

Binary file not shown.

597
Database/udfs/udf_RtfToText.dproj
View File

@ -18,576 +18,63 @@
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' "> <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<Version>7.0</Version> <Version>7.0</Version>
<DCC_MapFile>3</DCC_MapFile> <DCC_MapFile>3</DCC_MapFile>
<DCC_Define>DEBUG</DCC_Define> <DCC_Define>EUREKALOG;EUREKALOG_VER5;DEBUG</DCC_Define>
</PropertyGroup> </PropertyGroup>
<ProjectExtensions> <ProjectExtensions>
<Borland.Personality>Delphi.Personality</Borland.Personality> <Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType /> <Borland.ProjectType />
<BorlandProject> <BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters> <BorlandProject xmlns=""> <Delphi.Personality> <Parameters>
<Parameters Name="UseLauncher">False</Parameters>
<Parameters Name="LoadAllSymbols">True</Parameters>
</Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">False</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages> <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
</Parameters>
<VersionInfo>
<VersionInfo Name="IncludeVerInfo">False</VersionInfo>
<VersionInfo Name="AutoIncBuild">False</VersionInfo>
<VersionInfo Name="MajorVer">1</VersionInfo>
<VersionInfo Name="MinorVer">0</VersionInfo>
<VersionInfo Name="Release">0</VersionInfo>
<VersionInfo Name="Build">0</VersionInfo>
<VersionInfo Name="Debug">False</VersionInfo>
<VersionInfo Name="PreRelease">False</VersionInfo>
<VersionInfo Name="Special">False</VersionInfo>
<VersionInfo Name="Private">False</VersionInfo>
<VersionInfo Name="DLL">False</VersionInfo>
<VersionInfo Name="Locale">3082</VersionInfo>
<VersionInfo Name="CodePage">1252</VersionInfo>
</VersionInfo>
<VersionInfoKeys>
<VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
<VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
<VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
<VersionInfoKeys Name="InternalName"></VersionInfoKeys>
<VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
<VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
<VersionInfoKeys Name="ProductName"></VersionInfoKeys>
<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
<VersionInfoKeys Name="Comments"></VersionInfoKeys>
</VersionInfoKeys>
<Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\Usuario\Mis documentos\Borland Studio Projects\Bpl\EasyListviewD10.bpl">Muststang Peak EasyListview Runtime Package</Excluded_Packages> <Excluded_Packages Name="C:\Documents and Settings\Usuario\Mis documentos\Borland Studio Projects\Bpl\EasyListviewD10.bpl">Muststang Peak EasyListview Runtime Package</Excluded_Packages>
<Excluded_Packages Name="C:\Archivos de programa\RemObjects Software\Pascal Script\Dcu\D10\PascalScript_RO_D10.bpl">RemObjects Pascal Script - RemObjects SDK 3.0 Integration</Excluded_Packages> <Excluded_Packages Name="C:\Archivos de programa\RemObjects Software\Pascal Script\Dcu\D10\PascalScript_RO_D10.bpl">RemObjects Pascal Script - RemObjects SDK 3.0 Integration</Excluded_Packages>
</Excluded_Packages><Source><Source Name="MainSource">udf_RtfToText.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject> </Excluded_Packages>
<Source>
<Source Name="MainSource">udf_RtfToText.dpr</Source>
</Source>
</Delphi.Personality> </BorlandProject></BorlandProject>
</ProjectExtensions> </ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" /> <ItemGroup />
<ItemGroup> <ItemGroup>
<DelphiCompile Include="udf_RtfToText.dpr"> <DelphiCompile Include="udf_RtfToText.dpr">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="funciones.pas" /> <DCCReference Include="funciones.pas" />
</ItemGroup> </ItemGroup>
</Project> <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<!-- EurekaLog First Line </Project>
[Exception Log]
EurekaLog Version=6011
Activate=0
Activate Handle=1
Save Log File=1
Foreground Tab=0
Freeze Activate=0
Freeze Timeout=0
SMTP From=eurekalog@email.com
SMTP Host=
SMTP Port=25
SMTP UserID=
SMTP Password=
Append to Log=0
TerminateBtn Operation=2
Errors Number=32
Errors Terminate=3
Email Address=
Email Object=
Email Send Options=0
Output Path=
Encrypt Password=
AutoCloseDialogSecs=0
WebSendMode=0
SupportULR=
HTMLLayout Count=15
HTMLLine0="%3Chtml%3E"
HTMLLine1=" %3Chead%3E"
HTMLLine2=" %3C/head%3E"
HTMLLine3=" %3Cbody TopMargin=10 LeftMargin=10%3E"
HTMLLine4=" %3Ctable width="100%%" border="0"%3E"
HTMLLine5=" %3Ctr%3E"
HTMLLine6=" %3Ctd nowrap%3E"
HTMLLine7=" %3Cfont face="Lucida Console, Courier" size="2"%3E"
HTMLLine8=" %3C%%HTML_TAG%%%3E"
HTMLLine9=" %3C/font%3E"
HTMLLine10=" %3C/td%3E"
HTMLLine11=" %3C/tr%3E"
HTMLLine12=" %3C/table%3E"
HTMLLine13=" %3C/body%3E"
HTMLLine14="%3C/html%3E"
AutoCrashOperation=2
AutoCrashNumber=10
AutoCrashMinutes=1
WebURL=
WebUserID=
WebPassword=
WebPort=0
AttachedFiles=
ProxyURL=
ProxyUser=
ProxyPassword=
ProxyPort=8080
TrakerUser=
TrakerPassword=
TrakerAssignTo=
TrakerProject=
TrakerCategory=
TrakerTrialID=
ZipPassword=
PreBuildEvent=
PostSuccessfulBuildEvent=
PostFailureBuildEvent=
ExceptionDialogType=2
Count=0
EMail Message Line Count=0
loNoDuplicateErrors=0
loAppendReproduceText=0
loDeleteLogAtVersionChange=0
loAddComputerNameInLogFileName=0
loSaveModulesAndProcessesSections=1
loSaveAssemblerAndCPUSections=1
soAppStartDate=1
soAppName=1
soAppVersionNumber=1
soAppParameters=1
soAppCompilationDate=1
soAppUpTime=1
soExcDate=1
soExcAddress=1
soExcModuleName=1
soExcModuleVersion=1
soExcType=1
soExcMessage=1
soExcID=1
soExcCount=1
soExcStatus=1
soExcNote=1
soUserID=1
soUserName=1
soUserEmail=1
soUserPrivileges=1
soUserCompany=1
soActCtlsFormClass=1
soActCtlsFormText=1
soActCtlsControlClass=1
soActCtlsControlText=1
soCmpName=1
soCmpTotalMemory=1
soCmpFreeMemory=1
soCmpTotalDisk=1
soCmpFreeDisk=1
soCmpSysUpTime=1
soCmpProcessor=1
soCmpDisplayMode=1
soCmpDisplayDPI=1
soCmpVideoCard=1
soCmpPrinter=1
soOSType=1
soOSBuildN=1
soOSUpdate=1
soOSLanguage=1
soOSCharset=1
soNetIP=1
soNetSubmask=1
soNetGateway=1
soNetDNS1=1
soNetDNS2=1
soNetDHCP=1
soCustomData=1
sndShowSendDialog=1
sndShowSuccessFailureMsg=0
sndSendEntireLog=0
sndSendXMLLogCopy=0
sndSendScreenshot=1
sndUseOnlyActiveWindow=0
sndSendLastHTMLPage=1
sndSendInSeparatedThread=0
sndAddDateInFileName=0
sndAddComputerNameInFileName=0
edoSendErrorReportChecked=1
edoAttachScreenshotChecked=1
edoShowCopyToClipOption=1
edoShowDetailsButton=1
edoShowInDetailedMode=0
edoShowInTopMostMode=0
edoUseEurekaLogLookAndFeel=0
edoShowSendErrorReportOption=1
edoShowAttachScreenshotOption=1
edoShowCustomButton=0
csoShowDLLs=1
csoShowBPLs=1
csoShowBorlandThreads=1
csoShowWindowsThreads=1
csoDoNotStoreProcNames=0
boPauseBorlandThreads=0
boDoNotPauseMainThread=0
boPauseWindowsThreads=0
boUseMainModuleOptions=1
boCopyLogInCaseOfError=1
boSaveCompressedCopyInCaseOfError=0
boHandleSafeCallExceptions=1
boCallRTLExceptionEvent=0
boCatchHandledExceptions=0
loCatchLeaks=0
loGroupsSonLeaks=1
loHideBorlandLeaks=1
loFreeAllLeaks=1
loCatchLeaksExceptions=1
cfoReduceFileSize=1
cfoCheckFileCorruption=0
Count mtInformationMsgCaption=1
mtInformationMsgCaption0="Information."
Count mtQuestionMsgCaption=1
mtQuestionMsgCaption0="Question."
Count mtErrorMsgCaption=1
mtErrorMsgCaption0="Error."
Count mtDialog_Caption=1
mtDialog_Caption0="Error occurred"
Count mtDialog_ErrorMsgCaption=2
mtDialog_ErrorMsgCaption0="An error has occurred during program execution."
mtDialog_ErrorMsgCaption1="Please read the following information for further details."
Count mtDialog_GeneralCaption=1
mtDialog_GeneralCaption0="General"
Count mtDialog_GeneralHeader=1
mtDialog_GeneralHeader0="General Information"
Count mtDialog_CallStackCaption=1
mtDialog_CallStackCaption0="Call Stack"
Count mtDialog_CallStackHeader=1
mtDialog_CallStackHeader0="Call Stack Information"
Count mtDialog_ModulesCaption=1
mtDialog_ModulesCaption0="Modules"
Count mtDialog_ModulesHeader=1
mtDialog_ModulesHeader0="Modules Information"
Count mtDialog_ProcessesCaption=1
mtDialog_ProcessesCaption0="Processes"
Count mtDialog_ProcessesHeader=1
mtDialog_ProcessesHeader0="Processes Information"
Count mtDialog_AsmCaption=1
mtDialog_AsmCaption0="Assembler"
Count mtDialog_AsmHeader=1
mtDialog_AsmHeader0="Assembler Information"
Count mtDialog_CPUCaption=1
mtDialog_CPUCaption0="CPU"
Count mtDialog_CPUHeader=1
mtDialog_CPUHeader0="CPU Information"
Count mtDialog_OKButtonCaption=1
mtDialog_OKButtonCaption0="%26OK"
Count mtDialog_TerminateButtonCaption=1
mtDialog_TerminateButtonCaption0="%26Terminate"
Count mtDialog_RestartButtonCaption=1
mtDialog_RestartButtonCaption0="%26Restart"
Count mtDialog_DetailsButtonCaption=1
mtDialog_DetailsButtonCaption0="%26Details"
Count mtDialog_CustomButtonCaption=1
mtDialog_CustomButtonCaption0="%26Help"
Count mtDialog_SendMessage=1
mtDialog_SendMessage0="%26Send this error via Internet"
Count mtDialog_ScreenshotMessage=1
mtDialog_ScreenshotMessage0="%26Attach a Screenshot image"
Count mtDialog_CopyMessage=1
mtDialog_CopyMessage0="%26Copy to Clipboard"
Count mtDialog_SupportMessage=1
mtDialog_SupportMessage0="Go to the Support Page"
Count mtMSDialog_ErrorMsgCaption=1
mtMSDialog_ErrorMsgCaption0="The application has encountered a problem. We are sorry for the inconvenience."
Count mtMSDialog_RestartCaption=1
mtMSDialog_RestartCaption0="Restart application."
Count mtMSDialog_TerminateCaption=1
mtMSDialog_TerminateCaption0="Terminate application."
Count mtMSDialog_PleaseCaption=1
mtMSDialog_PleaseCaption0="Please tell us about this problem."
Count mtMSDialog_DescriptionCaption=1
mtMSDialog_DescriptionCaption0="We have created an error report that you can send to us. We will treat this report as confidential and anonymous."
Count mtMSDialog_SeeDetailsCaption=1
mtMSDialog_SeeDetailsCaption0="To see what data the error report contains,"
Count mtMSDialog_SeeClickCaption=1
mtMSDialog_SeeClickCaption0="click here."
Count mtMSDialog_HowToReproduceCaption=1
mtMSDialog_HowToReproduceCaption0="What were you doing when the problem happened (optional)?"
Count mtMSDialog_EmailCaption=1
mtMSDialog_EmailCaption0="Email address (optional):"
Count mtMSDialog_SendButtonCaption=1
mtMSDialog_SendButtonCaption0="%26Send Error Report"
Count mtMSDialog_NoSendButtonCaption=1
mtMSDialog_NoSendButtonCaption0="%26Don't Send"
Count mtLog_AppHeader=1
mtLog_AppHeader0="Application"
Count mtLog_AppStartDate=1
mtLog_AppStartDate0="Start Date"
Count mtLog_AppName=1
mtLog_AppName0="Name/Description"
Count mtLog_AppVersionNumber=1
mtLog_AppVersionNumber0="Version Number"
Count mtLog_AppParameters=1
mtLog_AppParameters0="Parameters"
Count mtLog_AppCompilationDate=1
mtLog_AppCompilationDate0="Compilation Date"
Count mtLog_AppUpTime=1
mtLog_AppUpTime0="Up Time"
Count mtLog_ExcHeader=1
mtLog_ExcHeader0="Exception"
Count mtLog_ExcDate=1
mtLog_ExcDate0="Date"
Count mtLog_ExcAddress=1
mtLog_ExcAddress0="Address"
Count mtLog_ExcModuleName=1
mtLog_ExcModuleName0="Module Name"
Count mtLog_ExcModuleVersion=1
mtLog_ExcModuleVersion0="Module Version"
Count mtLog_ExcType=1
mtLog_ExcType0="Type"
Count mtLog_ExcMessage=1
mtLog_ExcMessage0="Message"
Count mtLog_ExcID=1
mtLog_ExcID0="ID"
Count mtLog_ExcCount=1
mtLog_ExcCount0="Count"
Count mtLog_ExcStatus=1
mtLog_ExcStatus0="Status"
Count mtLog_ExcNote=1
mtLog_ExcNote0="Note"
Count mtLog_UserHeader=1
mtLog_UserHeader0="User"
Count mtLog_UserID=1
mtLog_UserID0="ID"
Count mtLog_UserName=1
mtLog_UserName0="Name"
Count mtLog_UserEmail=1
mtLog_UserEmail0="Email"
Count mtLog_UserCompany=1
mtLog_UserCompany0="Company"
Count mtLog_UserPrivileges=1
mtLog_UserPrivileges0="Privileges"
Count mtLog_ActCtrlsHeader=1
mtLog_ActCtrlsHeader0="Active Controls"
Count mtLog_ActCtrlsFormClass=1
mtLog_ActCtrlsFormClass0="Form Class"
Count mtLog_ActCtrlsFormText=1
mtLog_ActCtrlsFormText0="Form Text"
Count mtLog_ActCtrlsControlClass=1
mtLog_ActCtrlsControlClass0="Control Class"
Count mtLog_ActCtrlsControlText=1
mtLog_ActCtrlsControlText0="Control Text"
Count mtLog_CmpHeader=1
mtLog_CmpHeader0="Computer"
Count mtLog_CmpName=1
mtLog_CmpName0="Name"
Count mtLog_CmpTotalMemory=1
mtLog_CmpTotalMemory0="Total Memory"
Count mtLog_CmpFreeMemory=1
mtLog_CmpFreeMemory0="Free Memory"
Count mtLog_CmpTotalDisk=1
mtLog_CmpTotalDisk0="Total Disk"
Count mtLog_CmpFreeDisk=1
mtLog_CmpFreeDisk0="Free Disk"
Count mtLog_CmpSystemUpTime=1
mtLog_CmpSystemUpTime0="System Up Time"
Count mtLog_CmpProcessor=1
mtLog_CmpProcessor0="Processor"
Count mtLog_CmpDisplayMode=1
mtLog_CmpDisplayMode0="Display Mode"
Count mtLog_CmpDisplayDPI=1
mtLog_CmpDisplayDPI0="Display DPI"
Count mtLog_CmpVideoCard=1
mtLog_CmpVideoCard0="Video Card"
Count mtLog_CmpPrinter=1
mtLog_CmpPrinter0="Printer"
Count mtLog_OSHeader=1
mtLog_OSHeader0="Operating System"
Count mtLog_OSType=1
mtLog_OSType0="Type"
Count mtLog_OSBuildN=1
mtLog_OSBuildN0="Build #"
Count mtLog_OSUpdate=1
mtLog_OSUpdate0="Update"
Count mtLog_OSLanguage=1
mtLog_OSLanguage0="Language"
Count mtLog_OSCharset=1
mtLog_OSCharset0="Charset"
Count mtLog_NetHeader=1
mtLog_NetHeader0="Network"
Count mtLog_NetIP=1
mtLog_NetIP0="IP Address"
Count mtLog_NetSubmask=1
mtLog_NetSubmask0="Submask"
Count mtLog_NetGateway=1
mtLog_NetGateway0="Gateway"
Count mtLog_NetDNS1=1
mtLog_NetDNS10="DNS 1"
Count mtLog_NetDNS2=1
mtLog_NetDNS20="DNS 2"
Count mtLog_NetDHCP=1
mtLog_NetDHCP0="DHCP"
Count mtLog_CustInfoHeader=1
mtLog_CustInfoHeader0="Custom Information"
Count mtCallStack_Address=1
mtCallStack_Address0="Address"
Count mtCallStack_Name=1
mtCallStack_Name0="Module"
Count mtCallStack_Unit=1
mtCallStack_Unit0="Unit"
Count mtCallStack_Class=1
mtCallStack_Class0="Class"
Count mtCallStack_Procedure=1
mtCallStack_Procedure0="Procedure/Method"
Count mtCallStack_Line=1
mtCallStack_Line0="Line"
Count mtCallStack_MainThread=1
mtCallStack_MainThread0="Main"
Count mtCallStack_ExceptionThread=1
mtCallStack_ExceptionThread0="Exception Thread"
Count mtCallStack_RunningThread=1
mtCallStack_RunningThread0="Running Thread"
Count mtCallStack_CallingThread=1
mtCallStack_CallingThread0="Calling Thread"
Count mtCallStack_ThreadID=1
mtCallStack_ThreadID0="ID"
Count mtCallStack_ThreadPriority=1
mtCallStack_ThreadPriority0="Priority"
Count mtCallStack_ThreadClass=1
mtCallStack_ThreadClass0="Class"
Count mtCallStack_LeakCaption=1
mtCallStack_LeakCaption0="Memory Leak"
Count mtCallStack_LeakData=1
mtCallStack_LeakData0="Data"
Count mtCallStack_LeakType=1
mtCallStack_LeakType0="Type"
Count mtCallStack_LeakSize=1
mtCallStack_LeakSize0="Total size"
Count mtCallStack_LeakCount=1
mtCallStack_LeakCount0="Count"
Count mtSendDialog_Caption=1
mtSendDialog_Caption0="Send."
Count mtSendDialog_Message=1
mtSendDialog_Message0="Message"
Count mtSendDialog_Resolving=1
mtSendDialog_Resolving0="Resolving DNS..."
Count mtSendDialog_Login=1
mtSendDialog_Login0="Login..."
Count mtSendDialog_Connecting=1
mtSendDialog_Connecting0="Connecting with server..."
Count mtSendDialog_Connected=1
mtSendDialog_Connected0="Connected with server."
Count mtSendDialog_Sending=1
mtSendDialog_Sending0="Sending message..."
Count mtSendDialog_Sent=1
mtSendDialog_Sent0="Message sent."
Count mtSendDialog_SelectProject=1
mtSendDialog_SelectProject0="Select project..."
Count mtSendDialog_Searching=1
mtSendDialog_Searching0="Searching..."
Count mtSendDialog_Modifying=1
mtSendDialog_Modifying0="Modifying..."
Count mtSendDialog_Disconnecting=1
mtSendDialog_Disconnecting0="Disconnecting..."
Count mtSendDialog_Disconnected=1
mtSendDialog_Disconnected0="Disconnected."
Count mtReproduceDialog_Caption=1
mtReproduceDialog_Caption0="Request"
Count mtReproduceDialog_Request=1
mtReproduceDialog_Request0="Please describe the steps to reproduce the error:"
Count mtReproduceDialog_OKButtonCaption=1
mtReproduceDialog_OKButtonCaption0="%26OK"
Count mtModules_Handle=1
mtModules_Handle0="Handle"
Count mtModules_Name=1
mtModules_Name0="Name"
Count mtModules_Description=1
mtModules_Description0="Description"
Count mtModules_Version=1
mtModules_Version0="Version"
Count mtModules_Size=1
mtModules_Size0="Size"
Count mtModules_LastModified=1
mtModules_LastModified0="Modified"
Count mtModules_Path=1
mtModules_Path0="Path"
Count mtProcesses_ID=1
mtProcesses_ID0="ID"
Count mtProcesses_Name=1
mtProcesses_Name0="Name"
Count mtProcesses_Description=1
mtProcesses_Description0="Description"
Count mtProcesses_Version=1
mtProcesses_Version0="Version"
Count mtProcesses_Memory=1
mtProcesses_Memory0="Memory"
Count mtProcesses_Priority=1
mtProcesses_Priority0="Priority"
Count mtProcesses_Threads=1
mtProcesses_Threads0="Threads"
Count mtProcesses_Path=1
mtProcesses_Path0="Path"
Count mtCPU_Registers=1
mtCPU_Registers0="Registers"
Count mtCPU_Stack=1
mtCPU_Stack0="Stack"
Count mtCPU_MemoryDump=1
mtCPU_MemoryDump0="Memory Dump"
Count mtSend_SuccessMsg=1
mtSend_SuccessMsg0="The message was sent successfully."
Count mtSend_FailureMsg=1
mtSend_FailureMsg0="Sorry, sending the message didn't work."
Count mtSend_BugClosedMsg=2
mtSend_BugClosedMsg0="These BUG is just closed."
mtSend_BugClosedMsg1="Contact the program support to obtain an update."
Count mtSend_UnknownErrorMsg=1
mtSend_UnknownErrorMsg0="Unknown error."
Count mtSend_InvalidLoginMsg=1
mtSend_InvalidLoginMsg0="Invalid login request."
Count mtSend_InvalidSearchMsg=1
mtSend_InvalidSearchMsg0="Invalid search request."
Count mtSend_InvalidSelectionMsg=1
mtSend_InvalidSelectionMsg0="Invalid selection request."
Count mtSend_InvalidInsertMsg=1
mtSend_InvalidInsertMsg0="Invalid insert request."
Count mtSend_InvalidModifyMsg=1
mtSend_InvalidModifyMsg0="Invalid modify request."
Count mtFileCrackedMsg=2
mtFileCrackedMsg0="This file is cracked."
mtFileCrackedMsg1="The application will be closed."
Count mtException_LeakMultiFree=1
mtException_LeakMultiFree0="Multi Free memory leak."
Count mtException_LeakMemoryOverrun=1
mtException_LeakMemoryOverrun0="Memory Overrun leak."
Count mtException_AntiFreeze=1
mtException_AntiFreeze0="The application seems to be frozen."
Count mtInvalidEmailMsg=1
mtInvalidEmailMsg0="Invalid email."
TextsCollection=English
EurekaLog Last Line -->

572
Database/udfs/udf_RtfToText.drc
View File

@ -8,222 +8,241 @@
resources were bound to the produced executable. resources were bound to the produced executable.
*/ */
#define Consts_SDockZoneHasNoCtl 65312 #define Consts_SDockZoneHasNoCtl 65296
#define Consts_SDockZoneVersionConflict 65313 #define Consts_SDockZoneVersionConflict 65297
#define Consts_SANSIEncoding 65314 #define Consts_SANSIEncoding 65298
#define Consts_SASCIIEncoding 65315 #define Consts_SASCIIEncoding 65299
#define Consts_SUnicodeEncoding 65316 #define Consts_SUnicodeEncoding 65300
#define Consts_SBigEndianEncoding 65317 #define Consts_SBigEndianEncoding 65301
#define Consts_SUTF8Encoding 65318 #define Consts_SUTF8Encoding 65302
#define Consts_SUTF7Encoding 65319 #define Consts_SUTF7Encoding 65303
#define Consts_SmkcEnd 65328 #define JConsts_sChangeJPGSize 65304
#define Consts_SmkcHome 65329 #define JConsts_sJPEGError 65305
#define Consts_SmkcLeft 65330 #define JConsts_sJPEGImageFile 65306
#define Consts_SmkcUp 65331 #define Consts_SmkcLeft 65312
#define Consts_SmkcRight 65332 #define Consts_SmkcUp 65313
#define Consts_SmkcDown 65333 #define Consts_SmkcRight 65314
#define Consts_SmkcIns 65334 #define Consts_SmkcDown 65315
#define Consts_SmkcDel 65335 #define Consts_SmkcIns 65316
#define Consts_SmkcShift 65336 #define Consts_SmkcDel 65317
#define Consts_SmkcCtrl 65337 #define Consts_SmkcShift 65318
#define Consts_SmkcAlt 65338 #define Consts_SmkcCtrl 65319
#define Consts_SIconToClipboard 65339 #define Consts_SmkcAlt 65320
#define Consts_SDuplicateMenus 65340 #define Consts_SInvalidClipFmt 65321
#define Consts_SDockedCtlNeedsName 65341 #define Consts_SIconToClipboard 65322
#define Consts_SDockTreeRemoveError 65342 #define Consts_SCannotOpenClipboard 65323
#define Consts_SDockZoneNotFound 65343 #define Consts_SDuplicateMenus 65324
#define Consts_SMsgDlgOK 65344 #define Consts_SDockedCtlNeedsName 65325
#define Consts_SMsgDlgCancel 65345 #define Consts_SDockTreeRemoveError 65326
#define Consts_SMsgDlgHelp 65346 #define Consts_SDockZoneNotFound 65327
#define Consts_SMsgDlgAbort 65347 #define Consts_SMsgDlgHelp 65328
#define Consts_SMsgDlgRetry 65348 #define Consts_SMsgDlgAbort 65329
#define Consts_SMsgDlgIgnore 65349 #define Consts_SMsgDlgRetry 65330
#define Consts_SMsgDlgAll 65350 #define Consts_SMsgDlgIgnore 65331
#define Consts_SMsgDlgNoToAll 65351 #define Consts_SMsgDlgAll 65332
#define Consts_SMsgDlgYesToAll 65352 #define Consts_SMsgDlgNoToAll 65333
#define Consts_SmkcBkSp 65353 #define Consts_SMsgDlgYesToAll 65334
#define Consts_SmkcTab 65354 #define Consts_SmkcBkSp 65335
#define Consts_SmkcEsc 65355 #define Consts_SmkcTab 65336
#define Consts_SmkcEnter 65356 #define Consts_SmkcEsc 65337
#define Consts_SmkcSpace 65357 #define Consts_SmkcEnter 65338
#define Consts_SmkcPgUp 65358 #define Consts_SmkcSpace 65339
#define Consts_SmkcPgDn 65359 #define Consts_SmkcPgUp 65340
#define Consts_SCancelButton 65360 #define Consts_SmkcPgDn 65341
#define Consts_SYesButton 65361 #define Consts_SmkcEnd 65342
#define Consts_SNoButton 65362 #define Consts_SmkcHome 65343
#define Consts_SHelpButton 65363 #define Consts_SRetryButton 65344
#define Consts_SCloseButton 65364 #define Consts_SAbortButton 65345
#define Consts_SIgnoreButton 65365 #define Consts_SAllButton 65346
#define Consts_SRetryButton 65366 #define Consts_SCannotDragForm 65347
#define Consts_SAbortButton 65367 #define Consts_SVMetafiles 65348
#define Consts_SAllButton 65368 #define Consts_SVEnhMetafiles 65349
#define Consts_SCannotDragForm 65369 #define Consts_SVIcons 65350
#define Consts_SMsgDlgWarning 65370 #define Consts_SVBitmaps 65351
#define Consts_SMsgDlgError 65371 #define Consts_SMsgDlgWarning 65352
#define Consts_SMsgDlgInformation 65372 #define Consts_SMsgDlgError 65353
#define Consts_SMsgDlgConfirm 65373 #define Consts_SMsgDlgInformation 65354
#define Consts_SMsgDlgYes 65374 #define Consts_SMsgDlgConfirm 65355
#define Consts_SMsgDlgNo 65375 #define Consts_SMsgDlgYes 65356
#define Consts_SImageWriteFail 65376 #define Consts_SMsgDlgNo 65357
#define Consts_SWindowDCError 65377 #define Consts_SMsgDlgOK 65358
#define Consts_SWindowClass 65378 #define Consts_SMsgDlgCancel 65359
#define Consts_SCannotFocus 65379 #define Consts_SVisibleChanged 65360
#define Consts_SParentRequired 65380 #define Consts_SCannotShowModal 65361
#define Consts_SMDIChildNotVisible 65381 #define Consts_SMenuIndexError 65362
#define Consts_SVisibleChanged 65382 #define Consts_SMenuReinserted 65363
#define Consts_SCannotShowModal 65383 #define Consts_SMenuNotFound 65364
#define Consts_SMenuIndexError 65384 #define Consts_SNoTimers 65365
#define Consts_SMenuReinserted 65385 #define Consts_SGroupIndexTooLow 65366
#define Consts_SMenuNotFound 65386 #define Consts_SNoMDIForm 65367
#define Consts_SNoTimers 65387 #define Consts_SControlParentSetToSelf 65368
#define Consts_SGroupIndexTooLow 65388 #define Consts_SOKButton 65369
#define Consts_SNoMDIForm 65389 #define Consts_SCancelButton 65370
#define Consts_SControlParentSetToSelf 65390 #define Consts_SYesButton 65371
#define Consts_SOKButton 65391 #define Consts_SNoButton 65372
#define RTLConsts_SWriteError 65392 #define Consts_SHelpButton 65373
#define HelpIntfs_hNoTableOfContents 65393 #define Consts_SCloseButton 65374
#define HelpIntfs_hNothingFound 65394 #define Consts_SIgnoreButton 65375
#define HelpIntfs_hNoContext 65395 #define Consts_SScanLine 65376
#define HelpIntfs_hNoContextFound 65396 #define Consts_SChangeIconSize 65377
#define HelpIntfs_hNoTopics 65397 #define Consts_SUnknownExtension 65378
#define Consts_SInvalidBitmap 65398 #define Consts_SUnknownClipboardFormat 65379
#define Consts_SInvalidIcon 65399 #define Consts_SOutOfResources 65380
#define Consts_SChangeIconSize 65400 #define Consts_SNoCanvasHandle 65381
#define Consts_SUnknownClipboardFormat 65401 #define Consts_SInvalidImageSize 65382
#define Consts_SOutOfResources 65402 #define Consts_SInvalidImageList 65383
#define Consts_SNoCanvasHandle 65403 #define Consts_SImageIndexError 65384
#define Consts_SInvalidImageSize 65404 #define Consts_SImageReadFail 65385
#define Consts_SInvalidImageList 65405 #define Consts_SImageWriteFail 65386
#define Consts_SImageIndexError 65406 #define Consts_SWindowDCError 65387
#define Consts_SImageReadFail 65407 #define Consts_SWindowClass 65388
#define RTLConsts_SInvalidPropertyPath 65408 #define Consts_SCannotFocus 65389
#define RTLConsts_SInvalidPropertyValue 65409 #define Consts_SParentRequired 65390
#define RTLConsts_SInvalidRegType 65410 #define Consts_SMDIChildNotVisible 65391
#define RTLConsts_SListCapacityError 65411 #define RTLConsts_SSeekNotImplemented 65392
#define RTLConsts_SListCountError 65412 #define RTLConsts_SSortedListError 65393
#define RTLConsts_SListIndexError 65413 #define RTLConsts_SUnknownGroup 65394
#define RTLConsts_SMemoryStreamError 65414 #define RTLConsts_SUnknownProperty 65395
#define RTLConsts_SPropertyException 65415 #define RTLConsts_SWriteError 65396
#define RTLConsts_SReadError 65416 #define RTLConsts_SThreadCreateError 65397
#define RTLConsts_SReadOnlyProperty 65417 #define RTLConsts_SThreadError 65398
#define RTLConsts_SRegGetDataFailed 65418 #define HelpIntfs_hNoTableOfContents 65399
#define RTLConsts_SResNotFound 65419 #define HelpIntfs_hNothingFound 65400
#define RTLConsts_SSeekNotImplemented 65420 #define HelpIntfs_hNoContext 65401
#define RTLConsts_SSortedListError 65421 #define HelpIntfs_hNoContextFound 65402
#define RTLConsts_SUnknownGroup 65422 #define HelpIntfs_hNoTopics 65403
#define RTLConsts_SUnknownProperty 65423 #define Consts_SInvalidBitmap 65404
#define ComConst_SNoCloseActiveServer1 65424 #define Consts_SInvalidIcon 65405
#define ComConst_SNoCloseActiveServer2 65425 #define Consts_SInvalidMetafile 65406
#define RTLConsts_SAncestorNotFound 65426 #define Consts_SInvalidPixelFormat 65407
#define RTLConsts_SAssignError 65427 #define RTLConsts_SFOpenErrorEx 65408
#define RTLConsts_SBitsIndexError 65428 #define RTLConsts_SInvalidImage 65409
#define RTLConsts_SCantWriteResourceStreamError 65429 #define RTLConsts_SInvalidName 65410
#define RTLConsts_SCheckSynchronizeError 65430 #define RTLConsts_SInvalidProperty 65411
#define RTLConsts_SClassNotFound 65431 #define RTLConsts_SInvalidPropertyPath 65412
#define RTLConsts_SDuplicateClass 65432 #define RTLConsts_SInvalidPropertyValue 65413
#define RTLConsts_SDuplicateItem 65433 #define RTLConsts_SInvalidRegType 65414
#define RTLConsts_SDuplicateName 65434 #define RTLConsts_SListCapacityError 65415
#define RTLConsts_SDuplicateString 65435 #define RTLConsts_SListCountError 65416
#define RTLConsts_SFCreateErrorEx 65436 #define RTLConsts_SListIndexError 65417
#define RTLConsts_SFOpenErrorEx 65437 #define RTLConsts_SMemoryStreamError 65418
#define RTLConsts_SInvalidImage 65438 #define RTLConsts_SPropertyException 65419
#define RTLConsts_SInvalidName 65439 #define RTLConsts_SReadError 65420
#define SysConst_SShortDayNameWed 65440 #define RTLConsts_SReadOnlyProperty 65421
#define SysConst_SShortDayNameThu 65441 #define RTLConsts_SRegGetDataFailed 65422
#define SysConst_SShortDayNameFri 65442 #define RTLConsts_SResNotFound 65423
#define SysConst_SShortDayNameSat 65443 #define ComConst_SVarNotObject 65424
#define SysConst_SLongDayNameSun 65444 #define ComConst_STooManyParams 65425
#define SysConst_SLongDayNameMon 65445 #define ComConst_SAutomationWarning 65426
#define SysConst_SLongDayNameTue 65446 #define ComConst_SNoCloseActiveServer1 65427
#define SysConst_SLongDayNameWed 65447 #define ComConst_SNoCloseActiveServer2 65428
#define SysConst_SLongDayNameThu 65448 #define RTLConsts_SAncestorNotFound 65429
#define SysConst_SLongDayNameFri 65449 #define RTLConsts_SAssignError 65430
#define SysConst_SLongDayNameSat 65450 #define RTLConsts_SBitsIndexError 65431
#define ComConst_SOleError 65451 #define RTLConsts_SCantWriteResourceStreamError 65432
#define ComConst_SNoMethod 65452 #define RTLConsts_SCheckSynchronizeError 65433
#define ComConst_SVarNotObject 65453 #define RTLConsts_SClassNotFound 65434
#define ComConst_STooManyParams 65454 #define RTLConsts_SDuplicateClass 65435
#define ComConst_SAutomationWarning 65455 #define RTLConsts_SDuplicateItem 65436
#define SysConst_SShortMonthNameDec 65456 #define RTLConsts_SDuplicateName 65437
#define SysConst_SLongMonthNameJan 65457 #define RTLConsts_SDuplicateString 65438
#define SysConst_SLongMonthNameFeb 65458 #define RTLConsts_SFCreateErrorEx 65439
#define SysConst_SLongMonthNameMar 65459 #define SysConst_SShortDayNameSun 65440
#define SysConst_SLongMonthNameApr 65460 #define SysConst_SShortDayNameMon 65441
#define SysConst_SLongMonthNameMay 65461 #define SysConst_SShortDayNameTue 65442
#define SysConst_SLongMonthNameJun 65462 #define SysConst_SShortDayNameWed 65443
#define SysConst_SLongMonthNameJul 65463 #define SysConst_SShortDayNameThu 65444
#define SysConst_SLongMonthNameAug 65464 #define SysConst_SShortDayNameFri 65445
#define SysConst_SLongMonthNameSep 65465 #define SysConst_SShortDayNameSat 65446
#define SysConst_SLongMonthNameOct 65466 #define SysConst_SLongDayNameSun 65447
#define SysConst_SLongMonthNameNov 65467 #define SysConst_SLongDayNameMon 65448
#define SysConst_SLongMonthNameDec 65468 #define SysConst_SLongDayNameTue 65449
#define SysConst_SShortDayNameSun 65469 #define SysConst_SLongDayNameWed 65450
#define SysConst_SShortDayNameMon 65470 #define SysConst_SLongDayNameThu 65451
#define SysConst_SShortDayNameTue 65471 #define SysConst_SLongDayNameFri 65452
#define SysConst_SAssertError 65472 #define SysConst_SLongDayNameSat 65453
#define SysConst_SAbstractError 65473 #define ComConst_SOleError 65454
#define SysConst_SModuleAccessViolation 65474 #define ComConst_SNoMethod 65455
#define SysConst_SOSError 65475 #define SysConst_SShortMonthNameSep 65456
#define SysConst_SUnkOSError 65476 #define SysConst_SShortMonthNameOct 65457
#define SysConst_SShortMonthNameJan 65477 #define SysConst_SShortMonthNameNov 65458
#define SysConst_SShortMonthNameFeb 65478 #define SysConst_SShortMonthNameDec 65459
#define SysConst_SShortMonthNameMar 65479 #define SysConst_SLongMonthNameJan 65460
#define SysConst_SShortMonthNameApr 65480 #define SysConst_SLongMonthNameFeb 65461
#define SysConst_SShortMonthNameMay 65481 #define SysConst_SLongMonthNameMar 65462
#define SysConst_SShortMonthNameJun 65482 #define SysConst_SLongMonthNameApr 65463
#define SysConst_SShortMonthNameJul 65483 #define SysConst_SLongMonthNameMay 65464
#define SysConst_SShortMonthNameAug 65484 #define SysConst_SLongMonthNameJun 65465
#define SysConst_SShortMonthNameSep 65485 #define SysConst_SLongMonthNameJul 65466
#define SysConst_SShortMonthNameOct 65486 #define SysConst_SLongMonthNameAug 65467
#define SysConst_SShortMonthNameNov 65487 #define SysConst_SLongMonthNameSep 65468
#define SysConst_SVarArrayBounds 65488 #define SysConst_SLongMonthNameOct 65469
#define SysConst_SVarArrayLocked 65489 #define SysConst_SLongMonthNameNov 65470
#define SysConst_SInvalidVarCast 65490 #define SysConst_SLongMonthNameDec 65471
#define SysConst_SInvalidVarOp 65491 #define SysConst_SAssertionFailed 65472
#define SysConst_SInvalidVarOpWithHResultWithPrefix 65492 #define SysConst_SIntfCastError 65473
#define SysConst_SVarTypeCouldNotConvert 65493 #define SysConst_SSafecallException 65474
#define SysConst_SVarTypeConvertOverflow 65494 #define SysConst_SAssertError 65475
#define SysConst_SVarOverflow 65495 #define SysConst_SAbstractError 65476
#define SysConst_SVarInvalid 65496 #define SysConst_SModuleAccessViolation 65477
#define SysConst_SVarBadType 65497 #define SysConst_SOSError 65478
#define SysConst_SVarNotImplemented 65498 #define SysConst_SUnkOSError 65479
#define SysConst_SVarUnexpected 65499 #define SysConst_SShortMonthNameJan 65480
#define SysConst_SExternalException 65500 #define SysConst_SShortMonthNameFeb 65481
#define SysConst_SAssertionFailed 65501 #define SysConst_SShortMonthNameMar 65482
#define SysConst_SIntfCastError 65502 #define SysConst_SShortMonthNameApr 65483
#define SysConst_SSafecallException 65503 #define SysConst_SShortMonthNameMay 65484
#define SysConst_SUnderflow 65504 #define SysConst_SShortMonthNameJun 65485
#define SysConst_SInvalidPointer 65505 #define SysConst_SShortMonthNameJul 65486
#define SysConst_SInvalidCast 65506 #define SysConst_SShortMonthNameAug 65487
#define SysConst_SAccessViolationArg3 65507 #define SysConst_SWriteAccess 65488
#define SysConst_SAccessViolationNoArg 65508 #define SysConst_SVarArrayCreate 65489
#define SysConst_SStackOverflow 65509 #define SysConst_SVarArrayBounds 65490
#define SysConst_SControlC 65510 #define SysConst_SVarArrayLocked 65491
#define SysConst_SPrivilege 65511 #define SysConst_SInvalidVarCast 65492
#define SysConst_SException 65512 #define SysConst_SInvalidVarOp 65493
#define SysConst_SExceptTitle 65513 #define SysConst_SInvalidVarNullOp 65494
#define SysConst_SInvalidFormat 65514 #define SysConst_SInvalidVarOpWithHResultWithPrefix 65495
#define SysConst_SArgumentMissing 65515 #define SysConst_SVarTypeCouldNotConvert 65496
#define SysConst_SDispatchError 65516 #define SysConst_SVarTypeConvertOverflow 65497
#define SysConst_SReadAccess 65517 #define SysConst_SVarOverflow 65498
#define SysConst_SWriteAccess 65518 #define SysConst_SVarInvalid 65499
#define SysConst_SVarArrayCreate 65519 #define SysConst_SVarBadType 65500
#define SysConst_SVarNotImplemented 65501
#define SysConst_SVarUnexpected 65502
#define SysConst_SExternalException 65503
#define SysConst_SOverflow 65504
#define SysConst_SUnderflow 65505
#define SysConst_SInvalidPointer 65506
#define SysConst_SInvalidCast 65507
#define SysConst_SAccessViolationArg3 65508
#define SysConst_SAccessViolationNoArg 65509
#define SysConst_SStackOverflow 65510
#define SysConst_SControlC 65511
#define SysConst_SPrivilege 65512
#define SysConst_SOperationAborted 65513
#define SysConst_SException 65514
#define SysConst_SExceptTitle 65515
#define SysConst_SInvalidFormat 65516
#define SysConst_SArgumentMissing 65517
#define SysConst_SDispatchError 65518
#define SysConst_SReadAccess 65519
#define SysConst_SInvalidInteger 65520 #define SysConst_SInvalidInteger 65520
#define SysConst_SOutOfMemory 65521 #define SysConst_SInvalidFloat 65521
#define SysConst_SInOutError 65522 #define SysConst_SOutOfMemory 65522
#define SysConst_SFileNotFound 65523 #define SysConst_SInOutError 65523
#define SysConst_SInvalidFilename 65524 #define SysConst_SFileNotFound 65524
#define SysConst_STooManyOpenFiles 65525 #define SysConst_SInvalidFilename 65525
#define SysConst_SAccessDenied 65526 #define SysConst_STooManyOpenFiles 65526
#define SysConst_SEndOfFile 65527 #define SysConst_SAccessDenied 65527
#define SysConst_SDiskFull 65528 #define SysConst_SEndOfFile 65528
#define SysConst_SInvalidInput 65529 #define SysConst_SDiskFull 65529
#define SysConst_SDivByZero 65530 #define SysConst_SInvalidInput 65530
#define SysConst_SRangeError 65531 #define SysConst_SDivByZero 65531
#define SysConst_SIntOverflow 65532 #define SysConst_SRangeError 65532
#define SysConst_SInvalidOp 65533 #define SysConst_SIntOverflow 65533
#define SysConst_SZeroDivide 65534 #define SysConst_SInvalidOp 65534
#define SysConst_SOverflow 65535 #define SysConst_SZeroDivide 65535
STRINGTABLE STRINGTABLE
BEGIN BEGIN
Consts_SDockZoneHasNoCtl, " - Dock zone has no control" Consts_SDockZoneHasNoCtl, " - Dock zone has no control"
@ -234,8 +253,9 @@ BEGIN
Consts_SBigEndianEncoding, "Big Endian Unicode" Consts_SBigEndianEncoding, "Big Endian Unicode"
Consts_SUTF8Encoding, "UTF-8" Consts_SUTF8Encoding, "UTF-8"
Consts_SUTF7Encoding, "UTF-7" Consts_SUTF7Encoding, "UTF-7"
Consts_SmkcEnd, "End" JConsts_sChangeJPGSize, "Cannot change the size of a JPEG image"
Consts_SmkcHome, "Home" JConsts_sJPEGError, "JPEG error #%d"
JConsts_sJPEGImageFile, "JPEG Image File"
Consts_SmkcLeft, "Left" Consts_SmkcLeft, "Left"
Consts_SmkcUp, "Up" Consts_SmkcUp, "Up"
Consts_SmkcRight, "Right" Consts_SmkcRight, "Right"
@ -245,13 +265,13 @@ BEGIN
Consts_SmkcShift, "Shift+" Consts_SmkcShift, "Shift+"
Consts_SmkcCtrl, "Ctrl+" Consts_SmkcCtrl, "Ctrl+"
Consts_SmkcAlt, "Alt+" Consts_SmkcAlt, "Alt+"
Consts_SInvalidClipFmt, "Invalid clipboard format"
Consts_SIconToClipboard, "Clipboard does not support Icons" Consts_SIconToClipboard, "Clipboard does not support Icons"
Consts_SCannotOpenClipboard, "Cannot open clipboard"
Consts_SDuplicateMenus, "Menu '%s' is already being used by another form" Consts_SDuplicateMenus, "Menu '%s' is already being used by another form"
Consts_SDockedCtlNeedsName, "Docked control must have a name" Consts_SDockedCtlNeedsName, "Docked control must have a name"
Consts_SDockTreeRemoveError, "Error removing control from dock tree" Consts_SDockTreeRemoveError, "Error removing control from dock tree"
Consts_SDockZoneNotFound, " - Dock zone not found" Consts_SDockZoneNotFound, " - Dock zone not found"
Consts_SMsgDlgOK, "OK"
Consts_SMsgDlgCancel, "Cancel"
Consts_SMsgDlgHelp, "&Help" Consts_SMsgDlgHelp, "&Help"
Consts_SMsgDlgAbort, "&Abort" Consts_SMsgDlgAbort, "&Abort"
Consts_SMsgDlgRetry, "&Retry" Consts_SMsgDlgRetry, "&Retry"
@ -266,28 +286,24 @@ BEGIN
Consts_SmkcSpace, "Space" Consts_SmkcSpace, "Space"
Consts_SmkcPgUp, "PgUp" Consts_SmkcPgUp, "PgUp"
Consts_SmkcPgDn, "PgDn" Consts_SmkcPgDn, "PgDn"
Consts_SCancelButton, "Cancel" Consts_SmkcEnd, "End"
Consts_SYesButton, "&Yes" Consts_SmkcHome, "Home"
Consts_SNoButton, "&No"
Consts_SHelpButton, "&Help"
Consts_SCloseButton, "&Close"
Consts_SIgnoreButton, "&Ignore"
Consts_SRetryButton, "&Retry" Consts_SRetryButton, "&Retry"
Consts_SAbortButton, "Abort" Consts_SAbortButton, "Abort"
Consts_SAllButton, "&All" Consts_SAllButton, "&All"
Consts_SCannotDragForm, "Cannot drag a form" Consts_SCannotDragForm, "Cannot drag a form"
Consts_SVMetafiles, "Metafiles"
Consts_SVEnhMetafiles, "Enhanced Metafiles"
Consts_SVIcons, "Icons"
Consts_SVBitmaps, "Bitmaps"
Consts_SMsgDlgWarning, "Warning" Consts_SMsgDlgWarning, "Warning"
Consts_SMsgDlgError, "Error" Consts_SMsgDlgError, "Error"
Consts_SMsgDlgInformation, "Information" Consts_SMsgDlgInformation, "Information"
Consts_SMsgDlgConfirm, "Confirm" Consts_SMsgDlgConfirm, "Confirm"
Consts_SMsgDlgYes, "&Yes" Consts_SMsgDlgYes, "&Yes"
Consts_SMsgDlgNo, "&No" Consts_SMsgDlgNo, "&No"
Consts_SImageWriteFail, "Failed to write ImageList data to stream" Consts_SMsgDlgOK, "OK"
Consts_SWindowDCError, "Error creating window device context" Consts_SMsgDlgCancel, "Cancel"
Consts_SWindowClass, "Error creating window class"
Consts_SCannotFocus, "Cannot focus a disabled or invisible window"
Consts_SParentRequired, "Control '%s' has no parent window"
Consts_SMDIChildNotVisible, "Cannot hide an MDI Child Form"
Consts_SVisibleChanged, "Cannot change Visible in OnShow or OnHide" Consts_SVisibleChanged, "Cannot change Visible in OnShow or OnHide"
Consts_SCannotShowModal, "Cannot make a visible window modal" Consts_SCannotShowModal, "Cannot make a visible window modal"
Consts_SMenuIndexError, "Menu index out of range" Consts_SMenuIndexError, "Menu index out of range"
@ -298,15 +314,15 @@ BEGIN
Consts_SNoMDIForm, "Cannot create form. No MDI forms are currently active" Consts_SNoMDIForm, "Cannot create form. No MDI forms are currently active"
Consts_SControlParentSetToSelf, "A control cannot have itself as its parent" Consts_SControlParentSetToSelf, "A control cannot have itself as its parent"
Consts_SOKButton, "OK" Consts_SOKButton, "OK"
RTLConsts_SWriteError, "Stream write error" Consts_SCancelButton, "Cancel"
HelpIntfs_hNoTableOfContents, "Unable to find a Table of Contents" Consts_SYesButton, "&Yes"
HelpIntfs_hNothingFound, "No help found for %s" Consts_SNoButton, "&No"
HelpIntfs_hNoContext, "No context-sensitive help installed" Consts_SHelpButton, "&Help"
HelpIntfs_hNoContextFound, "No help found for context" Consts_SCloseButton, "&Close"
HelpIntfs_hNoTopics, "No topic-based help system installed" Consts_SIgnoreButton, "&Ignore"
Consts_SInvalidBitmap, "Bitmap image is not valid" Consts_SScanLine, "Scan line index out of range"
Consts_SInvalidIcon, "Icon image is not valid"
Consts_SChangeIconSize, "Cannot change the size of an icon" Consts_SChangeIconSize, "Cannot change the size of an icon"
Consts_SUnknownExtension, "Unknown picture file extension (.%s)"
Consts_SUnknownClipboardFormat, "Unsupported clipboard format" Consts_SUnknownClipboardFormat, "Unsupported clipboard format"
Consts_SOutOfResources, "Out of system resources" Consts_SOutOfResources, "Out of system resources"
Consts_SNoCanvasHandle, "Canvas does not allow drawing" Consts_SNoCanvasHandle, "Canvas does not allow drawing"
@ -314,6 +330,32 @@ BEGIN
Consts_SInvalidImageList, "Invalid ImageList" Consts_SInvalidImageList, "Invalid ImageList"
Consts_SImageIndexError, "Invalid ImageList Index" Consts_SImageIndexError, "Invalid ImageList Index"
Consts_SImageReadFail, "Failed to read ImageList data from stream" Consts_SImageReadFail, "Failed to read ImageList data from stream"
Consts_SImageWriteFail, "Failed to write ImageList data to stream"
Consts_SWindowDCError, "Error creating window device context"
Consts_SWindowClass, "Error creating window class"
Consts_SCannotFocus, "Cannot focus a disabled or invisible window"
Consts_SParentRequired, "Control '%s' has no parent window"
Consts_SMDIChildNotVisible, "Cannot hide an MDI Child Form"
RTLConsts_SSeekNotImplemented, "%s.Seek not implemented"
RTLConsts_SSortedListError, "Operation not allowed on sorted list"
RTLConsts_SUnknownGroup, "%s not in a class registration group"
RTLConsts_SUnknownProperty, "Property %s does not exist"
RTLConsts_SWriteError, "Stream write error"
RTLConsts_SThreadCreateError, "Thread creation error: %s"
RTLConsts_SThreadError, "Thread Error: %s (%d)"
HelpIntfs_hNoTableOfContents, "Unable to find a Table of Contents"
HelpIntfs_hNothingFound, "No help found for %s"
HelpIntfs_hNoContext, "No context-sensitive help installed"
HelpIntfs_hNoContextFound, "No help found for context"
HelpIntfs_hNoTopics, "No topic-based help system installed"
Consts_SInvalidBitmap, "Bitmap image is not valid"
Consts_SInvalidIcon, "Icon image is not valid"
Consts_SInvalidMetafile, "Metafile is not valid"
Consts_SInvalidPixelFormat, "Invalid pixel format"
RTLConsts_SFOpenErrorEx, "Cannot open file \"%s\". %s"
RTLConsts_SInvalidImage, "Invalid stream format"
RTLConsts_SInvalidName, "''%s'' is not a valid component name"
RTLConsts_SInvalidProperty, "Invalid property value"
RTLConsts_SInvalidPropertyPath, "Invalid property path" RTLConsts_SInvalidPropertyPath, "Invalid property path"
RTLConsts_SInvalidPropertyValue, "Invalid property value" RTLConsts_SInvalidPropertyValue, "Invalid property value"
RTLConsts_SInvalidRegType, "Invalid data type for '%s'" RTLConsts_SInvalidRegType, "Invalid data type for '%s'"
@ -326,10 +368,9 @@ BEGIN
RTLConsts_SReadOnlyProperty, "Property is read-only" RTLConsts_SReadOnlyProperty, "Property is read-only"
RTLConsts_SRegGetDataFailed, "Failed to get data for '%s'" RTLConsts_SRegGetDataFailed, "Failed to get data for '%s'"
RTLConsts_SResNotFound, "Resource %s not found" RTLConsts_SResNotFound, "Resource %s not found"
RTLConsts_SSeekNotImplemented, "%s.Seek not implemented" ComConst_SVarNotObject, "Variant does not reference an automation object"
RTLConsts_SSortedListError, "Operation not allowed on sorted list" ComConst_STooManyParams, "Dispatch methods do not support more than 64 parameters"
RTLConsts_SUnknownGroup, "%s not in a class registration group" ComConst_SAutomationWarning, "COM Server Warning"
RTLConsts_SUnknownProperty, "Property %s does not exist"
ComConst_SNoCloseActiveServer1, "There are still active COM objects in this application. One or more clients may have references to these objects, so manually closing " ComConst_SNoCloseActiveServer1, "There are still active COM objects in this application. One or more clients may have references to these objects, so manually closing "
ComConst_SNoCloseActiveServer2, "this application may cause those client application(s) to fail.\r\n\r\nAre you sure you want to close this application?" ComConst_SNoCloseActiveServer2, "this application may cause those client application(s) to fail.\r\n\r\nAre you sure you want to close this application?"
RTLConsts_SAncestorNotFound, "Ancestor for '%s' not found" RTLConsts_SAncestorNotFound, "Ancestor for '%s' not found"
@ -343,9 +384,9 @@ BEGIN
RTLConsts_SDuplicateName, "A component named %s already exists" RTLConsts_SDuplicateName, "A component named %s already exists"
RTLConsts_SDuplicateString, "String list does not allow duplicates" RTLConsts_SDuplicateString, "String list does not allow duplicates"
RTLConsts_SFCreateErrorEx, "Cannot create file \"%s\". %s" RTLConsts_SFCreateErrorEx, "Cannot create file \"%s\". %s"
RTLConsts_SFOpenErrorEx, "Cannot open file \"%s\". %s" SysConst_SShortDayNameSun, "Sun"
RTLConsts_SInvalidImage, "Invalid stream format" SysConst_SShortDayNameMon, "Mon"
RTLConsts_SInvalidName, "''%s'' is not a valid component name" SysConst_SShortDayNameTue, "Tue"
SysConst_SShortDayNameWed, "Wed" SysConst_SShortDayNameWed, "Wed"
SysConst_SShortDayNameThu, "Thu" SysConst_SShortDayNameThu, "Thu"
SysConst_SShortDayNameFri, "Fri" SysConst_SShortDayNameFri, "Fri"
@ -359,9 +400,9 @@ BEGIN
SysConst_SLongDayNameSat, "Saturday" SysConst_SLongDayNameSat, "Saturday"
ComConst_SOleError, "OLE error %.8x" ComConst_SOleError, "OLE error %.8x"
ComConst_SNoMethod, "Method '%s' not supported by automation object" ComConst_SNoMethod, "Method '%s' not supported by automation object"
ComConst_SVarNotObject, "Variant does not reference an automation object" SysConst_SShortMonthNameSep, "Sep"
ComConst_STooManyParams, "Dispatch methods do not support more than 64 parameters" SysConst_SShortMonthNameOct, "Oct"
ComConst_SAutomationWarning, "COM Server Warning" SysConst_SShortMonthNameNov, "Nov"
SysConst_SShortMonthNameDec, "Dec" SysConst_SShortMonthNameDec, "Dec"
SysConst_SLongMonthNameJan, "January" SysConst_SLongMonthNameJan, "January"
SysConst_SLongMonthNameFeb, "February" SysConst_SLongMonthNameFeb, "February"
@ -375,9 +416,9 @@ BEGIN
SysConst_SLongMonthNameOct, "October" SysConst_SLongMonthNameOct, "October"
SysConst_SLongMonthNameNov, "November" SysConst_SLongMonthNameNov, "November"
SysConst_SLongMonthNameDec, "December" SysConst_SLongMonthNameDec, "December"
SysConst_SShortDayNameSun, "Sun" SysConst_SAssertionFailed, "Assertion failed"
SysConst_SShortDayNameMon, "Mon" SysConst_SIntfCastError, "Interface not supported"
SysConst_SShortDayNameTue, "Tue" SysConst_SSafecallException, "Exception in safecall method"
SysConst_SAssertError, "%s (%s, line %d)" SysConst_SAssertError, "%s (%s, line %d)"
SysConst_SAbstractError, "Abstract Error" SysConst_SAbstractError, "Abstract Error"
SysConst_SModuleAccessViolation, "Access violation at address %p in module '%s'. %s of address %p" SysConst_SModuleAccessViolation, "Access violation at address %p in module '%s'. %s of address %p"
@ -391,13 +432,13 @@ BEGIN
SysConst_SShortMonthNameJun, "Jun" SysConst_SShortMonthNameJun, "Jun"
SysConst_SShortMonthNameJul, "Jul" SysConst_SShortMonthNameJul, "Jul"
SysConst_SShortMonthNameAug, "Aug" SysConst_SShortMonthNameAug, "Aug"
SysConst_SShortMonthNameSep, "Sep" SysConst_SWriteAccess, "Write"
SysConst_SShortMonthNameOct, "Oct" SysConst_SVarArrayCreate, "Error creating variant or safe array"
SysConst_SShortMonthNameNov, "Nov"
SysConst_SVarArrayBounds, "Variant or safe array index out of bounds" SysConst_SVarArrayBounds, "Variant or safe array index out of bounds"
SysConst_SVarArrayLocked, "Variant or safe array is locked" SysConst_SVarArrayLocked, "Variant or safe array is locked"
SysConst_SInvalidVarCast, "Invalid variant type conversion" SysConst_SInvalidVarCast, "Invalid variant type conversion"
SysConst_SInvalidVarOp, "Invalid variant operation" SysConst_SInvalidVarOp, "Invalid variant operation"
SysConst_SInvalidVarNullOp, "Invalid NULL variant operation"
SysConst_SInvalidVarOpWithHResultWithPrefix, "Invalid variant operation (%s%.8x)\n%s" SysConst_SInvalidVarOpWithHResultWithPrefix, "Invalid variant operation (%s%.8x)\n%s"
SysConst_SVarTypeCouldNotConvert, "Could not convert variant of type (%s) into type (%s)" SysConst_SVarTypeCouldNotConvert, "Could not convert variant of type (%s) into type (%s)"
SysConst_SVarTypeConvertOverflow, "Overflow while converting variant of type (%s) into type (%s)" SysConst_SVarTypeConvertOverflow, "Overflow while converting variant of type (%s) into type (%s)"
@ -407,9 +448,7 @@ BEGIN
SysConst_SVarNotImplemented, "Operation not supported" SysConst_SVarNotImplemented, "Operation not supported"
SysConst_SVarUnexpected, "Unexpected variant error" SysConst_SVarUnexpected, "Unexpected variant error"
SysConst_SExternalException, "External exception %x" SysConst_SExternalException, "External exception %x"
SysConst_SAssertionFailed, "Assertion failed" SysConst_SOverflow, "Floating point overflow"
SysConst_SIntfCastError, "Interface not supported"
SysConst_SSafecallException, "Exception in safecall method"
SysConst_SUnderflow, "Floating point underflow" SysConst_SUnderflow, "Floating point underflow"
SysConst_SInvalidPointer, "Invalid pointer operation" SysConst_SInvalidPointer, "Invalid pointer operation"
SysConst_SInvalidCast, "Invalid class typecast" SysConst_SInvalidCast, "Invalid class typecast"
@ -418,15 +457,15 @@ BEGIN
SysConst_SStackOverflow, "Stack overflow" SysConst_SStackOverflow, "Stack overflow"
SysConst_SControlC, "Control-C hit" SysConst_SControlC, "Control-C hit"
SysConst_SPrivilege, "Privileged instruction" SysConst_SPrivilege, "Privileged instruction"
SysConst_SOperationAborted, "Operation aborted"
SysConst_SException, "Exception %s in module %s at %p.\r\n%s%s\r\n" SysConst_SException, "Exception %s in module %s at %p.\r\n%s%s\r\n"
SysConst_SExceptTitle, "Application Error" SysConst_SExceptTitle, "Application Error"
SysConst_SInvalidFormat, "Format '%s' invalid or incompatible with argument" SysConst_SInvalidFormat, "Format '%s' invalid or incompatible with argument"
SysConst_SArgumentMissing, "No argument for format '%s'" SysConst_SArgumentMissing, "No argument for format '%s'"
SysConst_SDispatchError, "Variant method calls not supported" SysConst_SDispatchError, "Variant method calls not supported"
SysConst_SReadAccess, "Read" SysConst_SReadAccess, "Read"
SysConst_SWriteAccess, "Write"
SysConst_SVarArrayCreate, "Error creating variant or safe array"
SysConst_SInvalidInteger, "'%s' is not a valid integer value" SysConst_SInvalidInteger, "'%s' is not a valid integer value"
SysConst_SInvalidFloat, "'%s' is not a valid floating point value"
SysConst_SOutOfMemory, "Out of memory" SysConst_SOutOfMemory, "Out of memory"
SysConst_SInOutError, "I/O error %d" SysConst_SInOutError, "I/O error %d"
SysConst_SFileNotFound, "File not found" SysConst_SFileNotFound, "File not found"
@ -441,11 +480,12 @@ BEGIN
SysConst_SIntOverflow, "Integer overflow" SysConst_SIntOverflow, "Integer overflow"
SysConst_SInvalidOp, "Invalid floating point operation" SysConst_SInvalidOp, "Invalid floating point operation"
SysConst_SZeroDivide, "Floating point division by zero" SysConst_SZeroDivide, "Floating point division by zero"
SysConst_SOverflow, "Floating point overflow"
END END
/* c:\archivos de programa\codegear\rad studio\5.0\lib\Controls.res */ /* c:\archivos de programa\codegear\rad studio\5.0\Lib\Controls.res */
/* c:\archivos de programa\codegear\rad studio\5.0\lib\Buttons.res */ /* c:\archivos de programa\codegear\rad studio\5.0\Lib\Buttons.res */
/* c:\archivos de programa\codegear\rad studio\5.0\lib\ExtDlgs.res */ /* c:\archivos de programa\codegear\rad studio\5.0\Lib\ExtDlgs.res */
/* C:\Codigo Tecsitel\Database\udfs\udf_RtfToText.RES */ /* C:\TRichView\Units\D2007\RVTable.res */
/* C:\Codigo Tecsitel\Database\udfs\udf_RtfToText.drf */ /* C:\TRichView\Units\D2007\RVStyle.RES */
/* C:\Codigo Acana\Database\udfs\udf_RtfToText.RES */
/* C:\Codigo Acana\Database\udfs\udf_RtfToText.drf */

100
Source/Base/Base.dproj
View File

@ -54,57 +54,57 @@
<DelphiCompile Include="Base.dpk"> <DelphiCompile Include="Base.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\Modulos\Remesas de cliente\adortl.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\cxDataD11.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\cxEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\cxExportD11.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\cxExtEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\cxGridD11.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\cxLibraryD11.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\cxPageControlD11.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\dclIndyCore.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\designide.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\dsnap.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\dxCoreD11.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\dxGDIPlusD11.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\dxPSCoreD11.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\dxThemeD11.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\GUISDK_D11R.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\IndyCore.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\IndyProtocols.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\IndySystem.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\Jcl.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\JclVcl.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\JSDialog100.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\JvCmpD11R.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\JvCoreD11R.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\JvDlgsD11R.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\JvMMD11R.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\JvNetD11R.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\JvPageCompsD11R.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\JvStdCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\JvSystemD11R.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\pckMD5.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\pckUCDataConnector.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\pckUserControl_RT.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\PngComponentsD10.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\PNG_D10.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\RemObjects_Indy_D11.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\rtl.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\SpTBXLib_d11.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\tb2k_d11.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\vcl.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\vclactnband.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\vcldb.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\vcljpg.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\VclSmp.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\vclx.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\xmlrtl.dcp" />
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" /> <DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
<DCCReference Include="..\Servidor\adortl.dcp" />
<DCCReference Include="..\Servidor\cxDataD11.dcp" />
<DCCReference Include="..\Servidor\cxEditorsD11.dcp" />
<DCCReference Include="..\Servidor\cxExportD11.dcp" />
<DCCReference Include="..\Servidor\cxExtEditorsD11.dcp" />
<DCCReference Include="..\Servidor\cxGridD11.dcp" />
<DCCReference Include="..\Servidor\cxLibraryD11.dcp" />
<DCCReference Include="..\Servidor\cxPageControlD11.dcp" />
<DCCReference Include="..\Servidor\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\Servidor\dbrtl.dcp" />
<DCCReference Include="..\Servidor\dclIndyCore.dcp" />
<DCCReference Include="..\Servidor\designide.dcp" />
<DCCReference Include="..\Servidor\dsnap.dcp" />
<DCCReference Include="..\Servidor\dxCoreD11.dcp" />
<DCCReference Include="..\Servidor\dxGDIPlusD11.dcp" />
<DCCReference Include="..\Servidor\dxPSCoreD11.dcp" />
<DCCReference Include="..\Servidor\dxThemeD11.dcp" />
<DCCReference Include="..\Servidor\GUISDK_D11R.dcp" />
<DCCReference Include="..\Servidor\IndyCore.dcp" />
<DCCReference Include="..\Servidor\IndyProtocols.dcp" />
<DCCReference Include="..\Servidor\IndySystem.dcp" />
<DCCReference Include="..\Servidor\Jcl.dcp" />
<DCCReference Include="..\Servidor\JclVcl.dcp" />
<DCCReference Include="..\Servidor\JSDialog100.dcp" />
<DCCReference Include="..\Servidor\JvCmpD11R.dcp" />
<DCCReference Include="..\Servidor\JvCoreD11R.dcp" />
<DCCReference Include="..\Servidor\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Servidor\JvDlgsD11R.dcp" />
<DCCReference Include="..\Servidor\JvMMD11R.dcp" />
<DCCReference Include="..\Servidor\JvNetD11R.dcp" />
<DCCReference Include="..\Servidor\JvPageCompsD11R.dcp" />
<DCCReference Include="..\Servidor\JvStdCtrlsD11R.dcp" />
<DCCReference Include="..\Servidor\JvSystemD11R.dcp" />
<DCCReference Include="..\Servidor\pckMD5.dcp" />
<DCCReference Include="..\Servidor\pckUCDataConnector.dcp" />
<DCCReference Include="..\Servidor\pckUserControl_RT.dcp" />
<DCCReference Include="..\Servidor\PngComponentsD10.dcp" />
<DCCReference Include="..\Servidor\PNG_D10.dcp" />
<DCCReference Include="..\Servidor\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\Servidor\RemObjects_Indy_D11.dcp" />
<DCCReference Include="..\Servidor\rtl.dcp" />
<DCCReference Include="..\Servidor\SpTBXLib_d11.dcp" />
<DCCReference Include="..\Servidor\tb2k_d11.dcp" />
<DCCReference Include="..\Servidor\vcl.dcp" />
<DCCReference Include="..\Servidor\vclactnband.dcp" />
<DCCReference Include="..\Servidor\vcldb.dcp" />
<DCCReference Include="..\Servidor\vcljpg.dcp" />
<DCCReference Include="..\Servidor\VclSmp.dcp" />
<DCCReference Include="..\Servidor\vclx.dcp" />
<DCCReference Include="..\Servidor\xmlrtl.dcp" />
<DCCReference Include="Conexion\uConfigurarConexion.pas"> <DCCReference Include="Conexion\uConfigurarConexion.pas">
<Form>fConfigurarConexion</Form> <Form>fConfigurarConexion</Form>
<DesignClass>TForm</DesignClass> <DesignClass>TForm</DesignClass>

BIN
Source/Base/Base.res
View File

Binary file not shown.

11
Source/Informes/InfEtiquetasAlbaranCliente.fr3
View File

@ -1,9 +1,14 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<TfrxReport Version="4.8.11" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="39065,8724234954" ReportOptions.Description.Text="" ReportOptions.LastChange="40205,741024838" ScriptLanguage="PascalScript" ScriptText.Text="begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403910003546F70021008446174617365747301010C3400000020446174615365743D22667278444243616265636572612220446174615365744E616D653D2266727844424361626563657261220000095661726961626C65730100055374796C650100"> <TfrxReport Version="4.8.11" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="39065,8724234954" ReportOptions.Description.Text="" ReportOptions.LastChange="40206,5876994676" ScriptLanguage="PascalScript" ScriptText.Text="begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403910003546F70021008446174617365747301010C3400000020446174615365743D22667278444243616265636572612220446174615365744E616D653D2266727844424361626563657261220000095661726961626C657301010C10000000204E616D653D2220496E666F726D652200010C11000000204E616D653D224D657263616E6369612200010C0E000000204E616D653D2242756C746F73220000055374796C650100">
<TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/> <TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/>
<TfrxReportPage Name="Page1" PaperWidth="210" PaperHeight="297" PaperSize="9" LeftMargin="10" RightMargin="10" TopMargin="10" BottomMargin="10" ColumnWidth="0" ColumnPositions.Text="" HGuides.Text="" VGuides.Text=""> <TfrxReportPage Name="Page1" PaperWidth="210" PaperHeight="297" PaperSize="9" LeftMargin="10" RightMargin="10" TopMargin="10" BottomMargin="10" ColumnWidth="0" ColumnPositions.Text="" HGuides.Text="" VGuides.Text="">
<TfrxMasterData Name="MasterData1" Height="186" Left="0" Top="16" Width="718,1107" ColumnWidth="0" ColumnGap="0" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" RowCount="0"> <TfrxMasterData Name="MasterData1" Height="277" Left="0" Top="16" Width="718,1107" ColumnWidth="0" ColumnGap="0" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" RowCount="0">
<TfrxMemoView Name="Memo31" Left="59" Top="21" Width="223,21274" Height="122,89765" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="1" ParentFont="False" Text="[frxDBCabecera.&#34;POBLACION&#34;]&#13;&#10;[frxDBCabecera.&#34;NOMBRE&#34;]&#13;&#10;[frxDBCabecera.&#34;CALLE&#34;]&#13;&#10;[frxDBCabecera.&#34;CODIGO_POSTAL&#34;] [frxDBCabecera.&#34;POBLACION&#34;] ([frxDBCabecera.&#34;PROVINCIA&#34;])&#13;&#10;[frxDBCabecera.&#34;REFERENCIA&#34;]"/> <TfrxMemoView Name="Memo1" Left="176" Top="44" Width="427" Height="16" ShowHint="False" Text="[frxDBCabecera.&#34;POBLACION&#34;]"/>
<TfrxMemoView Name="Memo2" Left="176" Top="101" Width="427" Height="16" ShowHint="False" Text="[frxDBCabecera.&#34;NOMBRE&#34;]"/>
<TfrxMemoView Name="Memo3" Left="176" Top="136" Width="427" Height="16" ShowHint="False" Text="[frxDBCabecera.&#34;CALLE&#34;]"/>
<TfrxMemoView Name="Memo4" Left="176" Top="170" Width="427" Height="16" ShowHint="False" Text="[frxDBCabecera.&#34;CODIGO_POSTAL&#34;] [frxDBCabecera.&#34;POBLACION&#34;] ([frxDBCabecera.&#34;PROVINCIA&#34;])"/>
<TfrxMemoView Name="Memo5" Left="176" Top="216" Width="427" Height="16" ShowHint="False" Text=""/>
<TfrxMemoView Name="Memo6" Left="176" Top="247" Width="427" Height="16" ShowHint="False" DisplayFormat.FormatStr="%g" DisplayFormat.Kind="fkNumeric" Text="[Bultos]"/>
</TfrxMasterData> </TfrxMasterData>
</TfrxReportPage> </TfrxReportPage>
</TfrxReport> </TfrxReport>

BIN
Source/Modulos/Albaranes de cliente/Controller/AlbaranesCliente_controller.dpk
View File

Binary file not shown.

12
Source/Modulos/Albaranes de cliente/Controller/AlbaranesCliente_controller.dproj
View File

@ -1,4 +1,5 @@
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003"> <?xml version="1.0" encoding="utf-8"?>
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup> <PropertyGroup>
<ProjectGuid>{7ed85635-c723-4c0b-bf1d-f719e0ea33ad}</ProjectGuid> <ProjectGuid>{7ed85635-c723-4c0b-bf1d-f719e0ea33ad}</ProjectGuid>
<MainSource>AlbaranesCliente_controller.dpk</MainSource> <MainSource>AlbaranesCliente_controller.dpk</MainSource>
@ -48,19 +49,20 @@
<DelphiCompile Include="AlbaranesCliente_controller.dpk"> <DelphiCompile Include="AlbaranesCliente_controller.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\AlbaranesCliente_data.dcp" />
<DCCReference Include="..\AlbaranesCliente_model.dcp" />
<DCCReference Include="..\Articulos_controller.dcp" />
<DCCReference Include="..\Contactos_controller.dcp" />
<DCCReference Include="uAlbaranesClienteController.pas" /> <DCCReference Include="uAlbaranesClienteController.pas" />
<DCCReference Include="uAlbaranesClienteReportController.pas" /> <DCCReference Include="uAlbaranesClienteReportController.pas" />
<DCCReference Include="uArticulosAlbaranClienteController.pas" /> <DCCReference Include="uArticulosAlbaranClienteController.pas" />
<DCCReference Include="uDetallesAlbaranClienteController.pas" /> <DCCReference Include="uDetallesAlbaranClienteController.pas" />
<DCCReference Include="View\AlbaranesCliente_data.dcp" />
<DCCReference Include="View\AlbaranesCliente_model.dcp" />
<DCCReference Include="View\Articulos_controller.dcp" />
<DCCReference Include="View\Contactos_controller.dcp" />
<DCCReference Include="View\uIEditorAlbaranCliente.pas" /> <DCCReference Include="View\uIEditorAlbaranCliente.pas" />
<DCCReference Include="View\uIEditorAlbaranDevCliente.pas" /> <DCCReference Include="View\uIEditorAlbaranDevCliente.pas" />
<DCCReference Include="View\uIEditorAlbaranesCliente.pas" /> <DCCReference Include="View\uIEditorAlbaranesCliente.pas" />
<DCCReference Include="View\uIEditorAlbaranesClientePreview.pas" /> <DCCReference Include="View\uIEditorAlbaranesClientePreview.pas" />
<DCCReference Include="View\uIEditorAlbaranesDevCliente.pas" /> <DCCReference Include="View\uIEditorAlbaranesDevCliente.pas" />
<DCCReference Include="View\uIEditorDetalleEtiqueta.pas" />
<DCCReference Include="View\uIEditorDireccionEntregaAlbaranCliente.pas" /> <DCCReference Include="View\uIEditorDireccionEntregaAlbaranCliente.pas" />
<DCCReference Include="View\uIEditorElegirAlbaranesCliente.pas" /> <DCCReference Include="View\uIEditorElegirAlbaranesCliente.pas" />
<DCCReference Include="View\uIEditorElegirArticulosAlbaranesCliente.pas" /> <DCCReference Include="View\uIEditorElegirArticulosAlbaranesCliente.pas" />

22
Source/Modulos/Albaranes de cliente/Controller/View/uIEditorDetalleEtiqueta.pas Normal file
View File

@ -0,0 +1,22 @@
unit uIEditorDetalleEtiqueta;
interface
uses
uEditorBasico;
type
IEditorDetalleEtiqueta = interface(IEditorBasico)
['{FE668BD0-A722-402A-9E3C-190968014D19}']
function GetMercancia: String;
procedure SetMercancia(const Value: String);
property Mercancia: String Read GetMercancia write SetMercancia;
function GetBultos: Integer;
procedure SetBultos(const Value: Integer);
property Bultos: Integer Read GetBultos write SetBultos;
end;
implementation
end.

107
Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteReportController.pas
View File

@ -39,9 +39,9 @@ type
implementation implementation
uses uses
uROTypes, uEditorRegistryUtils, uIEditorAlbaranesClientePreview, uROTypes, Controls, uEditorRegistryUtils, uIEditorAlbaranesClientePreview,
uEditorPreview, uDataModuleAlbaranesCliente, uEditorBase, cxControls, uIEditorDetalleEtiqueta, uEditorPreview, uDataModuleAlbaranesCliente,
uStringsUtils, uSistemaFunc, uFactuGES_App; uEditorBase, cxControls, uStringsUtils, uSistemaFunc, uFactuGES_App;
{ TAlbaranesClienteReportController } { TAlbaranesClienteReportController }
@ -67,28 +67,47 @@ end;
procedure TAlbaranesClienteReportController.EtiquetasPreview(const AListaID: TIntegerList); procedure TAlbaranesClienteReportController.EtiquetasPreview(const AListaID: TIntegerList);
var var
AStream: Binary; AStream: Binary;
AEditorDetalle : IEditorDetalleEtiqueta;
AEditor : IEditorAlbaranesClientePreview; AEditor : IEditorAlbaranesClientePreview;
Mercancia: String;
Bultos: Integer;
bAceptar: Boolean;
begin begin
AEditor := NIL; AEditorDetalle := Nil;
AEditor := Nil;
ShowHourglassCursor; CreateEditor('EditorDetalleEtiqueta', IEditorDetalleEtiqueta, AEditorDetalle);
try if Assigned(AEditorDetalle) then
AStream := FDataModule.GetEtiquetas(AListaID);
try try
CreateEditor('EditorAlbaranesClientePreview', IEditorAlbaranesClientePreview, AEditor); bAceptar := (AEditorDetalle.ShowModal = mrOk);
if Assigned(AEditor) then Mercancia := AEditorDetalle.Mercancia;
try Bultos := AEditorDetalle.Bultos;
AEditor.LoadFromStream(AStream);
AEditor.Preview;
finally
AEditor.Release;
end;
finally finally
FreeAndNil(AStream); AEditorDetalle.Release;
AEditor := Nil; AEditorDetalle := NIL;
end;
if bAceptar then
begin
ShowHourglassCursor;
try
AStream := FDataModule.GetEtiquetas(AListaID, Mercancia, Bultos);
try
CreateEditor('EditorAlbaranesClientePreview', IEditorAlbaranesClientePreview, AEditor);
if Assigned(AEditor) then
try
AEditor.LoadFromStream(AStream);
AEditor.Preview;
finally
AEditor.Release;
end;
finally
FreeAndNil(AStream);
AEditor := Nil;
end;
finally
HideHourglassCursor;
end; end;
finally
HideHourglassCursor;
end; end;
end; end;
@ -96,27 +115,47 @@ procedure TAlbaranesClienteReportController.EtiquetasPrint(const AListaID: TInte
var var
AStream: Binary; AStream: Binary;
AEditor : IEditorAlbaranesClientePreview; AEditor : IEditorAlbaranesClientePreview;
AEditorDetalle : IEditorDetalleEtiqueta;
Mercancia: String;
Bultos: Integer;
bAceptar: Boolean;
begin begin
AEditorDetalle := Nil;
AEditor := NIL; AEditor := NIL;
ShowHourglassCursor; CreateEditor('EditorDetalleEtiqueta', IEditorDetalleEtiqueta, AEditorDetalle);
try if Assigned(AEditorDetalle) then
AStream := FDataModule.GetEtiquetas(AListaID);
try try
CreateEditor('EditorAlbaranesClientePreview', IEditorAlbaranesClientePreview, AEditor); bAceptar := (AEditorDetalle.ShowModal = mrOk);
if Assigned(AEditor) then Mercancia := AEditorDetalle.Mercancia;
try Bultos := AEditorDetalle.Bultos;
AEditor.LoadFromStream(AStream);
AEditor.Print;
finally
AEditor.Release;
end;
finally finally
FreeAndNil(AStream); AEditorDetalle.Release;
AEditor := Nil; AEditorDetalle := NIL;
end;
if bAceptar then
begin
ShowHourglassCursor;
try
AStream := FDataModule.GetEtiquetas(AListaID, Mercancia, Bultos);
try
CreateEditor('EditorAlbaranesClientePreview', IEditorAlbaranesClientePreview, AEditor);
if Assigned(AEditor) then
try
AEditor.LoadFromStream(AStream);
AEditor.Print;
finally
AEditor.Release;
end;
finally
FreeAndNil(AStream);
AEditor := Nil;
end;
finally
HideHourglassCursor;
end; end;
finally
HideHourglassCursor;
end; end;
end; end;

8
Source/Modulos/Albaranes de cliente/Data/uDataModuleAlbaranesCliente.pas
View File

@ -41,7 +41,7 @@ type
// Report // Report
function GetRptAlbaranes(const ListaID: TIntegerList): Binary; function GetRptAlbaranes(const ListaID: TIntegerList): Binary;
function GetRptWordAlbaran(const AID: Integer): Binary; function GetRptWordAlbaran(const AID: Integer): Binary;
function GetEtiquetas(const ListaID: TIntegerList): Binary; function GetEtiquetas(const ListaID: TIntegerList; const Mercancia: String; const Bultos: Integer): Binary;
function GetRptPDFAlbaran(const AID: Integer): Binary; function GetRptPDFAlbaran(const AID: Integer): Binary;
function GetAnosItems : TStringList; function GetAnosItems : TStringList;
@ -90,7 +90,7 @@ begin
AParam.Add(AID); AParam.Add(AID);
Result := (RORemoteService as IsrvAlbaranesCliente).GenerarInforme(AParam); Result := (RORemoteService as IsrvAlbaranesCliente).GenerarInforme(AParam);
finally finally
FreeAndNil(AParam); // FreeAndNil(AParam);
end; end;
end; end;
@ -165,13 +165,13 @@ begin
end; end;
end; end;
function TDataModuleAlbaranesCliente.GetEtiquetas(const ListaID: TIntegerList): Binary; function TDataModuleAlbaranesCliente.GetEtiquetas(const ListaID: TIntegerList; const Mercancia: String; const Bultos: Integer): Binary;
var var
AParam : TIntegerArray; AParam : TIntegerArray;
begin begin
AParam := ListaID.ToIntegerArray; AParam := ListaID.ToIntegerArray;
try try
Result := (RORemoteService as IsrvAlbaranesCliente).GenerarInformeEtiquetas(AParam) Result := (RORemoteService as IsrvAlbaranesCliente).GenerarInformeEtiquetas(AParam, Mercancia, Bultos)
finally finally
// FreeAndNil(AParam); // FreeAndNil(AParam);
end; end;

2
Source/Modulos/Albaranes de cliente/Model/Data/uIDataModuleAlbaranesClienteReport.pas
View File

@ -11,7 +11,7 @@ type
function GetRptAlbaranes(const AListaID: TIntegerList): Binary; function GetRptAlbaranes(const AListaID: TIntegerList): Binary;
function GetRptWordAlbaran(const AID: Integer): Binary; function GetRptWordAlbaran(const AID: Integer): Binary;
function GetRptPDFAlbaran(const AID: Integer): Binary; function GetRptPDFAlbaran(const AID: Integer): Binary;
function GetEtiquetas(const ListaID: TIntegerList): Binary; function GetEtiquetas(const ListaID: TIntegerList; const Mercancia: String; const Bultos: Integer): Binary;
end; end;
implementation implementation

9
Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.pas
View File

@ -69,7 +69,7 @@ type
procedure _GenerarAlbaran(const AID: Integer); procedure _GenerarAlbaran(const AID: Integer);
public public
function GenerarAlbaran(const AListaID : TIntegerArray): Binary; function GenerarAlbaran(const AListaID : TIntegerArray): Binary;
function GenerarEtiquetas(const AListaID : TIntegerArray): Binary; function GenerarEtiquetas(const AListaID : TIntegerArray; const AMercancia: Variant; const ABultos: Integer): Binary;
function GenerarAlbaranEnPDF(const ListaID : TIntegerArray): Binary; function GenerarAlbaranEnPDF(const ListaID : TIntegerArray): Binary;
end; end;
@ -170,11 +170,11 @@ begin
end; end;
end; end;
function TRptAlbaranesCliente.GenerarEtiquetas(const AListaID : TIntegerArray): Binary; function TRptAlbaranesCliente.GenerarEtiquetas(const AListaID : TIntegerArray; const AMercancia: Variant; const ABultos: Integer): Binary;
var var
i: Integer; i: Integer;
AInforme: Variant; AInforme: Variant;
begin begin
Result := Binary.Create; Result := Binary.Create;
try try
@ -192,6 +192,9 @@ begin
raise Exception.Create (('Error Servidor: GenerarEtiquetas, no encuentra informe ' + rptInfEtiquetas)); raise Exception.Create (('Error Servidor: GenerarEtiquetas, no encuentra informe ' + rptInfEtiquetas));
frxReport.LoadFromFile(AInforme, True); frxReport.LoadFromFile(AInforme, True);
frxReport.Variables.Variables['Mercancia'] := VarToStr(AMercancia);
frxReport.Variables.Variables['Bultos'] := ABultos;
frxReport.PrepareReport(False); frxReport.PrepareReport(False);
finally finally
FConnection.RollbackTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO" FConnection.RollbackTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO"

6
Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.pas
View File

@ -34,7 +34,7 @@ type
protected protected
{ IsrvAlbaranesCliente methods } { IsrvAlbaranesCliente methods }
function GenerarInforme(const ListaID: TIntegerArray): Binary; function GenerarInforme(const ListaID: TIntegerArray): Binary;
function GenerarInformeEtiquetas(const ListaID : TIntegerArray): Binary; function GenerarInformeEtiquetas(const ListaID: TIntegerArray; const AMercancia: Variant; const ABultos: Integer): Binary;
function GenerarInformeEnWord(const ID: Integer): Binary; function GenerarInformeEnWord(const ID: Integer): Binary;
function GenerarInformeEnPDF(const ListaID: TIntegerArray): Binary; function GenerarInformeEnPDF(const ListaID: TIntegerArray): Binary;
end; end;
@ -92,13 +92,13 @@ begin
end; end;
end; end;
function TsrvAlbaranesCliente.GenerarInformeEtiquetas(const ListaID : TIntegerArray): Binary; function TsrvAlbaranesCliente.GenerarInformeEtiquetas(const ListaID : TIntegerArray; const AMercancia: Variant; const ABultos: Integer): Binary;
var var
AReportGenerator : TRptAlbaranesCliente; AReportGenerator : TRptAlbaranesCliente;
begin begin
AReportGenerator := TRptAlbaranesCliente.Create(nil); AReportGenerator := TRptAlbaranesCliente.Create(nil);
try try
Result := AReportGenerator.GenerarEtiquetas(ListaID); Result := AReportGenerator.GenerarEtiquetas(ListaID, AMercancia, ABultos);
finally finally
FreeAndNIL(AReportGenerator); FreeAndNIL(AReportGenerator);
end; end;

3
Source/Modulos/Albaranes de cliente/Views/AlbaranesCliente_view.dpk
View File

@ -69,6 +69,7 @@ contains
uEditorAlbaranDevCliente in 'uEditorAlbaranDevCliente.pas' {fEditorAlbaranDevCliente: TCustomEditor}, uEditorAlbaranDevCliente in 'uEditorAlbaranDevCliente.pas' {fEditorAlbaranDevCliente: TCustomEditor},
uViewAlbaranDevCliente in 'uViewAlbaranDevCliente.pas' {frViewAlbaranDevCliente: TCustomView}, uViewAlbaranDevCliente in 'uViewAlbaranDevCliente.pas' {frViewAlbaranDevCliente: TCustomView},
uViewDatosYSeleccionClienteAlbaran in 'uViewDatosYSeleccionClienteAlbaran.pas' {frViewDatosYSeleccionClienteAlbaran: TCustomView}, uViewDatosYSeleccionClienteAlbaran in 'uViewDatosYSeleccionClienteAlbaran.pas' {frViewDatosYSeleccionClienteAlbaran: TCustomView},
uViewTotalesAlbaran in 'uViewTotalesAlbaran.pas' {frViewTotalesAlbaran: TCustomView}; uViewTotalesAlbaran in 'uViewTotalesAlbaran.pas' {frViewTotalesAlbaran: TCustomView},
uEditorDetalleEtiqueta in 'uEditorDetalleEtiqueta.pas' {fEditorDetalleEtiqueta: TCustomEditor};
end. end.

4
Source/Modulos/Albaranes de cliente/Views/AlbaranesCliente_view.dproj
View File

@ -97,6 +97,10 @@
<Form>fEditorAlbaranesDevCliente</Form> <Form>fEditorAlbaranesDevCliente</Form>
<DesignClass>TCustomEditor</DesignClass> <DesignClass>TCustomEditor</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="uEditorDetalleEtiqueta.pas">
<Form>fEditorAlbaranDevCliente</Form>
<DesignClass>TCustomEditor</DesignClass>
</DCCReference>
<DCCReference Include="uEditorElegirAlbaranesCliente.pas"> <DCCReference Include="uEditorElegirAlbaranesCliente.pas">
<Form>fEditorElegirAlbaranesCliente</Form> <Form>fEditorElegirAlbaranesCliente</Form>
<DesignClass>TfEditorElegirAlbaranesCliente</DesignClass> <DesignClass>TfEditorElegirAlbaranesCliente</DesignClass>

4
Source/Modulos/Albaranes de cliente/Views/uAlbaranesClienteViewRegister.pas
View File

@ -8,12 +8,13 @@ procedure UnregisterViews;
implementation implementation
uses uses
uEditorRegistryUtils, uEditorAlbaranesCliente, uEditorAlbaranCliente, uEditorRegistryUtils, uEditorAlbaranesCliente, uEditorAlbaranCliente, uEditorDetalleEtiqueta,
uEditorElegirArticulosAlbaranCliente, uEditorAlbaranesClienteReport, uEditorElegirArticulosAlbaranCliente, uEditorAlbaranesClienteReport,
uEditorElegirAlbaranesCliente, uEditorAlbaranesDevCliente, uEditorAlbaranDevCliente; uEditorElegirAlbaranesCliente, uEditorAlbaranesDevCliente, uEditorAlbaranDevCliente;
procedure RegisterViews; procedure RegisterViews;
begin begin
EditorRegistry.RegisterClass(TfEditorDetalleEtiqueta, 'EditorDetalleEtiqueta');
EditorRegistry.RegisterClass(TfEditorAlbaranesCliente, 'EditorAlbaranesCliente'); EditorRegistry.RegisterClass(TfEditorAlbaranesCliente, 'EditorAlbaranesCliente');
EditorRegistry.RegisterClass(TfEditorAlbaranCliente, 'EditorAlbaranCliente'); EditorRegistry.RegisterClass(TfEditorAlbaranCliente, 'EditorAlbaranCliente');
EditorRegistry.RegisterClass(TfEditorAlbaranesDevCliente, 'EditorAlbaranesDevCliente'); EditorRegistry.RegisterClass(TfEditorAlbaranesDevCliente, 'EditorAlbaranesDevCliente');
@ -25,6 +26,7 @@ end;
procedure UnregisterViews; procedure UnregisterViews;
begin begin
EditorRegistry.UnRegisterClass(TfEditorDetalleEtiqueta);
EditorRegistry.UnRegisterClass(TfEditorAlbaranesCliente); EditorRegistry.UnRegisterClass(TfEditorAlbaranesCliente);
EditorRegistry.UnRegisterClass(TfEditorAlbaranCliente); EditorRegistry.UnRegisterClass(TfEditorAlbaranCliente);
EditorRegistry.UnRegisterClass(TfEditorAlbaranesDevCliente); EditorRegistry.UnRegisterClass(TfEditorAlbaranesDevCliente);

79
Source/Modulos/Albaranes de cliente/Views/uEditorDetalleEtiqueta.dfm Normal file
View File

@ -0,0 +1,79 @@
object fEditorDetalleEtiqueta: TfEditorDetalleEtiqueta
Left = 0
Top = 0
BorderStyle = bsDialog
Caption = 'Detalle etiqueta'
ClientHeight = 184
ClientWidth = 291
Color = clWindow
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
OldCreateOrder = False
Position = poScreenCenter
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object Label1: TLabel
Left = 21
Top = 16
Width = 118
Height = 13
Caption = 'Introduzca la mercanc'#237'a:'
end
object Label2: TLabel
Left = 21
Top = 72
Width = 153
Height = 13
Caption = 'Introduzca el n'#250'mero de bultos:'
end
object Panel1: TPanel
Left = 0
Top = 143
Width = 291
Height = 41
Align = alBottom
TabOrder = 0
DesignSize = (
291
41)
object bAceptar: TButton
Left = 127
Top = 8
Width = 75
Height = 25
Anchors = [akTop, akRight]
Caption = 'Aceptar'
ModalResult = 1
TabOrder = 0
end
object bCancelar: TButton
Left = 208
Top = 8
Width = 75
Height = 25
Anchors = [akTop, akRight]
Caption = 'Cancelar'
ModalResult = 2
TabOrder = 1
end
end
object eMercancia: TcxTextEdit
Left = 21
Top = 37
Properties.OnEditValueChanged = eMercanciaPropertiesEditValueChanged
TabOrder = 1
Width = 262
end
object eBultos: TcxSpinEdit
Left = 21
Top = 91
Properties.OnEditValueChanged = eBultosPropertiesEditValueChanged
TabOrder = 2
Value = 1
Width = 121
end
end

77
Source/Modulos/Albaranes de cliente/Views/uEditorDetalleEtiqueta.pas Normal file
View File

@ -0,0 +1,77 @@
unit uEditorDetalleEtiqueta;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, cxControls, cxContainer, cxEdit, cxTextEdit, cxMaskEdit,
cxDropDownEdit, cxCalendar, ExtCtrls, uEditorBasico, uIEditorDetalleEtiqueta,
cxGraphics, cxLookAndFeels, cxLookAndFeelPainters, cxSpinEdit;
type
TfEditorDetalleEtiqueta = class(TfEditorBasico, IEditorDetalleEtiqueta)
Label1: TLabel;
bAceptar: TButton;
bCancelar: TButton;
Panel1: TPanel;
eMercancia: TcxTextEdit;
Label2: TLabel;
eBultos: TcxSpinEdit;
procedure eMercanciaPropertiesEditValueChanged(Sender: TObject);
procedure eBultosPropertiesEditValueChanged(Sender: TObject);
procedure FormShow(Sender: TObject);
private
FMercancia : String;
FBultos : Integer;
function GetMercancia: String;
procedure SetMercancia(const Value: String);
function GetBultos: Integer;
procedure SetBultos(const Value: Integer);
public
property Mercancia: String Read GetMercancia write SetMercancia;
property Bultos: Integer Read GetBultos write SetBultos;
end;
implementation
{$R *.dfm}
procedure TfEditorDetalleEtiqueta.eBultosPropertiesEditValueChanged(Sender: TObject);
begin
Bultos := eBultos.EditValue;
end;
procedure TfEditorDetalleEtiqueta.eMercanciaPropertiesEditValueChanged(Sender: TObject);
begin
Mercancia := eMercancia.EditValue;
end;
procedure TfEditorDetalleEtiqueta.FormShow(Sender: TObject);
begin
FBultos := 1;
FMercancia := '';
end;
function TfEditorDetalleEtiqueta.GetBultos: Integer;
begin
Result := FBultos;
end;
function TfEditorDetalleEtiqueta.GetMercancia: String;
begin
Result := FMercancia;
end;
procedure TfEditorDetalleEtiqueta.SetBultos(const Value: Integer);
begin
FBultos := Value;
end;
procedure TfEditorDetalleEtiqueta.SetMercancia(const Value: String);
begin
FMercancia := Value;
end;
end.

8
Source/Modulos/Albaranes de proveedor/Data/uDataModuleAlbaranesProveedor.dfm
View File

@ -14,12 +14,12 @@ inherited DataModuleAlbaranesProveedor: TDataModuleAlbaranesProveedor
Top = 92 Top = 92
end end
object rda_AlbaranesProveedor: TDARemoteDataAdapter object rda_AlbaranesProveedor: TDARemoteDataAdapter
DataStreamer = Bin2DataStreamer
GetSchemaCall.RemoteService = RORemoteService GetSchemaCall.RemoteService = RORemoteService
GetDataCall.RemoteService = RORemoteService GetDataCall.RemoteService = RORemoteService
UpdateDataCall.RemoteService = RORemoteService UpdateDataCall.RemoteService = RORemoteService
GetScriptsCall.RemoteService = RORemoteService GetScriptsCall.RemoteService = RORemoteService
RemoteService = RORemoteService RemoteService = RORemoteService
DataStreamer = Bin2DataStreamer
Left = 51 Left = 51
Top = 151 Top = 151
end end
@ -300,8 +300,6 @@ inherited DataModuleAlbaranesProveedor: TDataModuleAlbaranesProveedor
Params = <> Params = <>
StreamingOptions = [soDisableEventsWhileStreaming] StreamingOptions = [soDisableEventsWhileStreaming]
RemoteDataAdapter = rda_AlbaranesProveedor RemoteDataAdapter = rda_AlbaranesProveedor
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'AlbaranesProveedor' LogicalName = 'AlbaranesProveedor'
IndexDefs = <> IndexDefs = <>
Left = 168 Left = 168
@ -426,8 +424,6 @@ inherited DataModuleAlbaranesProveedor: TDataModuleAlbaranesProveedor
MasterSource = ds_AlbaranesProveedor MasterSource = ds_AlbaranesProveedor
MasterFields = 'ID' MasterFields = 'ID'
DetailFields = 'ID_ALBARAN' DetailFields = 'ID_ALBARAN'
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'AlbaranesProveedor_Detalles' LogicalName = 'AlbaranesProveedor_Detalles'
IndexDefs = <> IndexDefs = <>
Left = 328 Left = 328
@ -450,8 +446,6 @@ inherited DataModuleAlbaranesProveedor: TDataModuleAlbaranesProveedor
Params = <> Params = <>
StreamingOptions = [soDisableEventsWhileStreaming] StreamingOptions = [soDisableEventsWhileStreaming]
RemoteDataAdapter = rda_AlbaranesProveedor RemoteDataAdapter = rda_AlbaranesProveedor
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'ListaAnosAlbaranes' LogicalName = 'ListaAnosAlbaranes'
IndexDefs = <> IndexDefs = <>
Left = 168 Left = 168

4
Source/Modulos/Albaranes de proveedor/Data/uDataModuleAlbaranesProveedor.pas
View File

@ -73,7 +73,7 @@ begin
try try
Result := (RORemoteService as IsrvAlbaranesProveedor).GenerarInforme(AParam); Result := (RORemoteService as IsrvAlbaranesProveedor).GenerarInforme(AParam);
finally finally
FreeANDNil(AParam); //FreeANDNil(AParam);
end; end;
end; end;
@ -87,7 +87,7 @@ begin
AParam.Add(AID); AParam.Add(AID);
Result := (RORemoteService as IsrvAlbaranesProveedor).GenerarInformeEnPDF(AParam); Result := (RORemoteService as IsrvAlbaranesProveedor).GenerarInformeEnPDF(AParam);
finally finally
FreeANDNil(AParam); //FreeANDNil(AParam);
end; end;
end; end;

2
Source/Modulos/Contactos/Data/uDataModuleContactos.pas
View File

@ -69,7 +69,7 @@ begin
try try
Result := (RORemoteService as IsrvContactos).GenerarInformeEtiquetas(AParam); Result := (RORemoteService as IsrvContactos).GenerarInformeEtiquetas(AParam);
finally finally
FreeANDNIL(AParam); // FreeANDNIL(AParam);
end; end;
end; end;

2
Source/Modulos/Contactos/Data/uDataModuleEmpleados.pas
View File

@ -113,7 +113,7 @@ begin
try try
Result := (RORemoteService as IsrvContactos).GenerarInformeFichaEmpleado(AParam) Result := (RORemoteService as IsrvContactos).GenerarInformeFichaEmpleado(AParam)
finally finally
FreeANDNil(AParam); // FreeANDNil(AParam);
end; end;
end; end;

2
Source/Modulos/Facturas de cliente/Data/uDataModuleFacturasCliente.pas
View File

@ -60,7 +60,7 @@ begin
try try
Result := (RORemoteService as IsrvFacturasCliente).GenerarInforme(AParam, Marca); Result := (RORemoteService as IsrvFacturasCliente).GenerarInforme(AParam, Marca);
finally finally
FreeANDNIL(AParam); // FreeANDNIL(AParam);
end; end;
end; end;

10
Source/Modulos/Pedidos a proveedor/Data/uDataModulePedidosProveedor.dfm
View File

@ -14,12 +14,12 @@ inherited DataModulePedidosProveedor: TDataModulePedidosProveedor
Top = 84 Top = 84
end end
object rda_PedidosProveedor: TDARemoteDataAdapter object rda_PedidosProveedor: TDARemoteDataAdapter
DataStreamer = Bin2DataStreamer
GetSchemaCall.RemoteService = RORemoteService GetSchemaCall.RemoteService = RORemoteService
GetDataCall.RemoteService = RORemoteService GetDataCall.RemoteService = RORemoteService
UpdateDataCall.RemoteService = RORemoteService UpdateDataCall.RemoteService = RORemoteService
GetScriptsCall.RemoteService = RORemoteService GetScriptsCall.RemoteService = RORemoteService
RemoteService = RORemoteService RemoteService = RORemoteService
DataStreamer = Bin2DataStreamer
Left = 43 Left = 43
Top = 151 Top = 151
end end
@ -306,8 +306,6 @@ inherited DataModulePedidosProveedor: TDataModulePedidosProveedor
Params = <> Params = <>
StreamingOptions = [soDisableEventsWhileStreaming] StreamingOptions = [soDisableEventsWhileStreaming]
RemoteDataAdapter = rda_PedidosProveedor RemoteDataAdapter = rda_PedidosProveedor
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'PedidosProveedor' LogicalName = 'PedidosProveedor'
IndexDefs = <> IndexDefs = <>
Left = 160 Left = 160
@ -367,8 +365,6 @@ inherited DataModulePedidosProveedor: TDataModulePedidosProveedor
end> end>
StreamingOptions = [soDisableEventsWhileStreaming] StreamingOptions = [soDisableEventsWhileStreaming]
RemoteDataAdapter = rda_PedidosProveedor RemoteDataAdapter = rda_PedidosProveedor
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'PedidosProveedor_Articulos_Pendientes' LogicalName = 'PedidosProveedor_Articulos_Pendientes'
IndexDefs = <> IndexDefs = <>
Left = 480 Left = 480
@ -495,8 +491,6 @@ inherited DataModulePedidosProveedor: TDataModulePedidosProveedor
MasterSource = ds_PedidosProveedor MasterSource = ds_PedidosProveedor
MasterFields = 'ID' MasterFields = 'ID'
DetailFields = 'ID_PEDIDO' DetailFields = 'ID_PEDIDO'
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'PedidosProveedor_Detalles' LogicalName = 'PedidosProveedor_Detalles'
IndexDefs = <> IndexDefs = <>
Left = 296 Left = 296
@ -519,8 +513,6 @@ inherited DataModulePedidosProveedor: TDataModulePedidosProveedor
Params = <> Params = <>
StreamingOptions = [soDisableEventsWhileStreaming] StreamingOptions = [soDisableEventsWhileStreaming]
RemoteDataAdapter = rda_PedidosProveedor RemoteDataAdapter = rda_PedidosProveedor
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'ListaAnosPedidos' LogicalName = 'ListaAnosPedidos'
IndexDefs = <> IndexDefs = <>
Left = 168 Left = 168

4
Source/Modulos/Pedidos a proveedor/Data/uDataModulePedidosProveedor.pas
View File

@ -87,7 +87,7 @@ begin
Result := (RORemoteService as IsrvPedidosProveedor).GenerarInforme(AParam, Result := (RORemoteService as IsrvPedidosProveedor).GenerarInforme(AParam,
ImprimirPrecio, ImprimirRefProveedor); ImprimirPrecio, ImprimirRefProveedor);
finally finally
FreeANDNil(AParam); // FreeANDNil(AParam);
end; end;
end; end;
@ -103,7 +103,7 @@ begin
Result := (RORemoteService as IsrvPedidosProveedor).GenerarInformeEnPDF(AParam, Result := (RORemoteService as IsrvPedidosProveedor).GenerarInformeEnPDF(AParam,
ImprimirPrecio, ImprimirRefProveedor); ImprimirPrecio, ImprimirRefProveedor);
finally finally
FreeANDNil(AParam); // FreeANDNil(AParam);
end; end;
end; end;

8
Source/Modulos/Presupuestos de cliente/Data/uDataModulePresupuestosCliente.dfm
View File

@ -14,12 +14,12 @@ inherited DataModulePresupuestosCliente: TDataModulePresupuestosCliente
Top = 84 Top = 84
end end
object rda_PresupuestosCliente: TDARemoteDataAdapter object rda_PresupuestosCliente: TDARemoteDataAdapter
DataStreamer = Bin2DataStreamer
GetSchemaCall.RemoteService = RORemoteService GetSchemaCall.RemoteService = RORemoteService
GetDataCall.RemoteService = RORemoteService GetDataCall.RemoteService = RORemoteService
UpdateDataCall.RemoteService = RORemoteService UpdateDataCall.RemoteService = RORemoteService
GetScriptsCall.RemoteService = RORemoteService GetScriptsCall.RemoteService = RORemoteService
RemoteService = RORemoteService RemoteService = RORemoteService
DataStreamer = Bin2DataStreamer
Left = 59 Left = 59
Top = 151 Top = 151
end end
@ -246,8 +246,6 @@ inherited DataModulePresupuestosCliente: TDataModulePresupuestosCliente
Params = <> Params = <>
StreamingOptions = [soDisableEventsWhileStreaming] StreamingOptions = [soDisableEventsWhileStreaming]
RemoteDataAdapter = rda_PresupuestosCliente RemoteDataAdapter = rda_PresupuestosCliente
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'PresupuestosCliente' LogicalName = 'PresupuestosCliente'
IndexDefs = <> IndexDefs = <>
Left = 248 Left = 248
@ -368,8 +366,6 @@ inherited DataModulePresupuestosCliente: TDataModulePresupuestosCliente
MasterSource = ds_PresupuestosCliente MasterSource = ds_PresupuestosCliente
MasterFields = 'ID' MasterFields = 'ID'
DetailFields = 'ID_PRESUPUESTO' DetailFields = 'ID_PRESUPUESTO'
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'PresupuestosCliente_Detalles' LogicalName = 'PresupuestosCliente_Detalles'
IndexDefs = <> IndexDefs = <>
Left = 464 Left = 464
@ -399,8 +395,6 @@ inherited DataModulePresupuestosCliente: TDataModulePresupuestosCliente
Params = <> Params = <>
StreamingOptions = [soDisableEventsWhileStreaming] StreamingOptions = [soDisableEventsWhileStreaming]
RemoteDataAdapter = rda_PresupuestosCliente RemoteDataAdapter = rda_PresupuestosCliente
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'ListaAnosPresupuestos' LogicalName = 'ListaAnosPresupuestos'
IndexDefs = <> IndexDefs = <>
Left = 248 Left = 248

4
Source/Modulos/Presupuestos de cliente/Data/uDataModulePresupuestosCliente.pas
View File

@ -80,7 +80,7 @@ begin
AParam.Add(AID); AParam.Add(AID);
Result := (RORemoteService as IsrvPresupuestosCliente).GenerarInformeEnPDF(AParam) Result := (RORemoteService as IsrvPresupuestosCliente).GenerarInformeEnPDF(AParam)
finally finally
FreeANDNIL(AParam) // FreeANDNIL(AParam)
end; end;
end; end;
@ -92,7 +92,7 @@ begin
try try
Result := (RORemoteService as IsrvPresupuestosCliente).GenerarInforme(AParam) Result := (RORemoteService as IsrvPresupuestosCliente).GenerarInforme(AParam)
finally finally
FreeANDNIL(AParam) // FreeANDNIL(AParam)
end; end;
end; end;

2
Source/Modulos/Recibos de cliente/Data/uDataModuleRecibosCliente.pas
View File

@ -81,7 +81,7 @@ begin
try try
Result := (RORemoteService as IsrvRecibosCliente).GenerarInforme(AParam); Result := (RORemoteService as IsrvRecibosCliente).GenerarInforme(AParam);
finally finally
FreeANDNIL(AParam); // FreeANDNIL(AParam);
end; end;
end; end;

3
Source/Modulos/Recibos de cliente/Views/uViewPagosCliente.pas
View File

@ -11,7 +11,8 @@ uses
cxGridLevel, cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxGridLevel, cxGridCustomTableView, cxGridTableView, cxGridDBTableView,
cxClasses, cxGridCustomView, cxGrid, uBizPagosCliente, ActnList, TB2Item, cxClasses, cxGridCustomView, cxGrid, uBizPagosCliente, ActnList, TB2Item,
SpTBXItem, TB2Dock, TB2Toolbar, cxImageComboBox, dxLayoutLookAndFeels, ImgList, SpTBXItem, TB2Dock, TB2Toolbar, cxImageComboBox, dxLayoutLookAndFeels, ImgList,
PngImageList, ComCtrls, ToolWin, uDAInterfaces; PngImageList, ComCtrls, ToolWin, uDAInterfaces, cxLookAndFeels,
cxLookAndFeelPainters;
type type
IViewPagosCliente = interface(IViewBase) IViewPagosCliente = interface(IViewBase)

86
Source/Modulos/Recibos de cliente/Views/uViewReciboCliente.dfm
View File

@ -12,8 +12,7 @@ inherited frViewReciboCliente: TfrViewReciboCliente
ParentBackground = True ParentBackground = True
TabOrder = 0 TabOrder = 0
TabStop = False TabStop = False
AutoContentSizes = [acsWidth, acsHeight] LayoutLookAndFeel = dxLayoutOfficeLookAndFeel1
LookAndFeel = dxLayoutOfficeLookAndFeel1
ExplicitWidth = 795 ExplicitWidth = 795
ExplicitHeight = 333 ExplicitHeight = 333
DesignSize = ( DesignSize = (
@ -25,7 +24,6 @@ inherited frViewReciboCliente: TfrViewReciboCliente
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'REFERENCIA' DataBinding.DataField = 'REFERENCIA'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Enabled = False
Properties.ReadOnly = False Properties.ReadOnly = False
Properties.ValidateOnEnter = True Properties.ValidateOnEnter = True
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
@ -55,7 +53,6 @@ inherited frViewReciboCliente: TfrViewReciboCliente
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'SITUACION' DataBinding.DataField = 'SITUACION'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Enabled = False
Properties.ReadOnly = False Properties.ReadOnly = False
Properties.ValidateOnEnter = True Properties.ValidateOnEnter = True
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
@ -133,7 +130,6 @@ inherited frViewReciboCliente: TfrViewReciboCliente
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FECHA_FACTURA' DataBinding.DataField = 'FECHA_FACTURA'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Enabled = False
Properties.ReadOnly = False Properties.ReadOnly = False
Properties.ValidateOnEnter = True Properties.ValidateOnEnter = True
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
@ -163,7 +159,6 @@ inherited frViewReciboCliente: TfrViewReciboCliente
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FORMA_PAGO_FACTURA' DataBinding.DataField = 'FORMA_PAGO_FACTURA'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Enabled = False
Properties.ReadOnly = False Properties.ReadOnly = False
Properties.ValidateOnEnter = True Properties.ValidateOnEnter = True
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
@ -193,7 +188,6 @@ inherited frViewReciboCliente: TfrViewReciboCliente
AutoSize = False AutoSize = False
DataBinding.DataField = 'IMPORTE_FACTURA' DataBinding.DataField = 'IMPORTE_FACTURA'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Enabled = False
ParentFont = False ParentFont = False
Properties.Alignment.Horz = taRightJustify Properties.Alignment.Horz = taRightJustify
Properties.ReadOnly = True Properties.ReadOnly = True
@ -229,7 +223,6 @@ inherited frViewReciboCliente: TfrViewReciboCliente
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'NOMBRE_CLIENTE' DataBinding.DataField = 'NOMBRE_CLIENTE'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Enabled = False
Properties.ReadOnly = False Properties.ReadOnly = False
Properties.ValidateOnEnter = True Properties.ValidateOnEnter = True
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
@ -259,7 +252,6 @@ inherited frViewReciboCliente: TfrViewReciboCliente
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'NIF_CIF_CLIENTE' DataBinding.DataField = 'NIF_CIF_CLIENTE'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Enabled = False
Properties.ReadOnly = False Properties.ReadOnly = False
Properties.ValidateOnEnter = True Properties.ValidateOnEnter = True
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
@ -289,7 +281,6 @@ inherited frViewReciboCliente: TfrViewReciboCliente
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'REFERENCIA_REMESA' DataBinding.DataField = 'REFERENCIA_REMESA'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Enabled = False
Properties.ReadOnly = False Properties.ReadOnly = False
Properties.ValidateOnEnter = True Properties.ValidateOnEnter = True
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
@ -319,7 +310,6 @@ inherited frViewReciboCliente: TfrViewReciboCliente
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FECHA_EMISION' DataBinding.DataField = 'FECHA_EMISION'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Enabled = False
Properties.ImmediatePost = True Properties.ImmediatePost = True
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D Style.BorderStyle = ebs3D
@ -407,7 +397,6 @@ inherited frViewReciboCliente: TfrViewReciboCliente
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'DATOS_BANCARIOS' DataBinding.DataField = 'DATOS_BANCARIOS'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Enabled = False
Properties.ReadOnly = False Properties.ReadOnly = False
Properties.ValidateOnEnter = True Properties.ValidateOnEnter = True
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
@ -432,117 +421,119 @@ inherited frViewReciboCliente: TfrViewReciboCliente
Width = 228 Width = 228
end end
object dxLayoutControl1Group_Root: TdxLayoutGroup object dxLayoutControl1Group_Root: TdxLayoutGroup
ShowCaption = False AlignHorz = ahParentManaged
AlignVert = avParentManaged
CaptionOptions.Visible = False
ButtonOptions.Buttons = <>
Hidden = True Hidden = True
ShowBorder = False ShowBorder = False
object dxLayoutControl1Group9: TdxLayoutGroup object dxLayoutControl1Group9: TdxLayoutGroup
ShowCaption = False CaptionOptions.Visible = False
ButtonOptions.Buttons = <>
Hidden = True Hidden = True
LayoutDirection = ldHorizontal LayoutDirection = ldHorizontal
ShowBorder = False ShowBorder = False
object dxLayoutControl1Group3: TdxLayoutGroup object dxLayoutControl1Group3: TdxLayoutGroup
AutoAligns = [aaVertical]
AlignHorz = ahClient AlignHorz = ahClient
ShowCaption = False CaptionOptions.Visible = False
ButtonOptions.Buttons = <>
Hidden = True Hidden = True
ShowBorder = False ShowBorder = False
object dxLayoutControl1Group1: TdxLayoutGroup object dxLayoutControl1Group1: TdxLayoutGroup
AutoAligns = [aaVertical]
AlignHorz = ahClient AlignHorz = ahClient
Caption = 'Datos del recibo' CaptionOptions.Text = 'Datos del recibo'
ButtonOptions.Buttons = <>
object dxLayoutControl1Item1: TdxLayoutItem object dxLayoutControl1Item1: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient AlignHorz = ahClient
Caption = 'Referencia:' CaptionOptions.Text = 'Referencia:'
Control = eReferencia Control = eReferencia
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
object dxLayoutControl1Item19: TdxLayoutItem object dxLayoutControl1Item19: TdxLayoutItem
Caption = 'Fecha emisi'#243'n:' CaptionOptions.Text = 'Fecha emisi'#243'n:'
Control = edtFechaEmision Control = edtFechaEmision
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
object dxLayoutControl1Item3: TdxLayoutItem object dxLayoutControl1Item3: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient AlignHorz = ahClient
Caption = 'Fecha vencimiento:' CaptionOptions.Text = 'Fecha vencimiento:'
Control = edtFechaVencimiento Control = edtFechaVencimiento
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
object dxLayoutControl1Item2: TdxLayoutItem object dxLayoutControl1Item2: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient AlignHorz = ahClient
Caption = 'Situaci'#243'n:' CaptionOptions.Text = 'Situaci'#243'n:'
Control = eSituacion Control = eSituacion
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
object dxLayoutControl1Item16: TdxLayoutItem object dxLayoutControl1Item16: TdxLayoutItem
Caption = 'Ref. remesa:' CaptionOptions.Text = 'Ref. remesa:'
Control = eRemesa Control = eRemesa
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
object dxLayoutControl1Item6: TdxLayoutItem object dxLayoutControl1Item6: TdxLayoutItem
Caption = 'Concepto:' CaptionOptions.Text = 'Concepto:'
Control = eConcepto Control = eConcepto
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
end end
object dxLayoutControl1Group2: TdxLayoutGroup object dxLayoutControl1Group2: TdxLayoutGroup
Caption = 'Compensado en recibo' CaptionOptions.Text = 'Compensado en recibo'
Enabled = False Enabled = False
Visible = False Visible = False
ButtonOptions.Buttons = <>
object dxLayoutControl1Item4: TdxLayoutItem object dxLayoutControl1Item4: TdxLayoutItem
Caption = 'Ref. recibo:' CaptionOptions.Text = 'Ref. recibo:'
Enabled = False
Control = rRefReciboCompensado Control = rRefReciboCompensado
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
end end
end end
object dxLayoutControl1Group8: TdxLayoutGroup object dxLayoutControl1Group8: TdxLayoutGroup
AutoAligns = [aaVertical]
AlignHorz = ahClient AlignHorz = ahClient
Caption = 'New Group' CaptionOptions.Text = 'New Group'
ShowCaption = False CaptionOptions.Visible = False
ButtonOptions.Buttons = <>
ShowBorder = False ShowBorder = False
object dxLayoutControl1Group5: TdxLayoutGroup object dxLayoutControl1Group5: TdxLayoutGroup
Caption = 'Datos de la factura' CaptionOptions.Text = 'Datos de la factura'
ButtonOptions.Buttons = <>
object dxLayoutControl1Item7: TdxLayoutItem object dxLayoutControl1Item7: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient AlignHorz = ahClient
Caption = 'Fecha emisi'#243'n:' CaptionOptions.Text = 'Fecha emisi'#243'n:'
Control = eFechaEmision Control = eFechaEmision
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
object dxLayoutControl1Item8: TdxLayoutItem object dxLayoutControl1Item8: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient AlignHorz = ahClient
Caption = 'Forma pago:' CaptionOptions.Text = 'Forma pago:'
Control = eFormaPago Control = eFormaPago
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
object dxLayoutControl1Item15: TdxLayoutItem object dxLayoutControl1Item15: TdxLayoutItem
Caption = 'Cuenta bancaria:' CaptionOptions.Text = 'Cuenta bancaria:'
Control = eCuenta Control = eCuenta
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
object dxLayoutControl1Item9: TdxLayoutItem object dxLayoutControl1Item9: TdxLayoutItem
Caption = 'Total factura:' CaptionOptions.Text = 'Total factura:'
Control = eImporteTotal Control = eImporteTotal
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
end end
object dxLayoutControl1Group6: TdxLayoutGroup object dxLayoutControl1Group6: TdxLayoutGroup
AutoAligns = [aaHorizontal]
AlignVert = avClient AlignVert = avClient
Caption = 'Datos del cliente' CaptionOptions.Text = 'Datos del cliente'
Offsets.Top = 5 Offsets.Top = 5
ButtonOptions.Buttons = <>
object dxLayoutControl1Item11: TdxLayoutItem object dxLayoutControl1Item11: TdxLayoutItem
Caption = 'NIF/CIF:' CaptionOptions.Text = 'NIF/CIF:'
Control = eNifCif Control = eNifCif
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
object dxLayoutControl1Item10: TdxLayoutItem object dxLayoutControl1Item10: TdxLayoutItem
Caption = 'Nombre:' CaptionOptions.Text = 'Nombre:'
Control = eNombreCliente Control = eNombreCliente
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
@ -550,14 +541,13 @@ inherited frViewReciboCliente: TfrViewReciboCliente
end end
end end
object dxLayoutControl1Group7: TdxLayoutGroup object dxLayoutControl1Group7: TdxLayoutGroup
AutoAligns = [aaHorizontal]
AlignVert = avClient AlignVert = avClient
Caption = 'Observaciones' CaptionOptions.Text = 'Observaciones'
ButtonOptions.Buttons = <>
object dxLayoutControl1Item5: TdxLayoutItem object dxLayoutControl1Item5: TdxLayoutItem
AutoAligns = [aaHorizontal]
AlignVert = avClient AlignVert = avClient
Caption = 'Observaciones:' CaptionOptions.Text = 'Observaciones:'
ShowCaption = False CaptionOptions.Visible = False
Control = memObservaciones Control = memObservaciones
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end

3
Source/Modulos/Recibos de cliente/Views/uViewReciboCliente.pas
View File

@ -7,7 +7,8 @@ uses
Dialogs, uViewBase, uBizRecibosCliente, DB, uDADataTable, dxLayoutControl, Dialogs, uViewBase, uBizRecibosCliente, DB, uDADataTable, dxLayoutControl,
cxControls, cxCurrencyEdit, cxDBEdit, cxMemo, cxMaskEdit, cxDropDownEdit, cxControls, cxCurrencyEdit, cxDBEdit, cxMemo, cxMaskEdit, cxDropDownEdit,
cxCalendar, cxContainer, cxEdit, cxTextEdit, dxLayoutLookAndFeels, ExtCtrls, cxCalendar, cxContainer, cxEdit, cxTextEdit, dxLayoutLookAndFeels, ExtCtrls,
uDAInterfaces; uDAInterfaces, cxGraphics, cxLookAndFeels, cxLookAndFeelPainters,
dxLayoutcxEditAdapters;
type type
IViewReciboCliente = interface(IViewBase) IViewReciboCliente = interface(IViewBase)

2
Source/Modulos/Remesas de cliente/Data/uDataModuleRemesasCliente.pas
View File

@ -65,7 +65,7 @@ begin
try try
Result := (RORemoteService as IsrvRemesasCliente).GenerarInforme(AParam); Result := (RORemoteService as IsrvRemesasCliente).GenerarInforme(AParam);
finally finally
FreeANDNIL(AParam); // FreeANDNIL(AParam);
end; end;
end; end;

4
Source/Servicios/FactuGES.RODL
View File

@ -372,6 +372,10 @@
</Parameter> </Parameter>
<Parameter Name="ListaID" DataType="TIntegerArray" Flag="In" > <Parameter Name="ListaID" DataType="TIntegerArray" Flag="In" >
</Parameter> </Parameter>
<Parameter Name="AMercancia" DataType="Variant" Flag="In" >
</Parameter>
<Parameter Name="ABultos" DataType="Integer" Flag="In" >
</Parameter>
</Parameters> </Parameters>
</Operation> </Operation>
<Operation Name="GenerarInformeEnWord" UID="{FFBAE6B2-0F77-4F2F-A630-9A09AD7A2379}"> <Operation Name="GenerarInformeEnWord" UID="{FFBAE6B2-0F77-4F2F-A630-9A09AD7A2379}">

8
Source/Servicios/FactuGES_Intf.pas
View File

@ -587,7 +587,7 @@ type
IsrvAlbaranesCliente = interface(IDataAbstractService) IsrvAlbaranesCliente = interface(IDataAbstractService)
['{6E910718-9AB0-47BB-9875-B0DE66A68D7A}'] ['{6E910718-9AB0-47BB-9875-B0DE66A68D7A}']
function GenerarInforme(const ListaID: TIntegerArray): Binary; function GenerarInforme(const ListaID: TIntegerArray): Binary;
function GenerarInformeEtiquetas(const ListaID: TIntegerArray): Binary; function GenerarInformeEtiquetas(const ListaID: TIntegerArray; const AMercancia: Variant; const ABultos: Integer): Binary;
function GenerarInformeEnWord(const ID: Integer): Binary; function GenerarInformeEnWord(const ID: Integer): Binary;
function GenerarInformeEnPDF(const ListaID: TIntegerArray): Binary; function GenerarInformeEnPDF(const ListaID: TIntegerArray): Binary;
end; end;
@ -603,7 +603,7 @@ type
function __GetInterfaceName:string; override; function __GetInterfaceName:string; override;
function GenerarInforme(const ListaID: TIntegerArray): Binary; function GenerarInforme(const ListaID: TIntegerArray): Binary;
function GenerarInformeEtiquetas(const ListaID: TIntegerArray): Binary; function GenerarInformeEtiquetas(const ListaID: TIntegerArray; const AMercancia: Variant; const ABultos: Integer): Binary;
function GenerarInformeEnWord(const ID: Integer): Binary; function GenerarInformeEnWord(const ID: Integer): Binary;
function GenerarInformeEnPDF(const ListaID: TIntegerArray): Binary; function GenerarInformeEnPDF(const ListaID: TIntegerArray): Binary;
end; end;
@ -1898,12 +1898,14 @@ begin
end end
end; end;
function TsrvAlbaranesCliente_Proxy.GenerarInformeEtiquetas(const ListaID: TIntegerArray): Binary; function TsrvAlbaranesCliente_Proxy.GenerarInformeEtiquetas(const ListaID: TIntegerArray; const AMercancia: Variant; const ABultos: Integer): Binary;
begin begin
try try
result := nil; result := nil;
__Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInformeEtiquetas'); __Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInformeEtiquetas');
__Message.Write('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []); __Message.Write('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []);
__Message.Write('AMercancia', TypeInfo(Variant), AMercancia, []);
__Message.Write('ABultos', TypeInfo(Integer), ABultos, []);
__Message.Finalize; __Message.Finalize;
__TransportChannel.Dispatch(__Message); __TransportChannel.Dispatch(__Message);

8
Source/Servicios/FactuGES_Invk.pas
View File

@ -1101,9 +1101,11 @@ begin
end; end;
procedure TsrvAlbaranesCliente_Invoker.Invoke_GenerarInformeEtiquetas(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions); procedure TsrvAlbaranesCliente_Invoker.Invoke_GenerarInformeEtiquetas(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function GenerarInformeEtiquetas(const ListaID: TIntegerArray): Binary; } { function GenerarInformeEtiquetas(const ListaID: TIntegerArray; const AMercancia: Variant; const ABultos: Integer): Binary; }
var var
ListaID: FactuGES_Intf.TIntegerArray; ListaID: FactuGES_Intf.TIntegerArray;
AMercancia: Variant;
ABultos: Integer;
lResult: Binary; lResult: Binary;
__lObjectDisposer: TROObjectDisposer; __lObjectDisposer: TROObjectDisposer;
begin begin
@ -1111,8 +1113,10 @@ begin
lResult := nil; lResult := nil;
try try
__Message.Read('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []); __Message.Read('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []);
__Message.Read('AMercancia', TypeInfo(Variant), AMercancia, []);
__Message.Read('ABultos', TypeInfo(Integer), ABultos, []);
lResult := (__Instance as IsrvAlbaranesCliente).GenerarInformeEtiquetas(ListaID); lResult := (__Instance as IsrvAlbaranesCliente).GenerarInformeEtiquetas(ListaID, AMercancia, ABultos);
__Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvAlbaranesCliente', 'GenerarInformeEtiquetasResponse'); __Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvAlbaranesCliente', 'GenerarInformeEtiquetasResponse');
__Message.Write('Result', TypeInfo(Binary), lResult, []); __Message.Write('Result', TypeInfo(Binary), lResult, []);

BIN
Source/Servicios/RODLFILE.res
View File

Binary file not shown.

BIN
Source/Servidor/FactuGES_Server.RES
View File

Binary file not shown.

666
Source/Servidor/FactuGES_Server.dproj
View File

@ -1,337 +1,337 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003"> <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup> <PropertyGroup>
<ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid> <ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>
<MainSource>FactuGES_Server.dpr</MainSource> <MainSource>FactuGES_Server.dpr</MainSource>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration> <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform> <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler> <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
<DCC_DependencyCheckOutputName>..\..\Output\Debug\Servidor\FactuGES_Server.exe</DCC_DependencyCheckOutputName> <DCC_DependencyCheckOutputName>..\..\Output\Debug\Servidor\FactuGES_Server.exe</DCC_DependencyCheckOutputName>
<DCC_UsePackage>vcl;rtl;vclx;vclactnband;dbrtl;vcldb;vcldbx;bdertl;dsnap;dsnapcon;teeUI;teedb;tee;adortl;vclib;ibxpress;dbxcds;dbexpress;DbxCommonDriver;IndyCore;IndySystem;IndyProtocols;VclSmp;vclie;webdsnap;xmlrtl;inet;inetdbbde;inetdbxpress;RemObjects_BPDX_D11;RemObjects_RODX_D11;RemObjects_Indy_D11;RemObjects_Synapse_D11;RemObjects_WebBroker_D11;DataAbstract_Core_D11;DataAbstract_DBXDriver_D11;DataAbstract_IDE_D11;DataAbstract_Scripting_D11;DataAbstract_SDACDriver_D11;sdac105;dac105;DataAbstract_SQLiteDriver_D11;cxEditorsD10;cxLibraryD10;dxThemeD10;cxDataD10;cxExtEditorsD10;cxGridD10;cxPageControlD10;cxSchedulerD10;cxTreeListD10;cxVerticalGridD10;dxBarD10;dxComnD10;dxBarDBNavD10;dxBarExtDBItemsD10;dxBarExtItemsD10;dxDockingD10;dxLayoutControlD10;dxNavBarD10;dxPSCoreD10;dxsbD10;dxPScxCommonD10;dxPSLnksD10;vclshlctrls;dxPScxExtCommonD10;dxPScxGridLnkD10;dxPScxPCProdD10;dxPScxScheduler2LnkD10;dxPScxTLLnkD10;dxPSdxLCLnkD10;dxPsPrVwAdvD10;pckMD5;pckUCDataConnector;pckUserControl_RT;PluginSDK_D10R;PNG_D10;PngComponentsD10;tb2k_d11;SpTBXLib_d11;JclVcl;Jcl;JvXPCtrlsD11R;JvCoreD11R;JvSystemD11R;JvStdCtrlsD11R;JvAppFrmD11R;JvBandsD11R;JvDBD11R;JvDlgsD11R;JvBDED11R;JvCmpD11R;JvCryptD11R;JvCtrlsD11R;JvCustomD11R;JvDockingD11R;JvDotNetCtrlsD11R;JvEDID11R;JvGlobusD11R;JvHMID11R;JvInterpreterD11R;JvJansD11R;JvManagedThreadsD11R;JvMMD11R;JvNetD11R;JvPageCompsD11R;JvPluginD11R;JvPrintPreviewD11R;JvRuntimeDesignD11R;JvTimeFrameworkD11R;JvUIBD11R;JvValidatorsD11R;JvWizardD11R;pckUCADOConn;pckUCBDEConn;pckUCIBXConn;pckUCMidasConn;cxExportD10;GUISDK_D11R;ccpackD11;JSDialog100;fsTee11;fs11;frx11;frxADO11;frxBDE11;frxDB11;frxDBX11;frxe11;frxIBX11;frxTee11;fsADO11;fsBDE11;fsDB11;fsIBX11;websnap;soaprtl;IntrawebDB_90_100;Intraweb_90_100</DCC_UsePackage> <DCC_UsePackage>vcl;rtl;vclx;vclactnband;dbrtl;vcldb;vcldbx;bdertl;dsnap;dsnapcon;teeUI;teedb;tee;adortl;vclib;ibxpress;dbxcds;dbexpress;DbxCommonDriver;IndyCore;IndySystem;IndyProtocols;VclSmp;vclie;webdsnap;xmlrtl;inet;inetdbbde;inetdbxpress;RemObjects_BPDX_D11;RemObjects_RODX_D11;RemObjects_Indy_D11;RemObjects_Synapse_D11;RemObjects_WebBroker_D11;DataAbstract_Core_D11;DataAbstract_DBXDriver_D11;DataAbstract_IDE_D11;DataAbstract_Scripting_D11;DataAbstract_SDACDriver_D11;sdac105;dac105;DataAbstract_SQLiteDriver_D11;cxEditorsD10;cxLibraryD10;dxThemeD10;cxDataD10;cxExtEditorsD10;cxGridD10;cxPageControlD10;cxSchedulerD10;cxTreeListD10;cxVerticalGridD10;dxBarD10;dxComnD10;dxBarDBNavD10;dxBarExtDBItemsD10;dxBarExtItemsD10;dxDockingD10;dxLayoutControlD10;dxNavBarD10;dxPSCoreD10;dxsbD10;dxPScxCommonD10;dxPSLnksD10;vclshlctrls;dxPScxExtCommonD10;dxPScxGridLnkD10;dxPScxPCProdD10;dxPScxScheduler2LnkD10;dxPScxTLLnkD10;dxPSdxLCLnkD10;dxPsPrVwAdvD10;pckMD5;pckUCDataConnector;pckUserControl_RT;PluginSDK_D10R;PNG_D10;PngComponentsD10;tb2k_d11;SpTBXLib_d11;JclVcl;Jcl;JvXPCtrlsD11R;JvCoreD11R;JvSystemD11R;JvStdCtrlsD11R;JvAppFrmD11R;JvBandsD11R;JvDBD11R;JvDlgsD11R;JvBDED11R;JvCmpD11R;JvCryptD11R;JvCtrlsD11R;JvCustomD11R;JvDockingD11R;JvDotNetCtrlsD11R;JvEDID11R;JvGlobusD11R;JvHMID11R;JvInterpreterD11R;JvJansD11R;JvManagedThreadsD11R;JvMMD11R;JvNetD11R;JvPageCompsD11R;JvPluginD11R;JvPrintPreviewD11R;JvRuntimeDesignD11R;JvTimeFrameworkD11R;JvUIBD11R;JvValidatorsD11R;JvWizardD11R;pckUCADOConn;pckUCBDEConn;pckUCIBXConn;pckUCMidasConn;cxExportD10;GUISDK_D11R;ccpackD11;JSDialog100;fsTee11;fs11;frx11;frxADO11;frxBDE11;frxDB11;frxDBX11;frxe11;frxIBX11;frxTee11;fsADO11;fsBDE11;fsDB11;fsIBX11;websnap;soaprtl;IntrawebDB_90_100;Intraweb_90_100</DCC_UsePackage>
</PropertyGroup> </PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' "> <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<Version>7.0</Version> <Version>7.0</Version>
<DCC_DebugInformation>False</DCC_DebugInformation> <DCC_DebugInformation>False</DCC_DebugInformation>
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols> <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo> <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
<DCC_MapFile>3</DCC_MapFile> <DCC_MapFile>3</DCC_MapFile>
<DCC_ExeOutput>..\..\Output\Release\Servidor</DCC_ExeOutput> <DCC_ExeOutput>..\..\Output\Release\Servidor</DCC_ExeOutput>
<DCC_Define>RELEASE</DCC_Define> <DCC_Define>RELEASE</DCC_Define>
</PropertyGroup> </PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' "> <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<Version>7.0</Version> <Version>7.0</Version>
<DCC_MapFile>3</DCC_MapFile> <DCC_MapFile>3</DCC_MapFile>
<DCC_ExeOutput>..\..\Output\Debug\Servidor</DCC_ExeOutput> <DCC_ExeOutput>..\..\Output\Debug\Servidor</DCC_ExeOutput>
<DCC_Define>DEBUG;</DCC_Define> <DCC_Define>DEBUG;</DCC_Define>
<DCC_GenerateStackFrames>True</DCC_GenerateStackFrames> <DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
<DCC_DebugInfoInExe>True</DCC_DebugInfoInExe> <DCC_DebugInfoInExe>True</DCC_DebugInfoInExe>
<DCC_DebugVN>True</DCC_DebugVN> <DCC_DebugVN>True</DCC_DebugVN>
<DCC_UnitSearchPath>$(BDS)\lib\Debug</DCC_UnitSearchPath> <DCC_UnitSearchPath>$(BDS)\lib\Debug</DCC_UnitSearchPath>
<DCC_ResourcePath>$(BDS)\lib\Debug</DCC_ResourcePath> <DCC_ResourcePath>$(BDS)\lib\Debug</DCC_ResourcePath>
<DCC_ObjPath>$(BDS)\lib\Debug</DCC_ObjPath> <DCC_ObjPath>$(BDS)\lib\Debug</DCC_ObjPath>
<DCC_IncludePath>$(BDS)\lib\Debug</DCC_IncludePath> <DCC_IncludePath>$(BDS)\lib\Debug</DCC_IncludePath>
</PropertyGroup> </PropertyGroup>
<ProjectExtensions> <ProjectExtensions>
<Borland.Personality>Delphi.Personality</Borland.Personality> <Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType/> <Borland.ProjectType />
<BorlandProject> <BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters><Parameters Name="RunParams">/standalone</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">miércoles, 20 de enero de 2010 19:52</VersionInfoKeys></VersionInfoKeys><Excluded_Packages></Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject> <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters><Parameters Name="RunParams">/standalone</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">miércoles, 20 de enero de 2010 19:52</VersionInfoKeys></VersionInfoKeys><Excluded_Packages></Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions> </ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets"/> <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<ItemGroup> <ItemGroup>
<DelphiCompile Include="FactuGES_Server.dpr"> <DelphiCompile Include="FactuGES_Server.dpr">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas"/> <DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas" />
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas"/> <DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas" />
<DCCReference Include="..\ApplicationBase\Empresas\Model\uBizEmpresasServer.pas"/> <DCCReference Include="..\ApplicationBase\Empresas\Model\uBizEmpresasServer.pas" />
<DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas"> <DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas">
<Form>srvEmpresas</Form> <Form>srvEmpresas</Form>
<DesignClass>TDARemoteService</DesignClass> <DesignClass>TDARemoteService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\ApplicationBase\ProvinciasPoblaciones\Servidor\srvProvinciasPoblaciones_Impl.pas"> <DCCReference Include="..\ApplicationBase\ProvinciasPoblaciones\Servidor\srvProvinciasPoblaciones_Impl.pas">
<Form>srvProvinciasPoblaciones_Impl</Form> <Form>srvProvinciasPoblaciones_Impl</Form>
<DesignClass>TDataModule</DesignClass> <DesignClass>TDataModule</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas"/> <DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas" />
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas"/> <DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas" />
<DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas"> <DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas">
<Form>srvUsuarios</Form> <Form>srvUsuarios</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Base\schBase_Intf.pas"/> <DCCReference Include="..\Base\schBase_Intf.pas" />
<DCCReference Include="..\Base\Utiles\uSistemaFunc.pas"/> <DCCReference Include="..\Base\Utiles\uSistemaFunc.pas" />
<DCCReference Include="..\Base\Utiles\uStringsUtils.pas"/> <DCCReference Include="..\Base\Utiles\uStringsUtils.pas" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas"/> <DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas"/> <DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas"/> <DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptAlbaranesCliente_Server.pas"> <DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptAlbaranesCliente_Server.pas">
<Form>RptAlbaranesCliente</Form> <Form>RptAlbaranesCliente</Form>
<DesignClass>TDataModule</DesignClass> <DesignClass>TDataModule</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptWordAlbaranCliente.pas"> <DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptWordAlbaranCliente.pas">
<Form>RptWordAlbaranCliente</Form> <Form>RptWordAlbaranCliente</Form>
<DesignClass>TDataModule</DesignClass> <DesignClass>TDataModule</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas"> <DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas">
<Form>srvAlbaranesCliente</Form> <Form>srvAlbaranesCliente</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas"/> <DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas"/> <DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS"/> <DCCReference Include="..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\Reports\uRptAlbaranesProveedor_Server.pas"> <DCCReference Include="..\Modulos\Albaranes de proveedor\Reports\uRptAlbaranesProveedor_Server.pas">
<Form>RptAlbaranesProveedor</Form> <Form>RptAlbaranesProveedor</Form>
<DesignClass>TDataModule</DesignClass> <DesignClass>TDataModule</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Reports\uRptWordAlbaranProveedor.pas"> <DCCReference Include="..\Modulos\Albaranes de proveedor\Reports\uRptWordAlbaranProveedor.pas">
<Form>RptWordAlbaranProveedor</Form> <Form>RptWordAlbaranProveedor</Form>
<DesignClass>TDataModule</DesignClass> <DesignClass>TDataModule</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas"> <DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas">
<Form>srvAlbaranesProveedor</Form> <Form>srvAlbaranesProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas"/> <DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas" />
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas"/> <DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas" />
<DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas"> <DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas">
<Form>srvAlmacenes</Form> <Form>srvAlmacenes</Form>
<DesignClass>TDARemoteService</DesignClass> <DesignClass>TDARemoteService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas"/> <DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas" />
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas"/> <DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas" />
<DCCReference Include="..\Modulos\Articulos\Model\uBizArticulosServer.pas"/> <DCCReference Include="..\Modulos\Articulos\Model\uBizArticulosServer.pas" />
<DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas"> <DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas">
<Form>srvArticulos</Form> <Form>srvArticulos</Form>
<DesignClass>TDARemoteService</DesignClass> <DesignClass>TDARemoteService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas"/> <DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas"/> <DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas"/> <DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas"/> <DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\uBizEmpleadosServer.pas"/> <DCCReference Include="..\Modulos\Contactos\Model\uBizEmpleadosServer.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas"/> <DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\uBizVendedoresServer.pas"/> <DCCReference Include="..\Modulos\Contactos\Model\uBizVendedoresServer.pas" />
<DCCReference Include="..\Modulos\Contactos\Reports\uRptEtiquetasContacto_Server.pas"> <DCCReference Include="..\Modulos\Contactos\Reports\uRptEtiquetasContacto_Server.pas">
<Form>RptEtiquetasContacto</Form> <Form>RptEtiquetasContacto</Form>
<DesignClass>TDataModule</DesignClass> <DesignClass>TDataModule</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Contactos\Reports\uRptFichasEmpleado_Server.pas"> <DCCReference Include="..\Modulos\Contactos\Reports\uRptFichasEmpleado_Server.pas">
<Form>RptFichasEmpleado</Form> <Form>RptFichasEmpleado</Form>
<DesignClass>TDataModule</DesignClass> <DesignClass>TDataModule</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas"> <DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas">
<Form>srvContactos</Form> <Form>srvContactos</Form>
<DesignClass>TDARemoteService</DesignClass> <DesignClass>TDARemoteService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Fabricantes\Model\schFabricantesClient_Intf.pas"/> <DCCReference Include="..\Modulos\Fabricantes\Model\schFabricantesClient_Intf.pas" />
<DCCReference Include="..\Modulos\Fabricantes\Model\schFabricantesServer_Intf.pas"/> <DCCReference Include="..\Modulos\Fabricantes\Model\schFabricantesServer_Intf.pas" />
<DCCReference Include="..\Modulos\Fabricantes\Servidor\srvFabricantes_Impl.pas"> <DCCReference Include="..\Modulos\Fabricantes\Servidor\srvFabricantes_Impl.pas">
<Form>srvFabricantes</Form> <Form>srvFabricantes</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas"/> <DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas" />
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas"/> <DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas" />
<DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas"/> <DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas" />
<DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas"> <DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas">
<Form>RptFacturasCliente</Form> <Form>RptFacturasCliente</Form>
<DesignClass>TDataModule</DesignClass> <DesignClass>TDataModule</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptWordFacturaCliente.pas"> <DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptWordFacturaCliente.pas">
<Form>RptWordFacturaCliente</Form> <Form>RptWordFacturaCliente</Form>
<DesignClass>TDataModule</DesignClass> <DesignClass>TDataModule</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas"> <DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas">
<Form>srvFacturasCliente</Form> <Form>srvFacturasCliente</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas"/> <DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas" />
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas"/> <DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas" />
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas"/> <DCCReference Include="..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas" />
<DCCReference Include="..\Modulos\Facturas de proveedor\Reports\uRptFacturasProveedor_Server.pas"> <DCCReference Include="..\Modulos\Facturas de proveedor\Reports\uRptFacturasProveedor_Server.pas">
<Form>RptFacturasProveedor</Form> <Form>RptFacturasProveedor</Form>
<DesignClass>TDataModule</DesignClass> <DesignClass>TDataModule</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas"> <DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas">
<Form>srvFacturasProveedor</Form> <Form>srvFacturasProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas"/> <DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas" />
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas"/> <DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas" />
<DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas"> <DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas">
<Form>srvFamilias</Form> <Form>srvFamilias</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas"/> <DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas" />
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas"/> <DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas" />
<DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas"> <DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas">
<Form>srvFormasPago</Form> <Form>srvFormasPago</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Gestion de documentos\Servidor\srvGestorDocumentos_Impl.pas"> <DCCReference Include="..\Modulos\Gestion de documentos\Servidor\srvGestorDocumentos_Impl.pas">
<Form>srvGestorDocumentos</Form> <Form>srvGestorDocumentos</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Gestor de informes\Servidor\srvGestorInformes_Impl.pas"> <DCCReference Include="..\Modulos\Gestor de informes\Servidor\srvGestorInformes_Impl.pas">
<Form>srvGestorInformes</Form> <Form>srvGestorInformes</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas"/> <DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas" />
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas"/> <DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas" />
<DCCReference Include="..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas"> <DCCReference Include="..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas">
<Form>srvHistoricoMovimientos</Form> <Form>srvHistoricoMovimientos</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas"/> <DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas" />
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas"/> <DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas" />
<DCCReference Include="..\Modulos\Inventario\Servidor\srvInventario_Impl.pas"> <DCCReference Include="..\Modulos\Inventario\Servidor\srvInventario_Impl.pas">
<Form>srvInventario</Form> <Form>srvInventario</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Obras\Model\schObrasClient_Intf.pas"/> <DCCReference Include="..\Modulos\Obras\Model\schObrasClient_Intf.pas" />
<DCCReference Include="..\Modulos\Obras\Model\schObrasServer_Intf.pas"/> <DCCReference Include="..\Modulos\Obras\Model\schObrasServer_Intf.pas" />
<DCCReference Include="..\Modulos\Obras\Model\uBizObrasServer.pas"/> <DCCReference Include="..\Modulos\Obras\Model\uBizObrasServer.pas" />
<DCCReference Include="..\Modulos\Obras\Servidor\srvObras_Impl.pas"> <DCCReference Include="..\Modulos\Obras\Servidor\srvObras_Impl.pas">
<Form>srvObras</Form> <Form>srvObras</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas"/> <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas"/> <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas"/> <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Reports\uRptPedidosProveedor_Server.pas"> <DCCReference Include="..\Modulos\Pedidos a proveedor\Reports\uRptPedidosProveedor_Server.pas">
<Form>RptPedidosProveedor</Form> <Form>RptPedidosProveedor</Form>
<DesignClass>TDataModule</DesignClass> <DesignClass>TDataModule</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Reports\uRptWordPedidoProveedor.pas"> <DCCReference Include="..\Modulos\Pedidos a proveedor\Reports\uRptWordPedidoProveedor.pas">
<Form>RptWordPedidoProveedor</Form> <Form>RptWordPedidoProveedor</Form>
<DesignClass>TDataModule</DesignClass> <DesignClass>TDataModule</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas"> <DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas">
<Form>srvPedidosProveedor</Form> <Form>srvPedidosProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas"/> <DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas"/> <DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas"/> <DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas"> <DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas">
<Form>RptPresupuestosCliente</Form> <Form>RptPresupuestosCliente</Form>
<DesignClass>TDataModule</DesignClass> <DesignClass>TDataModule</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptWordCertificadoTrabajo_Server.pas"> <DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptWordCertificadoTrabajo_Server.pas">
<Form>RptWordCertificadoTrabajo</Form> <Form>RptWordCertificadoTrabajo</Form>
<DesignClass>TDataModule</DesignClass> <DesignClass>TDataModule</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptWordPresupuestoCliente.pas"> <DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptWordPresupuestoCliente.pas">
<Form>RptWordPresupuestoCliente</Form> <Form>RptWordPresupuestoCliente</Form>
<DesignClass>TDataModule</DesignClass> <DesignClass>TDataModule</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas"> <DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas">
<Form>srvPresupuestosCliente</Form> <Form>srvPresupuestosCliente</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas"/> <DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas" />
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas"/> <DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas" />
<DCCReference Include="..\Modulos\Recibos de cliente\Reports\uRptRecibosCliente_Server.pas"> <DCCReference Include="..\Modulos\Recibos de cliente\Reports\uRptRecibosCliente_Server.pas">
<Form>RptRecibosCliente</Form> <Form>RptRecibosCliente</Form>
<DesignClass>TDataModule</DesignClass> <DesignClass>TDataModule</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas"> <DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas">
<Form>srvRecibosCliente</Form> <Form>srvRecibosCliente</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas"/> <DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas" />
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas"/> <DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas" />
<DCCReference Include="..\Modulos\Recibos de proveedor\Reports\uRptRecibosProveedor_Server.pas"> <DCCReference Include="..\Modulos\Recibos de proveedor\Reports\uRptRecibosProveedor_Server.pas">
<Form>RptRecibosProveedor</Form> <Form>RptRecibosProveedor</Form>
<DesignClass>TDataModule</DesignClass> <DesignClass>TDataModule</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas"> <DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas">
<Form>srvRecibosProveedor</Form> <Form>srvRecibosProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas"/> <DCCReference Include="..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas" />
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas"/> <DCCReference Include="..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas" />
<DCCReference Include="..\Modulos\Referencias\Servidor\srvReferencias_Impl.pas"> <DCCReference Include="..\Modulos\Referencias\Servidor\srvReferencias_Impl.pas">
<Form>srvReferencias</Form> <Form>srvReferencias</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas"/> <DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas" />
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas"/> <DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas" />
<DCCReference Include="..\Modulos\Remesas de cliente\Model\uBizRemesasClienteServer.pas"/> <DCCReference Include="..\Modulos\Remesas de cliente\Model\uBizRemesasClienteServer.pas" />
<DCCReference Include="..\Modulos\Remesas de cliente\Reports\uRptRemesasCliente_Server.pas"> <DCCReference Include="..\Modulos\Remesas de cliente\Reports\uRptRemesasCliente_Server.pas">
<Form>RptRemesasCliente</Form> <Form>RptRemesasCliente</Form>
<DesignClass>TDataModule</DesignClass> <DesignClass>TDataModule</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas"> <DCCReference Include="..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas">
<Form>srvRemesasCliente</Form> <Form>srvRemesasCliente</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas"/> <DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas" />
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas"/> <DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas" />
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.pas"/> <DCCReference Include="..\Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.pas" />
<DCCReference Include="..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas"> <DCCReference Include="..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas">
<Form>srvRemesasProveedor</Form> <Form>srvRemesasProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas"/> <DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas" />
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas"/> <DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas" />
<DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas"> <DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas">
<Form>srvTiposIVA</Form> <Form>srvTiposIVA</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaClient_Intf.pas"/> <DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaClient_Intf.pas" />
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaServer_Intf.pas"/> <DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaServer_Intf.pas" />
<DCCReference Include="..\Modulos\Unidades de medida\Servidor\srvUnidadesMedida_Impl.pas"> <DCCReference Include="..\Modulos\Unidades de medida\Servidor\srvUnidadesMedida_Impl.pas">
<Form>srvUnidadesMedida</Form> <Form>srvUnidadesMedida</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Servicios\FactuGES_Intf.pas"/> <DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
<DCCReference Include="..\Servicios\FactuGES_Invk.pas"/> <DCCReference Include="..\Servicios\FactuGES_Invk.pas" />
<DCCReference Include="Configuracion\srvConfiguracion_Impl.pas"> <DCCReference Include="Configuracion\srvConfiguracion_Impl.pas">
<Form>srvConfiguracion</Form> <Form>srvConfiguracion</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="Configuracion\uConexionBD.pas"> <DCCReference Include="Configuracion\uConexionBD.pas">
<Form>frConexionBD</Form> <Form>frConexionBD</Form>
<DesignClass>TFrame</DesignClass> <DesignClass>TFrame</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="Configuracion\uConfGeneral.pas"> <DCCReference Include="Configuracion\uConfGeneral.pas">
<Form>frConfGeneral</Form> <Form>frConfGeneral</Form>
<DesignClass>TFrame</DesignClass> <DesignClass>TFrame</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="Configuracion\uConfiguracion.pas"> <DCCReference Include="Configuracion\uConfiguracion.pas">
<Form>fConfiguracion</Form> <Form>fConfiguracion</Form>
<DesignClass>TForm</DesignClass> <DesignClass>TForm</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="Configuracion\uFrameConfiguracion.pas"> <DCCReference Include="Configuracion\uFrameConfiguracion.pas">
<Form>FrameConfiguracion</Form> <Form>FrameConfiguracion</Form>
<DesignClass>TFrame</DesignClass> <DesignClass>TFrame</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="srvLogin_Impl.pas"> <DCCReference Include="srvLogin_Impl.pas">
<Form>srvLogin</Form> <Form>srvLogin</Form>
<DesignClass>TDARemoteService</DesignClass> <DesignClass>TDARemoteService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="uAcercaDe.pas"> <DCCReference Include="uAcercaDe.pas">
<Form>fAcercaDe</Form> <Form>fAcercaDe</Form>
</DCCReference> </DCCReference>
<DCCReference Include="uDataModuleServer.pas"> <DCCReference Include="uDataModuleServer.pas">
<Form>dmServer</Form> <Form>dmServer</Form>
<DesignClass>TDataModule</DesignClass> <DesignClass>TDataModule</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="uServerMainForm.pas"> <DCCReference Include="uServerMainForm.pas">
<Form>fServerForm</Form> <Form>fServerForm</Form>
</DCCReference> </DCCReference>
<DCCReference Include="Utiles\AHWord97.pas"/> <DCCReference Include="Utiles\AHWord97.pas" />
<DCCReference Include="Utiles\MidasSpeedFix.pas"/> <DCCReference Include="Utiles\MidasSpeedFix.pas" />
<DCCReference Include="Utiles\RegExpr.pas"/> <DCCReference Include="Utiles\RegExpr.pas" />
<DCCReference Include="Utiles\uBusinessUtils.pas"/> <DCCReference Include="Utiles\uBusinessUtils.pas" />
<DCCReference Include="Utiles\uDatabaseUtils.pas"/> <DCCReference Include="Utiles\uDatabaseUtils.pas" />
<DCCReference Include="Utiles\uReferenciasUtils.pas"/> <DCCReference Include="Utiles\uReferenciasUtils.pas" />
<DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas"/> <DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas" />
<DCCReference Include="Utiles\uSchemaUtilsServer.pas"/> <DCCReference Include="Utiles\uSchemaUtilsServer.pas" />
<DCCReference Include="Utiles\uServerAppUtils.pas"/> <DCCReference Include="Utiles\uServerAppUtils.pas" />
<DCCReference Include="Utiles\uSesionesUtils.pas"/> <DCCReference Include="Utiles\uSesionesUtils.pas" />
</ItemGroup> </ItemGroup>
</Project> </Project>
<!-- EurekaLog First Line <!-- EurekaLog First Line
[Exception Log] [Exception Log]

2
Source/Servidor/FactuGES_Server.rc
View File

@ -14,7 +14,7 @@ BEGIN
BEGIN BEGIN
VALUE "FileVersion", "1.0.0.0\0" VALUE "FileVersion", "1.0.0.0\0"
VALUE "ProductVersion", "1.0.0.0\0" VALUE "ProductVersion", "1.0.0.0\0"
VALUE "CompileDate", "miércoles, 27 de enero de 2010 16:46\0" VALUE "CompileDate", "jueves, 28 de enero de 2010 12:57\0"
END END
END END
BLOCK "VarFileInfo" BLOCK "VarFileInfo"