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

Compare commits

base: Archivado:master
Branches Tags
Archivado:master
Archivado:3.3.7
Archivado:3.3.6
Archivado:3.3.5
Archivado:3.3.4
Archivado:3.3.0
Archivado:3.0.9
Archivado:3.0.8
Archivado:3.0.7
Archivado:3.0.6
Archivado:3.0.5
Archivado:3.0.3
Archivado:3.0.2
Archivado:3.0.1
Archivado:3.0.0
Archivado:2.9.0
Archivado:2.8.0
Archivado:2.4.0
Archivado:2.3.9
Archivado:2.3.8
Archivado:2.3.7
Archivado:2.3.5
Archivado:2.3.4
Archivado:2.3.2
Archivado:2.3.1
Archivado:2.3.0
Archivado:2.2.5
Archivado:2.2.4
Archivado:2.2.3
Archivado:2.2.2
Archivado:2.2.1
Archivado:2.1.9
Archivado:2.1.8
Archivado:2.1.6
Archivado:2.1.5
Archivado:2.1.4
Archivado:2.1.3
Archivado:2.1.2
Archivado:2.1.1
Archivado:2.1.0
Archivado:2.0.8
Archivado:2.0.7
Archivado:2.0.6
Archivado:1.7.0
Archivado:1.8.0
Archivado:1.9.0
Archivado:1.0.9
Archivado:2.0.0
Archivado:2.0.3
Archivado:2.0.4
Archivado:1.2.0
..
compare: Archivado:3.0.8
Branches Tags
Archivado:master
Archivado:3.3.7
Archivado:3.3.6
Archivado:3.3.5
Archivado:3.3.4
Archivado:3.3.0
Archivado:3.0.9
Archivado:3.0.8
Archivado:3.0.7
Archivado:3.0.6
Archivado:3.0.5
Archivado:3.0.3
Archivado:3.0.2
Archivado:3.0.1
Archivado:3.0.0
Archivado:2.9.0
Archivado:2.8.0
Archivado:2.4.0
Archivado:2.3.9
Archivado:2.3.8
Archivado:2.3.7
Archivado:2.3.5
Archivado:2.3.4
Archivado:2.3.2
Archivado:2.3.1
Archivado:2.3.0
Archivado:2.2.5
Archivado:2.2.4
Archivado:2.2.3
Archivado:2.2.2
Archivado:2.2.1
Archivado:2.1.9
Archivado:2.1.8
Archivado:2.1.6
Archivado:2.1.5
Archivado:2.1.4
Archivado:2.1.3
Archivado:2.1.2
Archivado:2.1.1
Archivado:2.1.0
Archivado:2.0.8
Archivado:2.0.7
Archivado:2.0.6
Archivado:1.7.0
Archivado:1.8.0
Archivado:1.9.0
Archivado:1.0.9
Archivado:2.0.0
Archivado:2.0.3
Archivado:2.0.4
Archivado:1.2.0

1 Commits
master ... 3.0.8

Author SHA1 Message Date
david
2488b18b1a 23-09-2008 
git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES/tags/3.0.8@288 c93665c3-c93d-084d-9b98-7d5f4a9c3376
 2008-09-23 16:38:11 +00:00
348 changed files with 26243 additions and 17132 deletions
Show Stats Expand all files Collapse all files

BIN
Build/Build.fbl6
View File

Binary file not shown.

21002
Build/Build.fbp5 Normal file
View File

File diff suppressed because it is too large Load Diff

1
Build/Build.fbv Normal file
View File

@ -0,0 +1 @@
<variables><DELPHI><![CDATA[C:\Archivos de programa\Borland\Delphi10\bin\dcc32.exe]]></DELPHI></variables>

BIN
Build/Build.fbz6
View File

Binary file not shown.

BIN
Build/Installer.fbl6
View File

Binary file not shown.

1758
Build/Installer.fbp5 Normal file
View File

File diff suppressed because it is too large Load Diff

1
Build/Installer.fbv Normal file
View File

@ -0,0 +1 @@
<variables><project_path><![CDATA[C:\Codigo Luis Leon]]></project_path></variables>

BIN
Build/Installer.fbz6
View File

Binary file not shown.

BIN
Build/UploadFTP.fbl6
View File

Binary file not shown.

715
Build/UploadFTP.fbp5 Normal file
View File

@ -0,0 +1,715 @@
<?xml version="1.0" encoding="UTF-8"?>
<VSXML>
<Object Class="TFBProject" XMLID="{42C73C22-0B2E-4BF4-A080-75FD7692D722}"><Property MultiValue="0" name="EncryptedEditPassword" type="string"></Property>
<Property MultiValue="0" name="GlobalJScript" type="string"></Property>
<Property MultiValue="0" name="GlobalVBScript" type="string"></Property>
<Property MultiValue="0" name="Name" type="string"></Property>
<Property MultiValue="0" name="ProjectID" type="string"></Property>
<Property MultiValue="0" name="SCCAuxPath" type="string"></Property>
<Property name="SCCLocalPathHash" type="Cardinal">0</Property>
<Property MultiValue="0" name="SCCProjectName" type="string"></Property>
<Property MultiValue="0" name="SCCProviderBinding" type="string"></Property>
<Property MultiValue="0" name="SCCUserName" type="string"></Property>
<Object Class="TFBActionListCollection" XMLID="{BAE72659-63D2-4C01-A601-B501CEC2B991}"><Object Class="TFBActionList" XMLID="{DD2F2B92-2628-4DCC-9C1C-F4F93CB04440}"><Property name="IsFailure" type="Boolean">False</Property>
<Property name="IsMain" type="Boolean">True</Property>
<Property MultiValue="0" name="Name" type="string">Main</Property>
<Property MultiValue="0" name="UniqueID" type="string">{1EC7CF5E-763A-459F-B4E5-B20F3B6C1D6D}</Property>
<Object Class="TFBAction" XMLID="{336A813B-3AD4-4076-95CF-D8D23428BC98}"><Property MultiValue="0" name="ActionComment" type="string"></Property>
<Property MultiValue="0" name="ActionDescription" type="string">FinalBuilderAction</Property>
<Property name="ActionTextColor" type="Cardinal">0</Property>
<Property MultiValue="0" name="ActionTypeID" type="string"></Property>
<Property name="Enabled" type="WordBool">True</Property>
<Property name="ExpandActionLogTitle" type="Boolean">True</Property>
<Property name="IgnoreFailure" type="WordBool">False</Property>
<Property name="IsAction" type="Boolean">True</Property>
<Property name="IsBreakPoint" type="WordBool">False</Property>
<Property MultiValue="0" name="LogToVariable" type="string"></Property>
<Property name="MaxRetryAttempts" type="Cardinal">0</Property>
<Property name="NodeCollapsed" type="Boolean">False</Property>
<Property name="PauseInterval" type="Cardinal">0</Property>
<Property name="RetryPauseInterval" type="Cardinal">1000</Property>
<Property name="SuppressStatusMessages" type="Boolean">False</Property>
<Object Class="TCommentAction" XMLID="{566A234E-C051-45E3-9484-4D761E819541}"><Property MultiValue="0" name="ActionComment" type="string"></Property>
<Property MultiValue="0" name="ActionDescription" type="string">#</Property>
<Property name="ActionTextColor" type="Cardinal">16711680</Property>
<Property MultiValue="0" name="ActionTypeID" type="string"></Property>
<Property MultiValue="0" name="Description" type="string">#</Property>
<Property name="Enabled" type="WordBool">False</Property>
<Property name="ExpandActionLogTitle" type="Boolean">True</Property>
<Property name="IgnoreFailure" type="WordBool">False</Property>
<Property name="IsAction" type="Boolean">True</Property>
<Property name="IsBreakPoint" type="WordBool">False</Property>
<Property MultiValue="0" name="LogToVariable" type="string"></Property>
<Property name="MaxRetryAttempts" type="Cardinal">0</Property>
<Property name="NodeCollapsed" type="Boolean">False</Property>
<Property name="PauseInterval" type="Cardinal">0</Property>
<Property name="RetryPauseInterval" type="Cardinal">1000</Property>
<Property name="SuppressStatusMessages" type="Boolean">False</Property>
</Object>
<Object Class="TCommentAction" XMLID="{756852F0-CDF2-4A0E-9028-92720A502289}"><Property MultiValue="0" name="ActionComment" type="string"></Property>
<Property MultiValue="0" name="ActionDescription" type="string">#</Property>
<Property name="ActionTextColor" type="Cardinal">16711680</Property>
<Property MultiValue="0" name="ActionTypeID" type="string"></Property>
<Property MultiValue="0" name="Description" type="string">#</Property>
<Property name="Enabled" type="WordBool">False</Property>
<Property name="ExpandActionLogTitle" type="Boolean">True</Property>
<Property name="IgnoreFailure" type="WordBool">False</Property>
<Property name="IsAction" type="Boolean">True</Property>
<Property name="IsBreakPoint" type="WordBool">False</Property>
<Property MultiValue="0" name="LogToVariable" type="string"></Property>
<Property name="MaxRetryAttempts" type="Cardinal">0</Property>
<Property name="NodeCollapsed" type="Boolean">False</Property>
<Property name="PauseInterval" type="Cardinal">0</Property>
<Property name="RetryPauseInterval" type="Cardinal">1000</Property>
<Property name="SuppressStatusMessages" type="Boolean">False</Property>
</Object>
<Object Class="TCommentAction" XMLID="{D5704B4B-79F2-47B5-8A4E-A71E7AC4887F}"><Property MultiValue="0" name="ActionComment" type="string"></Property>
<Property MultiValue="1" name="ActionDescription" type="string"><![CDATA[Sacar directorio raíz del proyecto]]>
</Property>
<Property name="ActionTextColor" type="Cardinal">16711680</Property>
<Property MultiValue="0" name="ActionTypeID" type="string"></Property>
<Property MultiValue="1" name="Description" type="string"><![CDATA[Sacar directorio raíz del proyecto]]>
</Property>
<Property name="Enabled" type="WordBool">False</Property>
<Property name="ExpandActionLogTitle" type="Boolean">True</Property>
<Property name="IgnoreFailure" type="WordBool">False</Property>
<Property name="IsAction" type="Boolean">True</Property>
<Property name="IsBreakPoint" type="WordBool">False</Property>
<Property MultiValue="0" name="LogToVariable" type="string"></Property>
<Property name="MaxRetryAttempts" type="Cardinal">0</Property>
<Property name="NodeCollapsed" type="Boolean">False</Property>
<Property name="PauseInterval" type="Cardinal">0</Property>
<Property name="RetryPauseInterval" type="Cardinal">1000</Property>
<Property name="SuppressStatusMessages" type="Boolean">False</Property>
</Object>
<Object Class="TSetVariableAction" XMLID="{2DB13403-5AB2-4B0E-ADF8-6E1862A76BDA}"><Property MultiValue="0" name="ActionComment" type="string"></Property>
<Property MultiValue="1" name="ActionDescription" type="string"><![CDATA[Ruta del proyecto [ %FBPROJECTDIR% ]]]>
</Property>
<Property name="ActionTextColor" type="Cardinal">0</Property>
<Property MultiValue="0" name="ActionTypeID" type="string"></Property>
<Property name="ApplyToExisting" type="Boolean">False</Property>
<Property MultiValue="1" name="Description" type="string"><![CDATA[Ruta del proyecto [ %FBPROJECTDIR% ]]]>
</Property>
<Property name="DoExpandExpression" type="Boolean">True</Property>
<Property name="Enabled" type="WordBool">True</Property>
<Property name="ExpandActionLogTitle" type="Boolean">True</Property>
<Property name="ForceType" type="TFBSetVariableForceType">ftString</Property>
<Property name="IgnoreFailure" type="WordBool">False</Property>
<Property name="IsAction" type="Boolean">True</Property>
<Property name="IsBreakPoint" type="WordBool">False</Property>
<Property MultiValue="0" name="LogToVariable" type="string"></Property>
<Property name="MaxRetryAttempts" type="Cardinal">0</Property>
<Property name="Modifier" type="TFBSetVariableModifier">smNone</Property>
<Property MultiValue="0" name="NewValue" type="WideString">%FBPROJECTDIR%</Property>
<Property name="NodeCollapsed" type="Boolean">False</Property>
<Property name="PauseInterval" type="Cardinal">0</Property>
<Property name="RetryPauseInterval" type="Cardinal">1000</Property>
<Property name="SuppressStatusMessages" type="Boolean">False</Property>
<Property MultiValue="0" name="VariableName" type="WideString">project_path</Property>
</Object>
<Object Class="TFBScriptBasedAction" XMLID="{3CE0EE7B-5284-4C6A-94ED-241CE53AD1DF}"><Property MultiValue="0" name="ActionComment" type="string"></Property>
<Property MultiValue="1" name="ActionDescription" type="string"><![CDATA[Establecer ruta del proyecto]]>
</Property>
<Property name="ActionTextColor" type="Cardinal">0</Property>
<Property MultiValue="0" name="ActionTypeID" type="string">{78526C82-A8E7-42B3-8C9D-1E229C79D915}</Property>
<Property MultiValue="1" name="CustomActionName" type="string"><![CDATA[String Replace]]>
</Property>
<Property MultiValue="1" name="Description" type="string"><![CDATA[Establecer ruta del proyecto]]>
</Property>
<Property name="Enabled" type="WordBool">True</Property>
<Property name="EnableTimeout" type="Boolean">False</Property>
<Property name="ExpandActionLogTitle" type="Boolean">True</Property>
<Property name="IgnoreFailure" type="WordBool">False</Property>
<Property name="IsAction" type="Boolean">True</Property>
<Property name="IsBreakPoint" type="WordBool">False</Property>
<Property MultiValue="0" name="LogToVariable" type="string"></Property>
<Property name="MaxRetryAttempts" type="Cardinal">0</Property>
<Property name="NodeCollapsed" type="Boolean">False</Property>
<Property name="PauseInterval" type="Cardinal">0</Property>
<Property name="RetryPauseInterval" type="Cardinal">1000</Property>
<Property name="SuppressStatusMessages" type="Boolean">True</Property>
<Property name="TerminateOnTimeout" type="Boolean">True</Property>
<Property name="TimeoutLength" type="Cardinal">2</Property>
<CustomProperty MultiValue="0" name="InputString" type="ptString"></CustomProperty>
<CustomProperty name="ApplyToInput" type="ptBoolean">True</CustomProperty>
<CustomProperty name="UsingInputVariable" type="ptBoolean">True</CustomProperty>
<CustomProperty MultiValue="0" name="OutputVariable" type="ptString"></CustomProperty>
<CustomProperty MultiValue="0" name="InputVariable" type="ptString">project_path</CustomProperty>
<CustomProperty MultiValue="0" name="SearchString" type="ptString">\Build</CustomProperty>
<CustomProperty MultiValue="0" name="ReplacementString" type="ptString"></CustomProperty>
<CustomProperty name="CaseSensitive" type="ptBoolean">False</CustomProperty>
<CustomProperty name="ReplaceAll" type="ptBoolean">False</CustomProperty>
<CustomProperty name="ExpandSourceVariable" type="ptBoolean">True</CustomProperty>
</Object>
<Object Class="TCommentAction" XMLID="{8B68908A-25D4-4D81-A4C9-1DA76CAE997B}"><Property MultiValue="0" name="ActionComment" type="string"></Property>
<Property MultiValue="0" name="ActionDescription" type="string">#</Property>
<Property name="ActionTextColor" type="Cardinal">16711680</Property>
<Property MultiValue="0" name="ActionTypeID" type="string"></Property>
<Property MultiValue="0" name="Description" type="string">#</Property>
<Property name="Enabled" type="WordBool">False</Property>
<Property name="ExpandActionLogTitle" type="Boolean">True</Property>
<Property name="IgnoreFailure" type="WordBool">False</Property>
<Property name="IsAction" type="Boolean">True</Property>
<Property name="IsBreakPoint" type="WordBool">False</Property>
<Property MultiValue="0" name="LogToVariable" type="string"></Property>
<Property name="MaxRetryAttempts" type="Cardinal">0</Property>
<Property name="NodeCollapsed" type="Boolean">False</Property>
<Property name="PauseInterval" type="Cardinal">0</Property>
<Property name="RetryPauseInterval" type="Cardinal">1000</Property>
<Property name="SuppressStatusMessages" type="Boolean">False</Property>
</Object>
<Object Class="TSetVariableAction" XMLID="{C34712CE-A8B2-4CAE-B8CF-06F2B5568492}"><Property MultiValue="0" name="ActionComment" type="string"></Property>
<Property MultiValue="1" name="ActionDescription" type="string"><![CDATA[Set Variable FTPAddress to [ luisleonrepresentaciones.com ]]]>
</Property>
<Property name="ActionTextColor" type="Cardinal">0</Property>
<Property MultiValue="0" name="ActionTypeID" type="string"></Property>
<Property name="ApplyToExisting" type="Boolean">False</Property>
<Property name="DoExpandExpression" type="Boolean">True</Property>
<Property name="Enabled" type="WordBool">True</Property>
<Property name="ExpandActionLogTitle" type="Boolean">True</Property>
<Property name="ForceType" type="TFBSetVariableForceType">ftDefault</Property>
<Property name="IgnoreFailure" type="WordBool">False</Property>
<Property name="IsAction" type="Boolean">True</Property>
<Property name="IsBreakPoint" type="WordBool">False</Property>
<Property MultiValue="0" name="LogToVariable" type="string"></Property>
<Property name="MaxRetryAttempts" type="Cardinal">0</Property>
<Property name="Modifier" type="TFBSetVariableModifier">smNone</Property>
<Property MultiValue="0" name="NewValue" type="WideString">luisleonrepresentaciones.com</Property>
<Property name="NodeCollapsed" type="Boolean">False</Property>
<Property name="PauseInterval" type="Cardinal">0</Property>
<Property name="RetryPauseInterval" type="Cardinal">1000</Property>
<Property name="SuppressStatusMessages" type="Boolean">False</Property>
<Property MultiValue="0" name="VariableName" type="WideString">FTPAddress</Property>
</Object>
<Object Class="TSetVariableAction" XMLID="{9E67B585-CECC-454B-B1C2-C167F9A0A624}"><Property MultiValue="0" name="ActionComment" type="string"></Property>
<Property MultiValue="1" name="ActionDescription" type="string"><![CDATA[Set Variable FTPRemotePath to [ /update ]]]>
</Property>
<Property name="ActionTextColor" type="Cardinal">0</Property>
<Property MultiValue="0" name="ActionTypeID" type="string"></Property>
<Property name="ApplyToExisting" type="Boolean">False</Property>
<Property name="DoExpandExpression" type="Boolean">True</Property>
<Property name="Enabled" type="WordBool">True</Property>
<Property name="ExpandActionLogTitle" type="Boolean">True</Property>
<Property name="ForceType" type="TFBSetVariableForceType">ftDefault</Property>
<Property name="IgnoreFailure" type="WordBool">False</Property>
<Property name="IsAction" type="Boolean">True</Property>
<Property name="IsBreakPoint" type="WordBool">False</Property>
<Property MultiValue="0" name="LogToVariable" type="string"></Property>
<Property name="MaxRetryAttempts" type="Cardinal">0</Property>
<Property name="Modifier" type="TFBSetVariableModifier">smNone</Property>
<Property MultiValue="0" name="NewValue" type="WideString">/update</Property>
<Property name="NodeCollapsed" type="Boolean">False</Property>
<Property name="PauseInterval" type="Cardinal">0</Property>
<Property name="RetryPauseInterval" type="Cardinal">1000</Property>
<Property name="SuppressStatusMessages" type="Boolean">False</Property>
<Property MultiValue="0" name="VariableName" type="WideString">FTPRemotePath</Property>
</Object>
<Object Class="TSetVariableAction" XMLID="{4C41E5CB-E758-4D3E-8C87-D4EFED30F3F5}"><Property MultiValue="0" name="ActionComment" type="string"></Property>
<Property MultiValue="1" name="ActionDescription" type="string"><![CDATA[Set Variable FTPUser to [ luisleon@rodax-software.com ]]]>
</Property>
<Property name="ActionTextColor" type="Cardinal">0</Property>
<Property MultiValue="0" name="ActionTypeID" type="string"></Property>
<Property name="ApplyToExisting" type="Boolean">False</Property>
<Property name="DoExpandExpression" type="Boolean">True</Property>
<Property name="Enabled" type="WordBool">True</Property>
<Property name="ExpandActionLogTitle" type="Boolean">True</Property>
<Property name="ForceType" type="TFBSetVariableForceType">ftDefault</Property>
<Property name="IgnoreFailure" type="WordBool">False</Property>
<Property name="IsAction" type="Boolean">True</Property>
<Property name="IsBreakPoint" type="WordBool">False</Property>
<Property MultiValue="0" name="LogToVariable" type="string"></Property>
<Property name="MaxRetryAttempts" type="Cardinal">0</Property>
<Property name="Modifier" type="TFBSetVariableModifier">smNone</Property>
<Property MultiValue="0" name="NewValue" type="WideString">luisleon@rodax-software.com</Property>
<Property name="NodeCollapsed" type="Boolean">False</Property>
<Property name="PauseInterval" type="Cardinal">0</Property>
<Property name="RetryPauseInterval" type="Cardinal">1000</Property>
<Property name="SuppressStatusMessages" type="Boolean">False</Property>
<Property MultiValue="0" name="VariableName" type="WideString">FTPUser</Property>
</Object>
<Object Class="TSetVariableAction" XMLID="{501B3A9C-3DB7-4E83-B1FA-8C8B07535437}"><Property MultiValue="0" name="ActionComment" type="string"></Property>
<Property MultiValue="1" name="ActionDescription" type="string"><![CDATA[Set Variable FTPPassword to [ 9yyz4coj ]]]>
</Property>
<Property name="ActionTextColor" type="Cardinal">0</Property>
<Property MultiValue="0" name="ActionTypeID" type="string"></Property>
<Property name="ApplyToExisting" type="Boolean">False</Property>
<Property name="DoExpandExpression" type="Boolean">True</Property>
<Property name="Enabled" type="WordBool">True</Property>
<Property name="ExpandActionLogTitle" type="Boolean">True</Property>
<Property name="ForceType" type="TFBSetVariableForceType">ftDefault</Property>
<Property name="IgnoreFailure" type="WordBool">False</Property>
<Property name="IsAction" type="Boolean">True</Property>
<Property name="IsBreakPoint" type="WordBool">False</Property>
<Property MultiValue="0" name="LogToVariable" type="string"></Property>
<Property name="MaxRetryAttempts" type="Cardinal">0</Property>
<Property name="Modifier" type="TFBSetVariableModifier">smNone</Property>
<Property MultiValue="0" name="NewValue" type="WideString">9yyz4coj</Property>
<Property name="NodeCollapsed" type="Boolean">False</Property>
<Property name="PauseInterval" type="Cardinal">0</Property>
<Property name="RetryPauseInterval" type="Cardinal">1000</Property>
<Property name="SuppressStatusMessages" type="Boolean">False</Property>
<Property MultiValue="0" name="VariableName" type="WideString">FTPPassword</Property>
</Object>
<Object Class="TFTPConnectionAction" XMLID="{A210DCF4-65F7-481C-A3FB-A6E34E888794}"><Property MultiValue="0" name="ActionComment" type="string"></Property>
<Property MultiValue="1" name="ActionDescription" type="string"><![CDATA[FTP Connect [ FTP Actualizaciones ]]]>
</Property>
<Property name="ActionTextColor" type="Cardinal">0</Property>
<Property MultiValue="0" name="ActionTypeID" type="string"></Property>
<Property name="ConnectTimeoutInSec" type="Integer">0</Property>
<Property MultiValue="0" name="Cookie" type="string">q1BkPr51BZaAKZ+47Q==</Property>
<Property name="DetailedLogging" type="WordBool">False</Property>
<Property name="Enabled" type="WordBool">True</Property>
<Property name="ExpandActionLogTitle" type="Boolean">True</Property>
<Property MultiValue="1" name="FTPConnectionName" type="string"><![CDATA[FTP Actualizaciones]]>
</Property>
<Property MultiValue="0" name="FTPHost" type="string">%FTPAddress%</Property>
<Property name="FTPPort" type="Integer">21</Property>
<Property name="IgnoreFailure" type="WordBool">False</Property>
<Property name="IsAction" type="Boolean">True</Property>
<Property name="IsBreakPoint" type="WordBool">False</Property>
<Property MultiValue="0" name="LogToVariable" type="string"></Property>
<Property name="MaxRetryAttempts" type="Cardinal">0</Property>
<Property name="NodeCollapsed" type="Boolean">False</Property>
<Property name="Passive" type="WordBool">False</Property>
<Property name="PauseInterval" type="Cardinal">0</Property>
<Property MultiValue="0" name="ProxyCookie" type="string"></Property>
<Property name="ProxyPort" type="Integer">0</Property>
<Property MultiValue="0" name="ProxyServer" type="string"></Property>
<Property name="ProxyType" type="TIdFtpProxyType">fpcmNone</Property>
<Property MultiValue="0" name="ProxyUsername" type="string"></Property>
<Property name="RetryPauseInterval" type="Cardinal">1000</Property>
<Property name="SuppressStatusMessages" type="Boolean">False</Property>
<Property name="TransferType" type="TIdFTPTransferType">ftBinary</Property>
<Property name="UseGlobalOpt" type="Boolean">False</Property>
<Property name="UseProxy" type="Boolean">False</Property>
<Property MultiValue="0" name="UserID" type="string">%FTPUser%</Property>
</Object>
<Object Class="TFTPChangeDirAction" XMLID="{1B6106F3-4F16-4E3E-A620-95FBC383D8FC}"><Property MultiValue="0" name="ActionComment" type="string"></Property>
<Property MultiValue="1" name="ActionDescription" type="string"><![CDATA[FTP Change Directory [ FTP Actualizaciones ] [ %FTPRemotePath% ]]]>
</Property>
<Property name="ActionTextColor" type="Cardinal">0</Property>
<Property MultiValue="0" name="ActionTypeID" type="string"></Property>
<Property MultiValue="1" name="ConnectionName" type="string"><![CDATA[FTP Actualizaciones]]>
</Property>
<Property name="DetailedLogging" type="Boolean">False</Property>
<Property name="Enabled" type="WordBool">True</Property>
<Property name="ExpandActionLogTitle" type="Boolean">True</Property>
<Property name="IgnoreFailure" type="WordBool">False</Property>
<Property name="IsAction" type="Boolean">True</Property>
<Property name="IsBreakPoint" type="WordBool">False</Property>
<Property MultiValue="0" name="LogToVariable" type="string"></Property>
<Property name="MaxRetryAttempts" type="Cardinal">0</Property>
<Property name="NodeCollapsed" type="Boolean">False</Property>
<Property name="PauseInterval" type="Cardinal">0</Property>
<Property MultiValue="0" name="RemoteDir" type="string">%FTPRemotePath%</Property>
<Property name="RetryPauseInterval" type="Cardinal">1000</Property>
<Property name="SuppressStatusMessages" type="Boolean">False</Property>
</Object>
<Object Class="TCommentAction" XMLID="{F845978E-CCD5-479D-A5A9-6A52A362E519}"><Property MultiValue="0" name="ActionComment" type="string"></Property>
<Property MultiValue="0" name="ActionDescription" type="string">#</Property>
<Property name="ActionTextColor" type="Cardinal">16711680</Property>
<Property MultiValue="0" name="ActionTypeID" type="string"></Property>
<Property MultiValue="0" name="Description" type="string">#</Property>
<Property name="Enabled" type="WordBool">True</Property>
<Property name="ExpandActionLogTitle" type="Boolean">True</Property>
<Property name="IgnoreFailure" type="WordBool">False</Property>
<Property name="IsAction" type="Boolean">True</Property>
<Property name="IsBreakPoint" type="WordBool">False</Property>
<Property MultiValue="0" name="LogToVariable" type="string"></Property>
<Property name="MaxRetryAttempts" type="Cardinal">0</Property>
<Property name="NodeCollapsed" type="Boolean">False</Property>
<Property name="PauseInterval" type="Cardinal">0</Property>
<Property name="RetryPauseInterval" type="Cardinal">1000</Property>
<Property name="SuppressStatusMessages" type="Boolean">False</Property>
</Object>
<Object Class="TCommentAction" XMLID="{F40B093E-37D3-43B1-AEDA-3A94703F0114}"><Property MultiValue="0" name="ActionComment" type="string"></Property>
<Property MultiValue="0" name="ActionDescription" type="string">#</Property>
<Property name="ActionTextColor" type="Cardinal">16711680</Property>
<Property MultiValue="0" name="ActionTypeID" type="string"></Property>
<Property MultiValue="0" name="Description" type="string">#</Property>
<Property name="Enabled" type="WordBool">True</Property>
<Property name="ExpandActionLogTitle" type="Boolean">True</Property>
<Property name="IgnoreFailure" type="WordBool">False</Property>
<Property name="IsAction" type="Boolean">True</Property>
<Property name="IsBreakPoint" type="WordBool">False</Property>
<Property MultiValue="0" name="LogToVariable" type="string"></Property>
<Property name="MaxRetryAttempts" type="Cardinal">0</Property>
<Property name="NodeCollapsed" type="Boolean">False</Property>
<Property name="PauseInterval" type="Cardinal">0</Property>
<Property name="RetryPauseInterval" type="Cardinal">1000</Property>
<Property name="SuppressStatusMessages" type="Boolean">False</Property>
</Object>
<Object Class="TCommentAction" XMLID="{B665F130-D9BC-4040-9899-BC9441D1D6E6}"><Property MultiValue="0" name="ActionComment" type="string"></Property>
<Property MultiValue="1" name="ActionDescription" type="string"><![CDATA[# Limpiar el directorio]]>
</Property>
<Property name="ActionTextColor" type="Cardinal">16711680</Property>
<Property MultiValue="0" name="ActionTypeID" type="string"></Property>
<Property MultiValue="1" name="Description" type="string"><![CDATA[# Limpiar el directorio]]>
</Property>
<Property name="Enabled" type="WordBool">False</Property>
<Property name="ExpandActionLogTitle" type="Boolean">True</Property>
<Property name="IgnoreFailure" type="WordBool">False</Property>
<Property name="IsAction" type="Boolean">True</Property>
<Property name="IsBreakPoint" type="WordBool">False</Property>
<Property MultiValue="0" name="LogToVariable" type="string"></Property>
<Property name="MaxRetryAttempts" type="Cardinal">0</Property>
<Property name="NodeCollapsed" type="Boolean">False</Property>
<Property name="PauseInterval" type="Cardinal">0</Property>
<Property name="RetryPauseInterval" type="Cardinal">1000</Property>
<Property name="SuppressStatusMessages" type="Boolean">False</Property>
</Object>
<Object Class="TFTPListDirAction" XMLID="{29AAD606-DADC-4427-968E-E0C16F8ED493}"><Property MultiValue="0" name="ActionComment" type="string"></Property>
<Property MultiValue="1" name="ActionDescription" type="string"><![CDATA[FTP List Directory [ FTP Actualizaciones ]]]>
</Property>
<Property name="ActionTextColor" type="Cardinal">0</Property>
<Property MultiValue="0" name="ActionTypeID" type="string"></Property>
<Property MultiValue="1" name="ConnectionName" type="string"><![CDATA[FTP Actualizaciones]]>
</Property>
<Property name="DetailedListing" type="Boolean">False</Property>
<Property name="DetailedLogging" type="Boolean">False</Property>
<Property name="Enabled" type="WordBool">False</Property>
<Property name="ExpandActionLogTitle" type="Boolean">True</Property>
<Property MultiValue="0" name="FBVariable" type="string">_aux_directoylist</Property>
<Property MultiValue="0" name="FileSpec" type="string">*</Property>
<Property name="IgnoreFailure" type="WordBool">False</Property>
<Property name="IsAction" type="Boolean">True</Property>
<Property name="IsBreakPoint" type="WordBool">False</Property>
<Property name="ListToFBLog" type="Boolean">False</Property>
<Property MultiValue="0" name="LogToVariable" type="string"></Property>
<Property name="MaxRetryAttempts" type="Cardinal">0</Property>
<Property name="NodeCollapsed" type="Boolean">False</Property>
<Property name="PauseInterval" type="Cardinal">0</Property>
<Property name="RetryPauseInterval" type="Cardinal">1000</Property>
<Property name="SuppressStatusMessages" type="Boolean">False</Property>
<Object Class="TFBListIterator" XMLID="{01B0AB32-B508-4FAD-B57F-16EAF366B23D}"><Property MultiValue="0" name="ActionComment" type="string"></Property>
<Property MultiValue="1" name="ActionDescription" type="string"><![CDATA[List Iterator]]>
</Property>
<Property name="ActionTextColor" type="Cardinal">0</Property>
<Property MultiValue="0" name="ActionTypeID" type="string"></Property>
<Property name="Enabled" type="WordBool">True</Property>
<Property name="ExpandActionLogTitle" type="Boolean">True</Property>
<Property name="FailIfNoIterations" type="Boolean">False</Property>
<Property MultiValue="0" name="FBVariable" type="string">_aux_filename</Property>
<Property name="IgnoreFailure" type="WordBool">False</Property>
<Property name="IsAction" type="Boolean">True</Property>
<Property name="IsBreakPoint" type="WordBool">False</Property>
<Property name="ListOfItems" type="TStrings"><![CDATA[%_aux_directoylist%
]]>
</Property>
<Property name="ListSeparator" type="TFBListSeparator">lsCRLF</Property>
<Property MultiValue="0" name="LogToVariable" type="string"></Property>
<Property name="MaxRetryAttempts" type="Cardinal">0</Property>
<Property name="NodeCollapsed" type="Boolean">False</Property>
<Property name="PauseInterval" type="Cardinal">0</Property>
<Property name="RetryPauseInterval" type="Cardinal">1000</Property>
<Property MultiValue="0" name="SeparatorChar" type="string">,</Property>
<Property name="SkipBlankLines" type="Boolean">True</Property>
<Property name="SuppressStatusMessages" type="Boolean">False</Property>
<Object Class="TFTPDeleteFileAction" XMLID="{D8AD14C3-7F40-44F5-B1FF-B51396E59619}"><Property MultiValue="0" name="ActionComment" type="string"></Property>
<Property MultiValue="1" name="ActionDescription" type="string"><![CDATA[FTP Delete File [ FTP Actualizaciones ] [ %_aux_filename% ]]]>
</Property>
<Property name="ActionTextColor" type="Cardinal">0</Property>
<Property MultiValue="0" name="ActionTypeID" type="string"></Property>
<Property MultiValue="1" name="ConnectionName" type="string"><![CDATA[FTP Actualizaciones]]>
</Property>
<Property name="DetailedLogging" type="Boolean">False</Property>
<Property name="Enabled" type="WordBool">True</Property>
<Property name="ExpandActionLogTitle" type="Boolean">True</Property>
<Property MultiValue="0" name="FileName" type="string">%_aux_filename%</Property>
<Property name="IgnoreFailure" type="WordBool">False</Property>
<Property name="IsAction" type="Boolean">True</Property>
<Property name="IsBreakPoint" type="WordBool">False</Property>
<Property MultiValue="0" name="LogToVariable" type="string"></Property>
<Property name="MaxRetryAttempts" type="Cardinal">0</Property>
<Property name="NodeCollapsed" type="Boolean">False</Property>
<Property name="PauseInterval" type="Cardinal">0</Property>
<Property name="RetryPauseInterval" type="Cardinal">1000</Property>
<Property name="SuppressStatusMessages" type="Boolean">False</Property>
</Object>
</Object>
</Object>
<Object Class="TCommentAction" XMLID="{904A750C-DAD8-4D30-B962-3E4EA22EEF04}"><Property MultiValue="0" name="ActionComment" type="string"></Property>
<Property MultiValue="0" name="ActionDescription" type="string">#</Property>
<Property name="ActionTextColor" type="Cardinal">16711680</Property>
<Property MultiValue="0" name="ActionTypeID" type="string"></Property>
<Property MultiValue="0" name="Description" type="string">#</Property>
<Property name="Enabled" type="WordBool">True</Property>
<Property name="ExpandActionLogTitle" type="Boolean">True</Property>
<Property name="IgnoreFailure" type="WordBool">False</Property>
<Property name="IsAction" type="Boolean">True</Property>
<Property name="IsBreakPoint" type="WordBool">False</Property>
<Property MultiValue="0" name="LogToVariable" type="string"></Property>
<Property name="MaxRetryAttempts" type="Cardinal">0</Property>
<Property name="NodeCollapsed" type="Boolean">False</Property>
<Property name="PauseInterval" type="Cardinal">0</Property>
<Property name="RetryPauseInterval" type="Cardinal">1000</Property>
<Property name="SuppressStatusMessages" type="Boolean">False</Property>
</Object>
<Object Class="TCommentAction" XMLID="{661E1F62-2241-45B2-BF2D-C6749ABC9F9C}"><Property MultiValue="0" name="ActionComment" type="string"></Property>
<Property MultiValue="0" name="ActionDescription" type="string">#</Property>
<Property name="ActionTextColor" type="Cardinal">16711680</Property>
<Property MultiValue="0" name="ActionTypeID" type="string"></Property>
<Property MultiValue="0" name="Description" type="string">#</Property>
<Property name="Enabled" type="WordBool">True</Property>
<Property name="ExpandActionLogTitle" type="Boolean">True</Property>
<Property name="IgnoreFailure" type="WordBool">False</Property>
<Property name="IsAction" type="Boolean">True</Property>
<Property name="IsBreakPoint" type="WordBool">False</Property>
<Property MultiValue="0" name="LogToVariable" type="string"></Property>
<Property name="MaxRetryAttempts" type="Cardinal">0</Property>
<Property name="NodeCollapsed" type="Boolean">False</Property>
<Property name="PauseInterval" type="Cardinal">0</Property>
<Property name="RetryPauseInterval" type="Cardinal">1000</Property>
<Property name="SuppressStatusMessages" type="Boolean">False</Property>
</Object>
<Object Class="TCommentAction" XMLID="{FACC61F3-8D4B-4833-8441-DAFC08B31A20}"><Property MultiValue="0" name="ActionComment" type="string"></Property>
<Property MultiValue="0" name="ActionDescription" type="string">#</Property>
<Property name="ActionTextColor" type="Cardinal">16711680</Property>
<Property MultiValue="0" name="ActionTypeID" type="string"></Property>
<Property MultiValue="0" name="Description" type="string">#</Property>
<Property name="Enabled" type="WordBool">True</Property>
<Property name="ExpandActionLogTitle" type="Boolean">True</Property>
<Property name="IgnoreFailure" type="WordBool">False</Property>
<Property name="IsAction" type="Boolean">True</Property>
<Property name="IsBreakPoint" type="WordBool">False</Property>
<Property MultiValue="0" name="LogToVariable" type="string"></Property>
<Property name="MaxRetryAttempts" type="Cardinal">0</Property>
<Property name="NodeCollapsed" type="Boolean">False</Property>
<Property name="PauseInterval" type="Cardinal">0</Property>
<Property name="RetryPauseInterval" type="Cardinal">1000</Property>
<Property name="SuppressStatusMessages" type="Boolean">False</Property>
</Object>
<Object Class="TFBFileSetDefineAction" XMLID="{1A87C032-9E3B-464E-8C6A-C841424A72A0}"><Property MultiValue="0" name="ActionComment" type="string"></Property>
<Property MultiValue="1" name="ActionDescription" type="string"><![CDATA[FileSet define [ ListaFicherosUpdate ]]]>
</Property>
<Property name="ActionTextColor" type="Cardinal">0</Property>
<Property MultiValue="0" name="ActionTypeID" type="string"></Property>
<Property name="Enabled" type="WordBool">True</Property>
<Property name="ExpandActionLogTitle" type="Boolean">True</Property>
<Property name="FailIfNoFiles" type="Boolean">True</Property>
<Property MultiValue="0" name="FileSetName" type="string">ListaFicherosUpdate</Property>
<Property name="FileSetObject" type="IFBFileSet" XMLID="{4C96E19D-4C98-467F-809B-CB662FF2372D}"/>
<Property name="IgnoreFailure" type="WordBool">False</Property>
<Property name="IsAction" type="Boolean">True</Property>
<Property name="IsBreakPoint" type="WordBool">False</Property>
<Property MultiValue="0" name="LogToVariable" type="string"></Property>
<Property name="MaxRetryAttempts" type="Cardinal">0</Property>
<Property name="NodeCollapsed" type="Boolean">False</Property>
<Property name="PauseInterval" type="Cardinal">0</Property>
<Property name="RetryPauseInterval" type="Cardinal">1000</Property>
<Property name="SuppressStatusMessages" type="Boolean">False</Property>
<Object Class="TFTPUploadFileAction" XMLID="{F3282219-6353-42AB-BB8A-28C6DB4C1E78}"><Property MultiValue="0" name="ActionComment" type="string"></Property>
<Property MultiValue="1" name="ActionDescription" type="string"><![CDATA[FTP Upload [ FTP Actualizaciones ] [ ListaFicherosUpdate ]]]>
</Property>
<Property name="ActionTextColor" type="Cardinal">0</Property>
<Property MultiValue="0" name="ActionTypeID" type="string"></Property>
<Property name="AllowGap" type="Boolean">True</Property>
<Property name="AutoUpdateSkew" type="Boolean">False</Property>
<Property name="CheckFileSizes" type="Boolean">True</Property>
<Property MultiValue="1" name="ConnectionName" type="string"><![CDATA[FTP Actualizaciones]]>
</Property>
<Property name="DetailedLogging" type="Boolean">True</Property>
<Property name="Enabled" type="WordBool">True</Property>
<Property name="EnableTimeout" type="Boolean">False</Property>
<Property name="ExpandActionLogTitle" type="Boolean">True</Property>
<Property MultiValue="0" name="FileSetName" type="string">ListaFicherosUpdate</Property>
<Property MultiValue="0" name="FileSpec" type="string"></Property>
<Property name="ForceNextClockSkewUpdate" type="Boolean">False</Property>
<Property name="GapLength" type="Integer">5</Property>
<Property name="IgnoreFailure" type="WordBool">False</Property>
<Property name="IsAction" type="Boolean">True</Property>
<Property name="IsBreakPoint" type="WordBool">False</Property>
<Property MultiValue="0" name="LocalDir" type="string"></Property>
<Property MultiValue="0" name="LogToVariable" type="string"></Property>
<Property name="MaxRetryAttempts" type="Cardinal">0</Property>
<Property name="NodeCollapsed" type="Boolean">False</Property>
<Property name="PauseInterval" type="Cardinal">0</Property>
<Property name="Recursive" type="Boolean">False</Property>
<Property MultiValue="0" name="RemoteFile" type="string"></Property>
<Property name="RetryIfUploadFails" type="Boolean">True</Property>
<Property name="RetryPauseInterval" type="Cardinal">1000</Property>
<Property name="ServerClockSkew" type="Integer">0</Property>
<Property name="SuppressStatusMessages" type="Boolean">False</Property>
<Property name="ThrottleSpeed" type="Integer">128</Property>
<Property name="ThrottleUpload" type="Boolean">False</Property>
<Property name="TimeoutLength" type="Cardinal">10</Property>
<Property name="UpdateOnly" type="Boolean">True</Property>
<Property name="UseFileSpec" type="Boolean">False</Property>
</Object>
<Object Class="TFBFileSetObject" XMLID="{4C96E19D-4C98-467F-809B-CB662FF2372D}"><Property MultiValue="0" name="BaseDirectory" type="string">%project_path%\Installer\Output</Property>
<Property name="ExcludePatternList" type="IFBFileSetPatternList" XMLID="{9C8884C4-AC87-4A06-9C76-F6FCF3C9E49A}"/>
<Property name="FilterList" type="IFBFileSetFilterList" XMLID="{93191189-6FD7-4733-A59A-F4F2581CB00C}"/>
<Property MultiValue="0" name="Name" type="string">ListaFicherosUpdate</Property>
<Property name="OutputQuoting" type="TFileSetQuoteType">qtNone</Property>
<Property name="OutputSeparator" type="TFileSetSepType">spNone</Property>
<Property name="PatternList" type="IFBFileSetPatternList" XMLID="{2A9CF598-8D00-49FE-A651-B048E48A6EB5}"/>
<Property name="RecurseHiddenSystem" type="Boolean">False</Property>
<Object Class="TFBFileSetPatternList" XMLID="{2A9CF598-8D00-49FE-A651-B048E48A6EB5}"><Property MultiValue="0" name="Name" type="string">PATTERNLIST</Property>
<Object Class="TFBFileSetPattern" XMLID="{B9A535A2-0090-4530-A298-1F2566525C68}"><Property MultiValue="0" name="Comment" type="string"></Property>
<Property name="IsRegExpr" type="Boolean">False</Property>
<Property MultiValue="0" name="Item" type="string">*.*</Property>
<Property name="Recurse" type="Boolean">False</Property>
</Object>
</Object>
<Object Class="TFBFileSetPatternList" XMLID="{9C8884C4-AC87-4A06-9C76-F6FCF3C9E49A}"><Property MultiValue="0" name="Name" type="string">EXCLUDEPATTERNLIST</Property>
</Object>
<Object Class="TFBFileSetFilterList" XMLID="{93191189-6FD7-4733-A59A-F4F2581CB00C}"/>
</Object>
</Object>
<Object Class="TCommentAction" XMLID="{0C0BACA7-33E4-4C67-9DD8-BC1EDCF60346}"><Property MultiValue="0" name="ActionComment" type="string"></Property>
<Property MultiValue="0" name="ActionDescription" type="string">#</Property>
<Property name="ActionTextColor" type="Cardinal">16711680</Property>
<Property MultiValue="0" name="ActionTypeID" type="string"></Property>
<Property MultiValue="0" name="Description" type="string">#</Property>
<Property name="Enabled" type="WordBool">True</Property>
<Property name="ExpandActionLogTitle" type="Boolean">True</Property>
<Property name="IgnoreFailure" type="WordBool">False</Property>
<Property name="IsAction" type="Boolean">True</Property>
<Property name="IsBreakPoint" type="WordBool">False</Property>
<Property MultiValue="0" name="LogToVariable" type="string"></Property>
<Property name="MaxRetryAttempts" type="Cardinal">0</Property>
<Property name="NodeCollapsed" type="Boolean">False</Property>
<Property name="PauseInterval" type="Cardinal">0</Property>
<Property name="RetryPauseInterval" type="Cardinal">1000</Property>
<Property name="SuppressStatusMessages" type="Boolean">False</Property>
</Object>
<Object Class="TCommentAction" XMLID="{0EE1EBCC-CBBC-423C-8A8B-C539E0AD3F1A}"><Property MultiValue="0" name="ActionComment" type="string"></Property>
<Property MultiValue="0" name="ActionDescription" type="string">#</Property>
<Property name="ActionTextColor" type="Cardinal">16711680</Property>
<Property MultiValue="0" name="ActionTypeID" type="string"></Property>
<Property MultiValue="0" name="Description" type="string">#</Property>
<Property name="Enabled" type="WordBool">True</Property>
<Property name="ExpandActionLogTitle" type="Boolean">True</Property>
<Property name="IgnoreFailure" type="WordBool">False</Property>
<Property name="IsAction" type="Boolean">True</Property>
<Property name="IsBreakPoint" type="WordBool">False</Property>
<Property MultiValue="0" name="LogToVariable" type="string"></Property>
<Property name="MaxRetryAttempts" type="Cardinal">0</Property>
<Property name="NodeCollapsed" type="Boolean">False</Property>
<Property name="PauseInterval" type="Cardinal">0</Property>
<Property name="RetryPauseInterval" type="Cardinal">1000</Property>
<Property name="SuppressStatusMessages" type="Boolean">False</Property>
</Object>
<Object Class="TCommentAction" XMLID="{414785EC-5943-4162-A8E1-E74A8C7444AA}"><Property MultiValue="0" name="ActionComment" type="string"></Property>
<Property MultiValue="0" name="ActionDescription" type="string">#</Property>
<Property name="ActionTextColor" type="Cardinal">16711680</Property>
<Property MultiValue="0" name="ActionTypeID" type="string"></Property>
<Property MultiValue="0" name="Description" type="string">#</Property>
<Property name="Enabled" type="WordBool">True</Property>
<Property name="ExpandActionLogTitle" type="Boolean">True</Property>
<Property name="IgnoreFailure" type="WordBool">False</Property>
<Property name="IsAction" type="Boolean">True</Property>
<Property name="IsBreakPoint" type="WordBool">False</Property>
<Property MultiValue="0" name="LogToVariable" type="string"></Property>
<Property name="MaxRetryAttempts" type="Cardinal">0</Property>
<Property name="NodeCollapsed" type="Boolean">False</Property>
<Property name="PauseInterval" type="Cardinal">0</Property>
<Property name="RetryPauseInterval" type="Cardinal">1000</Property>
<Property name="SuppressStatusMessages" type="Boolean">False</Property>
</Object>
<Object Class="TFTPDisconnectAction" XMLID="{A0067CDC-7F31-43A8-A938-A97C20D918D4}"><Property MultiValue="0" name="ActionComment" type="string"></Property>
<Property MultiValue="1" name="ActionDescription" type="string"><![CDATA[FTP Disconnect [ FTP Actualizaciones ]]]>
</Property>
<Property name="ActionTextColor" type="Cardinal">0</Property>
<Property MultiValue="0" name="ActionTypeID" type="string"></Property>
<Property MultiValue="1" name="ConnectionName" type="string"><![CDATA[FTP Actualizaciones]]>
</Property>
<Property name="DetailedLogging" type="Boolean">False</Property>
<Property name="Enabled" type="WordBool">True</Property>
<Property name="ExpandActionLogTitle" type="Boolean">True</Property>
<Property name="IgnoreFailure" type="WordBool">False</Property>
<Property name="IsAction" type="Boolean">True</Property>
<Property name="IsBreakPoint" type="WordBool">False</Property>
<Property MultiValue="0" name="LogToVariable" type="string"></Property>
<Property name="MaxRetryAttempts" type="Cardinal">0</Property>
<Property name="NodeCollapsed" type="Boolean">False</Property>
<Property name="PauseInterval" type="Cardinal">0</Property>
<Property name="RetryPauseInterval" type="Cardinal">1000</Property>
<Property name="SuppressStatusMessages" type="Boolean">False</Property>
</Object>
</Object>
<Object Class="TFBActionListParametersCollection" XMLID="{B49D139C-E17C-41DB-BA6F-9E7BE6658A3F}"/>
</Object>
<Object Class="TFBActionList" XMLID="{6E64816C-A2E7-4975-BB38-6B7F97A9A2A0}"><Property name="IsFailure" type="Boolean">True</Property>
<Property name="IsMain" type="Boolean">False</Property>
<Property MultiValue="0" name="Name" type="string">OnFailure</Property>
<Property MultiValue="0" name="UniqueID" type="string">{3825909B-D200-4593-9304-63A49FA84CA9}</Property>
<Object Class="TFBAction" XMLID="{0F620111-B2BA-4349-A799-E868BAFB041F}"><Property MultiValue="0" name="ActionComment" type="string"></Property>
<Property MultiValue="0" name="ActionDescription" type="string">FinalBuilderAction</Property>
<Property name="ActionTextColor" type="Cardinal">0</Property>
<Property MultiValue="0" name="ActionTypeID" type="string"></Property>
<Property name="Enabled" type="WordBool">True</Property>
<Property name="ExpandActionLogTitle" type="Boolean">True</Property>
<Property name="IgnoreFailure" type="WordBool">False</Property>
<Property name="IsAction" type="Boolean">True</Property>
<Property name="IsBreakPoint" type="WordBool">False</Property>
<Property MultiValue="0" name="LogToVariable" type="string"></Property>
<Property name="MaxRetryAttempts" type="Cardinal">0</Property>
<Property name="NodeCollapsed" type="Boolean">False</Property>
<Property name="PauseInterval" type="Cardinal">0</Property>
<Property name="RetryPauseInterval" type="Cardinal">1000</Property>
<Property name="SuppressStatusMessages" type="Boolean">False</Property>
</Object>
<Object Class="TFBActionListParametersCollection" XMLID="{E15A5391-4DA5-47D3-ADDC-B6BC9AB70F7A}"/>
</Object>
</Object>
<Object Class="TFBVariablesCollection" XMLID="{7255F19A-68E5-4C57-9854-E7C3E6E8F9CB}"><Property MultiValue="0" name="Name" type="string">Project</Property>
<Object Class="TFBVariable" XMLID="{23BA1DA8-C505-471D-A53E-5811A50DAEA2}"><Property MultiValue="0" name="Comment" type="string"></Property>
<Property MultiValue="0" name="DefaultValue" type="string"></Property>
<Property name="IsMacro" type="Boolean">False</Property>
<Property name="IsPersistent" type="Boolean">False</Property>
<Property name="MakeEnv" type="Boolean">False</Property>
<Property MultiValue="0" name="Name" type="string">FTPAddress</Property>
<Property name="VariableType" type="TFBVariableType">vtProject</Property>
</Object>
<Object Class="TFBVariable" XMLID="{976221CE-22AE-41F2-807D-539435613FC4}"><Property MultiValue="0" name="Comment" type="string"></Property>
<Property MultiValue="0" name="DefaultValue" type="string"></Property>
<Property name="IsMacro" type="Boolean">False</Property>
<Property name="IsPersistent" type="Boolean">False</Property>
<Property name="MakeEnv" type="Boolean">False</Property>
<Property MultiValue="0" name="Name" type="string">FTPRemotePath</Property>
<Property name="VariableType" type="TFBVariableType">vtProject</Property>
</Object>
<Object Class="TFBVariable" XMLID="{FEDCC39B-1CF9-4510-B360-FB33B625CD51}"><Property MultiValue="0" name="Comment" type="string"></Property>
<Property MultiValue="0" name="DefaultValue" type="string"></Property>
<Property name="IsMacro" type="Boolean">False</Property>
<Property name="IsPersistent" type="Boolean">False</Property>
<Property name="MakeEnv" type="Boolean">False</Property>
<Property MultiValue="0" name="Name" type="string">FTPUser</Property>
<Property name="VariableType" type="TFBVariableType">vtProject</Property>
</Object>
<Object Class="TFBVariable" XMLID="{8578F671-4F91-4D84-85AF-BBEE59425ACF}"><Property MultiValue="0" name="Comment" type="string"></Property>
<Property MultiValue="0" name="DefaultValue" type="string"></Property>
<Property name="IsMacro" type="Boolean">False</Property>
<Property name="IsPersistent" type="Boolean">False</Property>
<Property name="MakeEnv" type="Boolean">False</Property>
<Property MultiValue="0" name="Name" type="string">FTPPassword</Property>
<Property name="VariableType" type="TFBVariableType">vtProject</Property>
</Object>
<Object Class="TFBVariable" XMLID="{02D50FCB-BC86-407E-B5D9-DA4F9C6E5F49}"><Property MultiValue="0" name="Comment" type="string"></Property>
<Property MultiValue="0" name="DefaultValue" type="string"></Property>
<Property name="IsMacro" type="Boolean">False</Property>
<Property name="IsPersistent" type="Boolean">False</Property>
<Property name="MakeEnv" type="Boolean">False</Property>
<Property MultiValue="0" name="Name" type="string">_aux_directoylist</Property>
<Property name="VariableType" type="TFBVariableType">vtProject</Property>
</Object>
<Object Class="TFBVariable" XMLID="{01B15C1E-1D63-4EC0-B7C9-0D3A1BE252A4}"><Property MultiValue="0" name="Comment" type="string"></Property>
<Property MultiValue="0" name="DefaultValue" type="string"></Property>
<Property name="IsMacro" type="Boolean">False</Property>
<Property name="IsPersistent" type="Boolean">False</Property>
<Property name="MakeEnv" type="Boolean">False</Property>
<Property MultiValue="0" name="Name" type="string">_aux_filename</Property>
<Property name="VariableType" type="TFBVariableType">vtProject</Property>
</Object>
<Object Class="TFBVariable" XMLID="{C9ED743F-AF5C-4FB5-9808-070B3F4E32A1}"><Property MultiValue="0" name="Comment" type="string"></Property>
<Property MultiValue="0" name="DefaultValue" type="string"></Property>
<Property name="IsMacro" type="Boolean">False</Property>
<Property name="IsPersistent" type="Boolean">False</Property>
<Property name="MakeEnv" type="Boolean">False</Property>
<Property MultiValue="0" name="Name" type="string">project_path</Property>
<Property name="VariableType" type="TFBVariableType">vtProject</Property>
</Object>
</Object>
</Object>
</VSXML>

BIN
Build/UploadFTP.fbz6
View File

Binary file not shown.

BIN
Database/FACTUGES.FDB
View File

Binary file not shown.

215
Database/Script.txt Normal file
View File

@ -0,0 +1,215 @@
ALTER TABLE ALBARANES_CLIENTE
ADD ID_ALBARAN_DEV TIPO_ID;
ALTER TABLE ALBARANES_PROVEEDOR
ADD ID_ALBARAN_DEV TIPO_ID;
DROP VIEW V_ALBARANES_CLIENTE;
CREATE VIEW V_ALBARANES_CLIENTE(
ID,
ID_EMPRESA,
ID_CLIENTE,
NOMBRE,
FECHA_ALBARAN,
REFERENCIA,
REFERENCIA_CLIENTE,
TIPO,
ID_ALBARAN_DEV,
REFERENCIA_ALB_DEV,
ID_FAC_ALB_DEV,
REFERENCIA_FAC_ALB_DEV,
SITUACION,
ID_ALMACEN,
NOMBRE_ALMACEN,
ID_PEDIDO,
REF_PEDIDO,
ID_FACTURA,
REF_FACTURA,
CALLE,
CODIGO_POSTAL,
POBLACION,
PROVINCIA,
PERSONA_CONTACTO,
TELEFONO,
IMPORTE_NETO,
IMPORTE_PORTE,
DESCUENTO,
IMPORTE_DESCUENTO,
BASE_IMPONIBLE,
IVA,
IMPORTE_IVA,
IMPORTE_TOTAL,
OBSERVACIONES,
INCIDENCIAS,
INCIDENCIAS_ACTIVAS,
FECHA_ALTA,
FECHA_MODIFICACION,
USUARIO,
ID_FORMA_PAGO,
FECHA_PREVISTA_ENVIO,
FECHA_ENVIO,
FECHA_RECEPCION,
ID_AGENTE,
AGENTE,
NUM_COPIAS)
AS
SELECT
ALBARANES_CLIENTE.ID,
ALBARANES_CLIENTE.ID_EMPRESA,
ALBARANES_CLIENTE.ID_CLIENTE,
CLIENTES.NOMBRE,
ALBARANES_CLIENTE.FECHA_ALBARAN,
ALBARANES_CLIENTE.REFERENCIA,
ALBARANES_CLIENTE.REFERENCIA_CLIENTE,
ALBARANES_CLIENTE.TIPO,
ALBARANES_CLIENTE.ID_ALBARAN_DEV,
ALB_DEV.REFERENCIA,
ALB_DEV.ID_FACTURA,
FAC_CLI_ALB_DEV.REFERENCIA,
V_ALB_CLI_SITUACION.SITUACION,
ALBARANES_CLIENTE.ID_ALMACEN,
ALMACENES.NOMBRE AS NOMBRE_ALMACEN,
ALBARANES_CLIENTE.ID_PEDIDO,
PEDIDOS_CLIENTE.REFERENCIA AS REF_PEDIDO,
ALBARANES_CLIENTE.ID_FACTURA,
FACTURAS_CLIENTE.REFERENCIA AS REF_FACTURA,
ALBARANES_CLIENTE.CALLE,
ALBARANES_CLIENTE.CODIGO_POSTAL,
ALBARANES_CLIENTE.POBLACION,
ALBARANES_CLIENTE.PROVINCIA,
ALBARANES_CLIENTE.PERSONA_CONTACTO,
ALBARANES_CLIENTE.TELEFONO,
ALBARANES_CLIENTE.IMPORTE_NETO,
ALBARANES_CLIENTE.IMPORTE_PORTE,
ALBARANES_CLIENTE.DESCUENTO,
ALBARANES_CLIENTE.IMPORTE_DESCUENTO,
ALBARANES_CLIENTE.BASE_IMPONIBLE,
ALBARANES_CLIENTE.IVA,
ALBARANES_CLIENTE.IMPORTE_IVA,
ALBARANES_CLIENTE.IMPORTE_TOTAL,
ALBARANES_CLIENTE.OBSERVACIONES,
ALBARANES_CLIENTE.INCIDENCIAS,
ALBARANES_CLIENTE.INCIDENCIAS_ACTIVAS,
ALBARANES_CLIENTE.FECHA_ALTA,
ALBARANES_CLIENTE.FECHA_MODIFICACION,
ALBARANES_CLIENTE.USUARIO,
ALBARANES_CLIENTE.ID_FORMA_PAGO,
ALBARANES_CLIENTE.FECHA_PREVISTA_ENVIO,
ALBARANES_CLIENTE.FECHA_ENVIO,
ALBARANES_CLIENTE.FECHA_RECEPCION,
CLIENTES_DATOS.ID_AGENTE,
AGENTES.NOMBRE,
IMPRESIONES.NUM_COPIAS
FROM
ALBARANES_CLIENTE
INNER JOIN V_ALB_CLI_SITUACION ON (V_ALB_CLI_SITUACION.ID = ALBARANES_CLIENTE.ID)
INNER JOIN CONTACTOS CLIENTES ON (CLIENTES.ID = ALBARANES_CLIENTE.ID_CLIENTE)
LEFT OUTER JOIN ALBARANES_CLIENTE ALB_DEV ON (ALB_DEV.ID = ALBARANES_CLIENTE.ID_ALBARAN_DEV)
LEFT OUTER JOIN FACTURAS_CLIENTE FAC_CLI_ALB_DEV ON (FAC_CLI_ALB_DEV.ID = ALB_DEV.ID_FACTURA)
LEFT OUTER JOIN CLIENTES_DATOS ON (CLIENTES_DATOS.ID_CLIENTE = ALBARANES_CLIENTE.ID_CLIENTE)
LEFT OUTER JOIN CONTACTOS AGENTES ON (AGENTES.ID = CLIENTES_DATOS.ID_AGENTE)
LEFT OUTER JOIN PEDIDOS_CLIENTE ON (PEDIDOS_CLIENTE.ID = ALBARANES_CLIENTE.ID_PEDIDO)
LEFT OUTER JOIN FACTURAS_CLIENTE ON (FACTURAS_CLIENTE.ID = ALBARANES_CLIENTE.ID_FACTURA)
LEFT OUTER JOIN ALMACENES ON (ALMACENES.ID = ALBARANES_CLIENTE.ID_ALMACEN)
LEFT JOIN IMPRESIONES ON ((IMPRESIONES.ID_TABLA = ALBARANES_CLIENTE.ID) AND (IMPRESIONES.TABLA = 'ALBARANESCLIENTE'))
;
DROP VIEW V_ALBARANES_PROVEEDOR;
CREATE VIEW V_ALBARANES_PROVEEDOR(
ID,
ID_EMPRESA,
ID_PROVEEDOR,
NOMBRE,
FECHA_ALBARAN,
REFERENCIA,
REFERENCIA_PROVEEDOR,
TIPO,
ID_ALBARAN_DEV,
REFERENCIA_ALB_DEV,
ID_FAC_ALB_DEV,
REFERENCIA_FAC_ALB_DEV,
ID_ALMACEN,
NOMBRE_ALMACEN,
ID_PEDIDO,
REF_PED_PROVEEDOR,
ID_FACTURA,
REF_FACTURA,
REF_FACTURA_PROV,
CALLE,
CODIGO_POSTAL,
POBLACION,
PROVINCIA,
PERSONA_CONTACTO,
TELEFONO,
IMPORTE_NETO,
IMPORTE_PORTE,
DESCUENTO,
IMPORTE_DESCUENTO,
BASE_IMPONIBLE,
IVA,
IMPORTE_IVA,
IMPORTE_TOTAL,
OBSERVACIONES,
INCIDENCIAS,
INCIDENCIAS_ACTIVAS,
FECHA_ALTA,
FECHA_MODIFICACION,
USUARIO,
ID_FORMA_PAGO,
NUM_COPIAS)
AS
SELECT
ALBARANES_PROVEEDOR.ID,
ALBARANES_PROVEEDOR.ID_EMPRESA,
ALBARANES_PROVEEDOR.ID_PROVEEDOR,
CONTACTOS.NOMBRE,
ALBARANES_PROVEEDOR.FECHA_ALBARAN,
ALBARANES_PROVEEDOR.REFERENCIA,
ALBARANES_PROVEEDOR.REFERENCIA_PROVEEDOR,
ALBARANES_PROVEEDOR.TIPO,
ALBARANES_PROVEEDOR.ID_ALBARAN_DEV,
ALB_DEV.REFERENCIA,
ALB_DEV.ID_FACTURA,
FAC_PROV_ALB_DEV.REFERENCIA,
ALBARANES_PROVEEDOR.ID_ALMACEN,
ALMACENES.NOMBRE AS NOMBRE_ALMACEN,
ALBARANES_PROVEEDOR.ID_PEDIDO,
PEDIDOS_PROVEEDOR.REFERENCIA AS REF_PED_PROVEEDOR,
ALBARANES_PROVEEDOR.ID_FACTURA,
FACTURAS_PROVEEDOR.REFERENCIA AS REF_FACTURA,
ALBARANES_PROVEEDOR.REF_FACTURA_PROV,
ALBARANES_PROVEEDOR.CALLE,
ALBARANES_PROVEEDOR.CODIGO_POSTAL,
ALBARANES_PROVEEDOR.POBLACION,
ALBARANES_PROVEEDOR.PROVINCIA,
ALBARANES_PROVEEDOR.PERSONA_CONTACTO,
ALBARANES_PROVEEDOR.TELEFONO,
ALBARANES_PROVEEDOR.IMPORTE_NETO,
ALBARANES_PROVEEDOR.IMPORTE_PORTE,
ALBARANES_PROVEEDOR.DESCUENTO,
ALBARANES_PROVEEDOR.IMPORTE_DESCUENTO,
ALBARANES_PROVEEDOR.BASE_IMPONIBLE,
ALBARANES_PROVEEDOR.IVA,
ALBARANES_PROVEEDOR.IMPORTE_IVA,
ALBARANES_PROVEEDOR.IMPORTE_TOTAL,
ALBARANES_PROVEEDOR.OBSERVACIONES,
ALBARANES_PROVEEDOR.INCIDENCIAS,
ALBARANES_PROVEEDOR.INCIDENCIAS_ACTIVAS,
ALBARANES_PROVEEDOR.FECHA_ALTA,
ALBARANES_PROVEEDOR.FECHA_MODIFICACION,
ALBARANES_PROVEEDOR.USUARIO,
ALBARANES_PROVEEDOR.ID_FORMA_PAGO,
IMPRESIONES.NUM_COPIAS
FROM
ALBARANES_PROVEEDOR
INNER JOIN CONTACTOS ON (CONTACTOS.ID = ALBARANES_PROVEEDOR.ID_PROVEEDOR)
LEFT OUTER JOIN ALBARANES_PROVEEDOR ALB_DEV ON (ALB_DEV.ID = ALBARANES_PROVEEDOR.ID_ALBARAN_DEV)
LEFT OUTER JOIN FACTURAS_PROVEEDOR FAC_PROV_ALB_DEV ON (FAC_PROV_ALB_DEV.ID = ALB_DEV.ID_FACTURA)
LEFT OUTER JOIN PEDIDOS_PROVEEDOR ON (PEDIDOS_PROVEEDOR.ID = ALBARANES_PROVEEDOR.ID_PEDIDO)
LEFT OUTER JOIN FACTURAS_PROVEEDOR ON (FACTURAS_PROVEEDOR.ID = ALBARANES_PROVEEDOR.ID_FACTURA)
LEFT OUTER JOIN ALMACENES ON (ALMACENES.ID = ALBARANES_PROVEEDOR.ID_ALMACEN)
LEFT JOIN IMPRESIONES ON ((IMPRESIONES.ID_TABLA = ALBARANES_PROVEEDOR.ID) AND (IMPRESIONES.TABLA = 'ALBARANESPROVEEDOR'))
;

424
Database/VISTAS.SQL
View File

@ -85,9 +85,7 @@ DROP VIEW V_RECIBOS_PROVEEDOR;
DROP VIEW V_REMESAS_PROVEEDOR;
DROP VIEW V_REC_PRO_COMPENSADOS;
DROP VIEW V_REC_CLI_SITUACION;
DROP VIEW V_REC_CLI_SIT_SINCOMPENSAR;
DROP VIEW V_REC_PRO_SITUACION;
DROP VIEW V_REC_PRO_SIT_SINCOMPENSAR;
DROP VIEW V_REC_FAC_CLI;
DROP VIEW V_REC_FAC_PRO;
DROP VIEW V_AGENTES;
@ -177,6 +175,7 @@ CREATE VIEW V_CLIENTES(
ID_AGENTE,
GRUPO_CLIENTE,
NOMBRE_COMERCIAL,
VENCIMIENTO_FACTURAS,
BLOQUEADO,
REGIMEN_IVA,
MOTIVO_BLOQUEO,
@ -186,10 +185,7 @@ CREATE VIEW V_CLIENTES(
TIENDA_WEB,
AGENTE,
RAPEL,
EMAIL_ADMINISTRACION,
VENCIMIENTO_FACTURAS_1,
VENCIMIENTO_FACTURAS_2,
VENCIMIENTO_FACTURAS_3)
EMAIL_ADMINISTRACION)
AS
SELECT
V_CONTACTOS.ID,
@ -217,6 +213,7 @@ SELECT
CLIENTES_DATOS.ID_AGENTE,
CLIENTES_DATOS.GRUPO_CLIENTE,
CLIENTES_DATOS.NOMBRE_COMERCIAL,
CLIENTES_DATOS.VENCIMIENTO_FACTURAS,
CLIENTES_DATOS.BLOQUEADO,
CLIENTES_DATOS.REGIMEN_IVA,
CLIENTES_DATOS.MOTIVO_BLOQUEO,
@ -226,11 +223,7 @@ SELECT
CLIENTES_DATOS.TIENDA_WEB,
CONTACTOS.NOMBRE AS AGENTE,
CLIENTES_DATOS.RAPEL,
CLIENTES_DATOS.EMAIL_ADMINISTRACION,
CLIENTES_DATOS.VENCIMIENTO_FACTURAS_1,
CLIENTES_DATOS.VENCIMIENTO_FACTURAS_2,
CLIENTES_DATOS.VENCIMIENTO_FACTURAS_3
CLIENTES_DATOS.EMAIL_ADMINISTRACION
FROM
V_CONTACTOS
LEFT OUTER JOIN CLIENTES_DATOS ON (V_CONTACTOS.ID = CLIENTES_DATOS.ID_CLIENTE)
@ -267,10 +260,7 @@ CREATE VIEW V_PROVEEDORES(
ID_TIPO_IVA,
ID_FORMA_PAGO,
TIENDA_WEB,
EMAIL_ADMINISTRACION,
VENCIMIENTO_FACTURAS_1,
VENCIMIENTO_FACTURAS_2,
VENCIMIENTO_FACTURAS_3)
EMAIL_ADMINISTRACION)
AS
SELECT
V_CONTACTOS.ID,
@ -300,11 +290,7 @@ SELECT
PROVEEDORES_DATOS.ID_TIPO_IVA,
PROVEEDORES_DATOS.ID_FORMA_PAGO,
PROVEEDORES_DATOS.TIENDA_WEB,
PROVEEDORES_DATOS.EMAIL_ADMINISTRACION,
PROVEEDORES_DATOS.VENCIMIENTO_FACTURAS_1,
PROVEEDORES_DATOS.VENCIMIENTO_FACTURAS_2,
PROVEEDORES_DATOS.VENCIMIENTO_FACTURAS_3
PROVEEDORES_DATOS.EMAIL_ADMINISTRACION
FROM
PROVEEDORES_DATOS
INNER JOIN V_CONTACTOS ON (PROVEEDORES_DATOS.ID_PROVEEDOR = V_CONTACTOS.ID)
@ -354,8 +340,7 @@ CREATE VIEW V_ALBARANES_PROVEEDOR(
FECHA_MODIFICACION,
USUARIO,
ID_FORMA_PAGO,
NUM_COPIAS,
NUM_CORREOS)
NUM_COPIAS)
AS
SELECT
ALBARANES_PROVEEDOR.ID,
@ -398,8 +383,7 @@ SELECT
ALBARANES_PROVEEDOR.FECHA_MODIFICACION,
ALBARANES_PROVEEDOR.USUARIO,
ALBARANES_PROVEEDOR.ID_FORMA_PAGO,
IMPRESIONES.NUM_COPIAS,
REGISTRO_CORREOS.NUM_CORREOS
IMPRESIONES.NUM_COPIAS
FROM
ALBARANES_PROVEEDOR
INNER JOIN CONTACTOS ON (CONTACTOS.ID = ALBARANES_PROVEEDOR.ID_PROVEEDOR)
@ -408,11 +392,7 @@ FROM
LEFT OUTER JOIN PEDIDOS_PROVEEDOR ON (PEDIDOS_PROVEEDOR.ID = ALBARANES_PROVEEDOR.ID_PEDIDO)
LEFT OUTER JOIN FACTURAS_PROVEEDOR ON (FACTURAS_PROVEEDOR.ID = ALBARANES_PROVEEDOR.ID_FACTURA)
LEFT OUTER JOIN ALMACENES ON (ALMACENES.ID = ALBARANES_PROVEEDOR.ID_ALMACEN)
LEFT JOIN IMPRESIONES
ON ((IMPRESIONES.ID_TABLA = ALBARANES_PROVEEDOR.ID) AND (IMPRESIONES.TABLA = 'ALBARANESPROVEEDOR'))
LEFT JOIN REGISTRO_CORREOS
ON ((REGISTRO_CORREOS.ID_TABLA = ALBARANES_PROVEEDOR.ID) AND (REGISTRO_CORREOS.TABLA = 'ALBARANESPROVEEDOR'))
;
LEFT JOIN IMPRESIONES ON ((IMPRESIONES.ID_TABLA = ALBARANES_PROVEEDOR.ID) AND (IMPRESIONES.TABLA = 'ALBARANESPROVEEDOR'));
CREATE VIEW V_AGENTES(
@ -484,7 +464,8 @@ LEFT JOIN RECIBOS_CLIENTE
ON (RECIBOS_CLIENTE.ID_FACTURA = FACTURAS_CLIENTE.ID)
GROUP BY FACTURAS_CLIENTE.ID;
CREATE VIEW V_REC_PRO_SIT_SINCOMPENSAR(
CREATE VIEW V_REC_PRO_SITUACION(
ID_RECIBO,
SITUACION)
AS
@ -498,21 +479,8 @@ LEFT JOIN PAGOS_PROVEEDOR
ON (PAGOS_PROVEEDOR.ID_RECIBO = RECIBOS_PROVEEDOR.ID)
GROUP BY RECIBOS_PROVEEDOR.ID;
CREATE VIEW V_REC_PRO_SITUACION(
ID_RECIBO,
SITUACION)
AS
select
a1.ID_RECIBO,
case when recibos_proveedor.id_recibo_compensado is null then a1.SITUACION
else a2.SITUACION
end as situacion
from V_REC_PRO_SIT_SINCOMPENSAR a1
left join recibos_proveedor on (recibos_proveedor.id = a1.ID_RECIBO)
left join V_REC_PRO_SIT_SINCOMPENSAR a2 on (a2.id_recibo = recibos_proveedor.id_recibo_compensado);
CREATE VIEW V_REC_CLI_SIT_SINCOMPENSAR(
CREATE VIEW V_REC_CLI_SITUACION(
ID_RECIBO,
SITUACION)
AS
@ -524,21 +492,7 @@ END
FROM RECIBOS_CLIENTE
LEFT JOIN PAGOS_CLIENTE
ON (PAGOS_CLIENTE.ID_RECIBO = RECIBOS_CLIENTE.ID)
GROUP BY RECIBOS_CLIENTE.ID
;
CREATE VIEW V_REC_CLI_SITUACION(
ID_RECIBO,
SITUACION)
AS
select
a1.ID_RECIBO,
case when recibos_cliente.id_recibo_compensado is null then a1.SITUACION
else a2.SITUACION
end as situacion
from V_REC_CLI_SIT_SINCOMPENSAR a1
left join recibos_cliente on (recibos_cliente.id = a1.ID_RECIBO)
left join V_REC_CLI_SIT_SINCOMPENSAR a2 on (a2.id_recibo = recibos_cliente.id_recibo_compensado);
GROUP BY RECIBOS_CLIENTE.ID;
CREATE VIEW V_REC_PRO_COMPENSADOS (
@ -589,7 +543,11 @@ SELECT RECIBOS_PROVEEDOR.ID,
RECIBO_COMPENSADO1.REFERENCIA,
RECIBOS_PROVEEDOR.REFERENCIA,
RECIBOS_PROVEEDOR.REFERENCIA_PROVEEDOR,
V_REC_PRO_SITUACION.SITUACION,
CASE
WHEN RECIBOS_PROVEEDOR.ID_RECIBO_COMPENSADO IS NULL
THEN V_REC_PRO_SITUACION.SITUACION
ELSE RECIBO_COMPENSADO2.SITUACION
END,
RECIBOS_PROVEEDOR.ID_FACTURA,
RECIBOS_PROVEEDOR.ID_REMESA, REMESAS_PROVEEDOR.REFERENCIA as REFERENCIA_REMESA,
RECIBOS_PROVEEDOR.FECHA_EMISION, RECIBOS_PROVEEDOR.FECHA_VENCIMIENTO, RECIBOS_PROVEEDOR.DESCRIPCION,
@ -624,7 +582,8 @@ LEFT JOIN V_REC_PRO_COMPENSADOS
ON (V_REC_PRO_COMPENSADOS.ID_RECIBO = RECIBOS_PROVEEDOR.ID)
LEFT JOIN RECIBOS_PROVEEDOR RECIBO_COMPENSADO1
ON (RECIBO_COMPENSADO1.ID = RECIBOS_PROVEEDOR.ID_RECIBO_COMPENSADO)
;
LEFT JOIN V_REC_PRO_SITUACION RECIBO_COMPENSADO2
ON (RECIBO_COMPENSADO2.ID_RECIBO = RECIBOS_PROVEEDOR.ID_RECIBO_COMPENSADO);
CREATE VIEW V_REC_CLI_COMPENSADOS (
@ -638,43 +597,46 @@ group by ID_RECIBO_COMPENSADO;
CREATE VIEW V_RECIBOS_CLIENTE(
ID,
ID_RECIBO_COMPENSADO,
REFERENCIA_REC_COMPENSADO,
REFERENCIA,
SITUACION,
ID_FACTURA,
ID_REMESA,
REFERENCIA_REMESA,
FECHA_EMISION,
FECHA_VENCIMIENTO,
DESCRIPCION,
OBSERVACIONES,
IMPORTE,
OTROS_GASTOS,
IMPORTE_TOTAL,
FECHA_FACTURA,
FORMA_PAGO_FACTURA,
IMPORTE_FACTURA,
ID_EMPRESA,
ID_CLIENTE,
NOMBRE_CLIENTE,
NIF_CIF_CLIENTE,
ENTIDAD_CLIENTE,
SUCURSAL_CLIENTE,
DC_CLIENTE,
CUENTA_CLIENTE,
FECHA_ALTA,
FECHA_MODIFICACION,
USUARIO,
NUM_COPIAS,
NUM_CORREOS)
AS
ID,
ID_RECIBO_COMPENSADO,
REFERENCIA_REC_COMPENSADO,
REFERENCIA,
SITUACION,
ID_FACTURA,
ID_REMESA,
REFERENCIA_REMESA,
FECHA_EMISION,
FECHA_VENCIMIENTO,
DESCRIPCION,
OBSERVACIONES,
IMPORTE,
OTROS_GASTOS,
IMPORTE_TOTAL,
FECHA_FACTURA,
FORMA_PAGO_FACTURA,
IMPORTE_FACTURA,
ID_EMPRESA,
ID_CLIENTE,
NOMBRE_CLIENTE,
NIF_CIF_CLIENTE,
ENTIDAD_CLIENTE,
SUCURSAL_CLIENTE,
DC_CLIENTE,
CUENTA_CLIENTE,
FECHA_ALTA,
FECHA_MODIFICACION,
USUARIO,
NUM_COPIAS)
AS
SELECT RECIBOS_CLIENTE.ID,
RECIBOS_CLIENTE.ID_RECIBO_COMPENSADO,
RECIBO_COMPENSADO1.REFERENCIA,
RECIBOS_CLIENTE.REFERENCIA,
V_REC_CLI_SITUACION.SITUACION,
CASE
WHEN RECIBOS_CLIENTE.ID_RECIBO_COMPENSADO IS NULL
THEN V_REC_CLI_SITUACION.SITUACION
ELSE RECIBO_COMPENSADO2.SITUACION
END,
RECIBOS_CLIENTE.ID_FACTURA,
RECIBOS_CLIENTE.ID_REMESA, REMESAS_CLIENTE.REFERENCIA as REFERENCIA_REMESA,
RECIBOS_CLIENTE.FECHA_EMISION, RECIBOS_CLIENTE.FECHA_VENCIMIENTO, RECIBOS_CLIENTE.DESCRIPCION,
@ -690,8 +652,7 @@ SELECT RECIBOS_CLIENTE.ID,
RECIBOS_CLIENTE.FECHA_ALTA,
RECIBOS_CLIENTE.FECHA_MODIFICACION,
RECIBOS_CLIENTE.USUARIO,
IMPRESIONES.NUM_COPIAS,
REGISTRO_CORREOS.NUM_CORREOS
IMPRESIONES.NUM_COPIAS
FROM RECIBOS_CLIENTE
LEFT JOIN V_REC_CLI_SITUACION
@ -710,11 +671,9 @@ LEFT JOIN V_REC_CLI_COMPENSADOS
ON (V_REC_CLI_COMPENSADOS.ID_RECIBO = RECIBOS_CLIENTE.ID)
LEFT JOIN RECIBOS_CLIENTE RECIBO_COMPENSADO1
ON (RECIBO_COMPENSADO1.ID = RECIBOS_CLIENTE.ID_RECIBO_COMPENSADO)
LEFT JOIN IMPRESIONES
ON ((IMPRESIONES.ID_TABLA = RECIBOS_CLIENTE.ID) AND (IMPRESIONES.TABLA = 'RECIBOSCLIENTE'))
LEFT JOIN REGISTRO_CORREOS
ON ((REGISTRO_CORREOS.ID_TABLA = RECIBOS_CLIENTE.ID) AND (REGISTRO_CORREOS.TABLA = 'RECIBOSCLIENTE'))
;
LEFT JOIN V_REC_CLI_SITUACION RECIBO_COMPENSADO2
ON (RECIBO_COMPENSADO2.ID_RECIBO = RECIBOS_CLIENTE.ID_RECIBO_COMPENSADO)
LEFT JOIN IMPRESIONES ON ((IMPRESIONES.ID_TABLA = RECIBOS_CLIENTE.ID) AND (IMPRESIONES.TABLA = 'RECIBOSCLIENTE'));
@ -838,40 +797,39 @@ GROUP BY ID_FACTURA;
CREATE VIEW V_FACTURAS_PROVEEDOR(
ID,
ID_EMPRESA,
REFERENCIA,
TIPO,
REFERENCIA_PROVEEDOR,
FECHA_FACTURA,
SITUACION,
BASE_IMPONIBLE,
DESCUENTO,
IMPORTE_DESCUENTO,
IVA,
IMPORTE_IVA,
RE,
IMPORTE_RE,
IMPORTE_TOTAL,
OBSERVACIONES,
ID_PROVEEDOR,
NIF_CIF,
NOMBRE,
CALLE,
POBLACION,
PROVINCIA,
CODIGO_POSTAL,
FECHA_ALTA,
FECHA_MODIFICACION,
USUARIO,
ID_FORMA_PAGO,
RECARGO_EQUIVALENCIA,
ID_TIPO_IVA,
IMPORTE_NETO,
IMPORTE_PORTE,
NUM_COPIAS,
NUM_CORREOS)
AS
ID,
ID_EMPRESA,
REFERENCIA,
TIPO,
REFERENCIA_PROVEEDOR,
FECHA_FACTURA,
SITUACION,
BASE_IMPONIBLE,
DESCUENTO,
IMPORTE_DESCUENTO,
IVA,
IMPORTE_IVA,
RE,
IMPORTE_RE,
IMPORTE_TOTAL,
OBSERVACIONES,
ID_PROVEEDOR,
NIF_CIF,
NOMBRE,
CALLE,
POBLACION,
PROVINCIA,
CODIGO_POSTAL,
FECHA_ALTA,
FECHA_MODIFICACION,
USUARIO,
ID_FORMA_PAGO,
RECARGO_EQUIVALENCIA,
ID_TIPO_IVA,
IMPORTE_NETO,
IMPORTE_PORTE,
NUM_COPIAS)
AS
SELECT FACTURAS_PROVEEDOR.ID,
FACTURAS_PROVEEDOR.ID_EMPRESA,
FACTURAS_PROVEEDOR.REFERENCIA,
@ -903,18 +861,15 @@ SELECT FACTURAS_PROVEEDOR.ID,
FACTURAS_PROVEEDOR.ID_TIPO_IVA,
FACTURAS_PROVEEDOR.IMPORTE_NETO,
FACTURAS_PROVEEDOR.IMPORTE_PORTE,
IMPRESIONES.NUM_COPIAS,
REGISTRO_CORREOS.NUM_CORREOS
IMPRESIONES.NUM_COPIAS
FROM V_FAC_PRO_SITUACION
LEFT JOIN FACTURAS_PROVEEDOR
ON (FACTURAS_PROVEEDOR.ID = V_FAC_PRO_SITUACION.ID_FACTURA)
LEFT JOIN PROVEEDORES_DATOS
ON (PROVEEDORES_DATOS.ID_PROVEEDOR = FACTURAS_PROVEEDOR.ID_PROVEEDOR)
LEFT JOIN IMPRESIONES
ON ((IMPRESIONES.ID_TABLA = FACTURAS_PROVEEDOR.ID) AND (IMPRESIONES.TABLA = 'FACTURASPROVEEDOR'))
LEFT JOIN REGISTRO_CORREOS
ON ((REGISTRO_CORREOS.ID_TABLA = FACTURAS_PROVEEDOR.ID) AND (REGISTRO_CORREOS.TABLA = 'FACTURASPROVEEDOR'))
;
ON ((IMPRESIONES.ID_TABLA = FACTURAS_PROVEEDOR.ID) AND (IMPRESIONES.TABLA = 'FACTURASPROVEEDOR'));
CREATE VIEW V_FACTURAS_CLIENTE(
@ -928,7 +883,6 @@ CREATE VIEW V_FACTURAS_CLIENTE(
BASE_IMPONIBLE,
DESCUENTO,
IMPORTE_DESCUENTO,
DESCRIPCION_DESCUENTO,
IVA,
IMPORTE_IVA,
RE,
@ -965,7 +919,6 @@ SELECT FACTURAS_CLIENTE.ID,
FACTURAS_CLIENTE.BASE_IMPONIBLE,
FACTURAS_CLIENTE.DESCUENTO,
FACTURAS_CLIENTE.IMPORTE_DESCUENTO,
FACTURAS_CLIENTE.DESCRIPCION_DESCUENTO,
FACTURAS_CLIENTE.IVA,
FACTURAS_CLIENTE.IMPORTE_IVA,
FACTURAS_CLIENTE.RE,
@ -989,8 +942,7 @@ SELECT FACTURAS_CLIENTE.ID,
FACTURAS_CLIENTE.IMPORTE_PORTE,
CLIENTES_DATOS.ID_AGENTE,
COMISIONES_LIQUIDADAS.REFERENCIA,
IMPRESIONES.NUM_COPIAS,
REGISTRO_CORREOS.NUM_CORREOS
IMPRESIONES.NUM_COPIAS
FROM V_FAC_CLI_SITUACION
LEFT JOIN FACTURAS_CLIENTE
ON (FACTURAS_CLIENTE.ID = V_FAC_CLI_SITUACION.ID_FACTURA)
@ -1106,9 +1058,7 @@ CREATE VIEW V_ALBARANES_CLIENTE(
FECHA_RECEPCION,
ID_AGENTE,
AGENTE,
NUM_COPIAS,
NUM_CORREOS,
BLOQUEADO)
NUM_COPIAS)
AS
SELECT
ALBARANES_CLIENTE.ID,
@ -1156,9 +1106,7 @@ SELECT
ALBARANES_CLIENTE.FECHA_RECEPCION,
CLIENTES_DATOS.ID_AGENTE,
AGENTES.NOMBRE,
IMPRESIONES.NUM_COPIAS,
REGISTRO_CORREOS.NUM_CORREOS,
CLIENTES_DATOS.BLOQUEADO
IMPRESIONES.NUM_COPIAS
FROM
ALBARANES_CLIENTE
@ -1171,10 +1119,7 @@ FROM
LEFT OUTER JOIN PEDIDOS_CLIENTE ON (PEDIDOS_CLIENTE.ID = ALBARANES_CLIENTE.ID_PEDIDO)
LEFT OUTER JOIN FACTURAS_CLIENTE ON (FACTURAS_CLIENTE.ID = ALBARANES_CLIENTE.ID_FACTURA)
LEFT OUTER JOIN ALMACENES ON (ALMACENES.ID = ALBARANES_CLIENTE.ID_ALMACEN)
LEFT JOIN IMPRESIONES
ON ((IMPRESIONES.ID_TABLA = ALBARANES_CLIENTE.ID) AND (IMPRESIONES.TABLA = 'ALBARANESCLIENTE'))
LEFT JOIN REGISTRO_CORREOS
ON ((REGISTRO_CORREOS.ID_TABLA = ALBARANES_CLIENTE.ID) AND (REGISTRO_CORREOS.TABLA = 'ALBARANESCLIENTE'))
LEFT JOIN IMPRESIONES ON ((IMPRESIONES.ID_TABLA = ALBARANES_CLIENTE.ID) AND (IMPRESIONES.TABLA = 'ALBARANESCLIENTE'))
;
@ -1745,45 +1690,44 @@ group by id_pedido
CREATE VIEW V_PEDIDOS_CLIENTE(
ID,
ID_EMPRESA,
ID_CLIENTE,
NOMBRE,
REFERENCIA,
REFERENCIA_CLIENTE,
SITUACION,
FECHA_PEDIDO,
CALLE,
CODIGO_POSTAL,
POBLACION,
PROVINCIA,
PERSONA_CONTACTO,
TELEFONO,
OBSERVACIONES,
INCIDENCIAS,
INCIDENCIAS_ACTIVAS,
FECHA_ALTA,
FECHA_MODIFICACION,
USUARIO,
IMPORTE_NETO,
IMPORTE_PORTE,
DESCUENTO,
IMPORTE_DESCUENTO,
BASE_IMPONIBLE,
IVA,
IMPORTE_IVA,
IMPORTE_TOTAL,
ID_FORMA_PAGO,
REF_TIENDA_WEB,
FECHA_PREVISTA_ENVIO,
NUM_COPIAS,
NUM_CORREOS)
AS
ID,
ID_EMPRESA,
ID_CLIENTE,
NOMBRE,
REFERENCIA,
REFERENCIA_CLIENTE,
SITUACION,
FECHA_PEDIDO,
CALLE,
CODIGO_POSTAL,
POBLACION,
PROVINCIA,
PERSONA_CONTACTO,
TELEFONO,
OBSERVACIONES,
INCIDENCIAS,
INCIDENCIAS_ACTIVAS,
FECHA_ALTA,
FECHA_MODIFICACION,
USUARIO,
IMPORTE_NETO,
IMPORTE_PORTE,
DESCUENTO,
IMPORTE_DESCUENTO,
BASE_IMPONIBLE,
IVA,
IMPORTE_IVA,
IMPORTE_TOTAL,
ID_FORMA_PAGO,
REF_TIENDA_WEB,
FECHA_PREVISTA_ENVIO,
NUM_COPIAS)
AS
SELECT
PEDIDOS_CLIENTE.ID,
PEDIDOS_CLIENTE.ID_EMPRESA,
PEDIDOS_CLIENTE.ID_CLIENTE,
CONTACTOS.NOMBRE,
V_CLIENTES.NOMBRE,
PEDIDOS_CLIENTE.REFERENCIA,
PEDIDOS_CLIENTE.REFERENCIA_CLIENTE,
V_PED_CLI_SITUACION.SITUACION,
@ -1811,63 +1755,57 @@ SELECT
PEDIDOS_CLIENTE.ID_FORMA_PAGO,
PEDIDOS_CLIENTE.REF_TIENDA_WEB,
PEDIDOS_CLIENTE.FECHA_PREVISTA_ENVIO,
IMPRESIONES.NUM_COPIAS,
REGISTRO_CORREOS.NUM_CORREOS
IMPRESIONES.NUM_COPIAS
FROM
V_PED_CLI_SITUACION
INNER JOIN PEDIDOS_CLIENTE ON (PEDIDOS_CLIENTE.ID = V_PED_CLI_SITUACION.ID_PEDIDO)
INNER JOIN CONTACTOS ON (PEDIDOS_CLIENTE.ID_CLIENTE = CONTACTOS.ID)
LEFT JOIN IMPRESIONES
ON ((IMPRESIONES.ID_TABLA = PEDIDOS_CLIENTE.ID) AND (IMPRESIONES.TABLA = 'PEDIDOSCLIENTE'))
LEFT JOIN REGISTRO_CORREOS
ON ((REGISTRO_CORREOS.ID_TABLA = PEDIDOS_CLIENTE.ID) AND (REGISTRO_CORREOS.TABLA = 'PEDIDOSCLIENTE'))
;
INNER JOIN V_CLIENTES ON (PEDIDOS_CLIENTE.ID_CLIENTE = V_CLIENTES.ID)
LEFT JOIN IMPRESIONES ON ((IMPRESIONES.ID_TABLA = PEDIDOS_CLIENTE.ID) AND (IMPRESIONES.TABLA = 'PEDIDOSCLIENTE'));
CREATE VIEW V_PEDIDOS_PROVEEDOR(
ID,
ID_EMPRESA,
ID_PROVEEDOR,
NOMBRE,
REFERENCIA,
SITUACION,
FECHA_ENVIO,
FECHA_PEDIDO,
FECHA_CONFIRMACION,
FECHA_ENTREGA,
ID_ALMACEN,
NOMBRE_ALMACEN,
OBSERVACIONES,
IMPORTE_TOTAL,
INCIDENCIAS,
INCIDENCIAS_ACTIVAS,
CALLE,
POBLACION,
PROVINCIA,
CODIGO_POSTAL,
PERSONA_CONTACTO,
TELEFONO,
FECHA_ALTA,
FECHA_MODIFICACION,
USUARIO,
ID_PEDIDO_CLIENTE,
REF_PED_CLIENTE,
IMPORTE_NETO,
IMPORTE_PORTE,
DESCUENTO,
IMPORTE_DESCUENTO,
BASE_IMPONIBLE,
IVA,
IMPORTE_IVA,
ID_FORMA_PAGO,
NUM_COPIAS,
NUM_CORREOS)
AS
ID,
ID_EMPRESA,
ID_PROVEEDOR,
NOMBRE,
REFERENCIA,
SITUACION,
FECHA_ENVIO,
FECHA_PEDIDO,
FECHA_CONFIRMACION,
FECHA_ENTREGA,
ID_ALMACEN,
NOMBRE_ALMACEN,
OBSERVACIONES,
IMPORTE_TOTAL,
INCIDENCIAS,
INCIDENCIAS_ACTIVAS,
CALLE,
POBLACION,
PROVINCIA,
CODIGO_POSTAL,
PERSONA_CONTACTO,
TELEFONO,
FECHA_ALTA,
FECHA_MODIFICACION,
USUARIO,
ID_PEDIDO_CLIENTE,
REF_PED_CLIENTE,
IMPORTE_NETO,
IMPORTE_PORTE,
DESCUENTO,
IMPORTE_DESCUENTO,
BASE_IMPONIBLE,
IVA,
IMPORTE_IVA,
ID_FORMA_PAGO,
NUM_COPIAS)
AS
SELECT
PEDIDOS_PROVEEDOR.ID,
PEDIDOS_PROVEEDOR.ID_EMPRESA,
PEDIDOS_PROVEEDOR.ID_PROVEEDOR,
CONTACTOS.NOMBRE,
V_PROVEEDORES.NOMBRE,
PEDIDOS_PROVEEDOR.REFERENCIA,
V_PED_PROV_SITUACION.SITUACION,
PEDIDOS_PROVEEDOR.FECHA_ENVIO,
@ -1899,19 +1837,15 @@ SELECT
PEDIDOS_PROVEEDOR.IVA,
PEDIDOS_PROVEEDOR.IMPORTE_IVA,
PEDIDOS_PROVEEDOR.ID_FORMA_PAGO,
IMPRESIONES.NUM_COPIAS,
REGISTRO_CORREOS.NUM_CORREOS
IMPRESIONES.NUM_COPIAS
FROM
PEDIDOS_PROVEEDOR
INNER JOIN COnTACTOS ON (PEDIDOS_PROVEEDOR.ID_PROVEEDOR = CONTACTOS.ID)
INNER JOIN V_PROVEEDORES ON (PEDIDOS_PROVEEDOR.ID_PROVEEDOR = V_PROVEEDORES.ID)
INNER JOIN V_PED_PROV_SITUACION ON (V_PED_PROV_SITUACION.ID_PEDIDO = PEDIDOS_PROVEEDOR.ID)
LEFT OUTER JOIN ALMACENES ON (ALMACENES.ID = PEDIDOS_PROVEEDOR.ID_ALMACEN)
LEFT OUTER JOIN PEDIDOS_CLIENTE ON (PEDIDOS_CLIENTE.ID = PEDIDOS_PROVEEDOR.ID_PEDIDO_CLIENTE)
LEFT JOIN IMPRESIONES
ON ((IMPRESIONES.ID_TABLA = PEDIDOS_PROVEEDOR.ID) AND (IMPRESIONES.TABLA = 'PEDIDOSPROVEEDOR'))
LEFT JOIN REGISTRO_CORREOS
ON ((REGISTRO_CORREOS.ID_TABLA = PEDIDOS_PROVEEDOR.ID) AND (REGISTRO_CORREOS.TABLA = 'PEDIDOSPROVEEDOR'))
;
LEFT JOIN IMPRESIONES ON ((IMPRESIONES.ID_TABLA = PEDIDOS_PROVEEDOR.ID) AND (IMPRESIONES.TABLA = 'PEDIDOSPROVEEDOR'));
CREATE VIEW V_PED_CLI_ART_PEND_PEDIR_PROV(

8
Database/factuges.sql
View File

@ -17,12 +17,7 @@ DECLARE EXTERNAL FUNCTION MOD
RETURNS DOUBLE PRECISION BY VALUE
ENTRY_POINT 'IB_UDF_mod' MODULE_NAME 'ib_udf';
DECLARE EXTERNAL FUNCTION SUBSTR
CSTRING(254),
SMALLINT,
SMALLINT
RETURNS CSTRING(254) FREE_IT
ENTRY_POINT 'IB_UDF_substr' MODULE_NAME 'ib_udf';
/******************************************************************************/
@ -471,7 +466,6 @@ CREATE TABLE FACTURAS_CLIENTE (
BASE_IMPONIBLE TIPO_IMPORTE,
DESCUENTO TIPO_PORCENTAJE,
IMPORTE_DESCUENTO TIPO_IMPORTE,
DESCRIPCION_DESCUENTO VARCHAR(255) COLLATE ES_ES,
IVA TIPO_PORCENTAJE,
IMPORTE_IVA TIPO_IMPORTE,
RE TIPO_PORCENTAJE,

189
Source/Base/Base.bdsproj
View File

@ -214,9 +214,9 @@
<Excluded_Packages Name="C:\Documents and Settings\David\Mis documentos\Borland Studio Projects\Bpl\dxGDIPlusD10.bpl">ExpressGDI+ Library by Developer Express Inc.</Excluded_Packages>
</Excluded_Packages>
</Delphi.Personality>
<!-- EurekaLog First Line
<!-- EurekaLog First Line
[Exception Log]
EurekaLog Version=6014
EurekaLog Version=519
Activate=1
Activate Handle=1
Save Log File=1
@ -530,190 +530,5 @@ Count mtSend_SuccessMsg=1
mtSend_SuccessMsg0="The message was sent successfully."
Count mtSend_FailureMsg=1
mtSend_FailureMsg0="Sorry, sending the message didn't work."
ProxyURL=
ProxyUser=
ProxyPassword=
ProxyPort=8080
TrakerUser=
TrakerPassword=
TrakerAssignTo=
TrakerProject=
TrakerCategory=
TrakerTrialID=
ZipPassword=
PreBuildEvent=
PostSuccessfulBuildEvent=
PostFailureBuildEvent=
ExceptionDialogType=2
loSaveModulesAndProcessesSections=1
loSaveAssemblerAndCPUSections=1
soAppUpTime=1
soExcModuleName=1
soExcModuleVersion=1
soExcID=1
soExcCount=1
soExcStatus=1
soExcNote=1
soUserID=1
soUserName=1
soUserEmail=1
soUserPrivileges=1
soUserCompany=1
soCmpDisplayDPI=1
soCmpVideoCard=1
soCmpPrinter=1
soOSCharset=1
soCustomData=1
sndAddComputerNameInFileName=0
edoSendErrorReportChecked=1
edoShowSendErrorReportOption=1
edoShowAttachScreenshotOption=1
edoShowCustomButton=0
csoDoNotStoreProcNames=0
boHandleSafeCallExceptions=1
boCallRTLExceptionEvent=0
boCatchHandledExceptions=0
loCatchLeaks=0
loGroupsSonLeaks=1
loHideBorlandLeaks=1
loFreeAllLeaks=1
loCatchLeaksExceptions=1
cfoReduceFileSize=1
cfoCheckFileCorruption=0
Count mtErrorMsgCaption=1
mtErrorMsgCaption0="Error."
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_CustomButtonCaption=1
mtDialog_CustomButtonCaption0="%26Help"
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_AppUpTime=1
mtLog_AppUpTime0="Up Time"
Count mtLog_ExcModuleName=1
mtLog_ExcModuleName0="Module Name"
Count mtLog_ExcModuleVersion=1
mtLog_ExcModuleVersion0="Module Version"
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_CmpDisplayDPI=1
mtLog_CmpDisplayDPI0="Display DPI"
Count mtLog_CmpVideoCard=1
mtLog_CmpVideoCard0="Video Card"
Count mtLog_CmpPrinter=1
mtLog_CmpPrinter0="Printer"
Count mtLog_OSCharset=1
mtLog_OSCharset0="Charset"
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_Login=1
mtSendDialog_Login0="Login..."
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 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 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 -->
</BorlandProject>

BIN
Source/Base/Base.res
View File

Binary file not shown.

4
Source/Base/GUIBase/GUIBase.bdsproj
View File

@ -181,9 +181,9 @@
<Excluded_Packages Name="c:\archivos de programa\borland\delphi10\Bin\dcltee100.bpl">TeeChart Components</Excluded_Packages>
</Excluded_Packages>
</Delphi.Personality>
<!-- EurekaLog First Line
<!-- EurekaLog First Line
[Exception Log]
EurekaLog Version=6014
EurekaLog Version=519
Activate=1
Activate Handle=1
Save Log File=1

13
Source/Base/GUIBase/uEditorGridBase.dfm
View File

@ -4,7 +4,6 @@ inherited fEditorGridBase: TfEditorGridBase
Caption = 'fEditorGridBase'
ClientHeight = 444
ClientWidth = 543
OnDestroy = CustomEditorDestroy
ExplicitWidth = 551
ExplicitHeight = 471
PixelsPerInch = 96
@ -85,16 +84,6 @@ inherited fEditorGridBase: TfEditorGridBase
ShowHint = True
ShrinkMode = tbsmNone
TabOrder = 0
object lblAno: TTBXLabelItem
Caption = 'A'#241'o:'
Visible = False
end
object cbxListaAnos: TTBXComboBoxItem
Visible = False
end
object sepAno: TTBXSeparatorItem
Visible = False
end
object TBXLabelItem1: TTBXLabelItem
Caption = 'Filtrar:'
end
@ -1526,6 +1515,8 @@ inherited fEditorGridBase: TfEditorGridBase
Bitmap = {}
end
inherited JvFormStorage: TJvFormStorage
OnSavePlacement = JvFormStorageSavePlacement
OnRestorePlacement = JvFormStorageRestorePlacement
Left = 400
Top = 160
end

105
Source/Base/GUIBase/uEditorGridBase.pas
View File

@ -57,13 +57,12 @@ type
actFiltrar: TAction;
TBXItem37: TTBXItem;
TBXTMain2: TTBXToolbar;
lblAno: TTBXLabelItem;
cbxListaAnos: TTBXComboBoxItem;
sepAno: TTBXSeparatorItem;
procedure tbxEditFiltroChange(Sender: TObject; const Text: String);
procedure FormShow(Sender: TObject); override;
procedure actQuitarFiltroExecute(Sender: TObject);
procedure actDuplicarUpdate(Sender: TObject);
procedure JvFormStorageSavePlacement(Sender: TObject);
procedure JvFormStorageRestorePlacement(Sender: TObject);
procedure actModificarUpdate(Sender: TObject);
procedure actEliminarUpdate(Sender: TObject);
procedure actNuevoUpdate(Sender: TObject);
@ -71,17 +70,10 @@ type
procedure actRefrescarUpdate(Sender: TObject);
procedure actFiltrarExecute(Sender: TObject);
procedure actFiltrarUpdate(Sender: TObject);
procedure CustomEditorDestroy(Sender: TObject);
protected
FListaAnos: TStringList;
FViewGrid : IViewGridBase;
FWhereDataTable: WideString;
function GetListaAnos: TStringList;
procedure SetListaAnos(const Value: TStringList);
procedure SetViewGrid(const Value : IViewGridBase); virtual;
function GetViewGrid: IViewGridBase;
function GetWhereDataTable: String;
procedure SetWhereDataTable(const Value: String);
procedure SetMultiSelect (AValue : Boolean);
function GetMultiSelect : Boolean;
@ -89,12 +81,8 @@ type
procedure ConfPaginaInterno; override;
procedure ImprimirInterno; override;
procedure RefrescarInterno; override;
function GetModified: Boolean; override;
public
property ListaAnos: TStringList read GetListaAnos write SetListaAnos;
property ViewGrid: IViewGridBase read GetViewGrid write SetViewGrid;
property WhereDataTable: String read GetWhereDataTable write SetWhereDataTable;
property MultiSelect : Boolean read GetMultiSelect write SetMultiSelect;
constructor Create(AOwner : TComponent); override;
@ -114,22 +102,9 @@ uses
destructor TfEditorGridBase.Destroy;
begin
FViewGrid := NIL;
FWhereDataTable := '';
if Assigned(FListaAnos) then
FlistaAnos.Free;
inherited;
end;
function TfEditorGridBase.GetListaAnos: TStringList;
begin
Result := FListaAnos;
end;
function TfEditorGridBase.GetModified: Boolean;
begin
Result := False;
end;
function TfEditorGridBase.GetMultiSelect: Boolean;
begin
Result := False;
@ -142,53 +117,12 @@ begin
Result := FViewGrid;
end;
function TfEditorGridBase.GetWhereDataTable: String;
begin
Result := FWhereDataTable;
end;
procedure TfEditorGridBase.ImprimirInterno;
begin
inherited;
ViewGrid.Print;
end;
procedure TfEditorGridBase.SetListaAnos(const Value: TStringList);
var
i: Integer;
AStringAnterior: String;
begin
AStringAnterior := '';
if Assigned(FListaAnos) then
begin
AStringAnterior := FListaAnos.ValueFromIndex[cbxListaAnos.ItemIndex];
FListaAnos.Free;
end;
//Se asigna el nuevo TStringList
FListaAnos := Value;
if Assigned(FListaAnos) then
begin
cbxListaAnos.Strings.BeginUpdate;
cbxListaAnos.Strings.Clear;
for i := 0 to FListaAnos.Count - 1 do
cbxListaAnos.Strings.Append(FListaAnos.Names[i]);
//Se posiciona en el elemento que habia anteriormente
if Length(AStringAnterior) > 0 then
begin
if FListaAnos.IndexOfName(AStringAnterior) <> -1 then
cbxListaAnos.ItemIndex := FListaAnos.IndexOfName(AStringAnterior)
else
cbxListaAnos.ItemIndex := 0;
end;
cbxListaAnos.Strings.EndUpdate;
end;
end;
procedure TfEditorGridBase.SetMultiSelect(AValue: Boolean);
begin
if Assigned(ViewGrid) then
@ -205,11 +139,6 @@ begin
end;
end;
procedure TfEditorGridBase.SetWhereDataTable(const Value: String);
begin
FWhereDataTable := Value;
end;
procedure TfEditorGridBase.tbxEditFiltroChange(Sender: TObject; const Text: String);
begin
if Assigned(ViewGrid) then
@ -224,14 +153,10 @@ end;
procedure TfEditorGridBase.FormShow(Sender: TObject);
begin
inherited;
if Assigned(ViewGrid) then
begin
ViewGrid.RestoreFromIniFile;
ViewGrid.ShowEmbedded(Self);
end;
ViewGrid.ShowEmbedded(Self);
cbxListaAnos.ItemIndex := 0;
end;
procedure TfEditorGridBase.actEliminarUpdate(Sender: TObject);
@ -321,14 +246,6 @@ constructor TfEditorGridBase.Create(AOwner: TComponent);
begin
inherited;
actModificar.ShortCut := ShortCut(VK_RETURN, []);
FWhereDataTable := '';
end;
procedure TfEditorGridBase.CustomEditorDestroy(Sender: TObject);
begin
inherited;
if Assigned(ViewGrid) then
ViewGrid.StoreToIniFile;
end;
procedure TfEditorGridBase.actAnchoAutoExecute(Sender: TObject);
@ -354,6 +271,13 @@ begin
(Sender as TAction).Enabled := (ViewGrid.NumSeleccionados = 1);
end;
procedure TfEditorGridBase.JvFormStorageSavePlacement(Sender: TObject);
begin
inherited;
if Assigned(ViewGrid) then
ViewGrid.StoreToRegistry(JvAppRegistryStorage.Root);
end;
procedure TfEditorGridBase.PrevisualizarInterno;
begin
inherited;
@ -380,6 +304,13 @@ begin
end;
end;
procedure TfEditorGridBase.JvFormStorageRestorePlacement(Sender: TObject);
begin
inherited;
if Assigned(ViewGrid) then
ViewGrid.RestoreFromRegistry(JvAppRegistryStorage.Root);
end;
initialization
RegisterClass(TfEditorGridBase);

13
Source/Base/GUIBase/uViewFiltroBase.dfm
View File

@ -1,9 +1,10 @@
inherited frViewFiltroBase: TfrViewFiltroBase
object frViewFiltroBase: TfrViewFiltroBase
Left = 0
Top = 0
Width = 565
Height = 102
TabOrder = 0
Visible = False
ExplicitWidth = 565
ExplicitHeight = 102
object TBXDockablePanel1: TTBXDockablePanel
Left = 0
Top = 0
@ -19,6 +20,8 @@ inherited frViewFiltroBase: TfrViewFiltroBase
ShowCaptionWhenDocked = False
SupportedDocks = [dkStandardDock, dkMultiDock]
TabOrder = 0
ExplicitWidth = 128
ExplicitHeight = 98
object dxLayoutControl1: TdxLayoutControl
Left = 0
Top = 0
@ -27,8 +30,8 @@ inherited frViewFiltroBase: TfrViewFiltroBase
Align = alTop
ParentBackground = True
TabOrder = 0
TabStop = False
AutoContentSizes = [acsWidth, acsHeight]
ExplicitWidth = 128
object txtFiltroTodo: TcxTextEdit
Left = 87
Top = 10
@ -126,6 +129,7 @@ inherited frViewFiltroBase: TfrViewFiltroBase
Margins.Left = 10
Align = alTop
TabOrder = 1
ExplicitWidth = 128
object tbxBotones: TTBXToolbar
Left = 10
Top = 0
@ -143,6 +147,7 @@ inherited frViewFiltroBase: TfrViewFiltroBase
ParentShowHint = False
ShowHint = True
TabOrder = 0
ExplicitWidth = 118
object TBXItem2: TTBXItem
Action = actQuitarFiltro
DisplayMode = nbdmImageAndText

12
Source/Base/GUIBase/uViewFiltroBase.pas
View File

@ -7,10 +7,10 @@ uses
Dialogs, cxMaskEdit, cxDropDownEdit, cxCalendar, dxLayoutControl,
cxContainer, cxEdit, cxTextEdit, dxLayoutLookAndFeels, cxControls,
StdCtrls, Buttons, cxRadioGroup, TBXDkPanels, TB2ExtItems, TBXExtItems,
TBX, TB2Item, TB2Dock, TB2Toolbar, ActnList, ImgList, PngImageList, uViewBase;
TBX, TB2Item, TB2Dock, TB2Toolbar, ActnList, ImgList, PngImageList;
type
IViewFiltroBase = interface (IViewBase)
IViewFiltroBase = interface
['{0D0EA630-BF93-4BA1-93C2-FD5A5B0CBEED}']
function GetFiltrosChange: TNotifyEvent;
procedure SetFiltrosChange(const Value: TNotifyEvent);
@ -25,7 +25,7 @@ type
property Texto: String read GetTexto write SetTexto;
end;
TfrViewFiltroBase = class(TfrViewBase , IViewFiltroBase)
TfrViewFiltroBase = class(TFrame, IViewFiltroBase)
dxLayoutControl1Group_Root: TdxLayoutGroup;
dxLayoutControl1: TdxLayoutControl;
dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList;
@ -59,7 +59,6 @@ type
protected
procedure LimpiarCampos; virtual;
function ValidarCampos: Boolean; virtual;
function GetModified: Boolean; override;
public
property OnFiltrosChange: TNotifyEvent read GetFiltrosChange write SetFiltrosChange;
@ -79,11 +78,6 @@ begin
Result := FOnFiltrosChange;
end;
function TfrViewFiltroBase.GetModified: Boolean;
begin
Result := False;
end;
procedure TfrViewFiltroBase.SetFiltrosChange(const Value: TNotifyEvent);
begin
FOnFiltrosChange := Value;

9
Source/Base/GUIBase/uViewGrid.dfm
View File

@ -61,15 +61,8 @@ inherited frViewGrid: TfrViewGrid
Width = 554
Height = 102
Align = alTop
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 1
Visible = False
ReadOnly = False
ExplicitWidth = 554
inherited TBXDockablePanel1: TTBXDockablePanel
ExplicitWidth = 554
@ -162,7 +155,7 @@ inherited frViewGrid: TfrViewGrid
PrinterPage.ScaleMode = smFit
PrinterPage._dxMeasurementUnits_ = 0
PrinterPage._dxLastMU_ = 2
ReportDocument.CreationDate = 40259.515870208340000000
ReportDocument.CreationDate = 39615.820451203710000000
StyleManager = dxPrintStyleManager1
OptionsCards.Shadow.Depth = 0
OptionsExpanding.ExpandGroupRows = True

2
Source/Base/GUIBase/uViewGrid.pas
View File

@ -21,7 +21,7 @@ uses
dxPSEdgePatterns, dxPSCore, dxPScxCommon, dxPScxGrid6Lnk, dxPrnDlg,
cxIntlPrintSys3, dxPSPrvwAdv, uViewGridBase, cxGridCustomPopupMenu,
cxGridPopupMenu, uViewFiltroBase, ComCtrls, cxPC, ImgList, PngImageList,
TB2Item, TBX, TB2Dock, TB2Toolbar, TBXDkPanels, dxPgsDlg, uCustomView;
TB2Item, TBX, TB2Dock, TB2Toolbar, TBXDkPanels, dxPgsDlg;
type
IViewGrid = interface(IViewGridBase)

82
Source/Base/GUIBase/uViewGridBase.pas
View File

@ -52,9 +52,6 @@ type
procedure StoreToRegistry (const Path : String);
procedure RestoreFromRegistry (const Path : String);
procedure RestoreFromIniFile;
procedure StoreToIniFile;
procedure SetDblClick(const Value: TNotifyEvent);
function GetDblClick: TNotifyEvent;
property OnDblClick: TNotifyEvent read GetDblClick write SetDblClick;
@ -152,9 +149,6 @@ type
procedure StoreToRegistry (const Path : String); virtual;
procedure RestoreFromRegistry (const Path : String); virtual;
procedure RestoreFromIniFile;
procedure StoreToIniFile;
function Locate(const AItemIndex: Integer; const AValue: String;
const APartialCompare: Boolean = False) : Boolean;
@ -178,8 +172,7 @@ procedure Register;
implementation
uses
CCReg, uDataModuleBase, uDBSelectionListUtils, cxGridDBDataDefinitions,
uSistemaFunc, SHFolder;
CCReg, uDataModuleBase, uDBSelectionListUtils;
{$R *.dfm}
@ -196,24 +189,28 @@ begin
_FocusedView.EndUpdate;
end;
procedure TfrViewGridBase.AjustarAncho;
begin
if Assigned(_FocusedView) then
//_FocusedView.ApplyBestFit;
BestFitAllColumns;
end;
procedure TfrViewGridBase.BestFitAllColumns;
var
i : Integer ;
begin
ShowHourglassCursor;
_FocusedView.BeginUpdate;
try
for i := 0 to _FocusedView.VisibleColumnCount-1 do
for i := 0 to _FocusedView.ColumnCount-1 do
begin
_FocusedView.VisibleColumns[i].ApplyBestFit;
ShowMessage(Format('Width=%d, Min=%d, Max=%d', [_FocusedView.VisibleColumns[i].Width, _FocusedView.VisibleColumns[i].MinWidth, _FocusedView.VisibleColumns[i].BestFitMaxWidth]));
if (_FocusedView.VisibleColumns[i].Width < _FocusedView.VisibleColumns[i].MinWidth) then
_FocusedView.VisibleColumns[i].Width := _FocusedView.VisibleColumns[i].MinWidth
else
if (_FocusedView.VisibleColumns[i].BestFitMaxWidth > 0) and
(_FocusedView.VisibleColumns[i].Width > _FocusedView.VisibleColumns[i].BestFitMaxWidth) then
_FocusedView.VisibleColumns[i].Width := _FocusedView.VisibleColumns[i].BestFitMaxWidth;
_FocusedView.Columns[i].ApplyBestFit;
if _FocusedView.Columns[i].BestFitMaxWidth > 0 then
begin
if (_FocusedView.Columns[i].Width > _FocusedView.Columns[i].BestFitMaxWidth) then
_FocusedView.Columns[i].Width := _FocusedView.Columns[i].BestFitMaxWidth;
end;
end;
finally
_FocusedView.EndUpdate;
@ -221,19 +218,6 @@ begin
end;
end;
procedure TfrViewGridBase.AjustarAncho;
begin
if Assigned(_FocusedView) then
begin
ShowHourglassCursor;
try
_FocusedView.ApplyBestFit(nil, True, False);
//BestFitAllColumns;
finally
HideHourglassCursor;
end;
end;
end;
procedure TfrViewGridBase.AnadirOtrosFiltros;
@ -353,24 +337,6 @@ begin
Filter := ViewFiltros.Texto;
end;
procedure TfrViewGridBase.RestoreFromIniFile;
var
AIniFile : String;
begin
if Assigned(_FocusedView) then
begin
AIniFile := GetSpecialFolderPath(CSIDL_COMMON_APPDATA); //[All Users]\Application Data
AIniFile := AIniFile + PathDelim + 'Rodax Software' + PathDelim + 'FactuGES' + PathDelim;
if not DirectoryExists(AIniFile) then
if not ForceDirectories(AIniFile) then
raise EInOutError.Create(Format('No se ha podido crear el directorio %s', [AIniFile]));
_FocusedView.RestoreFromIniFile(AIniFile + 'grid.xml', True, False, []);
end;
end;
procedure TfrViewGridBase.RestoreFromRegistry(const Path : String);
begin
if Assigned(_FocusedView) then
@ -458,24 +424,6 @@ begin
end;
end;
procedure TfrViewGridBase.StoreToIniFile;
var
AIniFile : String;
begin
if Assigned(_FocusedView) then
begin
AIniFile := GetSpecialFolderPath(CSIDL_COMMON_APPDATA); //[All Users]\Application Data
AIniFile := AIniFile + PathDelim + 'Rodax Software' + PathDelim + 'FactuGES' + PathDelim;
if not DirectoryExists(AIniFile) then
if not ForceDirectories(AIniFile) then
raise EInOutError.Create(Format('No se ha podido crear el directorio %s', [AIniFile]));
_FocusedView.StoreToIniFile(AIniFile + 'grid.xml', False, []);
end;
end;
procedure TfrViewGridBase.StoreToRegistry(const Path : String);
begin
if Assigned(_FocusedView) then

27
Source/Base/Utiles/uSistemaFunc.pas
View File

@ -50,12 +50,11 @@ function PreguntarFicheroExcelExportar (var Fichero : String) : Boolean;
function EscapeIllegalChars(AFileName: string): string;
function FindFile(const filespec: TFileName; attributes: integer = faReadOnly Or faHidden Or faSysFile Or faArchive): TStringList;
function DarRutaFichero(const ARutaIni: String; const AFichero: String; const ADirectorio1: String = ''; const ADirectorio2: String = ''): Variant;
implementation
uses
Windows, Variants, Dialogs, JclFileUtils,
Windows, Dialogs, JclFileUtils,
Messages, Graphics, Controls, Forms,
StdCtrls, SHFolder, cxShellBrowserDialog,
cxLookAndFeels, uStringsUtils;
@ -436,28 +435,6 @@ begin
Result := DarRutaTemporal + Cadena + '\';
end;
function DarRutaFichero(const ARutaIni: String; const AFichero: String; const ADirectorio1: String = ''; const ADirectorio2: String = ''): Variant;
var
ARutaCompleta: String;
begin
Result := Null;
ARutaCompleta := ARutaIni + '\' + ADirectorio1 + '\' + ADirectorio2 + '\' + AFichero;
if FileExists(ARutaCompleta) then
Result := ARutaCompleta
else
begin
ARutaCompleta := ARutaIni + '\' + ADirectorio1 + '\' + AFichero;
if FileExists(ARutaCompleta) then
Result := ARutaCompleta
else
begin
ARutaCompleta := ARutaIni + '\' + AFichero;
if FileExists(ARutaCompleta) then
Result := ARutaCompleta
end
end
end;
end.

197
Source/Cliente/FactuGES.bdsproj
View File

@ -148,8 +148,8 @@
<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
<VersionInfo Name="AutoIncBuild">False</VersionInfo>
<VersionInfo Name="MajorVer">3</VersionInfo>
<VersionInfo Name="MinorVer">3</VersionInfo>
<VersionInfo Name="Release">7</VersionInfo>
<VersionInfo Name="MinorVer">0</VersionInfo>
<VersionInfo Name="Release">8</VersionInfo>
<VersionInfo Name="Build">0</VersionInfo>
<VersionInfo Name="Debug">False</VersionInfo>
<VersionInfo Name="PreRelease">False</VersionInfo>
@ -162,22 +162,22 @@
<VersionInfoKeys>
<VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys>
<VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
<VersionInfoKeys Name="FileVersion">3.3.7.0</VersionInfoKeys>
<VersionInfoKeys Name="FileVersion">3.0.8.0</VersionInfoKeys>
<VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys>
<VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
<VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
<VersionInfoKeys Name="ProductName"></VersionInfoKeys>
<VersionInfoKeys Name="ProductVersion">3.3.7.0</VersionInfoKeys>
<VersionInfoKeys Name="ProductVersion">3.0.8.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:\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>
</Delphi.Personality>
<!-- EurekaLog First Line
<!-- EurekaLog First Line
[Exception Log]
EurekaLog Version=6014
EurekaLog Version=519
Activate=0
Activate Handle=1
Save Log File=1
@ -491,190 +491,5 @@ Count mtSend_SuccessMsg=1
mtSend_SuccessMsg0="The message was sent successfully."
Count mtSend_FailureMsg=1
mtSend_FailureMsg0="Sorry, sending the message didn't work."
ProxyURL=
ProxyUser=
ProxyPassword=
ProxyPort=8080
TrakerUser=
TrakerPassword=
TrakerAssignTo=
TrakerProject=
TrakerCategory=
TrakerTrialID=
ZipPassword=
PreBuildEvent=
PostSuccessfulBuildEvent=
PostFailureBuildEvent=
ExceptionDialogType=2
loSaveModulesAndProcessesSections=1
loSaveAssemblerAndCPUSections=1
soAppUpTime=1
soExcModuleName=1
soExcModuleVersion=1
soExcID=1
soExcCount=1
soExcStatus=1
soExcNote=1
soUserID=1
soUserName=1
soUserEmail=1
soUserPrivileges=1
soUserCompany=1
soCmpDisplayDPI=1
soCmpVideoCard=1
soCmpPrinter=1
soOSCharset=1
soCustomData=1
sndAddComputerNameInFileName=0
edoSendErrorReportChecked=1
edoShowSendErrorReportOption=1
edoShowAttachScreenshotOption=1
edoShowCustomButton=0
csoDoNotStoreProcNames=0
boHandleSafeCallExceptions=1
boCallRTLExceptionEvent=0
boCatchHandledExceptions=0
loCatchLeaks=0
loGroupsSonLeaks=1
loHideBorlandLeaks=1
loFreeAllLeaks=1
loCatchLeaksExceptions=1
cfoReduceFileSize=1
cfoCheckFileCorruption=0
Count mtErrorMsgCaption=1
mtErrorMsgCaption0="Error."
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_CustomButtonCaption=1
mtDialog_CustomButtonCaption0="%26Help"
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_AppUpTime=1
mtLog_AppUpTime0="Up Time"
Count mtLog_ExcModuleName=1
mtLog_ExcModuleName0="Module Name"
Count mtLog_ExcModuleVersion=1
mtLog_ExcModuleVersion0="Module Version"
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_CmpDisplayDPI=1
mtLog_CmpDisplayDPI0="Display DPI"
Count mtLog_CmpVideoCard=1
mtLog_CmpVideoCard0="Video Card"
Count mtLog_CmpPrinter=1
mtLog_CmpPrinter0="Printer"
Count mtLog_OSCharset=1
mtLog_OSCharset0="Charset"
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_Login=1
mtSendDialog_Login0="Login..."
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 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 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 -->
</BorlandProject>

2
Source/Cliente/FactuGES.dpr
View File

@ -13,6 +13,8 @@ uses
uMainMenuController in 'uMainMenuController.pas',
uClienteUtils in 'Utiles\uClienteUtils.pas';
{$R *.res}
var

8
Source/Cliente/FactuGES.rc
View File

@ -1,7 +1,7 @@
MAINICON ICON "c:\Codigo Luis Leon\Source\Iconos\Factuges.ico"
1 VERSIONINFO
FILEVERSION 3,3,7,0
PRODUCTVERSION 3,3,7,0
FILEVERSION 3,0,6,0
PRODUCTVERSION 3,0,6,0
FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L
FILEOS 0x40004L
@ -13,9 +13,9 @@ BEGIN
BLOCK "0C0A04E4"
BEGIN
VALUE "CompanyName", "Rodax Software S.L.\0"
VALUE "FileVersion", "3.3.7.0\0"
VALUE "FileVersion", "3.0.6.0\0"
VALUE "InternalName", "FactuGES\0"
VALUE "ProductVersion", "3.3.7.0\0"
VALUE "ProductVersion", "3.0.6.0\0"
END
END
BLOCK "VarFileInfo"

BIN
Source/Cliente/FactuGES.res
View File

Binary file not shown.

25
Source/Cliente/uPantallaPrincipal.dfm
View File

@ -2,7 +2,7 @@ object fPantallaPrincipal: TfPantallaPrincipal
Left = 358
Top = 250
Caption = 'Pantalla principal'
ClientHeight = 681
ClientHeight = 662
ClientWidth = 559
Color = clWindow
Font.Charset = DEFAULT_CHARSET
@ -23,7 +23,7 @@ object fPantallaPrincipal: TfPantallaPrincipal
Left = 0
Top = 0
Width = 559
Height = 659
Height = 640
Margins.Left = 5
Margins.Top = 5
Margins.Right = 5
@ -31,12 +31,11 @@ object fPantallaPrincipal: TfPantallaPrincipal
ParentColor = True
Align = alClient
TabOrder = 0
ExplicitHeight = 640
object JvSyncSplitter1: TJvSyncSplitter
Left = 215
Top = 5
Width = 5
Height = 649
Height = 630
ResizeStyle = rsPattern
ExplicitLeft = 210
ExplicitHeight = 570
@ -45,7 +44,7 @@ object fPantallaPrincipal: TfPantallaPrincipal
Left = 5
Top = 5
Width = 210
Height = 649
Height = 630
ActivePage = pagInicio
Align = alLeft
AutoHeaders = True
@ -86,12 +85,11 @@ object fPantallaPrincipal: TfPantallaPrincipal
NavPanelHotTrackFont.Style = []
SmallImages = ModulesSmallImageList
OnChange = JvNavigationPaneChange
ExplicitHeight = 630
object pagInicio: TJvNavPanelPage
Left = 0
Top = 0
Width = 208
Height = 576
Height = 557
Background.Stretch = False
Background.Proportional = False
Background.Center = False
@ -99,17 +97,15 @@ object fPantallaPrincipal: TfPantallaPrincipal
Background.Transparent = False
Caption = 'Inicio'
ImageIndex = 0
ExplicitHeight = 557
object Panel1: TPanel
Left = 0
Top = 490
Top = 471
Width = 208
Height = 86
Align = alBottom
Color = clWindow
ParentBackground = False
TabOrder = 1
ExplicitTop = 471
object Label1: TLabel
Left = 38
Top = 29
@ -157,21 +153,19 @@ object fPantallaPrincipal: TfPantallaPrincipal
Left = 220
Top = 5
Width = 334
Height = 649
Height = 630
BoundColor = clActiveCaption
BoundLines = [blLeft, blTop, blRight, blBottom]
Caption = 'pnlBorde'
Align = alClient
ExplicitHeight = 630
object pnlMain: TTBXAlignmentPanel
Left = 1
Top = 1
Width = 332
Height = 647
Height = 628
Align = alClient
Color = clWindow
TabOrder = 0
ExplicitHeight = 628
object lblBienvenido: TLabel
Left = 8
Top = 8
@ -208,7 +202,7 @@ object fPantallaPrincipal: TfPantallaPrincipal
end
object TBXStatusBar1: TTBXStatusBar
Left = 0
Top = 659
Top = 640
Width = 559
Images = StatusPanelImageList
Panels = <
@ -230,7 +224,6 @@ object fPantallaPrincipal: TfPantallaPrincipal
Tag = 0
end>
UseSystemFont = False
ExplicitTop = 640
end
object XPManifest1: TXPManifest
Left = 248

BIN
Source/Iconos/Generales/16x16/Thumbs.db
View File

Binary file not shown.

BIN
Source/Iconos/fondo.jpg
View File

Binary file not shown.
Side by Side

Before

Width:  |  Height:  |  Size: 7.2 KiB

BIN
Source/Iconos/logo.jpg
View File

Binary file not shown.
Side by Side

Before

Width:  |  Height:  |  Size: 9.3 KiB

58
Source/Informes/2/InfAlbaranCliente.fr3
View File

File diff suppressed because one or more lines are too long

37
Source/Informes/2/InfAlbaranProveedor.fr3
View File

@ -1,37 +0,0 @@
<?xml version="1.0" encoding="utf-8"?>
<TfrxReport Version="3.23.7" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" ReportOptions.CreateDate="39065,8724234954" ReportOptions.Description.Text="" ReportOptions.LastChange="39290,7839583333" ScriptLanguage="PascalScript" ScriptText.Text="&#13;&#10;procedure DatosEmpresaOnBeforePrint(Sender: TfrxComponent);&#13;&#10;var&#13;&#10; Cadena: String;&#13;&#10;begin&#13;&#10; DatosEmpresa.Lines.Clear;&#13;&#10; if (&#60;frxDBCabecera.&#34;TELEFONO_1_EMPRESA&#34;&#62; &#60;&#62; '') then&#13;&#10; Cadena := 'TLF: ' + &#60;frxDBCabecera.&#34;TELEFONO_1_EMPRESA&#34;&#62;;&#13;&#10; if (&#60;frxDBCabecera.&#34;FAX_EMPRESA&#34;&#62; &#60;&#62; '') then&#13;&#10; Cadena := Cadena + ' FAX: ' + &#60;frxDBCabecera.&#34;FAX_EMPRESA&#34;&#62;;&#13;&#10; DatosEmpresa.Lines.Add(Cadena);&#13;&#10;end;&#13;&#10;&#13;&#10;procedure NombreEmpresaOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; NombreEmpresa.Lines.Clear;&#13;&#10; NombreEmpresa.Lines.Add(&#60;frxDBCabecera.&#34;NOMBRE_EMPRESA&#34;&#62;);&#13;&#10;end;&#13;&#10;&#13;&#10;procedure DireccionEnvioOnBeforePrint(Sender: TfrxComponent);&#13;&#10;var&#13;&#10; ACadena : String;&#13;&#10;begin&#13;&#10; ACadena := '';&#13;&#10; DireccionEnvio.Lines.Clear;&#13;&#10;&#13;&#10; if (&#60;frxDBCabecera.&#34;PERSONA_CONTACTO&#34;&#62; &#60;&#62; '') then&#13;&#10; ACadena := &#60;frxDBCabecera.&#34;PERSONA_CONTACTO&#34;&#62;;&#13;&#10; if (&#60;frxDBCabecera.&#34;TELEFONO&#34;&#62; &#60;&#62; '') then&#13;&#10; ACadena := ACadena + ' (tlf: ' + &#60;frxDBCabecera.&#34;TELEFONO&#34;&#62; + ' )';&#13;&#10;&#13;&#10; DireccionEnvio.Lines.Add(ACadena);&#13;&#10; ACadena := '';&#13;&#10; DireccionEnvio.Lines.Add(ACadena);&#13;&#10;&#13;&#10; DireccionEnvio.Lines.Add(&#60;frxDBCabecera.&#34;CALLE&#34;&#62;);&#13;&#10; if (&#60;frxDBCabecera.&#34;CODIGO_POSTAL&#34;&#62; &#60;&#62; '') then&#13;&#10; ACadena := &#60;frxDBCabecera.&#34;CODIGO_POSTAL&#34;&#62; + ' ';&#13;&#10; if (&#60;frxDBCabecera.&#34;POBLACION&#34;&#62; &#60;&#62; '') then&#13;&#10; ACadena := ACadena + &#60;frxDBCabecera.&#34;CODIGO_POSTAL&#34;&#62;;&#13;&#10;&#13;&#10; if (ACadena &#60;&#62; '') then&#13;&#10; DireccionEnvio.Lines.Add(ACadena);&#13;&#10;&#13;&#10; if (&#60;frxDBCabecera.&#34;PROVINCIA&#34;&#62; &#60;&#62; '') then&#13;&#10; DireccionEnvio.Lines.Add(&#60;frxDBCabecera.&#34;PROVINCIA&#34;&#62;);&#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo2OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; Memo2.Lines.Clear;&#13;&#10; if (StrToFloat(&#60;frxDBCabecera.&#34;IMPORTE_TOTAL&#34;&#62;) &#60; 0) then&#13;&#10; Memo2.Lines.Add('ORDEN DE DEVOLUCIÓN')&#13;&#10; else&#13;&#10; Memo2.Lines.Add('ALBARÁN DE PROVEEDOR')&#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo5OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if (StrToFloat(&#60;frxDBCabecera.&#34;IMPORTE_TOTAL&#34;&#62;) &#60; 0) then&#13;&#10; begin&#13;&#10; Memo5.Lines.Clear;&#13;&#10; Memo5.Lines.Add('Nº orden:');&#13;&#10; end;&#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo1OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if (StrToFloat(&#60;frxDBCabecera.&#34;IMPORTE_TOTAL&#34;&#62;) &#60; 0) then&#13;&#10; begin&#13;&#10; Memo1.Lines.Clear;&#13;&#10; Memo1.Lines.Add('Fecha orden:');&#13;&#10; end;&#13;&#10;end;&#13;&#10;&#13;&#10;procedure PageHeader1OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if not Engine.FinalPass then&#13;&#10; Set('TotalPaginas', (&#60;TotalPaginas&#62; + 1));&#13;&#10;&#13;&#10; if Engine.FinalPass then&#13;&#10; Set('Pagina', (&#60;Pagina&#62; + 1));&#13;&#10;end;&#13;&#10;&#13;&#10;procedure frxReportOnStartReport(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; Set('Pagina', 0);&#13;&#10; Set('TotalPaginas', 0);&#13;&#10;end;&#13;&#10;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403A90003546F70021008446174617365747301010C3400000020446174615365743D22667278444243616265636572612220446174615365744E616D653D22667278444243616265636572612200010C3400000020446174615365743D226672784442446574616C6C65732220446174615365744E616D653D226672784442446574616C6C6573220000095661726961626C657301010C13000000204E616D653D2220506167696E6163696F6E2200010C14000000204E616D653D22546F74616C506167696E61732200010C0E000000204E616D653D22506167696E61220000055374796C650100">
<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="24" Left="0" Top="404,40971" Width="718,1107" ColumnWidth="0" ColumnGap="0" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" RowCount="0" Stretched="True">
<TfrxRichView Name="MemoCampo12" ShiftMode="smWhenOverlapped" Left="137,5" Top="1,5" Width="580,5436" Height="18" StretchMode="smMaxHeight" DataField="CONCEPTO" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" GapX="2" GapY="3" Wysiwyg="False" PropData="0852696368456469740A6C0000007B5C727466315C616E73695C616E7369637067313235325C64656666305C6465666C616E67333038327B5C666F6E7474626C7B5C66305C666E696C205461686F6D613B7D7D0D0A5C766965776B696E64345C7563315C706172645C66305C667331365C7061720D0A7D0D0A00"/>
<TfrxMemoView Name="Memo14" Left="1" Top="1,5" Width="75" Height="18" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#0 " DisplayFormat.Kind="fkNumeric" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" GapY="3" HAlign="haRight" HideZeros="True" LineSpacing="4" ParentFont="False" Style="Concepto normal" Text="[frxDBDetalles.&#34;REFERENCIA_PROVEEDOR&#34;] "/>
<TfrxMemoView Name="MemoCampo2" Left="78" Top="1,5" Width="56,03148874" Height="18" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#0 " DisplayFormat.Kind="fkNumeric" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" GapY="3" HAlign="haRight" HideZeros="True" LineSpacing="4" ParentFont="False" Style="Concepto normal" Text="[frxDBDetalles.&#34;CANTIDAD&#34;]"/>
</TfrxMasterData>
<TfrxPageFooter Name="PageFooter1" Height="72,87953" Left="0" Top="487,55937" Width="718,1107">
<TfrxLineView Name="Line4" Align="baCenter" Left="-0,944650000000024" Top="4" Width="720" Height="0" Frame.Color="8421504" Frame.Typ="4"/>
</TfrxPageFooter>
<TfrxPageHeader Name="PageHeader1" Height="323,14968685" Left="0" Top="18,89765" Width="718,1107" OnBeforePrint="PageHeader1OnBeforePrint">
<TfrxShapeView Name="Shape2" Left="0" Top="90,67718" Width="717,73228346" Height="77,7953" Frame.Color="8421504"/>
<TfrxMemoView Name="Memo2" Left="267,65337" Top="37,35436" Width="442,42548" Height="38,89765" OnBeforePrint="Memo2OnBeforePrint" Font.Charset="1" Font.Color="8421504" Font.Height="-29" Font.Name="Tahoma" Font.Style="1" HAlign="haRight" ParentFont="False" Text=""/>
<TfrxMemoView Name="NombreEmpresa" Left="0" Top="22,67718" Width="414,07885" Height="26,89765" OnBeforePrint="NombreEmpresaOnBeforePrint" Font.Charset="1" Font.Color="8421504" Font.Height="-19" Font.Name="Tahoma" Font.Style="1" ParentFont="False" Text=""/>
<TfrxMemoView Name="Memo7" Left="3,55906" Top="94,48825" Width="60,69295" Height="18,89765" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="Página nº:"/>
<TfrxMemoView Name="Memo12" Left="67,5906" Top="94,48825" Width="78,26778" Height="18,89765" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" ParentFont="False" Text="[&#60;Pagina&#62;] / [&#60;TotalPaginas&#62;]"/>
<TfrxShapeView Name="Shape1" Left="0" Top="168,18897638" Width="717,73228346" Height="119,18109016" Color="16777215" Frame.Color="8421504"/>
<TfrxMemoView Name="Memo10" Left="3,68491" Top="174,04731" Width="349,29159" Height="17,60637" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" ParentFont="False" Text="DIRECCIÓN DESTINO:"/>
<TfrxMemoView Name="DatosEmpresa" Left="0" Top="54,67718" Width="414,07885" Height="26,89765" OnBeforePrint="DatosEmpresaOnBeforePrint" Font.Charset="1" Font.Color="8421504" Font.Height="-16" Font.Name="Tahoma" Font.Style="1" ParentFont="False" Text=""/>
<TfrxMemoView Name="Memo5" Left="166,07885" Top="94,48825" Width="64,69295" Height="18,9" OnBeforePrint="Memo5OnBeforePrint" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="Nº albarán:"/>
<TfrxMemoView Name="Memo4" Left="3,55906" Top="119,11812" Width="64,69295" Height="18,67718" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="Proveedor:"/>
<TfrxMemoView Name="Memo11" Left="71,5906" Top="119,11812" Width="630,61441" Height="18,67718" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" ParentFont="False" Text="[frxDBCabecera.&#34;NOMBRE&#34;]"/>
<TfrxMemoView Name="Memo3" Left="234,55133" Top="94,48825" Width="93,92115" Height="18,9" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" ParentFont="False" Text="[frxDBCabecera.&#34;REFERENCIA&#34;]"/>
<TfrxMemoView Name="DireccionEnvio" Left="87,37013" Top="197,82684" Width="619,37044" Height="80,06624" OnBeforePrint="DireccionEnvioOnBeforePrint" StretchMode="smActualHeight" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" ParentFont="False" Text=""/>
<TfrxMemoView Name="Memo23" Left="134,72047" Top="297,20872" Width="583,7" Height="26,45669291" Color="16777215" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="12" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Concepto"/>
<TfrxMemoView Name="Memo8" Left="76" Top="297,20872" Width="59,71653543" Height="26,45669291" Color="16777215" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="12" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Cantidad"/>
<TfrxLineView Name="Line1" Left="718,5" Top="296,69299638" Width="0" Height="684" Frame.Color="8421504" Frame.Typ="1"/>
<TfrxMemoView Name="Memo13" Left="0" Top="297,20872" Width="76,2" Height="26,45669291" Color="16777215" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="12" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Referencia"/>
<TfrxLineView Name="Line3" Left="76,2" Top="296,69299638" Width="0" Height="684" Frame.Color="8421504" Frame.Typ="1"/>
<TfrxLineView Name="Line5" Left="136,44094488" Top="296,69299638" Width="0" Height="684" Frame.Color="8421504" Frame.Typ="1"/>
<TfrxMemoView Name="Memo1" Left="340,1577" Top="94,48825" Width="83,81107" Height="18,9" OnBeforePrint="Memo1OnBeforePrint" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="Fecha albarán:"/>
<TfrxMemoView Name="Memo6" Left="427,7483" Top="94,48825" Width="93,92115" Height="18,9" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" ParentFont="False" Text="[frxDBCabecera.&#34;FECHA_ALBARAN&#34;]"/>
<TfrxLineView Name="Line2" Left="0" Top="296,69299638" Width="0" Height="684" Frame.Color="8421504" Frame.Typ="1"/>
</TfrxPageHeader>
</TfrxReportPage>
</TfrxReport>

49
Source/Informes/2/InfComisiones.fr3
View File

File diff suppressed because one or more lines are too long

55
Source/Informes/2/InfComisionesDesglosado.fr3
View File

File diff suppressed because one or more lines are too long

21
Source/Informes/2/InfEtiquetasAlbaranCliente.fr3
View File

@ -1,21 +0,0 @@
<?xml version="1.0" encoding="utf-8"?>
<TfrxReport Version="3.23.7" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" ReportOptions.CreateDate="39065,8724234954" ReportOptions.Description.Text="" ReportOptions.LastChange="39289,4026321875" ScriptLanguage="PascalScript" ScriptText.Text="&#13;&#10;procedure NombreEmpresaOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; NombreEmpresa.Lines.Clear;&#13;&#10; NombreEmpresa.Lines.Add(&#60;frxDBCabecera.&#34;NOMBRE_EMPRESA&#34;&#62;);&#13;&#10;end;&#13;&#10;&#13;&#10;procedure TelefonosEmpresaOnBeforePrint(Sender: TfrxComponent);&#13;&#10;var&#13;&#10; Cadena: String;&#13;&#10;begin&#13;&#10; TelefonosEmpresa.Lines.Clear;&#13;&#10;&#13;&#10; if (&#60;frxDBCabecera.&#34;TELEFONO_1_EMPRESA&#34;&#62; &#60;&#62; '') then&#13;&#10; Cadena := 'tlf: ' + &#60;frxDBCabecera.&#34;TELEFONO_1_EMPRESA&#34;&#62;;&#13;&#10; if (&#60;frxDBCabecera.&#34;FAX_EMPRESA&#34;&#62; &#60;&#62; '') then&#13;&#10; Cadena := Cadena + ' / fax: ' + &#60;frxDBCabecera.&#34;FAX_EMPRESA&#34;&#62;;&#13;&#10; TelefonosEmpresa.Lines.Add(Cadena);&#13;&#10;end;&#13;&#10;&#13;&#10;procedure DireccionEmpresaOnBeforePrint(Sender: TfrxComponent);&#13;&#10;var&#13;&#10; Cadena: String;&#13;&#10;begin&#13;&#10; DireccionEmpresa.Lines.Clear;&#13;&#10;&#13;&#10; if (&#60;frxDBCabecera.&#34;CALLE_EMPRESA&#34;&#62; &#60;&#62; '') then&#13;&#10; DireccionEmpresa.Lines.Add(&#60;frxDBCabecera.&#34;CALLE_EMPRESA&#34;&#62;);&#13;&#10;&#13;&#10; if (&#60;frxDBCabecera.&#34;CODIGO_POSTAL_EMPRESA&#34;&#62; &#60;&#62; '') then&#13;&#10; Cadena := &#60;frxDBCabecera.&#34;CODIGO_POSTAL_EMPRESA&#34;&#62;;&#13;&#10; if (&#60;frxDBCabecera.&#34;POBLACION_EMPRESA&#34;&#62; &#60;&#62; '') then&#13;&#10; Cadena := Cadena + ', ' + &#60;frxDBCabecera.&#34;POBLACION_EMPRESA&#34;&#62;;&#13;&#10; DireccionEmpresa.Lines.Add(Cadena);&#13;&#10;&#13;&#10; if (&#60;frxDBCabecera.&#34;PROVINCIA_EMPRESA&#34;&#62; &#60;&#62; '') then&#13;&#10; DireccionEmpresa.Lines.Add(&#60;frxDBCabecera.&#34;PROVINCIA_EMPRESA&#34;&#62;);&#13;&#10;end;&#13;&#10;&#13;&#10;&#13;&#10;procedure Memo11OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; Memo11.Visible := (&#60;withRefCliente&#62; &#60;&#62; 0);&#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" PropData="044C65667403A90003546F70021008446174617365747301010C3400000020446174615365743D22667278444243616265636572612220446174615365744E616D653D22667278444243616265636572612200010C3400000020446174615365743D226672784442446574616C6C65732220446174615365744E616D653D226672784442446574616C6C6573220000095661726961626C657301010C12000000204E616D653D22205661726961626C65732200010C16000000204E616D653D2277697468526566436C69656E7465220000055374796C6501010C7B000000204E616D653D225374796C65312220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22312220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D32372220466F6E742E4E616D653D22417269616C2220466F6E742E5374796C653D2230220000">
<TfrxReportPage Name="Page1" Font.Charset="1" Font.Color="0" Font.Height="-64" Font.Name="Arial" Font.Style="0" 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="515,3389" Left="0" Top="18,89765" Width="718,1107" ColumnWidth="0" ColumnGap="0" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" RowCount="0" Stretched="True">
<TfrxMemoView Name="Memo14" Left="208,87415" Top="328,81911" Width="490,7483" Height="29,33859" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#0 " DisplayFormat.Kind="fkNumeric" Font.Charset="0" Font.Color="-16777208" Font.Height="-16" Font.Name="Tahoma" Font.Style="0" GapY="3" HideZeros="True" LineSpacing="4" ParentFont="False" Text="[frxDBDetalles.&#34;REFERENCIA_PROVEEDOR&#34;] "/>
<TfrxMemoView Name="Memo5" Left="113,16543" Top="226,7718" Width="87,14966" Height="26,45906" OnBeforePrint="Memo5OnBeforePrint" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-16" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="Nº albarán:"/>
<TfrxMemoView Name="Memo11" Left="208,31509" Top="264,5671" Width="494,55133" Height="56,69293291" OnBeforePrint="Memo11OnBeforePrint" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-21" Font.Name="Tahoma" Font.Style="1" ParentFont="False" Text="[frxDBCabecera.&#34;REFERENCIA_CLIENTE&#34;]"/>
<TfrxMemoView Name="Memo3" Left="208,25190748" Top="226,7718" Width="78,80303" Height="26,45906" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-16" Font.Name="Tahoma" Font.Style="1" ParentFont="False" Text="[frxDBCabecera.&#34;REFERENCIA&#34;]"/>
<TfrxMemoView Name="Memo16" Left="291,02381" Top="226,7718" Width="178,29932" Height="30,23859" OnBeforePrint="Memo9OnBeforePrint" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-16" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="Fecha prevista de envio:"/>
<TfrxMemoView Name="Memo17" Left="473,10266" Top="226,7718" Width="158,17316" Height="30,23859" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-16" Font.Name="Tahoma" Font.Style="1" HideZeros="True" ParentFont="False" Text="[frxDBCabecera.&#34;FECHA_PREVISTA_ENVIO&#34;]"/>
<TfrxMemoView Name="NombreEmpresa" Left="170,07885" Top="37,7953" Width="380,06308" Height="30,67718" OnBeforePrint="NombreEmpresaOnBeforePrint" Font.Charset="1" Font.Color="8421504" Font.Height="-19" Font.Name="Tahoma" Font.Style="1" ParentFont="False" Text=""/>
<TfrxMemoView Name="TelefonosEmpresa" Left="170,07885" Top="141,60637" Width="380,06308" Height="49,57483" OnBeforePrint="TelefonosEmpresaOnBeforePrint" Font.Charset="1" Font.Color="8421504" Font.Height="-19" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text=""/>
<TfrxMemoView Name="DireccionEmpresa" Left="170,07885" Top="68,03154" Width="380,06308" Height="72,25201" OnBeforePrint="DireccionEmpresaOnBeforePrint" Font.Charset="1" Font.Color="8421504" Font.Height="-19" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text=""/>
<TfrxMemoView Name="Memo1" Left="113,3859" Top="264,5671" Width="87,14966" Height="26,45906" OnBeforePrint="Memo5OnBeforePrint" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-16" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="Ref. cliente:"/>
<TfrxMemoView Name="Memo2" Left="113,3859" Top="328,81911" Width="94,70872" Height="26,45906" OnBeforePrint="Memo5OnBeforePrint" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-16" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="Ref. artículo:"/>
<TfrxMemoView Name="Memo4" Left="113,3859" Top="362,83488" Width="75,81107" Height="26,45906" OnBeforePrint="Memo5OnBeforePrint" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-16" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="Artículo:"/>
<TfrxMemoView Name="Memo6" Left="207,87415" Top="362,83488" Width="494,52783" Height="63,35436" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#0 " DisplayFormat.Kind="fkNumeric" Font.Charset="0" Font.Color="-16777208" Font.Height="-16" Font.Name="Tahoma" Font.Style="0" GapY="3" HideZeros="True" LineSpacing="4" ParentFont="False" Text="[frxDBDetalles.&#34;CONCEPTO&#34;] "/>
<TfrxLineView Name="Line3" Left="2,23624" Top="472,44125" Width="716,75634" Height="0" Frame.Style="fsDot" Frame.Typ="4"/>
</TfrxMasterData>
</TfrxReportPage>
</TfrxReport>

8
Source/Informes/2/InfEtiquetasContactos.fr3
View File

@ -1,8 +0,0 @@
<?xml version="1.0" encoding="utf-8"?>
<TfrxReport Version="3.23.7" DotMatrixReport="False" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" ReportOptions.CreateDate="38330,7129042477" ReportOptions.Description.Text="" ReportOptions.LastChange="39363,8633537616" ScriptLanguage="PascalScript" ScriptText.Text="procedure Memo2OnBeforePrint(Sender: TfrxComponent);&#13;&#10;var&#13;&#10; Cadena: String;&#13;&#10;begin&#13;&#10; Memo2.Lines.Clear;&#13;&#10;&#13;&#10; Cadena:= UPPERCASE(&#60;frxDBCabecera.&#34;NOMBRE&#34;&#62;);&#13;&#10; Memo2.Lines.Add(Cadena);&#13;&#10;&#13;&#10; Cadena:= UPPERCASE(&#60;frxDBCabecera.&#34;CALLE&#34;&#62;);&#13;&#10; Memo2.Lines.Add(Cadena);&#13;&#10;&#13;&#10; Cadena:= UPPERCASE(&#60;frxDBCabecera.&#34;CODIGO_POSTAL&#34;&#62;);&#13;&#10; if (length(&#60;frxDBCabecera.&#34;POBLACION&#34;&#62;) &#62; 0) then&#13;&#10; begin&#13;&#10; if (length(Cadena) &#62; 0) then&#13;&#10; Cadena := Cadena + ', ';&#13;&#10; Cadena := Cadena + UPPERCASE(&#60;frxDBCabecera.&#34;POBLACION&#34;&#62;);&#13;&#10; end;&#13;&#10; Memo2.Lines.Add(Cadena);&#13;&#10;&#13;&#10; Cadena:= UPPERCASE(&#60;frxDBCabecera.&#34;PROVINCIA&#34;&#62;);&#13;&#10; Memo2.Lines.Add(Cadena);&#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" PropData="044C65667403A90003546F70021008446174617365747301010C3400000020446174615365743D22667278444243616265636572612220446174615365744E616D653D2266727844424361626563657261220000095661726961626C65730100055374796C650100">
<TfrxReportPage Name="Page1" PaperWidth="210" PaperHeight="297" PaperSize="9" LeftMargin="0" RightMargin="0" TopMargin="8" BottomMargin="8" ColumnWidth="0" ColumnPositions.Text="" HGuides.Text="" VGuides.Text="">
<TfrxMasterData Name="MasterData1" Height="126" Left="0" Top="18,89765" Width="793,7013" Columns="2" ColumnWidth="378" ColumnGap="11" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" RowCount="0">
<TfrxMemoView Name="Memo2" Left="25" Top="17,10235" Width="346" Height="114" OnBeforePrint="Memo2OnBeforePrint" StretchMode="smMaxHeight" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" HideZeros="True" ParentFont="False" VAlign="vaCenter" Text=" "/>
</TfrxMasterData>
</TfrxReportPage>
</TfrxReport>

71
Source/Informes/2/InfFacturaCliente.fr3
View File

File diff suppressed because one or more lines are too long

72
Source/Informes/2/InfFacturaProveedor.fr3
View File

File diff suppressed because one or more lines are too long

45
Source/Informes/2/InfPedidoCliente.fr3
View File

File diff suppressed because one or more lines are too long

39
Source/Informes/2/InfPedidoProveedor.fr3
View File

@ -1,39 +0,0 @@
<?xml version="1.0" encoding="utf-8"?>
<TfrxReport Version="3.23.7" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" ReportOptions.CreateDate="39065,8724234954" ReportOptions.Description.Text="" ReportOptions.LastChange="39352,7840438657" ScriptLanguage="PascalScript" ScriptText.Text="&#13;&#10;procedure DatosEmpresaOnBeforePrint(Sender: TfrxComponent);&#13;&#10;var&#13;&#10; Cadena: String;&#13;&#10;begin&#13;&#10; DatosEmpresa.Lines.Clear;&#13;&#10; if (&#60;frxDBCabecera.&#34;TELEFONO_1_EMPRESA&#34;&#62; &#60;&#62; '') then&#13;&#10; Cadena := 'TLF: ' + &#60;frxDBCabecera.&#34;TELEFONO_1_EMPRESA&#34;&#62;;&#13;&#10; if (&#60;frxDBCabecera.&#34;FAX_EMPRESA&#34;&#62; &#60;&#62; '') then&#13;&#10; Cadena := Cadena + ' FAX: ' + &#60;frxDBCabecera.&#34;FAX_EMPRESA&#34;&#62;;&#13;&#10; DatosEmpresa.Lines.Add(Cadena);&#13;&#10;end;&#13;&#10;&#13;&#10;procedure NombreEmpresaOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; NombreEmpresa.Lines.Clear;&#13;&#10; NombreEmpresa.Lines.Add(&#60;frxDBCabecera.&#34;NOMBRE_EMPRESA&#34;&#62;);&#13;&#10;end;&#13;&#10;&#13;&#10;procedure DireccionEnvioOnBeforePrint(Sender: TfrxComponent);&#13;&#10;var&#13;&#10; ACadena : String;&#13;&#10;begin&#13;&#10; ACadena := '';&#13;&#10; DireccionEnvio.Lines.Clear;&#13;&#10;&#13;&#10; if (&#60;frxDBCabecera.&#34;NOMBRE_ALMACEN&#34;&#62; &#60;&#62; '') then&#13;&#10; DireccionEnvio.Lines.Add(&#60;frxDBCabecera.&#34;NOMBRE_ALMACEN&#34;&#62;);&#13;&#10;&#13;&#10; if (&#60;frxDBCabecera.&#34;PERSONA_CONTACTO&#34;&#62; &#60;&#62; '') then&#13;&#10; DireccionEnvio.Lines.Add(&#60;frxDBCabecera.&#34;PERSONA_CONTACTO&#34;&#62;);&#13;&#10;&#13;&#10; DireccionEnvio.Lines.Add(&#60;frxDBCabecera.&#34;CALLE&#34;&#62;);&#13;&#10;&#13;&#10; if (&#60;frxDBCabecera.&#34;CODIGO_POSTAL&#34;&#62; &#60;&#62; '') then&#13;&#10; ACadena := &#60;frxDBCabecera.&#34;CODIGO_POSTAL&#34;&#62; + ' ';&#13;&#10; if (&#60;frxDBCabecera.&#34;POBLACION&#34;&#62; &#60;&#62; '') then&#13;&#10; ACadena := ACadena + &#60;frxDBCabecera.&#34;POBLACION&#34;&#62;;&#13;&#10;&#13;&#10; if (ACadena &#60;&#62; '') then&#13;&#10; DireccionEnvio.Lines.Add(ACadena);&#13;&#10;&#13;&#10; if (&#60;frxDBCabecera.&#34;PROVINCIA&#34;&#62; &#60;&#62; '') then&#13;&#10; DireccionEnvio.Lines.Add(&#60;frxDBCabecera.&#34;PROVINCIA&#34;&#62;);&#13;&#10;&#13;&#10; if (&#60;frxDBCabecera.&#34;TELEFONO&#34;&#62; &#60;&#62; '') then&#13;&#10; DireccionEnvio.Lines.Add(&#60;frxDBCabecera.&#34;TELEFONO&#34;&#62;);&#13;&#10;end;&#13;&#10;&#13;&#10;procedure PageHeader1OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if not Engine.FinalPass then&#13;&#10; Set('TotalPaginas', (&#60;TotalPaginas&#62; + 1));&#13;&#10;&#13;&#10; if Engine.FinalPass then&#13;&#10; Set('Pagina', (&#60;Pagina&#62; + 1));&#13;&#10;end;&#13;&#10;&#13;&#10;procedure frxReportOnStartReport(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; Set('Pagina', 0);&#13;&#10; Set('TotalPaginas', 0);&#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403A90003546F70021008446174617365747301010C3400000020446174615365743D22667278444243616265636572612220446174615365744E616D653D22667278444243616265636572612200010C3400000020446174615365743D226672784442446574616C6C65732220446174615365744E616D653D226672784442446574616C6C6573220000095661726961626C657301010C13000000204E616D653D2220506167696E6163696F6E2200010C14000000204E616D653D22546F74616C506167696E61732200010C0E000000204E616D653D22506167696E61220000055374796C650100">
<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="24" Left="0" Top="313,70099" Width="718,1107" ColumnWidth="0" ColumnGap="0" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" RowCount="0" Stretched="True">
<TfrxRichView Name="MemoCampo12" ShiftMode="smWhenOverlapped" Left="137,5" Top="1,5" Width="580,5436" Height="18" StretchMode="smMaxHeight" DataField="CONCEPTO" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" GapX="2" GapY="3" Wysiwyg="False" PropData="0852696368456469740A6C0000007B5C727466315C616E73695C616E7369637067313235325C64656666305C6465666C616E67333038327B5C666F6E7474626C7B5C66305C666E696C205461686F6D613B7D7D0D0A5C766965776B696E64345C7563315C706172645C66305C667331365C7061720D0A7D0D0A00"/>
<TfrxMemoView Name="MemoCampo2" Left="78" Top="1,5" Width="56,03148874" Height="18" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#0 " DisplayFormat.Kind="fkNumeric" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" GapY="3" HAlign="haRight" HideZeros="True" LineSpacing="4" ParentFont="False" Style="Concepto normal" Text="[frxDBDetalles.&#34;CANTIDAD&#34;]"/>
<TfrxMemoView Name="Memo14" Left="1" Top="1,5" Width="75" Height="18" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#0 " DisplayFormat.Kind="fkNumeric" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" GapY="3" HAlign="haRight" HideZeros="True" LineSpacing="4" ParentFont="False" Style="Concepto normal" Text="[frxDBDetalles.&#34;REFERENCIA_PROVEEDOR&#34;] "/>
</TfrxMasterData>
<TfrxPageFooter Name="PageFooter1" Height="72,87953" Left="0" Top="396,85065" Width="718,1107">
<TfrxLineView Name="Line4" Align="baCenter" Left="-0,94465" Top="0" Width="720" Height="0" Frame.Typ="4"/>
</TfrxPageFooter>
<TfrxPageHeader Name="PageHeader1" Height="232,44096685" Left="0" Top="18,89765" Width="718,1107" OnBeforePrint="PageHeader1OnBeforePrint">
<TfrxMemoView Name="Memo23" Left="134,72047" Top="206,94094" Width="583,7" Height="26,45669291" Color="16777215" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Concepto"/>
<TfrxMemoView Name="Memo8" Left="76" Top="206,94094" Width="59,25726667" Height="26,45669291" Color="16777215" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Cantidad"/>
<TfrxMemoView Name="Memo13" Left="0" Top="206,94094" Width="76,2" Height="26,45669291" Color="16777215" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Referencia"/>
<TfrxShapeView Name="Shape2" Left="357,60637" Top="72,22047" Width="360,69295" Height="122,95671" Color="16777215" Frame.Color="8421504"/>
<TfrxMemoView Name="NombreEmpresa" Left="0" Top="4,22047" Width="414,07885" Height="26,89765" OnBeforePrint="NombreEmpresaOnBeforePrint" Font.Charset="1" Font.Color="8421504" Font.Height="-19" Font.Name="Tahoma" Font.Style="1" ParentFont="False" Text=""/>
<TfrxMemoView Name="Memo7" Left="362,61441" Top="79,81107" Width="68,69295" Height="18,89765" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" ParentFont="False" Text="Página nº:"/>
<TfrxMemoView Name="Memo12" Left="438,86642" Top="79,81107" Width="278,58287" Height="18,89765" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" ParentFont="False" Text="[&#60;Pagina&#62;] / [&#60;TotalPaginas&#62;]"/>
<TfrxShapeView Name="Shape1" Left="0" Top="72,22047" Width="357,92125984" Height="122,96062016" Color="16777215" Frame.Color="8421504"/>
<TfrxMemoView Name="Memo10" Left="3,68491" Top="76,22047" Width="349,29159" Height="17,60637" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" ParentFont="False" Text="DIRECCIÓN DESTINO:"/>
<TfrxMemoView Name="DatosEmpresa" Left="0" Top="36,22047" Width="414,07885" Height="26,89765" OnBeforePrint="DatosEmpresaOnBeforePrint" Font.Charset="1" Font.Color="8421504" Font.Height="-16" Font.Name="Tahoma" Font.Style="1" ParentFont="False" Text=""/>
<TfrxMemoView Name="Memo5" Left="362,61441" Top="101,35436" Width="98,92919" Height="18,67718" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" ParentFont="False" Text="Nº pedido:"/>
<TfrxMemoView Name="Memo4" Left="362,61441" Top="130,89765" Width="72,47248" Height="18,67718" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" ParentFont="False" Text="Proveedor:"/>
<TfrxMemoView Name="Memo11" Left="435,08689" Top="130,89765" Width="279,11812" Height="18,67718" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" ParentFont="False" Text="[frxDBCabecera.&#34;NOMBRE&#34;]"/>
<TfrxMemoView Name="Memo3" Left="438,86642" Top="101,57483" Width="78,80303" Height="18,67718" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" ParentFont="False" Text="[frxDBCabecera.&#34;REFERENCIA&#34;]"/>
<TfrxMemoView Name="DireccionEnvio" Left="4" Top="100,22047" Width="347,46475" Height="87,40483" OnBeforePrint="DireccionEnvioOnBeforePrint" StretchMode="smActualHeight" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text=""/>
<TfrxLineView Name="Line1" Left="718,5" Top="206,36222913" Width="0" Height="768,8947" Frame.Typ="1"/>
<TfrxLineView Name="Line2" Left="0" Top="206,36222913" Width="0" Height="768,8947" Frame.Typ="1"/>
<TfrxLineView Name="Line3" Left="76,2" Top="206,36222913" Width="0" Height="768,8947" Frame.Typ="1"/>
<TfrxLineView Name="Line5" Left="135,5" Top="206,36222913" Width="0" Height="768,8947" Frame.Typ="1"/>
<TfrxMemoView Name="Memo2" Left="365,92115" Top="18,89765" Width="347,93723" Height="38,89765" Font.Charset="1" Font.Color="8421504" Font.Height="-29" Font.Name="Tahoma" Font.Style="1" HAlign="haRight" ParentFont="False" Text="PEDIDO A PROVEEDOR"/>
<TfrxMemoView Name="Memo1" Left="521,57514" Top="102,04731" Width="46,01577" Height="18,67718" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" ParentFont="False" Text="Fecha:"/>
<TfrxMemoView Name="Memo6" Left="570,70903" Top="102,04731" Width="143,05504" Height="18,67718" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" HideZeros="True" ParentFont="False" Text="[frxDBCabecera.&#34;FECHA_PEDIDO&#34;]"/>
<TfrxMemoView Name="Memo9" Left="362,83488" Top="154,96073" Width="30,89765" Height="18,67718" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" ParentFont="False" Text="Fax:"/>
<TfrxMemoView Name="Memo15" Left="396,85065" Top="154,96073" Width="316,91342" Height="18,67718" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" ParentFont="False" Text="[frxDBCabecera.&#34;FAX&#34;]"/>
</TfrxPageHeader>
</TfrxReportPage>
</TfrxReport>

89
Source/Informes/2/InfReciboCliente.fr3
View File

File diff suppressed because one or more lines are too long

55
Source/Informes/2/InfRemesaCliente.fr3
View File

@ -1,55 +0,0 @@
<?xml version="1.0" encoding="utf-8"?>
<TfrxReport Version="3.23.7" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.OutlineWidth="180" PreviewOptions.Zoom="1" PrintOptions.Printer="Default" ReportOptions.CreateDate="37871,9953986921" ReportOptions.Description.Text="" ReportOptions.LastChange="39611,7728282292" ReportOptions.VersionBuild="1" ReportOptions.VersionMajor="12" ReportOptions.VersionMinor="13" ReportOptions.VersionRelease="1" ScriptLanguage="PascalScript" ScriptText.Text="procedure ReportSummary1OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;// Engine.CurY := Engine.CurY + Engine.FreeSpace - ReportSummary1.Height;&#13;&#10;end;&#13;&#10;&#13;&#10;procedure DatosEmpresaOnBeforePrint(Sender: TfrxComponent);&#13;&#10;var&#13;&#10; Cadena: String;&#13;&#10;begin&#13;&#10; DatosEmpresa.Lines.Clear;&#13;&#10; DatosEmpresa.Lines.Add(&#60;frxDBCabecera.&#34;RAZON_SOCIAL&#34;&#62;);&#13;&#10; DatosEmpresa.Lines.Add(&#60;frxDBCabecera.&#34;CALLE_EMPRESA&#34;&#62;);&#13;&#10;&#13;&#10; Cadena := '';&#13;&#10; if (&#60;frxDBCabecera.&#34;TELEFONO_1&#34;&#62; &#60;&#62; '') then&#13;&#10; Cadena := 'TLF: ' + &#60;frxDBCabecera.&#34;TELEFONO_1&#34;&#62;;&#13;&#10; if (&#60;frxDBCabecera.&#34;FAX&#34;&#62; &#60;&#62; '') then&#13;&#10; Cadena := Cadena + ' FAX: ' + &#60;frxDBCabecera.&#34;FAX&#34;&#62;;&#13;&#10; DatosEmpresa.Lines.Add(Cadena);&#13;&#10;&#13;&#10; Cadena := '';&#13;&#10; if (&#60;frxDBCabecera.&#34;CODIGO_POSTAL_EMPRESA&#34;&#62; &#60;&#62; '') then&#13;&#10; Cadena := &#60;frxDBCabecera.&#34;CODIGO_POSTAL_EMPRESA&#34;&#62;;&#13;&#10; if (&#60;frxDBCabecera.&#34;POBLACION_EMPRESA&#34;&#62; &#60;&#62; '') then&#13;&#10; Cadena := Cadena + ' ' + &#60;frxDBCabecera.&#34;POBLACION_EMPRESA&#34;&#62;;&#13;&#10; if (&#60;frxDBCabecera.&#34;PROVINCIA_EMPRESA&#34;&#62; &#60;&#62; '') then&#13;&#10; Cadena := Cadena + ' - ' + &#60;frxDBCabecera.&#34;PROVINCIA_EMPRESA&#34;&#62;;&#13;&#10; DatosEmpresa.Lines.Add(Cadena);&#13;&#10;end;&#13;&#10;&#13;&#10;procedure Band2OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if not Engine.FinalPass then&#13;&#10; Set('TotalPaginas', (&#60;TotalPaginas&#62; + 1));&#13;&#10;&#13;&#10; if Engine.FinalPass then&#13;&#10; Set('Pagina', (&#60;Pagina&#62; + 1));&#13;&#10;end;&#13;&#10;&#13;&#10;procedure frxReportOnStartReport(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; Set('Pagina', 0);&#13;&#10; Set('TotalPaginas', 0);&#13;&#10;end;&#13;&#10;&#13;&#10;procedure PageFooter1OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if Engine.FinalPass&#13;&#10; and (&#60;TotalPaginas&#62; = &#60;Pagina&#62;)then&#13;&#10; begin&#13;&#10; eTotal.Visible := True;&#13;&#10; vTotal.Visible := True;&#13;&#10; Cuadro.Visible := True;&#13;&#10; end&#13;&#10; else&#13;&#10; begin&#13;&#10; eTotal.Visible := False;&#13;&#10; vTotal.Visible := False;&#13;&#10; Cuadro.Visible := False;&#13;&#10; end;&#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403A90003546F70021008446174617365747301010C3400000020446174615365743D22667278444243616265636572612220446174615365744E616D653D22667278444243616265636572612200010C3400000020446174615365743D226672784442446574616C6C65732220446174615365744E616D653D226672784442446574616C6C6573220000095661726961626C657301010C13000000204E616D653D2220506167696E6163696F6E2200010C0E000000204E616D653D22506167696E612200010C14000000204E616D653D22546F74616C506167696E6173220000055374796C6501010C85000000204E616D653D22436F6E636570746F206E6F726D616C2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31322220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D22302200010C87000000204E616D653D22436F6E636570746F20737562746F74616C2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31322220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D22312200010C97000000204E616D653D22436162656365726120646520636F6C756D6E612220436F6C6F723D2231353739303332302220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31322220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D223122204672616D652E5479703D2231352200010C85000000204E616D653D22436F6E636570746F20746974756C6F2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31332220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D2231220000">
<TfrxReportPage Name="Page1" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="1" PaperWidth="210" PaperHeight="297" PaperSize="9" LeftMargin="10" RightMargin="10" TopMargin="10" BottomMargin="10" Columns="1" ColumnWidth="210" ColumnPositions.Text="0" PrintOnPreviousPage="True" HGuides.Text="" VGuides.Text="">
<TfrxPageHeader Name="Band2" Height="258,70866142" Left="0" Top="18,89765" Width="718,1107" OnBeforePrint="Band2OnBeforePrint">
<TfrxMemoView Name="Memo23" Left="3,77953" Top="228,5671" Width="92,22047" Height="26,45669291" Color="16777215" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="12" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Ref. recibo"/>
<TfrxMemoView Name="Memo24" Left="564,69326" Top="228,5671" Width="153,41744" Height="26,45669291" Color="16777215" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="12" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe "/>
<TfrxPictureView Name="Picture1" Left="7,77953" Top="20,22047" Width="160,03598" Height="80,03154" OnBeforePrint="Picture1OnBeforePrint" DataField="LOGOTIPO" DataSet="frxDBCabecera" DataSetName="frxDBCabecera"/>
<TfrxMemoView Name="DatosEmpresa" Left="166,92919" Top="17,35436" Width="221,41744" Height="80,69295" OnBeforePrint="DatosEmpresaOnBeforePrint" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text=""/>
<TfrxShapeView Name="Shape1" Left="7,55906" Top="113,3859" Width="257,00804" Height="94,48825" Color="16777215" Frame.Color="8421504" Shape="skRoundRectangle"/>
<TfrxShapeView Name="Shape2" Left="325,48052" Top="113,3859" Width="393,07112" Height="94,48825" Color="16777215" Frame.Color="8421504" Shape="skRoundRectangle"/>
<TfrxMemoView Name="Memo16" Left="15,11812" Top="116,94496" Width="65,13389" Height="18,89765" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="Nº remesa:"/>
<TfrxMemoView Name="Memo17" Left="15,11812" Top="162,29932" Width="45,35436" Height="18,89765" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="Fecha:"/>
<TfrxMemoView Name="Memo18" Left="15,11812" Top="184,9765" Width="60,47248" Height="18,89765" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="Página nº:"/>
<TfrxMemoView Name="Memo3" Left="211,8859" Top="229,5671" Width="241,0671" Height="26,45669291" Color="16777215" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="12" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Cliente"/>
<TfrxMemoView Name="Memo4" Left="453,953" Top="228,5671" Width="110,74026" Height="26,45669291" Color="16777215" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="12" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="NIF / CIF"/>
<TfrxMemoView Name="Memo5" Left="80,03154" Top="116,94496" Width="176,9765" Height="18,89765" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Text="[frxDBCabecera.&#34;REFERENCIA&#34;]"/>
<TfrxMemoView Name="Memo6" Left="60,25201" Top="162,29932" Width="196,75603" Height="18,89765" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Text="[frxDBCabecera.&#34;FECHA_REMESA&#34;]"/>
<TfrxMemoView Name="Memo7" Left="75,37013" Top="184,9765" Width="181,63791" Height="18,89765" Text="[&#60;Pagina&#62;] / [&#60;TotalPaginas&#62;]"/>
<TfrxMemoView Name="Memo15" Left="396,1577" Top="18,89765" Width="314,39394" Height="64,25201" Font.Charset="1" Font.Color="12632256" Font.Height="-48" Font.Name="Tahoma" Font.Style="1" Frame.Color="14211288" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="REMESA"/>
<TfrxMemoView Name="Memo8" Left="95,82158333" Top="228,66141732" Width="115,89765" Height="26,45669291" Color="16777215" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="12" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Vencimiento"/>
<TfrxMemoView Name="Memo22" Left="15,11812" Top="139,84261" Width="68,91342" Height="18,89765" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="Descripción:"/>
<TfrxMemoView Name="Memo25" Left="87,5906" Top="139,84261" Width="169,41744" Height="18,89765" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Text="[frxDBCabecera.&#34;DESCRIPCION&#34;]"/>
<TfrxMemoView Name="Memo19" Left="336,37817" Top="139,84261" Width="42,45671" Height="18,89765" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="Titular:"/>
<TfrxMemoView Name="Memo26" Left="382,39394" Top="139,84261" Width="331,93723" Height="18,89765" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Text="[frxDBCabecera.&#34;TITULAR&#34;]"/>
<TfrxMemoView Name="Memo27" Left="336,37817" Top="117,16543" Width="176,9765" Height="18,89765" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="Datos de la cuenta"/>
<TfrxMemoView Name="Memo28" Left="336,37817" Top="162,51979" Width="75,5906" Height="18,89765" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="Cód. entidad:"/>
<TfrxMemoView Name="Memo29" Left="415,52783" Top="162,51979" Width="53,13389" Height="18,89765" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Text="[frxDBCabecera.&#34;ENTIDAD&#34;]"/>
<TfrxMemoView Name="Memo30" Left="472,44125" Top="162,51979" Width="83,14966" Height="18,89765" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="Cód. sucursal:"/>
<TfrxMemoView Name="Memo31" Left="559,14997" Top="162,51979" Width="147,62214" Height="18,89765" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Text="[frxDBCabecera.&#34;SUCURSAL&#34;]"/>
<TfrxMemoView Name="Memo32" Left="336,37817" Top="185,19697" Width="26,45671" Height="18,89765" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="DC:"/>
<TfrxMemoView Name="Memo33" Left="366,39394" Top="185,19697" Width="34,23624" Height="18,89765" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Text="[frxDBCabecera.&#34;DC&#34;]"/>
<TfrxMemoView Name="Memo34" Left="472,44125" Top="185,19697" Width="83,14966" Height="18,89765" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="Cód. cuenta:"/>
<TfrxMemoView Name="Memo37" Left="559,14997" Top="185,19697" Width="147,62214" Height="18,89765" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Text="[frxDBCabecera.&#34;CUENTA&#34;]"/>
<TfrxLineView Name="Line2" Left="4" Top="229,54" Width="0" Height="774,803149606299" Frame.Color="8421504" Frame.Typ="1"/>
<TfrxLineView Name="Line5" Left="95,92146" Top="229,54" Width="0" Height="774,803149606299" Frame.Color="8421504" Frame.Typ="1"/>
<TfrxLineView Name="Line4" Left="453,9094" Top="229,54" Width="0" Height="774,803149606299" Frame.Color="8421504" Frame.Typ="1"/>
<TfrxLineView Name="Line3" Left="564,28346457" Top="229,54" Width="0" Height="774,803149606299" Frame.Color="8421504" Frame.Typ="1"/>
<TfrxLineView Name="Line1" Left="718" Top="229,54" Width="0" Height="774,803149606299" Frame.Color="8421504" Frame.Typ="1"/>
<TfrxLineView Name="Line9" Left="211,62461333" Top="229,54" Width="0" Height="774,803149606299" Frame.Color="8421504" Frame.Typ="1"/>
</TfrxPageHeader>
<TfrxMasterData Name="BandaDetalles" Height="19,11812" Left="0" Top="340,1577" Width="718,1107" AllowSplit="True" Columns="1" ColumnWidth="200" ColumnGap="20" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" RowCount="0" Stretched="True">
<TfrxMemoView Name="MemPrecio" Left="460,40153087" Top="2" Width="101,56298724" Height="15,11811024" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 € " DisplayFormat.Kind="fkNumeric" Font.Charset="0" Font.Color="-16777208" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" GapX="3" GapY="3" HideZeros="True" LineSpacing="4" ParentFont="False" Text="[frxDBDetalles.&#34;NIF_CIF_CLIENTE&#34;]"/>
<TfrxMemoView Name="MemImpTotal" Left="566,36216811" Top="2" Width="147,16535189" Height="15,11811024" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 € " DisplayFormat.Kind="fkNumeric" Font.Charset="0" Font.Color="-16777208" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" GapX="3" GapY="3" HAlign="haRight" LineSpacing="4" ParentFont="False" Text="[frxDBDetalles.&#34;IMPORTE_TOTAL&#34;]"/>
<TfrxMemoView Name="MemCantidad" Left="218,46837457" Top="2" Width="229,44892874" Height="15,11811024" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#0 " DisplayFormat.Kind="fkNumeric" Font.Charset="0" Font.Color="-16777208" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" GapX="3" GapY="3" HideZeros="True" LineSpacing="4" ParentFont="False" Text="[frxDBDetalles.&#34;NOMBRE_CLIENTE&#34;]"/>
<TfrxMemoView Name="Memo21" Left="99,22449" Top="2" Width="110,89765" Height="15,11812" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="[frxDBDetalles.&#34;FECHA_VENCIMIENTO&#34;]"/>
<TfrxMemoView Name="Memo2" Left="6,18491" Top="2" Width="84" Height="15,11812" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="[frxDBDetalles.&#34;REFERENCIA&#34;]"/>
</TfrxMasterData>
<TfrxPageFooter Name="PageFooter1" Height="42,70866142" Left="0" Top="419,52783" Width="718,1107" OnBeforePrint="PageFooter1OnBeforePrint">
<TfrxShapeView Name="Cuadro" Left="3,77953" Top="0" Width="714,708661417323" Height="28,88188" Color="16777215" Frame.Color="8421504"/>
<TfrxMemoView Name="vtotal" Left="566,9295" Top="3,77953000000002" Width="147,87415" Height="22,89765" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[frxDBCabecera.&#34;IMPORTE_TOTAL&#34;]"/>
<TfrxMemoView Name="etotal" Left="430,86642" Top="6,67718000000002" Width="132" Height="16" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Total remesa:"/>
<TfrxLineView Name="Linea" Left="3,77953" Top="0" Width="714,330708661417" Height="0" Frame.Typ="4"/>
</TfrxPageFooter>
</TfrxReportPage>
</TfrxReport>

64
Source/Informes/2/InfRemesaProveedor.fr3
View File

@ -1,64 +0,0 @@
<?xml version="1.0" encoding="utf-8"?>
<TfrxReport Version="3.23.7" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.OutlineWidth="180" PreviewOptions.Zoom="1" PrintOptions.Printer="Default" ReportOptions.CreateDate="37871,9953986921" ReportOptions.Description.Text="" ReportOptions.LastChange="39611,7817196528" ReportOptions.VersionBuild="1" ReportOptions.VersionMajor="12" ReportOptions.VersionMinor="13" ReportOptions.VersionRelease="1" ScriptLanguage="PascalScript" ScriptText.Text="&#13;&#10;&#13;&#10;procedure DatosEmpresaOnBeforePrint(Sender: TfrxComponent);&#13;&#10;var&#13;&#10; Cadena: String;&#13;&#10;begin&#13;&#10; DatosEmpresa.Lines.Clear;&#13;&#10; DatosEmpresa.Lines.Add(&#60;frxDBCabecera.&#34;RAZON_SOCIAL&#34;&#62;);&#13;&#10; DatosEmpresa.Lines.Add(&#60;frxDBCabecera.&#34;CALLE_EMPRESA&#34;&#62;);&#13;&#10;&#13;&#10; Cadena := '';&#13;&#10; if (&#60;frxDBCabecera.&#34;TELEFONO_1&#34;&#62; &#60;&#62; '') then&#13;&#10; Cadena := 'TLF: ' + &#60;frxDBCabecera.&#34;TELEFONO_1&#34;&#62;;&#13;&#10; if (&#60;frxDBCabecera.&#34;FAX&#34;&#62; &#60;&#62; '') then&#13;&#10; Cadena := Cadena + ' FAX: ' + &#60;frxDBCabecera.&#34;FAX&#34;&#62;;&#13;&#10; DatosEmpresa.Lines.Add(Cadena);&#13;&#10;&#13;&#10; Cadena := '';&#13;&#10; if (&#60;frxDBCabecera.&#34;CODIGO_POSTAL_EMPRESA&#34;&#62; &#60;&#62; '') then&#13;&#10; Cadena := &#60;frxDBCabecera.&#34;CODIGO_POSTAL_EMPRESA&#34;&#62;;&#13;&#10; if (&#60;frxDBCabecera.&#34;POBLACION_EMPRESA&#34;&#62; &#60;&#62; '') then&#13;&#10; Cadena := Cadena + ' ' + &#60;frxDBCabecera.&#34;POBLACION_EMPRESA&#34;&#62;;&#13;&#10; if (&#60;frxDBCabecera.&#34;PROVINCIA_EMPRESA&#34;&#62; &#60;&#62; '') then&#13;&#10; Cadena := Cadena + ' - ' + &#60;frxDBCabecera.&#34;PROVINCIA_EMPRESA&#34;&#62;;&#13;&#10; DatosEmpresa.Lines.Add(Cadena);&#13;&#10;end;&#13;&#10;&#13;&#10;procedure Band2OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if not Engine.FinalPass then&#13;&#10; Set('TotalPaginas', (&#60;TotalPaginas&#62; + 1));&#13;&#10;&#13;&#10; if Engine.FinalPass then&#13;&#10; Set('Pagina', (&#60;Pagina&#62; + 1));&#13;&#10;end;&#13;&#10;&#13;&#10;procedure frxReportOnStartReport(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; Set('Pagina', 0);&#13;&#10; Set('TotalPaginas', 0);&#13;&#10;end;&#13;&#10;&#13;&#10;procedure PageFooter1OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if Engine.FinalPass&#13;&#10; and (&#60;TotalPaginas&#62; = &#60;Pagina&#62;) then&#13;&#10; begin&#13;&#10; Cuadro.Visible := True;&#13;&#10; eTotal.Visible := True;&#13;&#10; vTotal.Visible := True;&#13;&#10; end&#13;&#10; else&#13;&#10; begin&#13;&#10; Cuadro.Visible := False;&#13;&#10; eTotal.Visible := False;&#13;&#10; vTotal.Visible := False;&#13;&#10; end;&#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403A90003546F70021008446174617365747301010C3400000020446174615365743D22667278444243616265636572612220446174615365744E616D653D22667278444243616265636572612200010C1C00000020446174615365744E616D653D226672784442446574616C6C6573220000095661726961626C657301010C13000000204E616D653D2220506167696E6163696F6E2200010C0E000000204E616D653D22506167696E612200010C14000000204E616D653D22546F74616C506167696E6173220000055374796C6501010C85000000204E616D653D22436F6E636570746F206E6F726D616C2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31322220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D22302200010C87000000204E616D653D22436F6E636570746F20737562746F74616C2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31322220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D22312200010C97000000204E616D653D22436162656365726120646520636F6C756D6E612220436F6C6F723D2231353739303332302220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31322220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D223122204672616D652E5479703D2231352200010C85000000204E616D653D22436F6E636570746F20746974756C6F2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31332220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D2231220000">
<TfrxReportPage Name="Page1" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="1" Orientation="poLandscape" PaperWidth="297" PaperHeight="210" PaperSize="9" LeftMargin="10" RightMargin="10" TopMargin="10" BottomMargin="10" Columns="1" ColumnWidth="210" ColumnPositions.Text="0" PrintOnPreviousPage="True" HGuides.Text="" VGuides.Text="">
<TfrxPageHeader Name="Band2" Height="258,70866142" Left="0" Top="18,89765" Width="1046,92981" OnBeforePrint="Band2OnBeforePrint">
<TfrxMemoView Name="Memo23" Left="3,77953" Top="228,5671" Width="80,88188" Height="26,45669291" Color="16777215" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="12" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Ref. recibo"/>
<TfrxMemoView Name="Memo24" Left="887,95856667" Top="228,5671" Width="158,97124333" Height="26,45669291" Color="16777215" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="12" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe "/>
<TfrxPictureView Name="Picture1" Left="7,77953" Top="20,22047" Width="160,03598" Height="80,03154" OnBeforePrint="Picture1OnBeforePrint" DataField="LOGOTIPO" DataSet="frxDBCabecera" DataSetName="frxDBCabecera"/>
<TfrxMemoView Name="DatosEmpresa" Left="166,92919" Top="17,35436" Width="221,41744" Height="80,69295" OnBeforePrint="DatosEmpresaOnBeforePrint" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text=""/>
<TfrxShapeView Name="Shape1" Left="7,55906" Top="113,3859" Width="257,00804" Height="94,48825" Color="16777215" Frame.Color="8421504" Shape="skRoundRectangle"/>
<TfrxShapeView Name="Shape2" Left="639,181510000002" Top="113,3859" Width="393,07112" Height="94,48825" Color="16777215" Frame.Color="8421504" Shape="skRoundRectangle"/>
<TfrxMemoView Name="Memo16" Left="15,11812" Top="116,94496" Width="65,13389" Height="18,89765" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="Nº remesa:"/>
<TfrxMemoView Name="Memo17" Left="15,11812" Top="162,29932" Width="45,35436" Height="18,89765" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="Fecha:"/>
<TfrxMemoView Name="Memo18" Left="15,11812" Top="184,9765" Width="60,47248" Height="18,89765" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="Página nº:"/>
<TfrxMemoView Name="Memo3" Left="303,59462" Top="228,5671" Width="225,94898" Height="26,45669291" Color="16777215" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="12" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Proveedor"/>
<TfrxMemoView Name="Memo4" Left="530,21026667" Top="228,5671" Width="133,41744" Height="26,45669291" Color="16777215" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="12" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="NIF / CIF"/>
<TfrxMemoView Name="Memo5" Left="80,03154" Top="116,94496" Width="176,9765" Height="18,89765" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Text="[frxDBCabecera.&#34;REFERENCIA&#34;]"/>
<TfrxMemoView Name="Memo6" Left="60,25201" Top="162,29932" Width="196,75603" Height="18,89765" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Text="[frxDBCabecera.&#34;FECHA_REMESA&#34;]"/>
<TfrxMemoView Name="Memo7" Left="75,37013" Top="184,9765" Width="181,63791" Height="18,89765" Text="[&#60;Pagina&#62;] / [&#60;TotalPaginas&#62;]"/>
<TfrxLineView Name="Line1" Left="1046,81911" Top="229,54" Width="0" Height="459,212598425197" Frame.Color="8421504" Frame.Typ="1"/>
<TfrxMemoView Name="Memo15" Left="464,18924" Top="18,89765" Width="567,62245" Height="64,25201" Font.Charset="1" Font.Color="12632256" Font.Height="-48" Font.Name="Tahoma" Font.Style="1" Frame.Color="14211288" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="REMESA"/>
<TfrxLineView Name="Line2" Left="4" Top="229,54" Width="0" Height="459,212598425197" Frame.Color="8421504" Frame.Typ="1"/>
<TfrxLineView Name="Line5" Left="84,58287" Top="228,20666667" Width="0" Height="459,212598425197" Frame.Color="8421504" Frame.Typ="1"/>
<TfrxLineView Name="Line4" Left="530,16666667" Top="229,54" Width="0" Height="459,212598425197" Frame.Color="8421504" Frame.Typ="1"/>
<TfrxMemoView Name="Memo8" Left="195,86889333" Top="228,66141732" Width="107,33859" Height="26,45669291" Color="16777215" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="12" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Vencimiento"/>
<TfrxLineView Name="Line9" Left="304" Top="228,43568333" Width="0" Height="459,212598425197" Frame.Color="8421504" Frame.Typ="1"/>
<TfrxMemoView Name="Memo22" Left="15,11812" Top="139,84261" Width="68,91342" Height="18,89765" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="Descripción:"/>
<TfrxMemoView Name="Memo25" Left="87,5906" Top="139,84261" Width="169,41744" Height="18,89765" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Text="[frxDBCabecera.&#34;DESCRIPCION&#34;]"/>
<TfrxMemoView Name="Memo19" Left="650,079160000002" Top="139,84261" Width="42,45671" Height="18,89765" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="Titular:"/>
<TfrxMemoView Name="Memo26" Left="696,094930000002" Top="139,84261" Width="331,93723" Height="18,89765" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Text="[frxDBCabecera.&#34;TITULAR&#34;]"/>
<TfrxMemoView Name="Memo27" Left="650,079160000002" Top="117,16543" Width="176,9765" Height="18,89765" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="Datos de la cuenta"/>
<TfrxMemoView Name="Memo28" Left="650,079160000002" Top="162,51979" Width="75,5906" Height="18,89765" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="Cód. entidad:"/>
<TfrxMemoView Name="Memo29" Left="729,228820000002" Top="162,51979" Width="53,13389" Height="18,89765" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Text="[frxDBCabecera.&#34;ENTIDAD&#34;]"/>
<TfrxMemoView Name="Memo30" Left="786,142240000002" Top="162,51979" Width="83,14966" Height="18,89765" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="Cód. sucursal:"/>
<TfrxMemoView Name="Memo31" Left="872,850960000002" Top="162,51979" Width="147,62214" Height="18,89765" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Text="[frxDBCabecera.&#34;SUCURSAL&#34;]"/>
<TfrxMemoView Name="Memo32" Left="650,079160000002" Top="185,19697" Width="26,45671" Height="18,89765" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="DC:"/>
<TfrxMemoView Name="Memo33" Left="680,094930000002" Top="185,19697" Width="34,23624" Height="18,89765" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Text="[frxDBCabecera.&#34;DC&#34;]"/>
<TfrxMemoView Name="Memo34" Left="786,142240000002" Top="185,19697" Width="83,14966" Height="18,89765" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="Cód. cuenta:"/>
<TfrxMemoView Name="Memo37" Left="872,850960000002" Top="185,19697" Width="147,62214" Height="18,89765" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Text="[frxDBCabecera.&#34;CUENTA&#34;]"/>
<TfrxMemoView Name="Memo11" Left="663,41775" Top="228,10513333" Width="224,12616" Height="27,2125984251969" Color="16777215" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="12" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Número de cuenta"/>
<TfrxLineView Name="Line7" Left="888,18955" Top="228,7718" Width="0" Height="459,212598425197" Frame.Color="8421504" Frame.Typ="1"/>
<TfrxMemoView Name="Memo36" Left="86,26252333" Top="228,66141732" Width="111,11812" Height="26,45669291" Color="16777215" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="12" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Ref. factura prov."/>
<TfrxLineView Name="Line8" Left="195,78478667" Top="229,10235" Width="0" Height="459,212598425197" Frame.Color="8421504" Frame.Typ="1"/>
<TfrxLineView Name="Line3" Left="664,55124457" Top="228,87333333" Width="0" Height="459,212598425197" Frame.Color="8421504" Frame.Typ="1"/>
</TfrxPageHeader>
<TfrxMasterData Name="BandaDetalles" Height="19,11812" Left="0" Top="340,1577" Width="1046,92981" AllowSplit="True" Columns="1" ColumnWidth="200" ColumnGap="20" DataSetName="frxDBDetalles" RowCount="0" Stretched="True">
<TfrxMemoView Name="MemPrecio" Left="548,6640542" Top="2,66666666999998" Width="109,12204724" Height="15,11811024" StretchMode="smMaxHeight" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 € " DisplayFormat.Kind="fkNumeric" Font.Charset="0" Font.Color="-16777208" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" GapX="3" GapY="3" HideZeros="True" LineSpacing="4" ParentFont="False" Text="[frxDBDetalles.&#34;NIF_CIF_PROVEEDOR&#34;]"/>
<TfrxMemoView Name="MemImpTotal" Left="895,18127811" Top="2" Width="147,16535189" Height="15,11811024" StretchMode="smMaxHeight" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 € " DisplayFormat.Kind="fkNumeric" Font.Charset="0" Font.Color="-16777208" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" GapX="3" GapY="3" HAlign="haRight" LineSpacing="4" ParentFont="False" Text="[frxDBDetalles.&#34;IMPORTE_TOTAL&#34;]"/>
<TfrxMemoView Name="MemCantidad" Left="310,5104279" Top="2" Width="214,33080874" Height="15,11811024" StretchMode="smMaxHeight" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#0 " DisplayFormat.Kind="fkNumeric" Font.Charset="0" Font.Color="-16777208" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" GapX="3" GapY="3" HideZeros="True" LineSpacing="4" ParentFont="False" Text="[frxDBDetalles.&#34;NOMBRE_PROVEEDOR&#34;]"/>
<TfrxMemoView Name="Memo21" Left="213,94372333" Top="2" Width="84,44094" Height="15,11812" DataSetName="frxDBDetalles" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="[frxDBDetalles.&#34;FECHA_VENCIMIENTO&#34;]"/>
<TfrxMemoView Name="Memo2" Left="9,96444" Top="2" Width="61,32282" Height="15,11812" DataSetName="frxDBDetalles" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="[frxDBDetalles.&#34;REFERENCIA&#34;]"/>
<TfrxMemoView Name="Memo12" Left="696,10018667" Top="2,44619667000001" Width="29,75191724" Height="15,11811024" StretchMode="smMaxHeight" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," Font.Charset="0" Font.Color="-16777208" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" GapX="3" GapY="3" HideZeros="True" LineSpacing="4" ParentFont="False" Text="[frxDBDetalles.&#34;ENTIDAD_PROVEEDOR&#34;]"/>
<TfrxMemoView Name="Memo14" Left="731,89548667" Top="2,66666666999998" Width="29,75191724" Height="15,11811024" StretchMode="smMaxHeight" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 € " Font.Charset="0" Font.Color="-16777208" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" GapX="3" GapY="3" HideZeros="True" LineSpacing="4" ParentFont="False" Text="[frxDBDetalles.&#34;SUCURSAL_PROVEEDOR&#34;]"/>
<TfrxMemoView Name="Memo20" Left="766,79839333" Top="2,66666665999998" Width="18,41332724" Height="15,11811024" StretchMode="smMaxHeight" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 € " Font.Charset="0" Font.Color="-16777208" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" GapX="3" GapY="3" HideZeros="True" LineSpacing="4" ParentFont="False" Text="[frxDBDetalles.&#34;DC_PROVEEDOR&#34;]"/>
<TfrxMemoView Name="Memo35" Left="789,92177" Top="2,66666666999998" Width="82,66533724" Height="15,11811024" StretchMode="smMaxHeight" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 € " Font.Charset="0" Font.Color="-16777208" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" GapX="3" GapY="3" HideZeros="True" LineSpacing="4" ParentFont="False" Text="[frxDBDetalles.&#34;CUENTA_PROVEEDOR&#34;]"/>
<TfrxMemoView Name="Memo39" Left="88,92919" Top="2" Width="106,67718" Height="15,11812" DataSetName="frxDBDetalles" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="[frxDBDetalles.&#34;REFERENCIA_FACTURA_PROV&#34;]"/>
</TfrxMasterData>
<TfrxPageFooter Name="PageFooter1" Height="30,23624" Left="0" Top="419,52783" Width="1046,92981" OnBeforePrint="PageFooter1OnBeforePrint">
<TfrxShapeView Name="Cuadro" Left="3,77953" Top="0" Width="1042,81911" Height="28,88188" Color="16777215" Frame.Color="8421504"/>
<TfrxMemoView Name="vTotal" Left="923,93723" Top="1,10235" Width="117,63791" Height="22,89765" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[frxDBCabecera.&#34;IMPORTE_TOTAL&#34;]"/>
<TfrxMemoView Name="eTotal" Left="784,09462" Top="7,77953000000002" Width="132" Height="16" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Total remesa:"/>
<TfrxLineView Name="Line6" Left="3,77953" Top="0" Width="1043,14960629921" Height="0" Frame.Typ="4"/>
</TfrxPageFooter>
</TfrxReportPage>
</TfrxReport>

25
Source/Informes/1/InfAlbaranCliente.fr3 → Source/Informes/InfAlbaranCliente.fr3
View File

File diff suppressed because one or more lines are too long

0
Source/Informes/1/InfAlbaranProveedor.fr3 → Source/Informes/InfAlbaranProveedor.fr3
View File

0
Source/Informes/1/InfComisiones.fr3 → Source/Informes/InfComisiones.fr3
View File

0
Source/Informes/1/InfComisionesDesglosado.fr3 → Source/Informes/InfComisionesDesglosado.fr3
View File

0
Source/Informes/1/InfEtiquetasAlbaranCliente.fr3 → Source/Informes/InfEtiquetasAlbaranCliente.fr3
View File

0
Source/Informes/1/InfEtiquetasContactos.fr3 → Source/Informes/InfEtiquetasContactos.fr3
View File

22
Source/Informes/1/InfFacturaCliente.fr3 → Source/Informes/InfFacturaCliente.fr3
View File

File diff suppressed because one or more lines are too long

0
Source/Informes/1/InfFacturaProveedor.fr3 → Source/Informes/InfFacturaProveedor.fr3
View File

0
Source/Informes/1/InfPedidoCliente.fr3 → Source/Informes/InfPedidoCliente.fr3
View File

0
Source/Informes/1/InfPedidoProveedor.fr3 → Source/Informes/InfPedidoProveedor.fr3
View File

0
Source/Informes/1/InfReciboCliente.fr3 → Source/Informes/InfReciboCliente.fr3
View File

0
Source/Informes/1/InfRemesaCliente.fr3 → Source/Informes/InfRemesaCliente.fr3
View File

0
Source/Informes/1/InfRemesaProveedor.fr3 → Source/Informes/InfRemesaProveedor.fr3
View File

7
Source/Modulos/Albaranes de cliente/AlbaranesCliente_Group.bdsgroup
View File

@ -8,9 +8,7 @@
<Option Name="GUID">{D1967178-5EBB-46B2-893F-E0CADFEDD466}</Option>
</Option>
</PersonalityInfo>
<Default.Personality>
<Projects>
<Default.Personality> <Projects>
<Projects Name="DataAbstract_D10.bpl">..\..\DataAbstract_D10\DataAbstract_D10.bdsproj</Projects>
<Projects Name="Base.bpl">..\..\Base\Base.bdsproj</Projects>
<Projects Name="ControllerBase.bpl">..\..\Base\ControllerBase\ControllerBase.bdsproj</Projects>
@ -25,9 +23,10 @@
<Projects Name="AlbCli_FacCli_relation.bpl">..\Relaciones\Albaranes de cliente - Facturas de cliente\AlbCli_FacCli_relation.bdsproj</Projects>
<Projects Name="AlbaranesCliente_view.bpl">Views\AlbaranesCliente_view.bdsproj</Projects>
<Projects Name="AlbaranesCliente_plugin.bpl">Plugin\AlbaranesCliente_plugin.bdsproj</Projects>
<Projects Name="FacturasCliente_view.bpl">..\Facturas de cliente\Views\FacturasCliente_view.bdsproj</Projects>
<Projects Name="FactuGES_Server.exe">..\..\Servidor\FactuGES_Server.bdsproj</Projects>
<Projects Name="FactuGES.exe">..\..\Cliente\FactuGES.bdsproj</Projects>
<Projects Name="Targets">DataAbstract_D10.bpl Base.bpl ControllerBase.bpl GUIBase.bpl Contactos_view.bpl Articulos_view.bpl AlbaranesCliente_model.bpl AlbaranesCliente_data.bpl AlbaranesCliente_controller.bpl FacturasCliente_controller.bpl PedCli_AlbCli_relation.bpl AlbCli_FacCli_relation.bpl AlbaranesCliente_view.bpl AlbaranesCliente_plugin.bpl FactuGES_Server.exe FactuGES.exe</Projects>
<Projects Name="Targets">DataAbstract_D10.bpl Base.bpl ControllerBase.bpl GUIBase.bpl Contactos_view.bpl Articulos_view.bpl AlbaranesCliente_model.bpl AlbaranesCliente_data.bpl AlbaranesCliente_controller.bpl FacturasCliente_controller.bpl PedCli_AlbCli_relation.bpl AlbCli_FacCli_relation.bpl AlbaranesCliente_view.bpl AlbaranesCliente_plugin.bpl FacturasCliente_view.bpl FactuGES_Server.exe FactuGES.exe</Projects>
</Projects>
<Dependencies/>
</Default.Personality>

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

@ -54,7 +54,6 @@ contains
uAlbaranesClienteReportController in 'uAlbaranesClienteReportController.pas',
uIEditorAlbaranesClientePreview in 'View\uIEditorAlbaranesClientePreview.pas',
uIEditorAlbaranesDevCliente in 'View\uIEditorAlbaranesDevCliente.pas',
uIEditorAlbaranDevCliente in 'View\uIEditorAlbaranDevCliente.pas',
uIDialogListaAlbaranesCliEnvioEMail in 'View\uIDialogListaAlbaranesCliEnvioEMail.pas';
uIEditorAlbaranDevCliente in 'View\uIEditorAlbaranDevCliente.pas';
end.

21
Source/Modulos/Albaranes de cliente/Controller/View/uIDialogListaAlbaranesCliEnvioEMail.pas
View File

@ -1,21 +0,0 @@
unit uIDialogListaAlbaranesCliEnvioEMail;
interface
uses
uBizAlbaranesCliente, uAlbaranesClienteController;
type
IDialogListaAlbaranesCliEnvioEMail = interface
['{2C6DBF4E-28D8-49A6-9FF3-13AA5C6F6CF1}']
function GetAlbaranes: IBizAlbaranCliente;
procedure SetAlbaranes(const Value: IBizAlbaranCliente);
property Albaranes: IBizAlbaranCliente read GetAlbaranes write SetAlbaranes;
function ShowModal : Integer;
procedure Release;
end;
implementation
end.

222
Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteController.pas
View File

@ -4,7 +4,7 @@ interface
uses
Classes, SysUtils, uDADataTable, uEditorDBItem,
SysUtils, uDADataTable, uEditorDBItem,
uControllerBase, uIDataModuleAlbaranesCliente, uClientesController,
uDetallesAlbaranClienteController, uBizAlbaranesCliente, uBizDireccionesContacto,
uViewGridBase;
@ -44,8 +44,8 @@ type
function ExtraerSeleccionados(AAlbaran: IBizAlbaranCliente; Const ViewGrid: IViewGridBase = Nil) : IBizAlbaranCliente;
function ElegirAlbaranes(AAlbaran: IBizAlbaranCliente; AMensaje: String; AMultiSelect: Boolean): IBizAlbaranCliente;
procedure Preview(AAlbaran : IBizAlbaranCliente; AllItems: Boolean = false; ConObservacionesIncidencias: Boolean = false);
function Print(AAlbaran : IBizAlbaranCliente; AllItems: Boolean = false; ConObservacionesIncidencias: Boolean = false): Boolean;
procedure Preview(AAlbaran : IBizAlbaranCliente; AllItems: Boolean = false);
function Print(AAlbaran : IBizAlbaranCliente; AllItems: Boolean = false): Boolean;
procedure EtiquetasPreview(AAlbaran : IBizAlbaranCliente; Const withRefCliente: Boolean);
procedure EtiquetasPrint(AAlbaran : IBizAlbaranCliente; Const withRefCliente: Boolean);
@ -65,16 +65,6 @@ type
function ValidarSituacion(ASituacion: String;
AFechaEnvio : TDateTime = 0;
AFechaRecibido : TDateTime = 0) : Boolean;
function EnviarEmailAlbaranes(AAlbaranes : IBizAlbaranCliente): Boolean;
function GenerarEmailAlbaran(AAlbaran : IBizAlbaranCliente): Boolean;
function EnviarAlbaranPorEMail(AAlbaran: IBizAlbaranCliente;
const AEnviarDirectamente: Boolean = True;
const ADireccionEMail: String = ''; const AAsuntoEMail: String = '';
const ATextoEMail: String = ''): Boolean;
function DarListaAnosAlbaranes: TStringList;
procedure FiltrarAno(AAlbaran: IBizAlbaranCliente; AWhereDataTable: String; const Ano: String);
end;
TAlbaranesClienteController = class(TObservador, IAlbaranesClienteController)
@ -99,7 +89,6 @@ type
procedure FiltrarEmpresa(AAlbaran: IBizAlbaranCliente);
function _Vacio : IBizAlbaranCliente;
function ValidarAlbaran(AAlbaran: IBizAlbaranCliente): Boolean;
procedure _AnadirMarcaEnvioCorreo(AAlbaran: IBizAlbaranCliente);
public
property ClienteController: IClientesController read GetClienteController write SetClienteController;
@ -150,20 +139,10 @@ type
AFechaRecibido : TDateTime = 0;
DoPost: Boolean = True) : Boolean;
procedure Preview(AAlbaran : IBizAlbaranCliente; AllItems: Boolean = false; ConObservacionesIncidencias: Boolean = false);
function Print(AAlbaran : IBizAlbaranCliente; AllItems: Boolean = false; ConObservacionesIncidencias: Boolean = false): Boolean;
procedure Preview(AAlbaran : IBizAlbaranCliente; AllItems: Boolean = false);
function Print(AAlbaran : IBizAlbaranCliente; AllItems: Boolean = false): Boolean;
procedure EtiquetasPreview(AAlbaran : IBizAlbaranCliente; Const withRefCliente: Boolean);
procedure EtiquetasPrint(AAlbaran : IBizAlbaranCliente; Const withRefCliente: Boolean);
function EnviarEmailAlbaranes(AAlbaranes : IBizAlbaranCliente): Boolean;
function GenerarEmailAlbaran(AAlbaran : IBizAlbaranCliente): Boolean;
function EnviarAlbaranPorEMail(AAlbaran: IBizAlbaranCliente;
const AEnviarDirectamente: Boolean = True;
const ADireccionEMail: String = ''; const AAsuntoEMail: String = '';
const ATextoEMail: String = ''): Boolean;
function DarListaAnosAlbaranes: TStringList;
procedure FiltrarAno(AAlbaran: IBizAlbaranCliente; AWhereDataTable: String; const Ano: String);
end;
implementation
@ -172,14 +151,12 @@ uses
uROTypes, Controls, cxControls, DB, uEditorRegistryUtils, uEditorPreview, DateUtils,
uIEditorAlbaranesCliente, uIEditorAlbaranesDevCliente, uIEditorAlbaranDevCliente,
uDataModuleAlbaranesCliente, Variants, uBizDetallesAlbaranCliente,
uBizContactos, uDataTableUtils, uDataModuleUsuarios,
uBizContactos, uDataTableUtils, uDataModuleUsuarios, Classes,
schAlbaranesClienteClient_Intf, uDAInterfaces, uDateUtils, uIEditorAlbaranCliente,
uIEditorElegirAlbaranesCliente, uIEditorDireccionEntregaAlbaranCliente,
schContactosClient_Intf, uAlbaranesClienteReportController, uControllerDetallesBase,
uPedidosClienteController, uBizPedidosCliente, uBizDetallesPedidoCliente,
schPedidosClienteClient_Intf, uDialogUtils, Windows, Forms, Dialogs, uGUIBase,
uDataModuleRegistroCorreos,
uIDialogListaAlbaranesCliEnvioEMail, uSistemaFunc, uStringsUtils, uDialogElegirEMail, uEMailUtils;
schPedidosClienteClient_Intf, uDialogUtils, Windows, Forms, Dialogs, uGUIBase;
@ -405,11 +382,6 @@ begin
Result := Supports(EditorRegistry.CreateEditor(AName), IID, Intf);
end;
function TAlbaranesClienteController.DarListaAnosAlbaranes: TStringList;
begin
Result := FDataModule.GetAnosItems;
end;
procedure TAlbaranesClienteController.DescartarCambios(AAlbaran: IBizAlbaranCliente);
begin
if not Assigned(AAlbaran) then
@ -675,37 +647,6 @@ begin
end;
end;
procedure TAlbaranesClienteController._AnadirMarcaEnvioCorreo(AAlbaran: IBizAlbaranCliente);
var
ASoloLectura : Boolean;
begin
if not Assigned(AAlbaran) then
raise Exception.Create ('Albaran no asignado (_AnadirMarcaEnvioCorreo)');
if AAlbaran.DataTable.Active then
AAlbaran.DataTable.Active := True;
if AnadirMarcaEnvioCorreo(nme_AlbaranesCliente, AAlbaran.ID) then
begin
DesconectarTabla(AAlbaran.DataTable);
try
ASoloLectura := AAlbaran.DataTable.ReadOnly;
if ASoloLectura then
SetDataTableReadOnly(AAlbaran.DataTable, False);
try
AAlbaran.Edit;
AAlbaran.NUM_CORREOS := AAlbaran.NUM_CORREOS + 1;
AAlbaran.Post;
finally
if ASoloLectura then
SetDataTableReadOnly(AAlbaran.DataTable, True);
end;
finally
ConectarTabla(AAlbaran.DataTable);
end;
end;
end;
function TAlbaranesClienteController._Vacio: IBizAlbaranCliente;
begin
Result := Buscar(ID_NULO);
@ -801,104 +742,6 @@ begin
end;
end;
function TAlbaranesClienteController.EnviarAlbaranPorEMail(
AAlbaran: IBizAlbaranCliente; const AEnviarDirectamente: Boolean;
const ADireccionEMail, AAsuntoEMail, ATextoEMail: String): Boolean;
var
AReportController : IAlbaranesClienteReportController;
AFicheroTMP : TFileName;
AEMail : String;
AAsunto : String;
AListaEmail : TStringList;
begin
if not Assigned(AAlbaran) then
raise Exception.Create ('Albaran no asignada (EnviarAlbaranPorEMail)');
if AAlbaran.DataTable.Active then
AAlbaran.DataTable.Active := True;
RecuperarCliente(AAlbaran);
AAlbaran.Cliente.DataTable.Active := True;
AFicheroTMP := DarFicheroPDFTemporal(EscapeIllegalChars(AAlbaran.REFERENCIA));
if not EsCadenaVacia(ADireccionEMail) then
AEMail := ADireccionEMail
else begin
AListaEmail := TStringList.Create;
try
if not EsCadenaVacia(AAlbaran.Cliente.EMAIL_ADMINISTRACION) then
AListaEmail.Add(AAlbaran.Cliente.EMAIL_ADMINISTRACION);
if not ElegirEMail(AListaEmail, AEMail) then
Exit;
finally
FreeANDNIL(AListaEmail);
end;
end;
if not EsCadenaVacia(AAsuntoEMail) then
AAsunto := AAsuntoEMail
else
begin
if (AAlbaran.TIPO = CTE_TIPO_ALBARAN_DEV) then
AAsunto := 'Orden devolución ' + AAlbaran.REFERENCIA
else
AAsunto := 'Albarán ' + AAlbaran.REFERENCIA;
end;
ShowHourglassCursor;
Application.ProcessMessages;
AReportController := TAlbaranesClienteReportController.Create;
try
AReportController.ExportToPDF(AAlbaran.ID, AFicheroTMP);
Result := EnviarEMailMAPI(AAsunto, ATextoEMail, AFicheroTMP, '', '', AAlbaran.Cliente.NOMBRE, AEMail, AEnviarDirectamente);
if Result then
_AnadirMarcaEnvioCorreo(AAlbaran);
finally
SysUtils.DeleteFile(AFicheroTMP);
AReportController := NIL;
HideHourglassCursor;
Application.ProcessMessages;
end;
end;
function TAlbaranesClienteController.EnviarEmailAlbaranes(
AAlbaranes: IBizAlbaranCliente): Boolean;
var
ADialog : IDialogListaAlbaranesCliEnvioEMail;
ARespuesta : Integer;
begin
ADialog := NIL;
if not Assigned(AAlbaranes) then
raise Exception.Create ('Albaranes no asignadas (EnviarAlbaranesCliPorEMail)');
if AAlbaranes.DataTable.Active then
AAlbaranes.DataTable.Active := True;
ShowHourglassCursor;
try
CreateEditor('DialogListaAlbaranesCliEnvioEMail', IDialogListaAlbaranesCliEnvioEMail, ADialog);
if Assigned(ADialog) then
begin
try
ADialog.Albaranes := AAlbaranes;
ARespuesta := ADialog.ShowModal;
Result := (ARespuesta = mrOK)
finally
ADialog.Release;
end;
end;
finally
ADialog := NIL;
HideHourglassCursor;
end;
end;
function TAlbaranesClienteController.EsEliminable(AAlbaran: IBizAlbaranCliente): Boolean;
begin
if not Assigned(AAlbaran) then
@ -1001,31 +844,6 @@ begin
end;
end;
procedure TAlbaranesClienteController.FiltrarAno(AAlbaran: IBizAlbaranCliente; AWhereDataTable: String; const Ano: String);
var
FechaIni: String;
FechaFin: String;
begin
AAlbaran.DataTable.Where.Clear;
AAlbaran.DataTable.Where.AddText(AWhereDataTable);
if (Ano <> 'Todos') then
begin
// Filtrar las facturas actuales por empresa
FechaIni := '01.01.' + Ano;
FechaFin := '31.12.' + Ano;
with AAlbaran.DataTable.Where do
begin
if NotEmpty then
AddOperator(opAND);
AddCondition(fld_AlbaranesClienteFECHA_ALBARAN, cMajorOrEqual, FechaIni);
AddOperator(opAND);
AddCondition(fld_AlbaranesClienteFECHA_ALBARAN, cLessOrEqual, FechaFin);
end;
end;
end;
procedure TAlbaranesClienteController.FiltrarEmpresa(
AAlbaran: IBizAlbaranCliente);
begin
@ -1128,7 +946,7 @@ begin
end;
end;
procedure TAlbaranesClienteController.Preview(AAlbaran: IBizAlbaranCliente; AllItems: Boolean = false; ConObservacionesIncidencias: Boolean = false);
procedure TAlbaranesClienteController.Preview(AAlbaran: IBizAlbaranCliente; AllItems: Boolean = false);
var
AReportController : IAlbaranesClienteReportController;
ID_Albaranes: TStringList;
@ -1155,7 +973,7 @@ begin
else
ID_Albaranes.Add(IntToStr(AAlbaran.ID));
AReportController.Preview(ID_Albaranes.CommaText, ConObservacionesIncidencias);
AReportController.Preview(ID_Albaranes.CommaText);
finally
AReportController := NIL;
@ -1163,7 +981,7 @@ begin
end;
end;
function TAlbaranesClienteController.Print(AAlbaran: IBizAlbaranCliente; AllItems: Boolean = false; ConObservacionesIncidencias: Boolean = false): Boolean;
function TAlbaranesClienteController.Print(AAlbaran: IBizAlbaranCliente; AllItems: Boolean = false): Boolean;
var
AReportController : IAlbaranesClienteReportController;
ID_Albaranes: TStringList;
@ -1191,7 +1009,7 @@ begin
else
ID_Albaranes.Add(IntToStr(AAlbaran.ID));
Result := AReportController.Print(ID_Albaranes.CommaText, ConObservacionesIncidencias);
Result := AReportController.Print(ID_Albaranes.CommaText);
finally
AReportController := NIL;
@ -1224,24 +1042,6 @@ begin
end;
end;
function TAlbaranesClienteController.GenerarEmailAlbaran(
AAlbaran: IBizAlbaranCliente): Boolean;
begin
if not Assigned(AAlbaran) then
raise Exception.Create ('Albaranes no asignadas (GenerarEmailAlbaran)');
if AAlbaran.DataTable.Active then
AAlbaran.DataTable.Active := True;
ShowHourglassCursor;
try
RecuperarCliente(AAlbaran);
EnviarAlbaranPorEMail(AAlbaran, False, AAlbaran.Cliente.EMAIL_ADMINISTRACION);
finally
HideHourglassCursor;
end;
end;
function TAlbaranesClienteController.GenerarOrdenDev(AAlbaran: IBizAlbaranCliente): IBizAlbaranCliente;
var
AOrden : IBizAlbaranCliente;

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

@ -10,11 +10,10 @@ uses
type
IAlbaranesClienteReportController = interface
['{4BCC7A93-3322-494C-A3FA-118F4B62CB15}']
procedure Preview(const AID : String; ConObservacionesIncidencias: Boolean = false);
function Print(const AID : String; ConObservacionesIncidencias: Boolean = false): Boolean;
procedure Preview(const AID : String);
function Print(const AID : String): Boolean;
procedure EtiquetasPreview(const AID : integer; Const withRefCliente: Boolean);
procedure EtiquetasPrint(const AID : integer; Const withRefCliente: Boolean);
function ExportToPDF(const AID: Integer; const AFileName : String = ''): Boolean;
end;
TAlbaranesClienteReportController = class(TInterfacedObject, IAlbaranesClienteReportController)
@ -26,11 +25,10 @@ type
constructor Create;
destructor Destroy; override;
procedure Preview(const AID : String; ConObservacionesIncidencias: Boolean = false);
function Print(const AID : String; ConObservacionesIncidencias: Boolean = false): Boolean;
procedure Preview(const AID : String);
function Print(const AID : String): Boolean;
procedure EtiquetasPreview(const AID : integer; const withRefCliente: Boolean);
procedure EtiquetasPrint(const AID : integer; const withRefCliente: Boolean);
function ExportToPDF(const AID: Integer; const AFileName : String = ''): Boolean;
end;
@ -39,7 +37,7 @@ implementation
uses
uROTypes, uEditorRegistryUtils, uIEditorAlbaranesClientePreview,
uEditorPreview, uDataModuleAlbaranesCliente, uEditorBase, cxControls,
schAlbaranesClienteClient_Intf, uStringsUtils;
schAlbaranesClienteClient_Intf;
{ TAlbaranesClienteReportController }
@ -109,29 +107,7 @@ begin
AEditor.Print
end;
function TAlbaranesClienteReportController.ExportToPDF(const AID: Integer; const AFileName: String): Boolean;
var
AStream: Binary;
begin
Result := False;
if EsCadenaVacia(AFileName) then
Exit;
ShowHourglassCursor;
try
AStream := FDataModule.GetRptPDF(AID, True);
try
AStream.SaveToFile(AFileName);
Result := True;
finally
FreeAndNil(AStream);
end;
finally
HideHourglassCursor;
end;
end;
procedure TAlbaranesClienteReportController.Preview(const AID : String; ConObservacionesIncidencias: Boolean = false);
procedure TAlbaranesClienteReportController.Preview(const AID : String);
var
AStream: Binary;
AEditor : IEditorAlbaranesClientePreview;
@ -140,7 +116,7 @@ begin
ShowHourglassCursor;
try
AStream := FDataModule.GetReport(AID, ConObservacionesIncidencias); //Lista de seleccionados (Array de integers)
AStream := FDataModule.GetReport(AID); //Lista de seleccionados (Array de integers)
try
CreateEditor('EditorAlbaranesClientePreview', IEditorAlbaranesClientePreview, AEditor);
AEditor.LoadFromStream(AStream);
@ -155,7 +131,7 @@ begin
AEditor.Preview;
end;
function TAlbaranesClienteReportController.Print(const AID : String; ConObservacionesIncidencias: Boolean = false): Boolean;
function TAlbaranesClienteReportController.Print(const AID : String): Boolean;
var
AStream: Binary;
AEditor : IEditorAlbaranesClientePreview;
@ -165,7 +141,7 @@ begin
ShowHourglassCursor;
try
AStream := FDataModule.GetReport(AID, ConObservacionesIncidencias);
AStream := FDataModule.GetReport(AID);
try
CreateEditor('EditorAlbaranesClientePreview', IEditorAlbaranesClientePreview, AEditor);
AEditor.LoadFromStream(AStream);

2
Source/Modulos/Albaranes de cliente/Data/AlbaranesCliente_data.bdsproj
View File

@ -172,7 +172,7 @@
<VersionInfoKeys Name="Comments"></VersionInfoKeys>
</VersionInfoKeys>
</Delphi.Personality>
<!-- EurekaLog First Line
<!-- EurekaLog First Line
[Exception Log]
EurekaLog Version=519
Activate=1

131
Source/Modulos/Albaranes de cliente/Data/uDataModuleAlbaranesCliente.dfm
View File

@ -680,28 +680,6 @@ object DataModuleAlbaranesCliente: TDataModuleAlbaranesCliente
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'NUM_CORREOS'
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'BLOQUEADO'
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end>
Params = <>
MasterMappingMode = mmDataRequest
@ -1097,113 +1075,4 @@ object DataModuleAlbaranesCliente: TDataModuleAlbaranesCliente
Left = 392
Top = 80
end
object tbl_ListaAnosAlbaranes: TDACDSDataTable
RemoteUpdatesOptions = []
Fields = <
item
Name = 'ANO'
DataType = datString
Size = 254
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end>
Params = <>
MasterMappingMode = mmDataRequest
StreamingOptions = [soDisableEventsWhileStreaming]
SchemaCall.MethodName = 'GetDatasetSchema'
SchemaCall.Params = <
item
Name = 'Result'
ParamType = fResult
DataType = rtBinary
end
item
Name = 'aDatasetName'
ParamType = fIn
DataType = rtString
Value = 'ListaAnosAlbaranes'
end>
DataRequestCall.MethodName = 'GetDatasetDataEx'
DataRequestCall.Params = <
item
Name = 'Result'
ParamType = fResult
DataType = rtBinary
end
item
Name = 'DatasetName'
ParamType = fIn
DataType = rtString
Value = 'ListaAnosAlbaranes'
end
item
Name = 'Params'
ParamType = fIn
DataType = rtUserDefined
UserClassName = 'TDADatasetParamArray'
end
item
Name = 'UserFilter'
ParamType = fIn
DataType = rtString
Value = ''
end
item
Name = 'IncludeSchema'
ParamType = fIn
DataType = rtBoolean
Value = False
end
item
Name = 'MaxRecords'
ParamType = fIn
DataType = rtInteger
Value = -1
end>
DataUpdateCall.MethodName = 'UpdateData'
DataUpdateCall.Params = <
item
Name = 'Result'
ParamType = fResult
DataType = rtBinary
end
item
Name = 'Delta'
ParamType = fIn
DataType = rtBinary
end>
ScriptCall.MethodName = 'GetDatasetScripts'
ScriptCall.Params = <
item
Name = 'Result'
ParamType = fResult
DataType = rtString
Value = ''
end
item
Name = 'DatasetNames'
ParamType = fIn
DataType = rtString
Value = 'ListaAnosAlbaranes'
end>
ReadOnly = False
RemoteService = RORemoteService
Adapter = DABinAdapter
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'ListaAnosAlbaranes'
IndexDefs = <>
Left = 256
Top = 288
end
object ds_ListaAnosAlbaranes: TDADataSource
DataTable = tbl_ListaAnosAlbaranes
Left = 256
Top = 232
end
end

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

@ -22,8 +22,6 @@ type
ds_AlbaranesCliente: TDADataSource;
tbl_AlbaranesCliente_Detalles: TDACDSDataTable;
ds_AlbaranesCliente_Detalles: TDADataSource;
tbl_ListaAnosAlbaranes: TDACDSDataTable;
ds_ListaAnosAlbaranes: TDADataSource;
procedure DAClientDataModuleCreate(Sender: TObject);
private
@ -40,11 +38,8 @@ type
function NewItem : IBizAlbaranCliente;
// Report
function GetReport(const AID: String; const ConObservacionesIncidencias: Boolean = False; const ShowLogotipo: Boolean = False): Binary;
function GetReport(const AID: String; const ShowLogotipo: Boolean = False): Binary;
function GetEtiquetas(const AID: Integer; withRefCliente: Boolean): Binary;
function GetRptPDF(const AID: Integer; const ShowLogotipo: Boolean = False): Binary;
function GetAnosItems : TStringList;
end;
implementation
@ -81,23 +76,9 @@ begin
Result := (RORemoteService as IsrvAlbaranesCliente).GetNextAutoInc(aGeneratorName)
end;
function TDataModuleAlbaranesCliente.GetReport(const AID: String; const ConObservacionesIncidencias: Boolean = False; const ShowLogotipo: Boolean = False): Binary;
function TDataModuleAlbaranesCliente.GetReport(const AID: String; const ShowLogotipo: Boolean = False): Binary;
begin
Result := (RORemoteService as IsrvAlbaranesCliente).GenerateReport(AID, ShowLogotipo, ConObservacionesIncidencias)
end;
function TDataModuleAlbaranesCliente.GetRptPDF(const AID: Integer;
const ShowLogotipo: Boolean): Binary;
var
AParam : TIntegerArray;
begin
AParam := TIntegerArray.Create;
try
AParam.Add(AID);
Result := (RORemoteService as IsrvAlbaranesCliente).GenerarReportPDF(AParam, ShowLogotipo)
finally
FreeANDNIL(AParam)
end;
Result := (RORemoteService as IsrvAlbaranesCliente).GenerateReport(AID, ShowLogotipo)
end;
function TDataModuleAlbaranesCliente.NewItem: IBizAlbaranCliente;
@ -135,30 +116,6 @@ begin
end;
end;
function TDataModuleAlbaranesCliente.GetAnosItems: TStringList;
var
AListaAnos: TStringList;
begin
AListaAnos := TStringList.Create;
ShowHourglassCursor;
try
with tbl_ListaAnosAlbaranes do
begin
Open;
First;
while not eof do
begin
AListaAnos.Add(Format('%s=%s', [Fields[0].AsString, Fields[0].AsString]));
Next;
end;
Close;
end;
Result := AListaAnos;
finally
HideHourglassCursor;
end;
end;
function TDataModuleAlbaranesCliente.GetEtiquetas(const AID: Integer; withRefCliente: Boolean): Binary;
begin
Result := (RORemoteService as IsrvAlbaranesCliente).GenerateEtiquetas(AID, withRefCliente)

3
Source/Modulos/Albaranes de cliente/Model/Data/uIDataModuleAlbaranesCliente.pas
View File

@ -3,12 +3,11 @@ unit uIDataModuleAlbaranesCliente;
interface
uses
Classes, uBizAlbaranesCliente;
uBizAlbaranesCliente;
type
IDataModuleAlbaranesCliente = interface
['{81932348-9595-45AC-AFC9-5A8983B4A3A8}']
function GetAnosItems : TStringList;
function GetItems: IBizAlbaranCliente;
function GetItem(const ID : Integer) : IBizAlbaranCliente;
function GetNextID(const DataSetName : String) : Integer;

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

@ -8,9 +8,8 @@ uses
type
IDataModuleAlbaranesClienteReport = interface
['{42C55204-5AB9-403E-8385-1A62B02D8234}']
function GetReport(const AID: String; const ConObservacionesIncidencias: Boolean = False; const ShowLogotipo: Boolean = False): Binary;
function GetEtiquetas(const AID: Integer; withRefCliente: Boolean): Binary;
function GetRptPDF(const AID: Integer; const ShowLogotipo: Boolean = False): Binary;
function GetReport(const AID: String; const ShowLogotipo: Boolean = False): Binary;
function GetEtiquetas(const AID: Integer; withRefCliente: Boolean): Binary;
end;
implementation

134
Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteClient_Intf.pas
View File

@ -9,27 +9,19 @@ const
{ Data table rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_ListaAnosAlbaranes = '{A07DBFAC-A835-4C6F-8EDD-63D516CE7018}';
RID_DarReferencia = '{7548CCD3-BA67-4F25-99B8-0DF8C7922DC8}';
RID_AlbaranesCliente = '{2803D94C-6CA5-473B-B00C-6B1E4DD62039}';
RID_AlbaranesCliente_Detalles = '{186AC7FF-AABB-4207-8532-39F70C7F0994}';
RID_AlbaranesCliente_Detalles_Refresh = '{40C5D633-0EC0-4EEB-9062-B5E23735AA49}';
RID_AlbaranesCliente_Refresh = '{2F10C424-28DF-4E96-A146-D3C8AFC874B0}';
RID_DarReferencia = '{EB3008DB-9520-42B6-8860-4AAD682CA8B5}';
RID_AlbaranesCliente = '{21D36B32-4BCE-485C-A44A-9A72CC73A57E}';
RID_AlbaranesCliente_Detalles = '{493A3E1F-36BC-42B1-B149-2CFFAE856399}';
RID_AlbaranesCliente_Detalles_Refresh = '{DED95756-45A8-43C5-A74D-314BCED7EEE4}';
RID_AlbaranesCliente_Refresh = '{4A56E94D-34D5-424F-8CDB-8FDF86479EA6}';
{ Data table names }
nme_ListaAnosAlbaranes = 'ListaAnosAlbaranes';
nme_DarReferencia = 'DarReferencia';
nme_AlbaranesCliente = 'AlbaranesCliente';
nme_AlbaranesCliente_Detalles = 'AlbaranesCliente_Detalles';
nme_AlbaranesCliente_Detalles_Refresh = 'AlbaranesCliente_Detalles_Refresh';
nme_AlbaranesCliente_Refresh = 'AlbaranesCliente_Refresh';
{ ListaAnosAlbaranes fields }
fld_ListaAnosAlbaranesANO = 'ANO';
{ ListaAnosAlbaranes field indexes }
idx_ListaAnosAlbaranesANO = 0;
{ DarReferencia fields }
fld_DarReferenciaVALOR = 'VALOR';
@ -83,8 +75,6 @@ const
fld_AlbaranesClienteREFERENCIA_ALB_DEV = 'REFERENCIA_ALB_DEV';
fld_AlbaranesClienteID_FAC_ALB_DEV = 'ID_FAC_ALB_DEV';
fld_AlbaranesClienteREFERENCIA_FAC_ALB_DEV = 'REFERENCIA_FAC_ALB_DEV';
fld_AlbaranesClienteNUM_CORREOS = 'NUM_CORREOS';
fld_AlbaranesClienteBLOQUEADO = 'BLOQUEADO';
{ AlbaranesCliente field indexes }
idx_AlbaranesClienteID = 0;
@ -133,8 +123,6 @@ const
idx_AlbaranesClienteREFERENCIA_ALB_DEV = 43;
idx_AlbaranesClienteID_FAC_ALB_DEV = 44;
idx_AlbaranesClienteREFERENCIA_FAC_ALB_DEV = 45;
idx_AlbaranesClienteNUM_CORREOS = 46;
idx_AlbaranesClienteBLOQUEADO = 47;
{ AlbaranesCliente_Detalles fields }
fld_AlbaranesCliente_DetallesID = 'ID';
@ -251,7 +239,6 @@ const
fld_AlbaranesCliente_RefreshREFERENCIA_ALB_DEV = 'REFERENCIA_ALB_DEV';
fld_AlbaranesCliente_RefreshID_FAC_ALB_DEV = 'ID_FAC_ALB_DEV';
fld_AlbaranesCliente_RefreshREFERENCIA_FAC_ALB_DEV = 'REFERENCIA_FAC_ALB_DEV';
fld_AlbaranesCliente_RefreshNUM_CORREOS = 'NUM_CORREOS';
{ AlbaranesCliente_Refresh field indexes }
idx_AlbaranesCliente_RefreshID = 0;
@ -300,41 +287,11 @@ const
idx_AlbaranesCliente_RefreshREFERENCIA_ALB_DEV = 43;
idx_AlbaranesCliente_RefreshID_FAC_ALB_DEV = 44;
idx_AlbaranesCliente_RefreshREFERENCIA_FAC_ALB_DEV = 45;
idx_AlbaranesCliente_RefreshNUM_CORREOS = 46;
type
{ IListaAnosAlbaranes }
IListaAnosAlbaranes = interface(IDAStronglyTypedDataTable)
['{4256FFC5-19D0-4268-BECE-63386E811952}']
{ Property getters and setters }
function GetANOValue: String;
procedure SetANOValue(const aValue: String);
{ Properties }
property ANO: String read GetANOValue write SetANOValue;
end;
{ TListaAnosAlbaranesDataTableRules }
TListaAnosAlbaranesDataTableRules = class(TDADataTableRules, IListaAnosAlbaranes)
private
protected
{ Property getters and setters }
function GetANOValue: String; virtual;
procedure SetANOValue(const aValue: String); virtual;
{ Properties }
property ANO: String read GetANOValue write SetANOValue;
public
constructor Create(aDataTable: TDADataTable); override;
destructor Destroy; override;
end;
{ IDarReferencia }
IDarReferencia = interface(IDAStronglyTypedDataTable)
['{55C372FF-BF39-4F24-8C0F-3F8652C093C9}']
['{0EBA0952-DA21-4716-941F-6B43CC6545CF}']
{ Property getters and setters }
function GetVALORValue: String;
procedure SetVALORValue(const aValue: String);
@ -363,7 +320,7 @@ type
{ IAlbaranesCliente }
IAlbaranesCliente = interface(IDAStronglyTypedDataTable)
['{30E4105E-F304-4684-9F36-0F085B95E8F6}']
['{BDCF155C-E6B4-4D9F-874B-75667EBCB8AF}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -457,10 +414,6 @@ type
procedure SetID_FAC_ALB_DEVValue(const aValue: Integer);
function GetREFERENCIA_FAC_ALB_DEVValue: String;
procedure SetREFERENCIA_FAC_ALB_DEVValue(const aValue: String);
function GetNUM_CORREOSValue: Integer;
procedure SetNUM_CORREOSValue(const aValue: Integer);
function GetBLOQUEADOValue: Integer;
procedure SetBLOQUEADOValue(const aValue: Integer);
{ Properties }
@ -510,8 +463,6 @@ type
property REFERENCIA_ALB_DEV: String read GetREFERENCIA_ALB_DEVValue write SetREFERENCIA_ALB_DEVValue;
property ID_FAC_ALB_DEV: Integer read GetID_FAC_ALB_DEVValue write SetID_FAC_ALB_DEVValue;
property REFERENCIA_FAC_ALB_DEV: String read GetREFERENCIA_FAC_ALB_DEVValue write SetREFERENCIA_FAC_ALB_DEVValue;
property NUM_CORREOS: Integer read GetNUM_CORREOSValue write SetNUM_CORREOSValue;
property BLOQUEADO: Integer read GetBLOQUEADOValue write SetBLOQUEADOValue;
end;
{ TAlbaranesClienteDataTableRules }
@ -611,10 +562,6 @@ type
procedure SetID_FAC_ALB_DEVValue(const aValue: Integer); virtual;
function GetREFERENCIA_FAC_ALB_DEVValue: String; virtual;
procedure SetREFERENCIA_FAC_ALB_DEVValue(const aValue: String); virtual;
function GetNUM_CORREOSValue: Integer; virtual;
procedure SetNUM_CORREOSValue(const aValue: Integer); virtual;
function GetBLOQUEADOValue: Integer; virtual;
procedure SetBLOQUEADOValue(const aValue: Integer); virtual;
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
@ -663,8 +610,6 @@ type
property REFERENCIA_ALB_DEV: String read GetREFERENCIA_ALB_DEVValue write SetREFERENCIA_ALB_DEVValue;
property ID_FAC_ALB_DEV: Integer read GetID_FAC_ALB_DEVValue write SetID_FAC_ALB_DEVValue;
property REFERENCIA_FAC_ALB_DEV: String read GetREFERENCIA_FAC_ALB_DEVValue write SetREFERENCIA_FAC_ALB_DEVValue;
property NUM_CORREOS: Integer read GetNUM_CORREOSValue write SetNUM_CORREOSValue;
property BLOQUEADO: Integer read GetBLOQUEADOValue write SetBLOQUEADOValue;
public
constructor Create(aDataTable: TDADataTable); override;
@ -674,7 +619,7 @@ type
{ IAlbaranesCliente_Detalles }
IAlbaranesCliente_Detalles = interface(IDAStronglyTypedDataTable)
['{5CAD693C-E2DB-4355-8310-B8EBA15EDB4F}']
['{0BA1E8DD-4911-4C91-BE56-A5E014DC032E}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -787,7 +732,7 @@ type
{ IAlbaranesCliente_Detalles_Refresh }
IAlbaranesCliente_Detalles_Refresh = interface(IDAStronglyTypedDataTable)
['{3B82C2B6-F19A-453E-8524-EA8E3565867B}']
['{26DDDA1E-6A88-4840-AE9A-6B169D04C411}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -900,7 +845,7 @@ type
{ IAlbaranesCliente_Refresh }
IAlbaranesCliente_Refresh = interface(IDAStronglyTypedDataTable)
['{04558C4E-FE43-44B4-9439-774781EB864B}']
['{FE5577F8-543C-4BA4-B52F-BCB1B0D1BF46}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -994,8 +939,6 @@ type
procedure SetID_FAC_ALB_DEVValue(const aValue: Integer);
function GetREFERENCIA_FAC_ALB_DEVValue: String;
procedure SetREFERENCIA_FAC_ALB_DEVValue(const aValue: String);
function GetNUM_CORREOSValue: Integer;
procedure SetNUM_CORREOSValue(const aValue: Integer);
{ Properties }
@ -1045,7 +988,6 @@ type
property REFERENCIA_ALB_DEV: String read GetREFERENCIA_ALB_DEVValue write SetREFERENCIA_ALB_DEVValue;
property ID_FAC_ALB_DEV: Integer read GetID_FAC_ALB_DEVValue write SetID_FAC_ALB_DEVValue;
property REFERENCIA_FAC_ALB_DEV: String read GetREFERENCIA_FAC_ALB_DEVValue write SetREFERENCIA_FAC_ALB_DEVValue;
property NUM_CORREOS: Integer read GetNUM_CORREOSValue write SetNUM_CORREOSValue;
end;
{ TAlbaranesCliente_RefreshDataTableRules }
@ -1145,8 +1087,6 @@ type
procedure SetID_FAC_ALB_DEVValue(const aValue: Integer); virtual;
function GetREFERENCIA_FAC_ALB_DEVValue: String; virtual;
procedure SetREFERENCIA_FAC_ALB_DEVValue(const aValue: String); virtual;
function GetNUM_CORREOSValue: Integer; virtual;
procedure SetNUM_CORREOSValue(const aValue: Integer); virtual;
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
@ -1195,7 +1135,6 @@ type
property REFERENCIA_ALB_DEV: String read GetREFERENCIA_ALB_DEVValue write SetREFERENCIA_ALB_DEVValue;
property ID_FAC_ALB_DEV: Integer read GetID_FAC_ALB_DEVValue write SetID_FAC_ALB_DEVValue;
property REFERENCIA_FAC_ALB_DEV: String read GetREFERENCIA_FAC_ALB_DEVValue write SetREFERENCIA_FAC_ALB_DEVValue;
property NUM_CORREOS: Integer read GetNUM_CORREOSValue write SetNUM_CORREOSValue;
public
constructor Create(aDataTable: TDADataTable); override;
@ -1207,28 +1146,6 @@ implementation
uses Variants;
{ TListaAnosAlbaranesDataTableRules }
constructor TListaAnosAlbaranesDataTableRules.Create(aDataTable: TDADataTable);
begin
inherited;
end;
destructor TListaAnosAlbaranesDataTableRules.Destroy;
begin
inherited;
end;
function TListaAnosAlbaranesDataTableRules.GetANOValue: String;
begin
result := DataTable.Fields[idx_ListaAnosAlbaranesANO].AsString;
end;
procedure TListaAnosAlbaranesDataTableRules.SetANOValue(const aValue: String);
begin
DataTable.Fields[idx_ListaAnosAlbaranesANO].AsString := aValue;
end;
{ TDarReferenciaDataTableRules }
constructor TDarReferenciaDataTableRules.Create(aDataTable: TDADataTable);
begin
@ -1724,26 +1641,6 @@ begin
DataTable.Fields[idx_AlbaranesClienteREFERENCIA_FAC_ALB_DEV].AsString := aValue;
end;
function TAlbaranesClienteDataTableRules.GetNUM_CORREOSValue: Integer;
begin
result := DataTable.Fields[idx_AlbaranesClienteNUM_CORREOS].AsInteger;
end;
procedure TAlbaranesClienteDataTableRules.SetNUM_CORREOSValue(const aValue: Integer);
begin
DataTable.Fields[idx_AlbaranesClienteNUM_CORREOS].AsInteger := aValue;
end;
function TAlbaranesClienteDataTableRules.GetBLOQUEADOValue: Integer;
begin
result := DataTable.Fields[idx_AlbaranesClienteBLOQUEADO].AsInteger;
end;
procedure TAlbaranesClienteDataTableRules.SetBLOQUEADOValue(const aValue: Integer);
begin
DataTable.Fields[idx_AlbaranesClienteBLOQUEADO].AsInteger := aValue;
end;
{ TAlbaranesCliente_DetallesDataTableRules }
constructor TAlbaranesCliente_DetallesDataTableRules.Create(aDataTable: TDADataTable);
@ -2542,19 +2439,8 @@ begin
DataTable.Fields[idx_AlbaranesCliente_RefreshREFERENCIA_FAC_ALB_DEV].AsString := aValue;
end;
function TAlbaranesCliente_RefreshDataTableRules.GetNUM_CORREOSValue: Integer;
begin
result := DataTable.Fields[idx_AlbaranesCliente_RefreshNUM_CORREOS].AsInteger;
end;
procedure TAlbaranesCliente_RefreshDataTableRules.SetNUM_CORREOSValue(const aValue: Integer);
begin
DataTable.Fields[idx_AlbaranesCliente_RefreshNUM_CORREOS].AsInteger := aValue;
end;
initialization
RegisterDataTableRules(RID_ListaAnosAlbaranes, TListaAnosAlbaranesDataTableRules);
RegisterDataTableRules(RID_DarReferencia, TDarReferenciaDataTableRules);
RegisterDataTableRules(RID_AlbaranesCliente, TAlbaranesClienteDataTableRules);
RegisterDataTableRules(RID_AlbaranesCliente_Detalles, TAlbaranesCliente_DetallesDataTableRules);

144
Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteServer_Intf.pas
View File

@ -9,46 +9,16 @@ const
{ Delta rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_ListaAnosAlbaranesDelta = '{90F084BA-9BC4-4890-8E73-EE502ED7EC0F}';
RID_DarReferenciaDelta = '{5C4E2CEA-88DD-4AC6-AAC2-6293B3382633}';
RID_AlbaranesClienteDelta = '{98711469-A105-4C12-A90C-952772B92D20}';
RID_AlbaranesCliente_DetallesDelta = '{A0FDE976-C61E-4FCE-8507-54924F485E4F}';
RID_AlbaranesCliente_Detalles_RefreshDelta = '{48C36801-6C3D-4815-B443-DDDC4BCD25DF}';
RID_AlbaranesCliente_RefreshDelta = '{4153EB2E-48B9-4133-8427-285B91FA9723}';
RID_DarReferenciaDelta = '{686A4397-FE20-45D3-9CED-8AF55D9542EB}';
RID_AlbaranesClienteDelta = '{51F248ED-D277-4C06-BAC6-810A28646B1B}';
RID_AlbaranesCliente_DetallesDelta = '{CC2B288D-936A-40AC-8691-DC28A6515213}';
RID_AlbaranesCliente_Detalles_RefreshDelta = '{8D8BE999-438B-4A1F-9BFE-D9215AFFE426}';
RID_AlbaranesCliente_RefreshDelta = '{EF94943F-4DE8-49C6-920D-635E8E5783DD}';
type
{ IListaAnosAlbaranesDelta }
IListaAnosAlbaranesDelta = interface(IListaAnosAlbaranes)
['{90F084BA-9BC4-4890-8E73-EE502ED7EC0F}']
{ Property getters and setters }
function GetOldANOValue : String;
{ Properties }
property OldANO : String read GetOldANOValue;
end;
{ TListaAnosAlbaranesBusinessProcessorRules }
TListaAnosAlbaranesBusinessProcessorRules = class(TDABusinessProcessorRules, IListaAnosAlbaranes, IListaAnosAlbaranesDelta)
private
protected
{ Property getters and setters }
function GetANOValue: String; virtual;
function GetOldANOValue: String; virtual;
procedure SetANOValue(const aValue: String); virtual;
{ Properties }
property ANO : String read GetANOValue write SetANOValue;
property OldANO : String read GetOldANOValue;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
destructor Destroy; override;
end;
{ IDarReferenciaDelta }
IDarReferenciaDelta = interface(IDarReferencia)
['{5C4E2CEA-88DD-4AC6-AAC2-6293B3382633}']
['{686A4397-FE20-45D3-9CED-8AF55D9542EB}']
{ Property getters and setters }
function GetOldVALORValue : String;
@ -77,7 +47,7 @@ type
{ IAlbaranesClienteDelta }
IAlbaranesClienteDelta = interface(IAlbaranesCliente)
['{98711469-A105-4C12-A90C-952772B92D20}']
['{51F248ED-D277-4C06-BAC6-810A28646B1B}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@ -125,8 +95,6 @@ type
function GetOldREFERENCIA_ALB_DEVValue : String;
function GetOldID_FAC_ALB_DEVValue : Integer;
function GetOldREFERENCIA_FAC_ALB_DEVValue : String;
function GetOldNUM_CORREOSValue : Integer;
function GetOldBLOQUEADOValue : Integer;
{ Properties }
property OldID : Integer read GetOldIDValue;
@ -175,8 +143,6 @@ type
property OldREFERENCIA_ALB_DEV : String read GetOldREFERENCIA_ALB_DEVValue;
property OldID_FAC_ALB_DEV : Integer read GetOldID_FAC_ALB_DEVValue;
property OldREFERENCIA_FAC_ALB_DEV : String read GetOldREFERENCIA_FAC_ALB_DEVValue;
property OldNUM_CORREOS : Integer read GetOldNUM_CORREOSValue;
property OldBLOQUEADO : Integer read GetOldBLOQUEADOValue;
end;
{ TAlbaranesClienteBusinessProcessorRules }
@ -322,12 +288,6 @@ type
function GetREFERENCIA_FAC_ALB_DEVValue: String; virtual;
function GetOldREFERENCIA_FAC_ALB_DEVValue: String; virtual;
procedure SetREFERENCIA_FAC_ALB_DEVValue(const aValue: String); virtual;
function GetNUM_CORREOSValue: Integer; virtual;
function GetOldNUM_CORREOSValue: Integer; virtual;
procedure SetNUM_CORREOSValue(const aValue: Integer); virtual;
function GetBLOQUEADOValue: Integer; virtual;
function GetOldBLOQUEADOValue: Integer; virtual;
procedure SetBLOQUEADOValue(const aValue: Integer); virtual;
{ Properties }
property ID : Integer read GetIDValue write SetIDValue;
@ -422,10 +382,6 @@ type
property OldID_FAC_ALB_DEV : Integer read GetOldID_FAC_ALB_DEVValue;
property REFERENCIA_FAC_ALB_DEV : String read GetREFERENCIA_FAC_ALB_DEVValue write SetREFERENCIA_FAC_ALB_DEVValue;
property OldREFERENCIA_FAC_ALB_DEV : String read GetOldREFERENCIA_FAC_ALB_DEVValue;
property NUM_CORREOS : Integer read GetNUM_CORREOSValue write SetNUM_CORREOSValue;
property OldNUM_CORREOS : Integer read GetOldNUM_CORREOSValue;
property BLOQUEADO : Integer read GetBLOQUEADOValue write SetBLOQUEADOValue;
property OldBLOQUEADO : Integer read GetOldBLOQUEADOValue;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -435,7 +391,7 @@ type
{ IAlbaranesCliente_DetallesDelta }
IAlbaranesCliente_DetallesDelta = interface(IAlbaranesCliente_Detalles)
['{A0FDE976-C61E-4FCE-8507-54924F485E4F}']
['{CC2B288D-936A-40AC-8691-DC28A6515213}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_ALBARANValue : Integer;
@ -562,7 +518,7 @@ type
{ IAlbaranesCliente_Detalles_RefreshDelta }
IAlbaranesCliente_Detalles_RefreshDelta = interface(IAlbaranesCliente_Detalles_Refresh)
['{48C36801-6C3D-4815-B443-DDDC4BCD25DF}']
['{8D8BE999-438B-4A1F-9BFE-D9215AFFE426}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_ALBARANValue : Integer;
@ -689,7 +645,7 @@ type
{ IAlbaranesCliente_RefreshDelta }
IAlbaranesCliente_RefreshDelta = interface(IAlbaranesCliente_Refresh)
['{4153EB2E-48B9-4133-8427-285B91FA9723}']
['{EF94943F-4DE8-49C6-920D-635E8E5783DD}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@ -737,7 +693,6 @@ type
function GetOldREFERENCIA_ALB_DEVValue : String;
function GetOldID_FAC_ALB_DEVValue : Integer;
function GetOldREFERENCIA_FAC_ALB_DEVValue : String;
function GetOldNUM_CORREOSValue : Integer;
{ Properties }
property OldID : Integer read GetOldIDValue;
@ -786,7 +741,6 @@ type
property OldREFERENCIA_ALB_DEV : String read GetOldREFERENCIA_ALB_DEVValue;
property OldID_FAC_ALB_DEV : Integer read GetOldID_FAC_ALB_DEVValue;
property OldREFERENCIA_FAC_ALB_DEV : String read GetOldREFERENCIA_FAC_ALB_DEVValue;
property OldNUM_CORREOS : Integer read GetOldNUM_CORREOSValue;
end;
{ TAlbaranesCliente_RefreshBusinessProcessorRules }
@ -932,9 +886,6 @@ type
function GetREFERENCIA_FAC_ALB_DEVValue: String; virtual;
function GetOldREFERENCIA_FAC_ALB_DEVValue: String; virtual;
procedure SetREFERENCIA_FAC_ALB_DEVValue(const aValue: String); virtual;
function GetNUM_CORREOSValue: Integer; virtual;
function GetOldNUM_CORREOSValue: Integer; virtual;
procedure SetNUM_CORREOSValue(const aValue: Integer); virtual;
{ Properties }
property ID : Integer read GetIDValue write SetIDValue;
@ -1029,8 +980,6 @@ type
property OldID_FAC_ALB_DEV : Integer read GetOldID_FAC_ALB_DEVValue;
property REFERENCIA_FAC_ALB_DEV : String read GetREFERENCIA_FAC_ALB_DEVValue write SetREFERENCIA_FAC_ALB_DEVValue;
property OldREFERENCIA_FAC_ALB_DEV : String read GetOldREFERENCIA_FAC_ALB_DEVValue;
property NUM_CORREOS : Integer read GetNUM_CORREOSValue write SetNUM_CORREOSValue;
property OldNUM_CORREOS : Integer read GetOldNUM_CORREOSValue;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -1043,33 +992,6 @@ implementation
uses
Variants, uROBinaryHelpers;
{ TListaAnosAlbaranesBusinessProcessorRules }
constructor TListaAnosAlbaranesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
begin
inherited;
end;
destructor TListaAnosAlbaranesBusinessProcessorRules.Destroy;
begin
inherited;
end;
function TListaAnosAlbaranesBusinessProcessorRules.GetANOValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ListaAnosAlbaranesANO];
end;
function TListaAnosAlbaranesBusinessProcessorRules.GetOldANOValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ListaAnosAlbaranesANO];
end;
procedure TListaAnosAlbaranesBusinessProcessorRules.SetANOValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ListaAnosAlbaranesANO] := aValue;
end;
{ TDarReferenciaBusinessProcessorRules }
constructor TDarReferenciaBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
begin
@ -1802,36 +1724,6 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteREFERENCIA_FAC_ALB_DEV] := aValue;
end;
function TAlbaranesClienteBusinessProcessorRules.GetNUM_CORREOSValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteNUM_CORREOS];
end;
function TAlbaranesClienteBusinessProcessorRules.GetOldNUM_CORREOSValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesClienteNUM_CORREOS];
end;
procedure TAlbaranesClienteBusinessProcessorRules.SetNUM_CORREOSValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteNUM_CORREOS] := aValue;
end;
function TAlbaranesClienteBusinessProcessorRules.GetBLOQUEADOValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteBLOQUEADO];
end;
function TAlbaranesClienteBusinessProcessorRules.GetOldBLOQUEADOValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesClienteBLOQUEADO];
end;
procedure TAlbaranesClienteBusinessProcessorRules.SetBLOQUEADOValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteBLOQUEADO] := aValue;
end;
{ TAlbaranesCliente_DetallesBusinessProcessorRules }
constructor TAlbaranesCliente_DetallesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
@ -3012,24 +2904,8 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_RefreshREFERENCIA_FAC_ALB_DEV] := aValue;
end;
function TAlbaranesCliente_RefreshBusinessProcessorRules.GetNUM_CORREOSValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_RefreshNUM_CORREOS];
end;
function TAlbaranesCliente_RefreshBusinessProcessorRules.GetOldNUM_CORREOSValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesCliente_RefreshNUM_CORREOS];
end;
procedure TAlbaranesCliente_RefreshBusinessProcessorRules.SetNUM_CORREOSValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_RefreshNUM_CORREOS] := aValue;
end;
initialization
RegisterBusinessProcessorRules(RID_ListaAnosAlbaranesDelta, TListaAnosAlbaranesBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_DarReferenciaDelta, TDarReferenciaBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_AlbaranesClienteDelta, TAlbaranesClienteBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_AlbaranesCliente_DetallesDelta, TAlbaranesCliente_DetallesBusinessProcessorRules);

199
Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.dfm
View File

@ -110,20 +110,19 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
'LBARANES_CLIENTE.POBLACION,'#10' V_ALBARANES_CLIENTE.PROVINCIA,'#10' V' +
'_ALBARANES_CLIENTE.PERSONA_CONTACTO,'#10' V_ALBARANES_CLIENTE.TELEF' +
'ONO,'#10' V_ALBARANES_CLIENTE.CALLE,'#10' V_ALBARANES_CLIENTE.OBSERVAC' +
'IONES,'#10' V_ALBARANES_CLIENTE.INCIDENCIAS,'#10' V_ALBARANES_CLIENTE.' +
'IMPORTE_TOTAL,'#10' V_ALBARANES_CLIENTE.FECHA_PREVISTA_ENVIO,'#10' EMP' +
'RESAS.NIF_CIF AS NIF_CIF_EMPRESA,'#10' EMPRESAS.NOMBRE AS NOMBRE_EM' +
'PRESA,'#10' EMPRESAS.RAZON_SOCIAL AS RAZON_SOCIAL_EMPRESA,'#10' EMPRES' +
'AS.CALLE AS CALLE_EMPRESA,'#10' EMPRESAS.CODIGO_POSTAL AS CODIGO_PO' +
'STAL_EMPRESA,'#10' EMPRESAS.POBLACION AS POBLACION_EMPRESA,'#10' EMPRE' +
'SAS.PROVINCIA AS PROVINCIA_EMPRESA,'#10' EMPRESAS.TELEFONO_1 AS TEL' +
'EFONO_1_EMPRESA,'#10' EMPRESAS.FAX AS FAX_EMPRESA,'#10' EMPRESAS.MOVIL' +
'_1 AS MOVIL_1_EMPRESA,'#10' EMPRESAS.EMAIL_1 AS EMAIL_1_EMPRESA,'#10' ' +
'EMPRESAS.PAGINA_WEB AS PAGINA_WEB_EMPRESA'#10'FROM'#10' V_ALBARANES_C' +
'LIENTE'#10' LEFT OUTER JOIN V_CLIENTES ON (V_CLIENTES.ID = V_ALBARA' +
'NES_CLIENTE.ID_CLIENTE)'#10' LEFT OUTER JOIN EMPRESAS ON (EMPRESAS.' +
'ID = V_ALBARANES_CLIENTE.ID_EMPRESA)'#10'WHERE V_ALBARANES_CLIENTE.I' +
'D = :ID'
'IONES,'#10' V_ALBARANES_CLIENTE.IMPORTE_TOTAL,'#10' V_ALBARANES_CLIENT' +
'E.FECHA_PREVISTA_ENVIO,'#10' EMPRESAS.NIF_CIF AS NIF_CIF_EMPRESA,'#10' ' +
' EMPRESAS.NOMBRE AS NOMBRE_EMPRESA,'#10' EMPRESAS.RAZON_SOCIAL AS R' +
'AZON_SOCIAL_EMPRESA,'#10' EMPRESAS.CALLE AS CALLE_EMPRESA,'#10' EMPRES' +
'AS.CODIGO_POSTAL AS CODIGO_POSTAL_EMPRESA,'#10' EMPRESAS.POBLACION ' +
'AS POBLACION_EMPRESA,'#10' EMPRESAS.PROVINCIA AS PROVINCIA_EMPRESA,' +
#10' EMPRESAS.TELEFONO_1 AS TELEFONO_1_EMPRESA,'#10' EMPRESAS.FAX AS ' +
'FAX_EMPRESA,'#10' EMPRESAS.MOVIL_1 AS MOVIL_1_EMPRESA,'#10' EMPRESAS.E' +
'MAIL_1 AS EMAIL_1_EMPRESA,'#10' EMPRESAS.PAGINA_WEB AS PAGINA_WEB_E' +
'MPRESA'#10'FROM'#10' V_ALBARANES_CLIENTE'#10' LEFT OUTER JOIN V_CLIENTES' +
' ON (V_CLIENTES.ID = V_ALBARANES_CLIENTE.ID_CLIENTE)'#10' LEFT OUTE' +
'R JOIN EMPRESAS ON (EMPRESAS.ID = V_ALBARANES_CLIENTE.ID_EMPRESA' +
')'#10'WHERE V_ALBARANES_CLIENTE.ID = :ID'
StatementType = stSQL
ColumnMappings = <
item
@ -249,10 +248,6 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
item
DatasetField = 'PROVINCIA_EMPRESA'
TableField = 'PROVINCIA_EMPRESA'
end
item
DatasetField = 'INCIDENCIAS'
TableField = 'INCIDENCIAS'
end>
end>
Name = 'Informe_Cabecera'
@ -455,17 +450,6 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
Lookup = False
LookupCache = False
end
item
Name = 'INCIDENCIAS'
DataType = datMemo
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'IMPORTE_TOTAL'
DataType = datFloat
@ -1346,26 +1330,9 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
PrintOptions.Printer = 'Por defecto'
PrintOptions.PrintOnSheet = 0
ReportOptions.CreateDate = 39065.872423495400000000
ReportOptions.LastChange = 39752.715049039350000000
ReportOptions.LastChange = 39286.749813368060000000
ScriptLanguage = 'PascalScript'
ScriptText.Strings = (
'var'
' Pagina: Variant;'
''
''
'procedure DatosEmpresaOnBeforePrint(Sender: TfrxComponent);'
'var'
' Cadena: String;'
'begin'
' DatosEmpresa.Lines.Clear;'
' if (<frxDBCabecera."TELEFONO_1_EMPRESA"> <> '#39#39') then'
' Cadena := '#39'TLF: '#39' + <frxDBCabecera."TELEFONO_1_EMPRESA">;'
' if (<frxDBCabecera."FAX_EMPRESA"> <> '#39#39') then'
' Cadena := Cadena + '#39' FAX: '#39' + <frxDBCabecera."FAX_EMPRESA' +
'">;'
' DatosEmpresa.Lines.Add(Cadena);'
'end;'
''
'procedure NombreEmpresaOnBeforePrint(Sender: TfrxComponent);'
'begin'
@ -1373,107 +1340,53 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
' NombreEmpresa.Lines.Add(<frxDBCabecera."NOMBRE_EMPRESA">);'
'end;'
''
'procedure DireccionEnvioOnBeforePrint(Sender: TfrxComponent);'
'procedure TelefonosEmpresaOnBeforePrint(Sender: TfrxComponent);'
'var'
' ACadena : String;'
' Cadena: String;'
'begin'
' ACadena := '#39#39';'
' DireccionEnvio.Lines.Clear;'
' TelefonosEmpresa.Lines.Clear;'
''
' ACadena := '#39#39';'
''
' DireccionEnvio.Lines.Add(<frxDBCabecera."CALLE">);'
' if (<frxDBCabecera."CODIGO_POSTAL"> <> '#39#39') then'
' ACadena := <frxDBCabecera."CODIGO_POSTAL"> + '#39' '#39';'
' if (<frxDBCabecera."POBLACION"> <> '#39#39') then'
' ACadena := ACadena + <frxDBCabecera."POBLACION">;'
''
' if (ACadena <> '#39#39') then'
' DireccionEnvio.Lines.Add(ACadena);'
''
' if (<frxDBCabecera."PROVINCIA"> <> '#39#39') then'
' DireccionEnvio.Lines.Add(<frxDBCabecera."PROVINCIA">);'
'end;'
''
'procedure Memo2OnBeforePrint(Sender: TfrxComponent);'
'begin'
' Memo2.Lines.Clear;'
' if (StrToFloat(<frxDBCabecera."IMPORTE_TOTAL">) < 0) then'
' Memo2.Lines.Add('#39'ORDEN DE DEVOLUCI'#211'N'#39')'
' else'
' Memo2.Lines.Add('#39'ALBAR'#193'N DE CLIENTE'#39')'
'end;'
''
'procedure Memo5OnBeforePrint(Sender: TfrxComponent);'
'begin'
' if (StrToFloat(<frxDBCabecera."IMPORTE_TOTAL">) < 0) then'
' begin'
' Memo5.Lines.Clear;'
' Memo5.Lines.Add('#39'N'#186' orden:'#39');'
' end;'
'end;'
''
'procedure Memo9OnBeforePrint(Sender: TfrxComponent);'
'begin'
' if (StrToFloat(<frxDBCabecera."IMPORTE_TOTAL">) < 0) then'
' begin'
' Memo9.Lines.Clear;'
' Memo9.Lines.Add('#39'Fecha orden:'#39');'
' end;'
'end;'
''
'procedure PageHeader1OnBeforePrint(Sender: TfrxComponent);'
'begin'
' if not Engine.FinalPass then'
' Set('#39'TotalPaginas'#39', (<TotalPaginas> + 1));'
''
' if Engine.FinalPass then'
' Set('#39'Pagina'#39', (<Pagina> + 1));'
'end;'
''
'procedure frxReportOnStartReport(Sender: TfrxComponent);'
'begin'
' Set('#39'Pagina'#39', 0);'
' Set('#39'TotalPaginas'#39', 0);'
'end;'
''
'procedure Picture1OnBeforePrint(Sender: TfrxComponent);'
'begin'
' if <ShowLogotipo> then'
' begin '
' Picture1.Visible := True; '
' Picture2.Visible := True; '
' Picture3.Visible := True; '
' Picture4.Visible := True; '
' Picture5.Visible := True; '
' Picture6.Visible := True; '
' Memo25.Visible := True;'
' NombreEmpresa.Visible := False;'
' if (<frxDBCabecera."TELEFONO_1_EMPRESA"> <> '#39#39') then'
' Cadena := '#39'tlf: '#39' + <frxDBCabecera."TELEFONO_1_EMPRESA">;'
' if (<frxDBCabecera."FAX_EMPRESA"> <> '#39#39') then'
' DatosEmpresa.Visible := False; ' +
' '
' end'
' else'
' begin '
' Picture1.Visible := False;'
' Picture2.Visible := False;'
' Picture3.Visible := False;'
' Picture4.Visible := False;'
' Picture5.Visible := False;'
' Picture6.Visible := False;'
' Memo25.Visible := False;'
' NombreEmpresa.Visible := True;'
' DatosEmpresa.Visible := True; '
' end'
' Cadena := Cadena + '#39' / fax: '#39' + <frxDBCabecera."FAX_EMPRE' +
'SA">;'
' TelefonosEmpresa.Lines.Add(Cadena);'
'end;'
''
'procedure DireccionEmpresaOnBeforePrint(Sender: TfrxComponent);'
'var'
' Cadena: String;'
'begin'
' DireccionEmpresa.Lines.Clear;'
''
' if (<frxDBCabecera."CALLE_EMPRESA"> <> '#39#39') then'
' DireccionEmpresa.Lines.Add(<frxDBCabecera."CALLE_EMPRESA">)' +
';'
''
' if (<frxDBCabecera."CODIGO_POSTAL_EMPRESA"> <> '#39#39') then'
' Cadena := <frxDBCabecera."CODIGO_POSTAL_EMPRESA">;'
' if (<frxDBCabecera."POBLACION_EMPRESA"> <> '#39#39') then'
' Cadena := Cadena + '#39', '#39' + <frxDBCabecera."POBLACION_EMPRE' +
'SA">;'
' DireccionEmpresa.Lines.Add(Cadena);'
''
' if (<frxDBCabecera."PROVINCIA_EMPRESA"> <> '#39#39') then'
' DireccionEmpresa.Lines.Add(<frxDBCabecera."PROVINCIA_EMPRES' +
'A">);'
'end;'
''
''
'begin'
''
'end.')
ShowProgress = False
StoreInDFM = False
OnGetValue = frxReportGetValue
OnStartReport = 'frxReportOnStartReport'
Left = 169
Top = 16
end
@ -1491,18 +1404,4 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
Left = 344
Top = 16
end
object frxPDFExport1: TfrxPDFExport
ShowDialog = False
UseFileCache = True
ShowProgress = False
PrintOptimized = True
Outline = True
Author = 'FactuGES'
Subject = 'FactuGES'
Background = False
Creator = 'FactuGES'
HTMLTags = True
Left = 360
Top = 344
end
end

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

@ -7,7 +7,7 @@ uses
Dialogs, frxClass, frxDBSet, uDAScriptingProvider,
uDADataTable, uDACDSDataTable, DB, uDAClasses, frxChart, frxGradient,
frxChBox, frxCross, frxOLE, frxBarcode, frxRich, uDABINAdapter, uROTypes,
uDAInterfaces, FactuGES_Intf, frxExportPDF;
uDAInterfaces;
type
TRptAlbaranesCliente = class(TDataModule)
@ -25,22 +25,19 @@ type
frxChartObject1: TfrxChartObject;
frxDBCabecera: TfrxDBDataset;
frxDBDetalles: TfrxDBDataset;
frxReport: TfrxReport;
frxPDFExport1: TfrxPDFExport;
schReport: TDASchema;
DataDictionary: TDADataDictionary;
frxReport: TfrxReport;
procedure DataModuleCreate(Sender: TObject);
procedure frxReportGetValue(const VarName: string; var Value: Variant);
private
FConnection: IDAConnection;
FShowLogotipo: Boolean;
FConObservacionesIncidencias: Boolean;
//Genera cada uno de los albaranes a imprimir
procedure _GenerarAlbaran(const ID: integer); overload;
procedure GenerarAlbaran(const ID: integer); overload;
public
function GenerarAlbaran(const AID : String; const AConLogotipo: Boolean; const ConObservacionesIncidencias: Boolean): Binary; overload;
function GenerarAlbaran(const AID : String; const AConLogotipo: Boolean = False): Binary; overload;
function GenerarEtiquetas(const AID : Integer; withRefCliente: Boolean): Binary;
function GenerarReportEnPDF(const ListaID : TIntegerArray; const AConLogotipo: Boolean): Binary;
end;
implementation
@ -48,7 +45,7 @@ implementation
{$R *.dfm}
uses
uSistemaFunc, uDataModuleServer, schAlbaranesClienteClient_Intf;
uDataModuleServer, schAlbaranesClienteClient_Intf;
const
rptInfAlbaran = 'InfAlbaranCliente.fr3';
@ -67,29 +64,31 @@ procedure TRptAlbaranesCliente.DataModuleCreate(Sender: TObject);
begin
schReport.ConnectionManager := dmServer.ConnectionManager;
FConnection := dmServer.DarNuevaConexion;
FShowLogotipo := False;
FConObservacionesIncidencias := False;
FShowLogotipo := False;
frxReport.EngineOptions.NewSilentMode := simReThrow;
end;
function TRptAlbaranesCliente.GenerarAlbaran(const AID: String; const AConLogotipo: Boolean; const ConObservacionesIncidencias: Boolean): Binary;
function TRptAlbaranesCliente.GenerarAlbaran(const AID: String; const AConLogotipo: Boolean = False): Binary;
var
ID_Albaranes: TStringList;
i: Integer;
begin
Result := Binary.Create;
FConnection.BeginTransaction;
try
FShowLogotipo := AConLogotipo;
FConObservacionesIncidencias := ConObservacionesIncidencias;
FShowLogotipo := AConLogotipo;
ID_Albaranes := TStringList.Create;
ID_Albaranes.CommaText := AID;
//Vamos generando todos y cada uno de los albaranes recibidos
for i := 0 to ID_Albaranes.Count - 1 do
_GenerarAlbaran(StrToInt(ID_Albaranes.Strings[i]));
GenerarAlbaran(StrToInt(ID_Albaranes.Strings[i]));
frxReport.PreviewPages.SaveToStream(Result);
finally
FConnection.RollbackTransaction;
end;
end;
@ -97,20 +96,15 @@ procedure TRptAlbaranesCliente.frxReportGetValue(const VarName: string; var Valu
begin
if VarName = 'ShowLogotipo' then
Value := FShowLogotipo;
if VarName = 'ConObservacionesIncidencias' then
Value := FConObservacionesIncidencias;
end;
procedure TRptAlbaranesCliente._GenerarAlbaran(const ID: integer);
procedure TRptAlbaranesCliente.GenerarAlbaran(const ID: integer);
var
AStream: TMemoryStream;
dsMaster: IDADataset;
dsDetail: IDADataset;
AInforme: Variant;
begin
AStream := TMemoryStream.Create;
FConnection.BeginTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO"
try
dsMaster := schReport.NewDataset(FConnection, ds_InformeCabecera, ['ID'], [ID]);
@ -124,16 +118,10 @@ begin
DABINAdapter.WriteDataset(AStream, dsDetail, [woRows, woSchema], -1);
DABINAdapter.ReadDataset(AStream, tbl_Detalles, TRUE, '', TRUE, TRUE);
AInforme := DarRutaFichero(DarRutaInformes, rptInfAlbaran, tbl_Cabecera.FieldByName('ID_EMPRESA').AsString);
if VarIsNull(AInforme) then
raise Exception.Create (('Error Servidor: _GenerarAlbaran, no encuentra informe ' + rptInfAlbaran));
frxReport.LoadFromFile(AInforme, True);
frxReport.LoadFromFile(DarRutaInformes + rptInfAlbaran, True);
frxReport.PrepareReport(False);
finally
FConnection.RollbackTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO"
AStream.Free;
dsMaster := Nil;
dsDetail := Nil;
@ -145,7 +133,6 @@ var
dsMaster: IDADataset;
dsDetail: IDADataset;
AStream: TMemoryStream;
AInforme: Variant;
begin
AStream := TMemoryStream.Create;
Result := Binary.Create;
@ -162,12 +149,7 @@ begin
DABINAdapter.WriteDataset(AStream, dsDetail, [woRows, woSchema], -1);
DABINAdapter.ReadDataset(AStream, tbl_Detalles, TRUE, '', TRUE, TRUE);
AInforme := DarRutaFichero(DarRutaInformes, rptInfEtiquetas, tbl_Cabecera.FieldByName('ID_EMPRESA').AsString);
if VarIsNull(AInforme) then
raise Exception.Create (('Error Servidor: _GenerarEtiquetas, no encuentra informe ' + rptInfEtiquetas));
frxReport.LoadFromFile(AInforme, True);
frxReport.LoadFromFile(DarRutaInformes + rptInfEtiquetas, True);
if withRefCliente then
frxReport.Variables.Variables['withRefCliente'] := 1
else
@ -180,22 +162,4 @@ begin
end;
end;
function TRptAlbaranesCliente.GenerarReportEnPDF(const ListaID: TIntegerArray;
const AConLogotipo: Boolean): Binary;
var
i: Integer;
begin
FShowLogotipo := AConLogotipo;
Result := Binary.Create;
try
//Vamos generando todos y cada uno de los presupuestos recibidos
for i := 0 to ListaID.Count - 1 do
_GenerarAlbaran(ListaID.Items[i]);
frxPDFExport1.Stream := Result;
frxReport.Export(frxPDFExport1)
finally
end;
end;
end.

81
Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.dfm
View File

@ -15,35 +15,6 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
ConnectionManager = dmServer.ConnectionManager
DataDictionary = DADataDictionary
Datasets = <
item
Params = <>
Statements = <
item
Connection = 'IBX'
SQL =
'select ANO from'#10'(select distinct(substr(FECHA_ALBARAN, 1,4)) as ' +
'ANO'#10'from albaranes_cliente'#10'order by 1 desc)'#10#10'UNION ALL'#10#10'select d' +
'istinct '#39'Todos'#39' as ANO'#10'from empresas'
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'ListaAnosAlbaranes'
Fields = <
item
Name = 'ANO'
DataType = datString
Size = 254
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end>
BusinessRulesClient.ScriptLanguage = rslPascalScript
BusinessRulesServer.ScriptLanguage = rslPascalScript
end
item
Params = <
item
@ -109,8 +80,7 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
'HA_ALTA,'#10' FECHA_MODIFICACION, USUARIO, ID_FORMA_PAGO, FECHA_P' +
'REVISTA_ENVIO, FECHA_ENVIO,'#10' FECHA_RECEPCION, ID_AGENTE, AGEN' +
'TE, NUM_COPIAS, ID_ALBARAN_DEV, REFERENCIA_ALB_DEV,'#10' ID_FAC_A' +
'LB_DEV, REFERENCIA_FAC_ALB_DEV, NUM_CORREOS, BLOQUEADO'#10' FROM'#10' ' +
' V_ALBARANES_CLIENTE'
'LB_DEV, REFERENCIA_FAC_ALB_DEV'#10' FROM'#10' V_ALBARANES_CLIENTE'
StatementType = stSQL
ColumnMappings = <
item
@ -296,14 +266,6 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
item
DatasetField = 'REFERENCIA_FAC_ALB_DEV'
TableField = 'REFERENCIA_FAC_ALB_DEV'
end
item
DatasetField = 'NUM_CORREOS'
TableField = 'NUM_CORREOS'
end
item
DatasetField = 'BLOQUEADO'
TableField = 'BLOQUEADO'
end>
end>
Name = 'AlbaranesCliente'
@ -785,28 +747,6 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'NUM_CORREOS'
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'BLOQUEADO'
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end>
BusinessRulesClient.ScriptLanguage = rslPascalScript
BusinessRulesServer.ScriptLanguage = rslPascalScript
@ -1335,8 +1275,8 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
'HA_ALTA,'#10' FECHA_MODIFICACION, USUARIO, ID_FORMA_PAGO, FECHA_P' +
'REVISTA_ENVIO, FECHA_ENVIO,'#10' FECHA_RECEPCION, ID_AGENTE, AGEN' +
'TE, NUM_COPIAS, ID_ALBARAN_DEV, REFERENCIA_ALB_DEV,'#10' ID_FAC_A' +
'LB_DEV, REFERENCIA_FAC_ALB_DEV, NUM_CORREOS'#10' FROM'#10' V_ALBARAN' +
'ES_CLIENTE'#10' WHERE V_ALBARANES_CLIENTE.ID = :ID'
'LB_DEV, REFERENCIA_FAC_ALB_DEV'#10' FROM'#10' V_ALBARANES_CLIENTE'#10' ' +
'WHERE V_ALBARANES_CLIENTE.ID = :ID'
StatementType = stSQL
ColumnMappings = <
item
@ -1522,10 +1462,6 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
item
DatasetField = 'REFERENCIA_FAC_ALB_DEV'
TableField = 'REFERENCIA_FAC_ALB_DEV'
end
item
DatasetField = 'NUM_CORREOS'
TableField = 'NUM_CORREOS'
end>
end>
Name = 'AlbaranesCliente_Refresh'
@ -2013,17 +1949,6 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'NUM_CORREOS'
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end>
BusinessRulesClient.ScriptLanguage = rslPascalScript
BusinessRulesServer.ScriptLanguage = rslPascalScript

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

@ -38,9 +38,8 @@ type
protected
{ IsrvAlbaranesCliente methods }
function GetNextAutoInc(const GeneratorName: String): Integer;
function GenerateReport(const ID: String; const ShowLogotipo: Boolean = False; const ConObservacionesIncidencias: Boolean = False): Binary;
function GenerateReport(const ID: String; const ShowLogotipo: Boolean): Binary;
function GenerateEtiquetas(const ID: Integer; const withRefCliente: Boolean): Binary;
function GenerarReportPDF(const ListaID: TIntegerArray; const ShowLogotipo: Boolean = False): Binary;
end;
implementation
@ -83,18 +82,6 @@ begin
bpAlbaranesCliente.BusinessRulesID := BIZ_SERVER_ALBARAN_CLIENTE;
end;
function TsrvAlbaranesCliente.GenerarReportPDF(const ListaID: TIntegerArray; const ShowLogotipo: Boolean = False): Binary;
var
AReportGenerator : TRptAlbaranesCliente;
begin
AReportGenerator := TRptAlbaranesCliente.Create(nil);
try
Result := AReportGenerator.GenerarReportEnPDF(ListaID, ShowLogotipo);
finally
FreeAndNIL(AReportGenerator);
end;
end;
function TsrvAlbaranesCliente.GenerateEtiquetas(const ID: Integer; const withRefCliente: Boolean): Binary;
var
AReportGenerator : TRptAlbaranesCliente;
@ -107,13 +94,13 @@ begin
end;
end;
function TsrvAlbaranesCliente.GenerateReport(const ID: String; const ShowLogotipo: Boolean = False; const ConObservacionesIncidencias: Boolean = False): Binary;
function TsrvAlbaranesCliente.GenerateReport(const ID: String; const ShowLogotipo: Boolean): Binary;
var
AReportGenerator : TRptAlbaranesCliente;
begin
AReportGenerator := TRptAlbaranesCliente.Create(nil);
try
Result := AReportGenerator.GenerarAlbaran(ID, ShowLogotipo, ConObservacionesIncidencias);
Result := AReportGenerator.GenerarAlbaran(ID, ShowLogotipo);
finally
FreeAndNIL(AReportGenerator);
end;

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

@ -100,8 +100,7 @@ requires
Inventario_controller,
JSDialog100,
PedCli_AlbCli_relation,
AlbCli_FacCli_relation,
dxGDIPlusD10;
AlbCli_FacCli_relation;
contains
uAlbaranesClienteViewRegister in 'uAlbaranesClienteViewRegister.pas',
@ -118,7 +117,6 @@ contains
uEditorAlbaranesDevCliente in 'uEditorAlbaranesDevCliente.pas' {fEditorAlbaranesDevCliente: TCustomEditor},
uViewAlbaranesDevCliente in 'uViewAlbaranesDevCliente.pas' {frViewAlbaranesDevCliente: TCustomView},
uEditorAlbaranDevCliente in 'uEditorAlbaranDevCliente.pas' {fEditorAlbaranDevCliente: TCustomEditor},
uViewAlbaranDevCliente in 'uViewAlbaranDevCliente.pas' {frViewAlbaranDevCliente: TCustomView},
uDialogListaAlbaranesCliEnvioEMail in 'uDialogListaAlbaranesCliEnvioEMail.pas' {fDialogListaAlbaranesCliEnvioEMail: TCustomEditor};
uViewAlbaranDevCliente in 'uViewAlbaranDevCliente.pas' {frViewAlbaranDevCliente: TCustomView};
end.

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

@ -10,8 +10,7 @@ implementation
uses
uEditorRegistryUtils, uEditorAlbaranesCliente, uEditorAlbaranCliente,
uEditorElegirArticulosAlbaranCliente, uEditorAlbaranesClienteReport,
uEditorElegirAlbaranesCliente, uEditorAlbaranesDevCliente, uEditorAlbaranDevCliente,
uDialogListaAlbaranesCliEnvioEMail;
uEditorElegirAlbaranesCliente, uEditorAlbaranesDevCliente, uEditorAlbaranDevCliente;
procedure RegisterViews;
begin
@ -22,7 +21,6 @@ begin
EditorRegistry.RegisterClass(TfEditorElegirArticulosAlbaranCliente, 'EditorElegirArticulosAlbaranesCliente');
EditorRegistry.RegisterClass(TfEditorAlbaranesClientePreview, 'EditorAlbaranesClientePreview');
EditorRegistry.RegisterClass(TfEditorElegirAlbaranesCliente, 'EditorElegirAlbaranesCliente');
EditorRegistry.RegisterClass(TfDialogListaAlbaranesCliEnvioEMail, 'DialogListaAlbaranesCliEnvioEMail');
end;
procedure UnregisterViews;
@ -34,7 +32,6 @@ begin
EditorRegistry.UnRegisterClass(TfEditorElegirArticulosAlbaranCliente);
EditorRegistry.UnRegisterClass(TfEditorAlbaranesClientePreview);
EditorRegistry.UnRegisterClass(TfEditorElegirAlbaranesCliente);
EditorRegistry.UnRegisterClass(TfDialogListaAlbaranesCliEnvioEMail);
end;
end.

89
Source/Modulos/Albaranes de cliente/Views/uDialogListaAlbaranesCliEnvioEMail.dfm
View File

@ -1,89 +0,0 @@
inherited fDialogListaAlbaranesCliEnvioEMail: TfDialogListaAlbaranesCliEnvioEMail
Caption = 'Enviar albaranes por correo electr'#243'nico'
ClientHeight = 432
ClientWidth = 735
ExplicitWidth = 741
ExplicitHeight = 457
PixelsPerInch = 96
TextHeight = 13
inherited pnlBotones: TFlowPanel
Top = 376
Width = 735
ExplicitTop = 382
ExplicitWidth = 735
inherited Button1: TButton
Left = 639
Caption = '&Salir'
ExplicitLeft = 639
end
inherited Button2: TButton
Left = 528
Width = 96
ExplicitLeft = 528
ExplicitWidth = 96
end
end
inherited FlowPanel1: TFlowPanel
Width = 735
Height = 376
ExplicitWidth = 735
ExplicitHeight = 376
inherited lblInstruccion: TLabel
Width = 320
Caption = 'Enviar albaranes por correo electr'#243'nico'
Font.Style = [fsBold]
ExplicitWidth = 320
end
inherited Label2: TLabel
Height = 51
Caption =
'Se generar'#225'n correos electr'#243'nicos autom'#225'ticos adjuntando los alb' +
'aranes elegidos en formato PDF. S'#243'lo se tendr'#225'n en cuenta los cl' +
'ientes que tengan relleno su e-mail administrativo.'
WordWrap = True
ExplicitHeight = 51
end
inherited ListView1: TListView
Top = 121
Width = 658
Height = 232
Columns = <
item
Caption = 'Documento'
MaxWidth = 75
MinWidth = 75
Width = 75
end
item
Caption = 'Destinatario'
MaxWidth = 300
Width = 280
end
item
Caption = 'Direcci'#243'n E-Mail'
MaxWidth = 250
Width = 150
end
item
Caption = 'Estado'
MaxWidth = 250
Width = 149
end>
ExplicitTop = 121
ExplicitWidth = 658
ExplicitHeight = 232
end
end
inherited ActionList1: TActionList
Left = 8
Top = 352
inherited actAceptar: TAction
Caption = '&Generar correos'
OnExecute = actAceptarExecute
OnUpdate = actAceptarUpdate
end
inherited actCancelar: TAction
OnExecute = actCancelarExecute
end
end
end

166
Source/Modulos/Albaranes de cliente/Views/uDialogListaAlbaranesCliEnvioEMail.pas
View File

@ -1,166 +0,0 @@
unit uDialogListaAlbaranesCliEnvioEMail;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, uDialogBase, ActnList, StdCtrls, ExtCtrls, ComCtrls,
uDialogListaEnvioEMail, uIDialogListaAlbaranesCliEnvioEMail, uAlbaranesClienteController,
uBizAlbaranesCliente;
type
TfDialogListaAlbaranesCliEnvioEMail = class(TfDialogListaEnvioEMail, IDialogListaAlbaranesCliEnvioEMail)
procedure actCancelarExecute(Sender: TObject);
procedure actAceptarUpdate(Sender: TObject);
procedure actAceptarExecute(Sender: TObject);
private
FAlbaranes : IBizAlbaranCliente;
FController : IAlbaranesClienteController;
protected
function GetAlbaranes: IBizAlbaranCliente;
procedure SetAlbaranes(const Value: IBizAlbaranCliente);
procedure RellenarLista;
procedure BorrarLista;
public
constructor Create(AOwner: TComponent); override;
property Albaranes: IBizAlbaranCliente read GetAlbaranes write SetAlbaranes;
end;
implementation
uses
schAlbaranesClienteClient_Intf, uStringsUtils, cxControls;
{$R *.dfm}
{ TfDialogListaAlbaranesEnvioEMail }
procedure TfDialogListaAlbaranesCliEnvioEMail.actAceptarExecute(Sender: TObject);
var
i : Integer;
begin
ShowHourglassCursor;
Application.ProcessMessages;
try
FAlbaranes.First;
FController.RecuperarCliente(FAlbaranes);
FAlbaranes.Cliente.DataTable.Active := True;
try
for i := 0 to FAlbaranes.DataTable.RecordCount - 1 do
begin
if not EsCadenaVacia(FAlbaranes.Cliente.EMAIL_ADMINISTRACION) then
begin
if FController.EnviarAlbaranPorEMail(FAlbaranes, True, FAlbaranes.Cliente.EMAIL_ADMINISTRACION) then
begin
ListView1.Items[i].SubItems[2] := 'Correo generado';
ModalResult := mrOk;
end
else
ListView1.Items[i].SubItems[2] := 'Error al generar correo';
Self.Update;
Application.ProcessMessages;
end;
FAlbaranes.Next;
FController.RecuperarCliente(FAlbaranes);
FAlbaranes.Cliente.DataTable.Active := True;
end;
Button2.Enabled := False;
finally
ListView1.Items.EndUpdate;
end;
finally
HideHourglassCursor;
end;
Button1.SetFocus;
end;
procedure TfDialogListaAlbaranesCliEnvioEMail.actAceptarUpdate(Sender: TObject);
begin
inherited;
(Sender as TAction).Enabled := (ListView1.Items.Count > 0)
end;
procedure TfDialogListaAlbaranesCliEnvioEMail.actCancelarExecute(Sender: TObject);
begin
inherited;
ModalResult := mrOk;
end;
procedure TfDialogListaAlbaranesCliEnvioEMail.BorrarLista;
begin
ListView1.Items.Clear;
end;
constructor TfDialogListaAlbaranesCliEnvioEMail.Create(AOwner: TComponent);
begin
inherited;
ModalResult := mrCancel;
FController := TAlbaranesClienteController.Create;
end;
function TfDialogListaAlbaranesCliEnvioEMail.GetAlbaranes: IBizAlbaranCliente;
begin
Result := FAlbaranes;
end;
procedure TfDialogListaAlbaranesCliEnvioEMail.RellenarLista;
var
i : Integer;
begin
ListView1.Items.BeginUpdate;
ListView1.Items.Clear;
FAlbaranes.First;
FAlbaranes.DataTable.DisableControls;
try
for i := 0 to FAlbaranes.DataTable.RecordCount - 1 do
begin
FController.RecuperarCliente(FAlbaranes);
FAlbaranes.Cliente.DataTable.Active := True;
with ListView1.Items.Add do
begin
Caption := FAlbaranes.REFERENCIA;
SubItems.Add(FAlbaranes.NOMBRE);
SubItems.Add(FAlbaranes.Cliente.EMAIL_ADMINISTRACION);
if EsCadenaVacia(FAlbaranes.Cliente.EMAIL_ADMINISTRACION) then
SubItems.Add('Sin dirección e-mail administrativa')
else
SubItems.Add('')
end;
FAlbaranes.Next;
end;
finally
FAlbaranes.DataTable.EnableControls;
ListView1.Items.EndUpdate;
end;
end;
procedure TfDialogListaAlbaranesCliEnvioEMail.SetAlbaranes(
const Value: IBizAlbaranCliente);
begin
FAlbaranes := Value;
if Assigned(FAlbaranes) then
begin
FAlbaranes.DataTable.Open;
if (FAlbaranes.TIPO = CTE_TIPO_ALBARAN_DEV) then
begin
Self.Caption := 'Enviar órdenes de devolución por correo electrónico';
lblInstruccion.Caption := 'Enviar órdenes de devolución por correo electrónico';
Label2.Caption := 'Se generarán correos electrónicos automáticos adjuntando las órdenes de devolución elegidas en formato PDF. Sólo se tendrán en cuenta los clientes que tengan relleno su e-mail administrativo.';
end;
RellenarLista;
end
else
BorrarLista;
end;
end.

4
Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranCliente.dfm
View File

@ -200,6 +200,10 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
object pagInicidencias: TTabSheet
Caption = 'Incidencias'
ImageIndex = 2
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
inline frViewIncidenciasCli: TfrViewIncidencias
Left = 0
Top = 0

10
Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranCliente.pas
View File

@ -230,10 +230,7 @@ end;
procedure TfEditorAlbaranCliente.ImprimirInterno;
begin
inherited;
if (ShowConfirmMessage('¿Desea imprimir las observaciones e incidencias del albarán?', '') = IDYES) then
FController.Print(FAlbaran, False, True)
else
FController.Print(FAlbaran);
FController.Print(FAlbaran);
end;
procedure TfEditorAlbaranCliente.OnClienteChanged(Sender: TObject);
@ -327,10 +324,7 @@ end;
procedure TfEditorAlbaranCliente.PrevisualizarInterno;
begin
inherited;
if (ShowConfirmMessage('¿Desea previsualizar las observaciones e incidencias del albarán?', '') = IDYES) then
FController.Preview(FAlbaran, False, True)
else
FController.Preview(FAlbaran);
FController.Preview(FAlbaran);
end;
procedure TfEditorAlbaranCliente.RecalcularPortePorUnidad;

50
Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesCliente.dfm
View File

@ -9,7 +9,7 @@ inherited fEditorAlbaranesCliente: TfEditorAlbaranesCliente
inherited JvNavPanelHeader: TJvNavPanelHeader
Width = 855
Caption = 'Lista de albaranes de cliente'
ExplicitWidth = 855
ExplicitWidth = 583
inherited Image1: TImage
Left = 828
Picture.Data = {
@ -124,35 +124,18 @@ inherited fEditorAlbaranesCliente: TfEditorAlbaranesCliente
end
inherited TBXDock: TTBXDock
Width = 855
ExplicitWidth = 855
ExplicitWidth = 583
inherited tbxMain: TTBXToolbar
ExplicitWidth = 746
ExplicitWidth = 638
object TBXSeparatorItem17: TTBXSeparatorItem [10]
end
object TBXItem40: TTBXItem [14]
Action = actEnviarEMail
end
end
inherited tbxFiltro: TTBXToolbar
ExplicitWidth = 435
inherited lblAno: TTBXLabelItem
Visible = True
end
inherited cbxListaAnos: TTBXComboBoxItem
Visible = True
end
inherited sepAno: TTBXSeparatorItem
Visible = True
end
end
inherited tbxMenu: TTBXToolbar
ExplicitWidth = 855
end
inherited TBXTMain2: TTBXToolbar
Left = 435
Visible = True
ExplicitLeft = 435
ExplicitWidth = 420
ExplicitWidth = 514
object TBXItem42: TTBXItem
Action = actEnviar
DisplayMode = nbdmImageAndText
@ -186,8 +169,7 @@ inherited fEditorAlbaranesCliente: TfEditorAlbaranesCliente
inherited StatusBar: TJvStatusBar
Top = 430
Width = 855
ExplicitTop = 430
ExplicitWidth = 855
ExplicitWidth = 583
end
inherited EditorActionList: TActionList
inherited actNuevo: TAction
@ -243,12 +225,6 @@ inherited fEditorAlbaranesCliente: TfEditorAlbaranesCliente
ImageIndex = 23
OnExecute = actGenerarOrdenExecute
end
object actEnviarEMail: TAction
Category = 'Acciones'
Caption = 'Enviar por e-mail...'
OnExecute = actEnviarEMailExecute
OnUpdate = actEnviarEMailUpdate
end
end
inherited SmallImages: TPngImageList
PngImages = <
@ -2084,12 +2060,6 @@ inherited fEditorAlbaranesCliente: TfEditorAlbaranesCliente
Value = 100
Default = True
end
item
Caption =
'Imprimir el albaran/es seleccionado/s (Con observaciones e incid' +
'encias)'
Value = 101
end
item
Caption = 'Imprimir la lista de albaranes actual'
Value = 200
@ -2327,7 +2297,7 @@ inherited fEditorAlbaranesCliente: TfEditorAlbaranesCliente
0007F0000007F0000007F0000007F0000007F0000007F0000007800000078000
0007C0000007C000000700000007000000070000000700000007C000000FC000
001F8000003F800000FFF8FFFFFF}
Width = 650
Width = 500
Left = 264
Top = 112
end
@ -2401,12 +2371,6 @@ inherited fEditorAlbaranesCliente: TfEditorAlbaranesCliente
Value = 100
Default = True
end
item
Caption =
'Previsualizar el albaran/es seleccionado/s (Con observaciones e ' +
'incidencias)'
Value = 101
end
item
Caption = 'Previsualizar la lista de albaranes actual'
Value = 200
@ -2644,7 +2608,7 @@ inherited fEditorAlbaranesCliente: TfEditorAlbaranesCliente
0007F0000007F0000007F0000007F0000007F0000007F0000007800000078000
0007C0000007C000000700000007000000070000000700000007C000000FC000
001F8000003F800000FFF8FFFFFF}
Width = 650
Width = 500
Left = 232
Top = 112
end

97
Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesCliente.pas
View File

@ -38,8 +38,6 @@ type
JsListaAlbaranesNoEliminados: TJSDialog;
actGenerarOrden: TAction;
TBXItem39: TTBXItem;
actEnviarEMail: TAction;
TBXItem40: TTBXItem;
procedure FormShow(Sender: TObject);
procedure actGenerarFacturaUpdate(Sender: TObject);
procedure actGenerarFacturaExecute(Sender: TObject);
@ -53,9 +51,6 @@ type
procedure actGenerarEtiquetasExecute(Sender: TObject);
procedure actGenerarEtiquetasUpdate(Sender: TObject);
procedure actGenerarOrdenExecute(Sender: TObject);
procedure actEnviarEMailExecute(Sender: TObject);
procedure actEnviarEMailUpdate(Sender: TObject);
procedure OnListaAnosChange(Sender: TObject; const Text: string);
protected
FAlbaranes: IBizAlbaranCliente;
@ -73,7 +68,6 @@ type
procedure DuplicarInterno; override;
procedure ImprimirInterno; override;
procedure PrevisualizarInterno; override;
procedure RefrescarInterno; override;
//Si queremos crear otra vista para el editor heredado solo tendriamos que
//sobreescribir este método
@ -94,7 +88,7 @@ uses
uBizPedidosCliente, uDialogUtils, schAlbaranesClienteClient_Intf,
uFacturasClienteController, uBizFacturasCliente, uInventarioController,
uEditorBase, uGenerarAlbaranesCliUtils, uGenerarFacturasCliAlbCliUtils,
cxCustomData, uGridUtils, uDBSelectionListUtils, cxControls;
cxCustomData, uGridUtils, uDBSelectionListUtils;
{$R *.dfm}
@ -202,40 +196,6 @@ begin
FController.GenerarOrdenDev(Albaranes);
end;
procedure TfEditorAlbaranesCliente.actEnviarEMailExecute(Sender: TObject);
var
AAlbaranes : IBizAlbaranCliente;
begin
inherited;
if ViewGrid.NumSeleccionados = 1 then
FController.GenerarEmailAlbaran(Albaranes)
else begin
ShowHourglassCursor;
try
SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (Albaranes as ISeleccionable).SelectedRecords);
AAlbaranes := (Controller as IAlbaranesClienteController).ExtraerSeleccionados(Albaranes, ViewGrid) as IBizAlbaranCliente;
if Assigned(AAlbaranes) then
if FController.EnviarEmailAlbaranes(AAlbaranes) then
RefrescarInterno;
finally
AAlbaranes := NIL;
HideHourglassCursor;
end;
end;
end;
procedure TfEditorAlbaranesCliente.actEnviarEMailUpdate(Sender: TObject);
begin
inherited;
if HayDatos and Assigned(ViewGrid) then
(Sender as TAction).Enabled := ViewGrid.esSeleccionCeldaDatos
and (ViewGrid.NumSeleccionados > 0)
else
(Sender as TAction).Enabled := False;
end;
procedure TfEditorAlbaranesCliente.actEnviarExecute(Sender: TObject);
var
AInventarioController : IInventarioController;
@ -385,8 +345,6 @@ end;
procedure TfEditorAlbaranesCliente.FormShow(Sender: TObject);
begin
cbxListaAnos.OnChange := OnListaAnosChange; //OJO SIEMPRE ANTES QUE EL INHERITED
inherited;
if not Assigned(ViewGrid) then
@ -434,7 +392,7 @@ begin
200 : begin // Lista de elementos visibles
inherited;
end;
100, 101 : begin // Elemento Seleccionado
100 : begin // Elemento Seleccionado
if AllItems then
begin
SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (Albaranes as ISeleccionable).SelectedRecords);
@ -444,14 +402,8 @@ begin
AAlbaranes := Albaranes;
if Assigned(AAlbaranes) then
begin
//Con observaciones e incidencias
if JsImprimirDialog.CustomButtonResult = 101 then
FController.Print(AAlbaranes, AllItems, True)
else
FController.Print(AAlbaranes, AllItems);
RefrescarInterno;
end;
if FController.Print(AAlbaranes, AllItems) then
RefrescarInterno;
end;
end;
end;
@ -489,13 +441,6 @@ begin
end;
end;
procedure TfEditorAlbaranesCliente.OnListaAnosChange(Sender: TObject; const Text: string);
begin
Controller.FiltrarAno(Albaranes, WhereDataTable, Text);
if Albaranes.DataTable.Active then
RefrescarInterno;
end;
procedure TfEditorAlbaranesCliente.PonerTitulos(const ATitulo: string);
var
FTitulo : String;
@ -532,7 +477,7 @@ begin
200 : begin // Lista de elementos visibles
inherited;
end;
100, 101 : begin // Elemento Seleccionado
100 : begin // Elemento Seleccionado
if AllItems then
begin
SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (Albaranes as ISeleccionable).SelectedRecords);
@ -542,48 +487,24 @@ begin
AAlbaranes := Albaranes;
if Assigned(AAlbaranes) then
//Con observaciones e incidencias
if JsPrevisualizarDialog.CustomButtonResult = 101 then
FController.Preview(AAlbaranes, AllItems, True)
else
FController.Preview(AAlbaranes, AllItems);
FController.Preview(AAlbaranes, AllItems);
end;
end;
end;
end;
end;
procedure TfEditorAlbaranesCliente.RefrescarInterno;
begin
//Volvemos a cargar los años de las facturas
if Assigned(FController) then
ListaAnos := FController.DarListaAnosAlbaranes;
inherited;
end;
procedure TfEditorAlbaranesCliente.SetController(const Value: IAlbaranesClienteController);
begin
FController := Value;
if Assigned(FController) then
ListaAnos := FController.DarListaAnosAlbaranes;
end;
procedure TfEditorAlbaranesCliente.SetAlbaranes(const Value: IBizAlbaranCliente);
begin
FAlbaranes := Value;
if Assigned(FAlbaranes) then
begin
//Se guarda el where de la sentencia origen, por si el editor tiene filtros que
//afecten a este where y en un futuro se desea volver al where origen (filtro de año))
WhereDataTable := FAlbaranes.DataTable.Where.Clause;
dsDataTable.DataTable := FAlbaranes.DataTable;
if Assigned(ViewGrid) then
(ViewGrid as IViewAlbaranesCliente).Albaranes := Albaranes;
end;
dsDataTable.DataTable := FAlbaranes.DataTable;
if Assigned(ViewGrid) then
(ViewGrid as IViewAlbaranesCliente).Albaranes := Albaranes;
end;
end.

24
Source/Modulos/Albaranes de cliente/Views/uEditorElegirAlbaranesCliente.dfm
View File

@ -52,9 +52,6 @@ inherited fEditorElegirAlbaranesCliente: TfEditorElegirAlbaranesCliente
ExplicitTop = 87
ExplicitWidth = 790
inherited tbxMain: TTBXToolbar
Left = 367
DockPos = 367
ExplicitLeft = 367
ExplicitWidth = 126
inherited TBXItem2: TTBXItem
Visible = False
@ -89,9 +86,6 @@ inherited fEditorElegirAlbaranesCliente: TfEditorElegirAlbaranesCliente
inherited TBXSeparatorItem10: TTBXSeparatorItem
Visible = False
end
inherited TBXItem40: TTBXItem
Visible = False
end
inherited TBXSeparatorItem2: TTBXSeparatorItem
Visible = False
end
@ -103,13 +97,13 @@ inherited fEditorElegirAlbaranesCliente: TfEditorElegirAlbaranesCliente
end
end
inherited tbxFiltro: TTBXToolbar
Left = 3
Left = 126
Top = 23
DockPos = 3
DockPos = 104
DockRow = 1
ExplicitLeft = 3
ExplicitLeft = 126
ExplicitTop = 23
ExplicitWidth = 363
ExplicitWidth = 269
inherited TBXItem34: TTBXItem
Action = actQuitarFiltro2
end
@ -121,10 +115,10 @@ inherited fEditorElegirAlbaranesCliente: TfEditorElegirAlbaranesCliente
ExplicitWidth = 790
end
inherited TBXTMain2: TTBXToolbar
Left = 84
Left = 206
Visible = False
ExplicitLeft = 84
ExplicitWidth = 706
ExplicitLeft = 206
ExplicitWidth = 584
end
end
inherited StatusBar: TJvStatusBar
@ -133,7 +127,7 @@ inherited fEditorElegirAlbaranesCliente: TfEditorElegirAlbaranesCliente
end
inline frViewBarraSeleccion1: TfrViewBarraSeleccion [4]
Left = 0
Top = 394
Top = 389
Width = 790
Height = 36
Align = alBottom
@ -145,7 +139,7 @@ inherited fEditorElegirAlbaranesCliente: TfEditorElegirAlbaranesCliente
ParentFont = False
TabOrder = 3
ReadOnly = False
ExplicitTop = 394
ExplicitTop = 389
ExplicitWidth = 790
ExplicitHeight = 36
inherited JvFooter1: TJvFooter

12
Source/Modulos/Albaranes de cliente/Views/uEditorElegirArticulosAlbaranCliente.dfm
View File

@ -3,16 +3,4 @@ inherited fEditorElegirArticulosAlbaranCliente: TfEditorElegirArticulosAlbaranCl
ExplicitHeight = 471
PixelsPerInch = 96
TextHeight = 13
inherited TBXDock: TTBXDock
inherited tbxMain: TTBXToolbar
Left = 275
DockPos = 275
ExplicitLeft = 275
end
inherited tbxFiltro: TTBXToolbar
Left = 3
DockPos = 3
ExplicitLeft = 3
end
end
end

159
Source/Modulos/Albaranes de cliente/Views/uViewAlbaranesCliente.dfm
View File

@ -40,50 +40,13 @@ inherited frViewAlbaranesCliente: TfrViewAlbaranesCliente
OptionsView.GroupFooters = gfAlwaysVisible
object cxGridViewNUM_COPIAS: TcxGridDBColumn
DataBinding.FieldName = 'NUM_COPIAS'
OnCustomDrawCell = cxGridViewNUM_COPIASCustomDrawCell
MinWidth = 30
Options.HorzSizing = False
VisibleForCustomization = False
Width = 30
OnCustomDrawHeader = cxGridViewNUM_COPIASCustomDrawHeader
IsCaptionAssigned = True
end
object cxGridViewNUM_CORREOS: TcxGridDBColumn
DataBinding.FieldName = 'NUM_CORREOS'
PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taCenter
BestFitMaxWidth = 25
MinWidth = 25
Options.Editing = False
Options.HorzSizing = False
Options.Moving = False
Options.ShowCaption = False
VisibleForCustomization = False
Width = 25
OnCustomDrawHeader = cxGridViewNUM_CORREOSCustomDrawHeader
end
object cxGridViewBLOQUEADO: TcxGridDBColumn
Caption = #191'Bloqueado?'
DataBinding.FieldName = 'BLOQUEADO'
PropertiesClassName = 'TcxImageComboBoxProperties'
Properties.Images = PngImageList10
Properties.Items = <
item
Description = '0'
Value = 0
end
item
Description = '1'
ImageIndex = 2
Tag = 1
Value = 1
end>
Properties.LargeImages = PngImageList10
Properties.ShowDescriptions = False
BestFitMaxWidth = 25
MinWidth = 25
VisibleForCustomization = False
Width = 25
end
object cxGridViewINCIDENCIAS_ACTIVAS: TcxGridDBColumn
Caption = 'Incidencias'
DataBinding.FieldName = 'INCIDENCIAS_ACTIVAS'
@ -212,9 +175,6 @@ inherited frViewAlbaranesCliente: TfrViewAlbaranesCliente
Options.DetailFrameColor = clNone
Options.DetailFrameWidth = 0
end
object cxGridLevelBloqueados: TcxGridLevel
Caption = 'Bloqueados'
end
end
inherited frViewFiltroBase1: TfrViewFiltroBase
Width = 596
@ -299,28 +259,20 @@ inherited frViewAlbaranesCliente: TfrViewAlbaranesCliente
TextColor = clBlue
end
object cxStylePENDIENTES: TcxStyle
AssignedValues = [svColor, svTextColor]
Color = clWhite
AssignedValues = [svTextColor]
TextColor = clGreen
end
object cxStyleENVIADOS: TcxStyle
AssignedValues = [svColor, svTextColor]
Color = clWhite
AssignedValues = [svTextColor]
TextColor = clBlue
end
object cxStyleSERVIDOS: TcxStyle
AssignedValues = [svColor]
Color = clWhite
end
object cxStyleRETRASADOS: TcxStyle
AssignedValues = [svColor, svTextColor]
Color = 15527167
TextColor = clRed
end
object cxStyleBLOQUEADOS: TcxStyle
AssignedValues = [svColor]
Color = 6793212
end
end
inherited cxViewGridPopupMenu: TcxGridPopupMenu
Left = 280
@ -342,111 +294,6 @@ inherited frViewAlbaranesCliente: TfrViewAlbaranesCliente
OnUpdate = actAgentesUpdate
end
end
inherited PngImageList10: TPngImageList
PngImages = <
item
PngImage.Data = {
89504E470D0A1A0A0000000D4948445200000010000000100804000000B5FA37
EA000000097048597300000B1300000B1301009A9C180000031B694343505068
6F746F73686F70204943432070726F66696C65000078DA6360609EE0E8E2E4CA
24C0C050505452E41EE418191119A5C07E9E818D819981818181812131B9B8C0
3120C087818181212F3F2F9501153032307CBBC6C0C8C0C0C07059D7D1C5C995
8134C09A5C5054C2C0C070808181C12825B538998181E10B0303437A79494109
0303630C03038348527641090303630103038348764890330303630B0303134F
496A450903030383737E416551667A468982A1A5A5A582634A7E52AA42706571
496A6EB182675E727E51417E5162496A0A030303D40E060606065E97FC1205F7
C4CC3C05435355062A8388C82805080B113E083104482E2D2A83072503830083
16831F4325C32A86078CD28C518CF3189F32193235305D62D6606E64BECB62C3
328F9599359BF52A9B13DB267615F6991C021C9D9CAC9CCD5CCC5C6DDCDCDC13
79A47896F21AF31EE20BE67BC65F2D2024B05AD04DF09150A3B0A2F061917451
5ED1AD6271E29CE25B25522485258F4A5548EB4A3F9199231B2A27287756BE47
C1479157F182D214E528152595D7AA5BD51AD5FD346435DE6AEED39AA89DAA63
AD2BA4FB4AEF88FE7C831AC328234B6349E3DF26F74C0F9BAD30EFB7A8B04CB4
F2B1B6B051B515B163B1FB6AFFDCE1B6E305A763CE7B5DB6BAAE775BE9BED463
91E742AF05DE0B7D16FB2EF35BE5BF3E606BE0DEA063C1E7436E853E0BFB12C1
142918A5146D1CE3161B159717DF92303B7173D2D9E4E7A94C6972E936195199
5559B3B2F7E4DCCB63CA572FF0292C2E9A5D7CB8E46D9944B94B4561E5BCAAB3
D57F6BF5EAE2EB27351C6BFCDD6CD092DE3AAFED7A8760A777577BF7E15E863E
FBFEBA09FB26FE9FEC38A575EA89E9BC338267CE9AF5688ED6DC9279FB16702D
0C5BB478F1C7A50ECB262C7FB8D27855EBEA9B6B75D735ADBFB9D16053C7E607
5BADB64DDDFE61A7EFAE557B38F6A6EF3B7E40FD60E7A1D747FC8E6E3E2E7EA2
F6E493D3DE67B69C933DDF7EE1D3A5B8CBA7AE5A5C5B7643F466EBADAF77D2EF
DEBCEFF3E0C023D3C7AB9F2A3E9BF942F065D76BE637756F7FBE2FFDF0E953C1
E7775FF3BEBDFB91FFF3C3EFE23FDFFE55FDFF0F002E0C1D8BA03C0931000001
2D4944415478DA63FCCF801F3092AC20EFFFFF870C070A0EA82CF88F4D41EEFF
7C063E20BD80E1F0C1CD0E680AEAFEBF67C8679060F8C8F0986119C3858F8704
501494FECF60A867980B94FECCB08A61FBC7A2050105480A4AFE973188319C67
E863286238C2B099C139B06203921B20D2207082A10B688630C31F8660C7E803
700515FF8BC00A5E333C6778C6F0936111832EC3A58FEB106EE8FAFF8521186C
C21786870C6B80D2AF800EDDC28864851BC33E86FF0C3A0C3F18B603A59F30FC
62F8C0B019A2C055E08F81C8FEC90C8C0C5719B6315C6330014BFF072A809A00
22BC13A4E67B336803832891419CE137D01D5C0C2F034F6D802B6060F049F837
4190DF111840BF19FE7FFC9170062809F5268838C8A8CEC8CE129DF5A5E5F79F
1FA97F375FFA0112C51A1798000002C5780121B7DDC80000000049454E44AE42
6082}
Name = 'PngImage0'
Background = clWindow
end
item
PngImage.Data = {
89504E470D0A1A0A0000000D4948445200000010000000100804000000B5FA37
EA000000097048597300000B1300000B1301009A9C180000031B694343505068
6F746F73686F70204943432070726F66696C65000078DA6360609EE0E8E2E4CA
24C0C050505452E41EE418191119A5C07E9E818D819981818181812131B9B8C0
3120C087818181212F3F2F9501153032307CBBC6C0C8C0C0C07059D7D1C5C995
8134C09A5C5054C2C0C070808181C12825B538998181E10B0303437A79494109
0303630C03038348527641090303630103038348764890330303630B0303134F
496A450903030383737E416551667A468982A1A5A5A582634A7E52AA42706571
496A6EB182675E727E51417E5162496A0A030303D40E060606065E97FC1205F7
C4CC3C05435355062A8388C82805080B113E083104482E2D2A83072503830083
16831F4325C32A86078CD28C518CF3189F32193235305D62D6606E64BECB62C3
328F9599359BF52A9B13DB267615F6991C021C9D9CAC9CCD5CCC5C6DDCDCDC13
79A47896F21AF31EE20BE67BC65F2D2024B05AD04DF09150A3B0A2F061917451
5ED1AD6271E29CE25B25522485258F4A5548EB4A3F9199231B2A27287756BE47
C1479157F182D214E528152595D7AA5BD51AD5FD346435DE6AEED39AA89DAA63
AD2BA4FB4AEF88FE7C831AC328234B6349E3DF26F74C0F9BAD30EFB7A8B04CB4
F2B1B6B051B515B163B1FB6AFFDCE1B6E305A763CE7B5DB6BAAE775BE9BED463
91E742AF05DE0B7D16FB2EF35BE5BF3E606BE0DEA063C1E7436E853E0BFB12C1
142918A5146D1CE3161B159717DF92303B7173D2D9E4E7A94C6972E936195199
5559B3B2F7E4DCCB63CA572FF0292C2E9A5D7CB8E46D9944B94B4561E5BCAAB3
D57F6BF5EAE2EB27351C6BFCDD6CD092DE3AAFED7A8760A777577BF7E15E863E
FBFEBA09FB26FE9FEC38A575EA89E9BC338267CE9AF5688ED6DC9279FB16702D
0C5BB478F1C7A50ECB262C7FB8D27855EBEA9B6B75D735ADBFB9D16053C7E607
5BADB64DDDFE61A7EFAE557B38F6A6EF3B7E40FD60E7A1D747FC8E6E3E2E7EA2
F6E493D3DE67B69C933DDF7EE1D3A5B8CBA7AE5A5C5B7643F466EBADAF77D2EF
DEBCEFF3E0C023D3C7AB9F2A3E9BF942F065D76BE637756F7FBE2FFDF0E953C1
E7775FF3BEBDFB91FFF3C3EFE23FDFFE55FDFF0F002E0C1D8BA03C0931000000
C14944415478DABDD13F0BC14118C0F1EF6D06B1B1FEDE80FABD082619E49D78
0B769B49190C8A41C9885226857E06938588FC1D0CFE0E8F27830E6592ABE7BA
EE3EF7DC3D7746F8DECCDF404D2E0886B3C64D7B34D2C60215199320A4CB270E
ACE952626483A2387494843932D311E499D8A02071A63488E9414D1C069499DB
2027294DDC66C79E2D11FA9A656D83AC44A9E3E2D75B780C59D27B05190912C0
A7BB17CCD928FB00AD4781272DCFC78AABCEBD00F37C98F787FB0049B7EAFDF6
2FEEC02251018239FFBF0000000049454E44AE426082}
Name = 'PngImage1'
Background = clWindow
end
item
PngImage.Data = {
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
610000000970485973000017120000171201679FD252000001664944415478DA
63FCFFFF3F0325801164002323235CE05023A73990D266E3FF3E1726F6EB2367
3290BA6A57FFFD244C0C66318A0130CDD679E7E622DBF2FB6627C3DCB9AB8EEA
CAFC2F861982CB802490E6DF2F0F32CCE8C8801B90919100A6418664CFFE6683
D380131318FE9BC65F67985CA8C960A4C86901B20DE42AA0774E18582430CC98
B180A1600103235106C014C2C4F11A70B8890B6C0BB1210F0C540BDBBA6F27E1
069C9CC8F8DFC0630603ABB83D41CDB0F0C99FFF9F11C50090D3FFBDD9C7F0FF
EF2F04FE87603380D93F18AE9C9ECB70E202037603FEBEDC01D770ECC67D86A6
69F718EAB29418CCE538C19AFFFFF9CE70F5FC32DC06FC79B6096EB367C161B8
B3B7B42A8335FFFBF383E1FAE575B80DF8FD780D8AB3BDCBCEA368FE0FC437AE
6FC36DC0AFFB8BE1066C3EFD8C61C69A370CD1EEAC0C61269C60038004C3CDDB
FBB01B008A850B3B3208C602385DA01B004A07E7EE139F0E40A914251D500200
A1723AF0CAFCCBE70000000049454E44AE426082}
Name = 'PngImage2'
Background = clWindow
end>
Bitmap = {}
end
inherited dxPrintStyleManager1: TdxPrintStyleManager
inherited dxPrintStyleManager1Style1: TdxPSPrintStyle
BuiltInStyle = True

79
Source/Modulos/Albaranes de cliente/Views/uViewAlbaranesCliente.pas
View File

@ -12,8 +12,7 @@ uses
uDADataTable, cxGridLevel, cxClasses, cxControls, cxGridCustomView, Classes,
cxGrid,
uBizAlbaranesCliente, cxCurrencyEdit, Forms, uViewFiltroBase, ComCtrls, Tabs,
cxPC, ActnList, TB2Item, TBX, TB2Dock, TB2Toolbar, TBXDkPanels, dxPgsDlg,
cxTextEdit;
cxPC, ActnList, TB2Item, TBX, TB2Dock, TB2Toolbar, TBXDkPanels, dxPgsDlg;
type
IViewAlbaranesCliente = interface(IViewGrid)
@ -63,10 +62,6 @@ type
actAgentes: TAction;
cxGridViewAGENTE: TcxGridDBColumn;
cxGridViewNUM_COPIAS: TcxGridDBColumn;
cxGridViewNUM_CORREOS: TcxGridDBColumn;
cxGridLevelBloqueados: TcxGridLevel;
cxGridViewBLOQUEADO: TcxGridDBColumn;
cxStyleBLOQUEADOS: TcxStyle;
procedure cxGridActiveTabChanged(Sender: TcxCustomGrid; ALevel:
TcxGridLevel);
procedure cxGridViewCODIGOCustomDrawCell(Sender: TcxCustomGridTableView;
@ -84,11 +79,8 @@ type
Y: Integer);
procedure actAgentesExecute(Sender: TObject);
procedure actAgentesUpdate(Sender: TObject);
procedure cxGridViewNUM_CORREOSCustomDrawHeader(Sender: TcxGridTableView;
ACanvas: TcxCanvas; AViewInfo: TcxGridColumnHeaderViewInfo;
var ADone: Boolean);
procedure cxGridViewNUM_COPIASCustomDrawHeader(Sender: TcxGridTableView;
ACanvas: TcxCanvas; AViewInfo: TcxGridColumnHeaderViewInfo;
procedure cxGridViewNUM_COPIASCustomDrawCell(Sender: TcxCustomGridTableView;
ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo;
var ADone: Boolean);
private
@ -108,8 +100,7 @@ type
implementation
uses
Graphics, SysUtils, DateUtils, variants, windows, uDataModuleAlbaranesCliente, schAlbaranesClienteClient_Intf,
uses SysUtils, DateUtils, variants, windows, uDataModuleAlbaranesCliente, schAlbaranesClienteClient_Intf,
uViewGridBase;
{$R *.dfm}
@ -217,11 +208,6 @@ begin
FFiltro := AddFilterGrid(fboAnd);
FFiltro.AddItem(cxGridViewFECHA_PREVISTA_ENVIO, foLess, DateOf(Now), 'RETRASADOS');
end;
5 : begin
FFiltro.AddItem(cxGridViewBLOQUEADO, foEqual, '1', '1');
FFiltro := AddFilterGrid(fboAnd);
FFiltro.AddItem(cxGridViewSITUACION, foNotEqual, SITUACION_ALBARAN_SERVIDO, SITUACION_ALBARAN_SERVIDO);
end;
end;
end;
@ -289,46 +275,21 @@ begin
end;
end;
procedure TfrViewAlbaranesCliente.cxGridViewNUM_COPIASCustomDrawHeader(
Sender: TcxGridTableView; ACanvas: TcxCanvas;
AViewInfo: TcxGridColumnHeaderViewInfo; var ADone: Boolean);
procedure TfrViewAlbaranesCliente.cxGridViewNUM_COPIASCustomDrawCell(
Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
var
R : TRect;
begin
inherited;
with AViewInfo do
if (AViewInfo.GridRecord.DisplayTexts[cxGridViewNUM_COPIAS.Index] <> '') then
begin
LookAndFeelPainter.DrawHeader(ACanvas, Bounds, TextAreaBounds, Neighbors,
Borders, ButtonState, AlignmentHorz, AlignmentVert, MultiLine,
False, '', Params.Font, Params.TextColor, Params.Color);
R := AViewInfo.ContentBounds;
ACanvas.FillRect(R);
ACanvas.DrawImage(PngImageList10, R.Left + 2, R.Top, 0);
ACanvas.DrawImage(PngImageList, R.Left, R.Top, 4);
ACanvas.DrawTexT(AViewInfo.GridRecord.DisplayTexts[cxGridViewNUM_COPIAS.Index], R, cxAlignCenter or cxAlignVCenter);
ADone := True;
end;
ADone := True;
end;
procedure TfrViewAlbaranesCliente.cxGridViewNUM_CORREOSCustomDrawHeader(
Sender: TcxGridTableView; ACanvas: TcxCanvas;
AViewInfo: TcxGridColumnHeaderViewInfo; var ADone: Boolean);
var
R : TRect;
begin
inherited;
with AViewInfo do
begin
LookAndFeelPainter.DrawHeader(ACanvas, Bounds, TextAreaBounds, Neighbors,
Borders, ButtonState, AlignmentHorz, AlignmentVert, MultiLine,
False, '', Params.Font, Params.TextColor, Params.Color);
R := AViewInfo.ContentBounds;
ACanvas.FillRect(R);
ACanvas.DrawImage(PngImageList10, R.Left + 2, R.Top, 1);
end;
ADone := True;
end;
procedure TfrViewAlbaranesCliente.cxGridViewStylesGetContentStyle(Sender:
@ -337,12 +298,10 @@ procedure TfrViewAlbaranesCliente.cxGridViewStylesGetContentStyle(Sender:
var
IndiceCol: Integer;
ASituacion: string;
begin
inherited;
if Assigned(ARecord) then
begin
//ESTILO SITUACIONES
if Assigned((Sender as TcxGridDBTableView).GetColumnByFieldName(fld_AlbaranesClienteSITUACION)) then
begin
IndiceCol := (Sender as TcxGridDBTableView).GetColumnByFieldName(fld_AlbaranesClienteSITUACION).Index;
@ -355,22 +314,14 @@ begin
else
AStyle := cxStylePENDIENTES
else
AStyle := cxStylePENDIENTES;
AStyle := cxStylePENDIENTES;
end
else if ASituacion = SITUACION_ALBARAN_ENVIADO then
AStyle := cxStyleENVIADOS;
end
AStyle := cxStyleENVIADOS
else if ASituacion = SITUACION_ALBARAN_SERVIDO then
AStyle := cxStyleSERVIDOS;
end;
//ESTILO DE BLOQUEADOS
if Assigned((Sender as TcxGridDBTableView).GetColumnByFieldName(fld_AlbaranesClienteBLOQUEADO)) then
begin
IndiceCol := (Sender as TcxGridDBTableView).GetColumnByFieldName(fld_AlbaranesClienteBLOQUEADO).Index;
if (VarToStr(ARecord.DisplayTexts[IndiceCol]) = '1') then
AStyle := cxStyleBLOQUEADOS;
AStyle := cxStyleSERVIDOS;
end;
end;
end;
function TfrViewAlbaranesCliente.GetAlbaranes: IBizAlbaranCliente;

9
Source/Modulos/Albaranes de proveedor/AlbaranesProveedor_Group.bdsgroup
View File

@ -23,7 +23,14 @@
<Projects Name="AlbaranesProveedor_plugin.bpl">Plugin\AlbaranesProveedor_plugin.bdsproj</Projects>
<Projects Name="PedProv_AlbProv_relation.bpl">..\Relaciones\Pedidos de proveedor - Albaranes de proveedor\PedProv_AlbProv_relation.bdsproj</Projects>
<Projects Name="FactuGES.exe">..\..\Cliente\FactuGES.bdsproj</Projects>
<Projects Name="Targets">DataAbstract_D10.bpl Base.bpl ControllerBase.bpl GUIBase.bpl Contactos_view.bpl Articulos_controller.bpl Articulos_view.bpl AlbaranesProveedor_model.bpl AlbaranesProveedor_data.bpl AlbaranesProveedor_controller.bpl AlbaranesProveedor_view.bpl AlbaranesProveedor_plugin.bpl PedProv_AlbProv_relation.bpl FactuGES.exe</Projects>
<Projects Name="FactuGES_Server.exe">..\..\Servidor\FactuGES_Server.bdsproj</Projects>
<Projects Name="PedidosProveedor_controller.bpl">..\Pedidos a proveedor\Controller\PedidosProveedor_controller.bdsproj</Projects>
<Projects Name="AlbProv_FacProv_relation.bpl">..\Relaciones\Albaranes de proveedor - Facturas de proveedor\AlbProv_FacProv_relation.bdsproj</Projects>
<Projects Name="FacturasProveedor_controller.bpl">..\Facturas de proveedor\Controller\FacturasProveedor_controller.bdsproj</Projects>
<Projects Name="Inventario_controller.bpl">..\Inventario\Controller\Inventario_controller.bdsproj</Projects>
<Projects Name="PedidosCliente_controller.bpl">..\Pedidos de cliente\Controller\PedidosCliente_controller.bdsproj</Projects>
<Projects Name="AlbaranesCliente_view.bpl">..\Albaranes de cliente\Views\AlbaranesCliente_view.bdsproj</Projects>
<Projects Name="Targets">DataAbstract_D10.bpl Base.bpl ControllerBase.bpl GUIBase.bpl Contactos_view.bpl Articulos_controller.bpl Articulos_view.bpl AlbaranesProveedor_model.bpl AlbaranesProveedor_data.bpl AlbaranesProveedor_controller.bpl AlbaranesProveedor_view.bpl AlbaranesProveedor_plugin.bpl PedProv_AlbProv_relation.bpl FactuGES.exe FactuGES_Server.exe PedidosProveedor_controller.bpl AlbProv_FacProv_relation.bpl FacturasProveedor_controller.bpl Inventario_controller.bpl PedidosCliente_controller.bpl AlbaranesCliente_view.bpl</Projects>
</Projects>
<Dependencies/>
</Default.Personality>

2
Source/Modulos/Albaranes de proveedor/Controller/AlbaranesProveedor_controller.bdsproj
View File

@ -172,7 +172,7 @@
<VersionInfoKeys Name="Comments"></VersionInfoKeys>
</VersionInfoKeys>
</Delphi.Personality>
<!-- EurekaLog First Line
<!-- EurekaLog First Line
[Exception Log]
EurekaLog Version=519
Activate=1

3
Source/Modulos/Albaranes de proveedor/Controller/AlbaranesProveedor_controller.dpk
View File

@ -58,7 +58,6 @@ contains
uIEditorAlbaranesDevProveedor in 'View\uIEditorAlbaranesDevProveedor.pas',
uIEditorAlbaranDevProveedor in 'View\uIEditorAlbaranDevProveedor.pas',
uAlbaranesProveedorReportController in 'uAlbaranesProveedorReportController.pas',
uIEditorAlbaranesProveedorPreview in 'View\uIEditorAlbaranesProveedorPreview.pas',
uIDialogListaAlbaranesProvEnvioEMail in 'View\uIDialogListaAlbaranesProvEnvioEMail.pas';
uIEditorAlbaranesProveedorPreview in 'View\uIEditorAlbaranesProveedorPreview.pas';
end.

21
Source/Modulos/Albaranes de proveedor/Controller/View/uIDialogListaAlbaranesProvEnvioEMail.pas
View File

@ -1,21 +0,0 @@
unit uIDialogListaAlbaranesProvEnvioEMail;
interface
uses
uBizAlbaranesProveedor, uAlbaranesProveedorController;
type
IDialogListaAlbaranesProvEnvioEMail = interface
['{CD839ABF-4653-4E24-9986-E73BD4E37200}']
function GetAlbaranes: IBizAlbaranProveedor;
procedure SetAlbaranes(const Value: IBizAlbaranProveedor);
property Albaranes: IBizAlbaranProveedor read GetAlbaranes write SetAlbaranes;
function ShowModal : Integer;
procedure Release;
end;
implementation
end.

206
Source/Modulos/Albaranes de proveedor/Controller/uAlbaranesProveedorController.pas
View File

@ -4,7 +4,7 @@ interface
uses
Classes, SysUtils, uDADataTable, uEditorDBItem,
SysUtils, uDADataTable, uEditorDBItem,
uControllerBase, uIDataModuleAlbaranesProveedor, uProveedoresController,
uDetallesAlbaranProveedorController, uBizAlbaranesProveedor,
uBizDireccionesContacto, uBizInventario, uViewGridBase;
@ -57,16 +57,6 @@ type
function Print(AAlbaran : IBizAlbaranProveedor; AllItems: Boolean = false): Boolean;
procedure Limpiardireccion(AAlbaran: IBizAlbaranProveedor);
function EnviarEmailAlbaranes(AAlbaranes : IBizAlbaranProveedor): Boolean;
function GenerarEmailAlbaran(AAlbaran : IBizAlbaranProveedor): Boolean;
function EnviarAlbaranPorEMail(AAlbaran: IBizAlbaranProveedor;
const AEnviarDirectamente: Boolean = True;
const ADireccionEMail: String = ''; const AAsuntoEMail: String = '';
const ATextoEMail: String = ''): Boolean;
function DarListaAnosAlbaranes: TStringList;
procedure FiltrarAno(AAlbaran: IBizAlbaranProveedor; AWhereDataTable: String; const Ano: String);
end;
TAlbaranesProveedorController = class(TObservador, IAlbaranesProveedorController)
@ -92,7 +82,6 @@ type
procedure FiltrarEmpresa(AAlbaran: IBizAlbaranProveedor);
function _Vacio : IBizAlbaranProveedor;
function ValidarAlbaran(AAlbaran: IBizAlbaranProveedor): Boolean;
procedure _AnadirMarcaEnvioCorreo(AAlbaran: IBizAlbaranProveedor);
public
property ProveedorController: IProveedoresController read GetProveedorController write SetProveedorController;
@ -120,7 +109,7 @@ type
procedure VerTodosAlbaranesDev(AAlbarans: IBizAlbaranProveedor);
procedure VerDireccionEntrega(AAlbaran : IBizAlbaranProveedor);
function Duplicar(AAlbaran: IBizAlbaranProveedor): IBizAlbaranProveedor;
function GenerarOrdenDev(AAlbaran: IBizAlbaranProveedor): IBizAlbaranProveedor;
function GenerarOrdenDev(AAlbaran: IBizAlbaranProveedor): IBizAlbaranProveedor;
procedure CopiarDireccionEnvio (const ADireccionEnvio: IBizDireccionesContacto;
AAlbaran: IBizAlbaranProveedor);
@ -136,16 +125,6 @@ type
function Print(AAlbaran : IBizAlbaranProveedor; AllItems: Boolean = false): Boolean;
procedure Limpiardireccion(AAlbaran: IBizAlbaranProveedor);
function EnviarEmailAlbaranes(AAlbaranes : IBizAlbaranProveedor): Boolean;
function GenerarEmailAlbaran(AAlbaran : IBizAlbaranProveedor): Boolean;
function EnviarAlbaranPorEMail(AAlbaran: IBizAlbaranProveedor;
const AEnviarDirectamente: Boolean = True;
const ADireccionEMail: String = ''; const AAsuntoEMail: String = '';
const ATextoEMail: String = ''): Boolean;
function DarListaAnosAlbaranes: TStringList;
procedure FiltrarAno(AAlbaran: IBizAlbaranProveedor; AWhereDataTable: String; const Ano: String);
end;
implementation
@ -158,10 +137,9 @@ uses
uIEditorElegirAlbaranesProveedor, uIEditorDireccionEntregaAlbaranProveedor,
schContactosClient_Intf, Forms, schPedidosProveedorClient_Intf,
uBizPedidosProveedor, uPedidosProveedorController, schInventarioClient_Intf,
uArticulosController, uBizArticulos, uControllerDetallesBase,
uArticulosController, uBizArticulos, uControllerDetallesBase, Classes,
schArticulosClient_Intf, uControllerDetallesArticulos, Variants, uDialogUtils,
uIEditorAlbaranDevProveedor, uAlbaranesProveedorReportController, uDataModuleRegistroCorreos,
uIDialogListaAlbaranesProvEnvioEMail, uSistemaFunc, uStringsUtils, uDialogElegirEMail, uEMailUtils;
uIEditorAlbaranDevProveedor, uAlbaranesProveedorReportController;
{ Métodos auxiliares }
@ -533,11 +511,6 @@ begin
Result := Supports(EditorRegistry.CreateEditor(AName), IID, Intf);
end;
function TAlbaranesProveedorController.DarListaAnosAlbaranes: TStringList;
begin
Result := FDataModule.GetAnosItems;
end;
procedure TAlbaranesProveedorController.DescartarCambios(AAlbaran: IBizAlbaranProveedor);
begin
if not Assigned(AAlbaran) then
@ -765,37 +738,6 @@ begin
end;
end;
procedure TAlbaranesProveedorController._AnadirMarcaEnvioCorreo(AAlbaran: IBizAlbaranProveedor);
var
ASoloLectura : Boolean;
begin
if not Assigned(AAlbaran) then
raise Exception.Create ('Albaran no asignado (_AnadirMarcaEnvioCorreo)');
if AAlbaran.DataTable.Active then
AAlbaran.DataTable.Active := True;
if AnadirMarcaEnvioCorreo(nme_AlbaranesProveedor, AAlbaran.ID) then
begin
DesconectarTabla(AAlbaran.DataTable);
try
ASoloLectura := AAlbaran.DataTable.ReadOnly;
if ASoloLectura then
SetDataTableReadOnly(AAlbaran.DataTable, False);
try
AAlbaran.Edit;
AAlbaran.NUM_CORREOS := AAlbaran.NUM_CORREOS + 1;
AAlbaran.Post;
finally
if ASoloLectura then
SetDataTableReadOnly(AAlbaran.DataTable, True);
end;
finally
ConectarTabla(AAlbaran.DataTable);
end;
end;
end;
function TAlbaranesProveedorController._Vacio: IBizAlbaranProveedor;
begin
Result := Buscar(ID_NULO);
@ -890,104 +832,6 @@ begin
HideHourglassCursor;
end;
end;
function TAlbaranesProveedorController.EnviarAlbaranPorEMail(
AAlbaran: IBizAlbaranProveedor; const AEnviarDirectamente: Boolean;
const ADireccionEMail, AAsuntoEMail, ATextoEMail: String): Boolean;
var
AReportController : IAlbaranesProveedorReportController;
AFicheroTMP : TFileName;
AEMail : String;
AAsunto : String;
AListaEmail : TStringList;
begin
if not Assigned(AAlbaran) then
raise Exception.Create ('Albaran no asignada (EnviarAlbaranPorEMail)');
if AAlbaran.DataTable.Active then
AAlbaran.DataTable.Active := True;
RecuperarProveedor(AAlbaran);
AAlbaran.Proveedor.DataTable.Active := True;
AFicheroTMP := DarFicheroPDFTemporal(EscapeIllegalChars(AAlbaran.REFERENCIA));
if not EsCadenaVacia(ADireccionEMail) then
AEMail := ADireccionEMail
else begin
AListaEmail := TStringList.Create;
try
if not EsCadenaVacia(AAlbaran.Proveedor.EMAIL_ADMINISTRACION) then
AListaEmail.Add(AAlbaran.Proveedor.EMAIL_ADMINISTRACION);
if not ElegirEMail(AListaEmail, AEMail) then
Exit;
finally
FreeANDNIL(AListaEmail);
end;
end;
if not EsCadenaVacia(AAsuntoEMail) then
AAsunto := AAsuntoEMail
else
begin
if (AAlbaran.TIPO = CTE_TIPO_ALBARAN_DEV) then
AAsunto := 'Orden devolución ' + AAlbaran.REFERENCIA
else
AAsunto := 'Albarán ' + AAlbaran.REFERENCIA;
end;
ShowHourglassCursor;
Application.ProcessMessages;
AReportController := TAlbaranesProveedorReportController.Create;
try
AReportController.ExportToPDF(AAlbaran.ID, AFicheroTMP);
Result := EnviarEMailMAPI(AAsunto, ATextoEMail, AFicheroTMP, '', '', AAlbaran.Proveedor.NOMBRE, AEMail, AEnviarDirectamente);
if Result then
_AnadirMarcaEnvioCorreo(AAlbaran);
finally
SysUtils.DeleteFile(AFicheroTMP);
AReportController := NIL;
HideHourglassCursor;
Application.ProcessMessages;
end;
end;
function TAlbaranesProveedorController.EnviarEmailAlbaranes(
AAlbaranes: IBizAlbaranProveedor): Boolean;
var
ADialog : IDialogListaAlbaranesProvEnvioEMail;
ARespuesta : Integer;
begin
ADialog := NIL;
if not Assigned(AAlbaranes) then
raise Exception.Create ('Albaranes no asignadas (EnviarAlbaranesProvPorEMail)');
if AAlbaranes.DataTable.Active then
AAlbaranes.DataTable.Active := True;
ShowHourglassCursor;
try
CreateEditor('DialogListaAlbaranesProvEnvioEMail', IDialogListaAlbaranesProvEnvioEMail, ADialog);
if Assigned(ADialog) then
begin
try
ADialog.Albaranes := AAlbaranes;
ARespuesta := ADialog.ShowModal;
Result := (ARespuesta = mrOK)
finally
ADialog.Release;
end;
end;
finally
ADialog := NIL;
HideHourglassCursor;
end;
end;
function TAlbaranesProveedorController.EsEliminable(AAlbaran: IBizAlbaranProveedor): Boolean;
begin
if not Assigned(AAlbaran) then
@ -1089,31 +933,6 @@ begin
end;
end;
procedure TAlbaranesProveedorController.FiltrarAno(AAlbaran: IBizAlbaranProveedor; AWhereDataTable: String; const Ano: String);
var
FechaIni: String;
FechaFin: String;
begin
AAlbaran.DataTable.Where.Clear;
AAlbaran.DataTable.Where.AddText(AWhereDataTable);
if (Ano <> 'Todos') then
begin
// Filtrar las facturas actuales por empresa
FechaIni := '01.01.' + Ano;
FechaFin := '31.12.' + Ano;
with AAlbaran.DataTable.Where do
begin
if NotEmpty then
AddOperator(opAND);
AddCondition(fld_AlbaranesProveedorFECHA_ALBARAN, cMajorOrEqual, FechaIni);
AddOperator(opAND);
AddCondition(fld_AlbaranesProveedorFECHA_ALBARAN, cLessOrEqual, FechaFin);
end;
end;
end;
procedure TAlbaranesProveedorController.FiltrarEmpresa(
AAlbaran: IBizAlbaranProveedor);
begin
@ -1306,23 +1125,6 @@ begin
Result := FProveedorController;
end;
function TAlbaranesProveedorController.GenerarEmailAlbaran(AAlbaran: IBizAlbaranProveedor): Boolean;
begin
if not Assigned(AAlbaran) then
raise Exception.Create ('Albaranes no asignadas (GenerarEmailAlbaran)');
if AAlbaran.DataTable.Active then
AAlbaran.DataTable.Active := True;
ShowHourglassCursor;
try
RecuperarProveedor(AAlbaran);
EnviarAlbaranPorEMail(AAlbaran, False, AAlbaran.Proveedor.EMAIL_ADMINISTRACION);
finally
HideHourglassCursor;
end;
end;
function TAlbaranesProveedorController.GenerarOrdenDev(AAlbaran: IBizAlbaranProveedor): IBizAlbaranProveedor;
var
AOrden : IBizAlbaranProveedor;

27
Source/Modulos/Albaranes de proveedor/Controller/uAlbaranesProveedorReportController.pas
View File

@ -12,7 +12,6 @@ type
['{AAE252CE-D407-4FF4-AF2A-350C5A421C89}']
procedure Preview(const AID : String);
function Print(const AID : String): Boolean;
function ExportToPDF(const AID: Integer; const AFileName : String = ''): Boolean;
end;
TAlbaranesProveedorReportController = class(TInterfacedObject, IAlbaranesProveedorReportController)
@ -25,7 +24,6 @@ type
procedure Preview(const AID : String);
function Print(const AID : String): Boolean;
function ExportToPDF(const AID: Integer; const AFileName : String = ''): Boolean;
end;
@ -34,7 +32,7 @@ implementation
uses
uROTypes, uEditorRegistryUtils, uIEditorAlbaranesProveedorPreview,
uEditorPreview, uDataModuleAlbaranesProveedor, uEditorBase, cxControls,
schAlbaranesProveedorClient_Intf, uStringsUtils;
schAlbaranesProveedorClient_Intf;
{ TAlbaranesProveedorReportController }
@ -56,29 +54,6 @@ begin
inherited;
end;
function TAlbaranesProveedorReportController.ExportToPDF(const AID: Integer;
const AFileName: String): Boolean;
var
AStream: Binary;
begin
Result := False;
if EsCadenaVacia(AFileName) then
Exit;
ShowHourglassCursor;
try
AStream := FDataModule.GetRptPDF(AID, True);
try
AStream.SaveToFile(AFileName);
Result := True;
finally
FreeAndNil(AStream);
end;
finally
HideHourglassCursor;
end;
end;
procedure TAlbaranesProveedorReportController.Preview(const AID : String);
var
AStream: Binary;

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

@ -614,17 +614,6 @@ object DataModuleAlbaranesProveedor: TDataModuleAlbaranesProveedor
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'NUM_CORREOS'
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end>
Params = <>
MasterMappingMode = mmDataRequest
@ -1020,113 +1009,4 @@ object DataModuleAlbaranesProveedor: TDataModuleAlbaranesProveedor
Left = 408
Top = 72
end
object tbl_ListaAnosAlbaranes: TDACDSDataTable
RemoteUpdatesOptions = []
Fields = <
item
Name = 'ANO'
DataType = datString
Size = 254
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end>
Params = <>
MasterMappingMode = mmDataRequest
StreamingOptions = [soDisableEventsWhileStreaming]
SchemaCall.MethodName = 'GetDatasetSchema'
SchemaCall.Params = <
item
Name = 'Result'
ParamType = fResult
DataType = rtBinary
end
item
Name = 'aDatasetName'
ParamType = fIn
DataType = rtString
Value = 'ListaAnosAlbaranes'
end>
DataRequestCall.MethodName = 'GetDatasetDataEx'
DataRequestCall.Params = <
item
Name = 'Result'
ParamType = fResult
DataType = rtBinary
end
item
Name = 'DatasetName'
ParamType = fIn
DataType = rtString
Value = 'ListaAnosAlbaranes'
end
item
Name = 'Params'
ParamType = fIn
DataType = rtUserDefined
UserClassName = 'TDADatasetParamArray'
end
item
Name = 'UserFilter'
ParamType = fIn
DataType = rtString
Value = ''
end
item
Name = 'IncludeSchema'
ParamType = fIn
DataType = rtBoolean
Value = False
end
item
Name = 'MaxRecords'
ParamType = fIn
DataType = rtInteger
Value = -1
end>
DataUpdateCall.MethodName = 'UpdateData'
DataUpdateCall.Params = <
item
Name = 'Result'
ParamType = fResult
DataType = rtBinary
end
item
Name = 'Delta'
ParamType = fIn
DataType = rtBinary
end>
ScriptCall.MethodName = 'GetDatasetScripts'
ScriptCall.Params = <
item
Name = 'Result'
ParamType = fResult
DataType = rtString
Value = ''
end
item
Name = 'DatasetNames'
ParamType = fIn
DataType = rtString
Value = 'ListaAnosAlbaranes'
end>
ReadOnly = False
RemoteService = RORemoteService
Adapter = DABinAdapter
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'ListaAnosAlbaranes'
IndexDefs = <>
Left = 264
Top = 280
end
object ds_ListaAnosAlbaranes: TDADataSource
DataTable = tbl_ListaAnosAlbaranes
Left = 264
Top = 224
end
end

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

@ -21,8 +21,6 @@ type
ds_AlbaranesProveedor: TDADataSource;
tbl_AlbaranesProveedor_Detalles: TDACDSDataTable;
ds_AlbaranesProveedor_Detalles: TDADataSource;
tbl_ListaAnosAlbaranes: TDACDSDataTable;
ds_ListaAnosAlbaranes: TDADataSource;
procedure DAClientDataModuleCreate(Sender: TObject);
private
@ -40,9 +38,6 @@ type
// Report
function GetReport(const AID: String): Binary;
function GetRptPDF(const AID: Integer; const ShowLogotipo: Boolean = False): Binary;
function GetAnosItems : TStringList;
end;
implementation
@ -84,20 +79,6 @@ begin
Result := (RORemoteService as IsrvAlbaranesProveedor).GenerateReport(AID)
end;
function TDataModuleAlbaranesProveedor.GetRptPDF(const AID: Integer;
const ShowLogotipo: Boolean): Binary;
var
AParam : TIntegerArray;
begin
AParam := TIntegerArray.Create;
try
AParam.Add(AID);
Result := (RORemoteService as IsrvAlbaranesProveedor).GenerarReportPDF(AParam, ShowLogotipo)
finally
FreeANDNIL(AParam)
end;
end;
function TDataModuleAlbaranesProveedor.NewItem: IBizAlbaranProveedor;
begin
Result := GetItem(ID_NULO)
@ -133,30 +114,6 @@ begin
end;
end;
function TDataModuleAlbaranesProveedor.GetAnosItems: TStringList;
var
AListaAnos: TStringList;
begin
AListaAnos := TStringList.Create;
ShowHourglassCursor;
try
with tbl_ListaAnosAlbaranes do
begin
Open;
First;
while not eof do
begin
AListaAnos.Add(Format('%s=%s', [Fields[0].AsString, Fields[0].AsString]));
Next;
end;
Close;
end;
Result := AListaAnos;
finally
HideHourglassCursor;
end;
end;
function TDataModuleAlbaranesProveedor.GetItem(const ID: Integer): IBizAlbaranProveedor;
begin
ShowHourglassCursor;

3
Source/Modulos/Albaranes de proveedor/Model/Data/uIDataModuleAlbaranesProveedor.pas
View File

@ -3,12 +3,11 @@ unit uIDataModuleAlbaranesProveedor;
interface
uses
Classes, uBizAlbaranesProveedor;
uBizAlbaranesProveedor;
type
IDataModuleAlbaranesProveedor = interface
['{2BAD8B3B-B57D-475C-B528-F82B320B2332}']
function GetAnosItems : TStringList;
function GetItems: IBizAlbaranProveedor;
function GetItem(const ID : Integer) : IBizAlbaranProveedor;
function GetNextID(const DataSetName : String) : Integer;

1
Source/Modulos/Albaranes de proveedor/Model/Data/uIDataModuleAlbaranesProveedorReport.pas
View File

@ -9,7 +9,6 @@ type
IDataModuleAlbaranesProveedorReport = interface
['{AF3C54C4-A892-46FD-9689-081A637DE321}']
function GetReport(const AID: String): Binary;
function GetRptPDF(const AID: Integer; const ShowLogotipo: Boolean = False): Binary;
end;
implementation

116
Source/Modulos/Albaranes de proveedor/Model/schAlbaranesProveedorClient_Intf.pas
View File

@ -9,27 +9,19 @@ const
{ Data table rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_ListaAnosAlbaranes = '{EE6F2F2C-59BC-4A82-B178-DDF4B5B69A3B}';
RID_DarReferencia = '{21DE2CF6-8692-4441-ABB7-CF287400758B}';
RID_AlbaranesProveedor = '{1B88CDE3-408C-45A3-B107-D0710ECCB27A}';
RID_AlbaranesProveedor_Detalles = '{F763B958-71F8-47CB-9679-92266890CEC6}';
RID_AlbaranesProveedor_Detalles_Refresh = '{4FFEBC17-83DE-48C5-A30C-12D90245BEE1}';
RID_AlbaranesProveedor_Refresh = '{71A438CD-A51E-40B1-8AF6-447EF6EE35C2}';
RID_DarReferencia = '{15891F28-6D5E-412C-892D-1474FB348E4B}';
RID_AlbaranesProveedor = '{DC59E1B6-DFB0-4D9D-8F36-D5458362B1F4}';
RID_AlbaranesProveedor_Detalles = '{6999036F-7208-46EC-A3FE-24E093E76C10}';
RID_AlbaranesProveedor_Detalles_Refresh = '{68EED4B4-6B94-44D1-B148-484D3F17BD25}';
RID_AlbaranesProveedor_Refresh = '{5A91B693-39A1-44F3-A104-266FEDD74D48}';
{ Data table names }
nme_ListaAnosAlbaranes = 'ListaAnosAlbaranes';
nme_DarReferencia = 'DarReferencia';
nme_AlbaranesProveedor = 'AlbaranesProveedor';
nme_AlbaranesProveedor_Detalles = 'AlbaranesProveedor_Detalles';
nme_AlbaranesProveedor_Detalles_Refresh = 'AlbaranesProveedor_Detalles_Refresh';
nme_AlbaranesProveedor_Refresh = 'AlbaranesProveedor_Refresh';
{ ListaAnosAlbaranes fields }
fld_ListaAnosAlbaranesANO = 'ANO';
{ ListaAnosAlbaranes field indexes }
idx_ListaAnosAlbaranesANO = 0;
{ DarReferencia fields }
fld_DarReferenciaVALOR = 'VALOR';
@ -78,7 +70,6 @@ const
fld_AlbaranesProveedorREFERENCIA_ALB_DEV = 'REFERENCIA_ALB_DEV';
fld_AlbaranesProveedorID_FAC_ALB_DEV = 'ID_FAC_ALB_DEV';
fld_AlbaranesProveedorREFERENCIA_FAC_ALB_DEV = 'REFERENCIA_FAC_ALB_DEV';
fld_AlbaranesProveedorNUM_CORREOS = 'NUM_CORREOS';
{ AlbaranesProveedor field indexes }
idx_AlbaranesProveedorID = 0;
@ -122,7 +113,6 @@ const
idx_AlbaranesProveedorREFERENCIA_ALB_DEV = 38;
idx_AlbaranesProveedorID_FAC_ALB_DEV = 39;
idx_AlbaranesProveedorREFERENCIA_FAC_ALB_DEV = 40;
idx_AlbaranesProveedorNUM_CORREOS = 41;
{ AlbaranesProveedor_Detalles fields }
fld_AlbaranesProveedor_DetallesID = 'ID';
@ -234,7 +224,6 @@ const
fld_AlbaranesProveedor_RefreshREFERENCIA_ALB_DEV = 'REFERENCIA_ALB_DEV';
fld_AlbaranesProveedor_RefreshID_FAC_ALB_DEV = 'ID_FAC_ALB_DEV';
fld_AlbaranesProveedor_RefreshREFERENCIA_FAC_ALB_DEV = 'REFERENCIA_FAC_ALB_DEV';
fld_AlbaranesProveedor_RefreshNUM_CORREOS = 'NUM_CORREOS';
{ AlbaranesProveedor_Refresh field indexes }
idx_AlbaranesProveedor_RefreshID = 0;
@ -278,41 +267,11 @@ const
idx_AlbaranesProveedor_RefreshREFERENCIA_ALB_DEV = 38;
idx_AlbaranesProveedor_RefreshID_FAC_ALB_DEV = 39;
idx_AlbaranesProveedor_RefreshREFERENCIA_FAC_ALB_DEV = 40;
idx_AlbaranesProveedor_RefreshNUM_CORREOS = 41;
type
{ IListaAnosAlbaranes }
IListaAnosAlbaranes = interface(IDAStronglyTypedDataTable)
['{43CA430C-125E-48EB-A695-17952EF4F5E4}']
{ Property getters and setters }
function GetANOValue: String;
procedure SetANOValue(const aValue: String);
{ Properties }
property ANO: String read GetANOValue write SetANOValue;
end;
{ TListaAnosAlbaranesDataTableRules }
TListaAnosAlbaranesDataTableRules = class(TDADataTableRules, IListaAnosAlbaranes)
private
protected
{ Property getters and setters }
function GetANOValue: String; virtual;
procedure SetANOValue(const aValue: String); virtual;
{ Properties }
property ANO: String read GetANOValue write SetANOValue;
public
constructor Create(aDataTable: TDADataTable); override;
destructor Destroy; override;
end;
{ IDarReferencia }
IDarReferencia = interface(IDAStronglyTypedDataTable)
['{29352567-15EE-447C-A805-9FD838BF2E02}']
['{ED8EACC9-271E-41C8-A0D0-62B0FD223968}']
{ Property getters and setters }
function GetVALORValue: String;
procedure SetVALORValue(const aValue: String);
@ -341,7 +300,7 @@ type
{ IAlbaranesProveedor }
IAlbaranesProveedor = interface(IDAStronglyTypedDataTable)
['{C1FFE5AC-6527-4F94-8550-6B1DF2F389EA}']
['{8777095F-0468-45FC-8B30-50CEB28FFDEA}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -425,8 +384,6 @@ type
procedure SetID_FAC_ALB_DEVValue(const aValue: Integer);
function GetREFERENCIA_FAC_ALB_DEVValue: String;
procedure SetREFERENCIA_FAC_ALB_DEVValue(const aValue: String);
function GetNUM_CORREOSValue: Integer;
procedure SetNUM_CORREOSValue(const aValue: Integer);
{ Properties }
@ -471,7 +428,6 @@ type
property REFERENCIA_ALB_DEV: String read GetREFERENCIA_ALB_DEVValue write SetREFERENCIA_ALB_DEVValue;
property ID_FAC_ALB_DEV: Integer read GetID_FAC_ALB_DEVValue write SetID_FAC_ALB_DEVValue;
property REFERENCIA_FAC_ALB_DEV: String read GetREFERENCIA_FAC_ALB_DEVValue write SetREFERENCIA_FAC_ALB_DEVValue;
property NUM_CORREOS: Integer read GetNUM_CORREOSValue write SetNUM_CORREOSValue;
end;
{ TAlbaranesProveedorDataTableRules }
@ -561,8 +517,6 @@ type
procedure SetID_FAC_ALB_DEVValue(const aValue: Integer); virtual;
function GetREFERENCIA_FAC_ALB_DEVValue: String; virtual;
procedure SetREFERENCIA_FAC_ALB_DEVValue(const aValue: String); virtual;
function GetNUM_CORREOSValue: Integer; virtual;
procedure SetNUM_CORREOSValue(const aValue: Integer); virtual;
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
@ -606,7 +560,6 @@ type
property REFERENCIA_ALB_DEV: String read GetREFERENCIA_ALB_DEVValue write SetREFERENCIA_ALB_DEVValue;
property ID_FAC_ALB_DEV: Integer read GetID_FAC_ALB_DEVValue write SetID_FAC_ALB_DEVValue;
property REFERENCIA_FAC_ALB_DEV: String read GetREFERENCIA_FAC_ALB_DEVValue write SetREFERENCIA_FAC_ALB_DEVValue;
property NUM_CORREOS: Integer read GetNUM_CORREOSValue write SetNUM_CORREOSValue;
public
constructor Create(aDataTable: TDADataTable); override;
@ -616,7 +569,7 @@ type
{ IAlbaranesProveedor_Detalles }
IAlbaranesProveedor_Detalles = interface(IDAStronglyTypedDataTable)
['{55C5E54E-7364-4A06-AA23-A6F98E41B72E}']
['{C3058BD1-A788-4CB7-A157-1E57895DA4F1}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -729,7 +682,7 @@ type
{ IAlbaranesProveedor_Detalles_Refresh }
IAlbaranesProveedor_Detalles_Refresh = interface(IDAStronglyTypedDataTable)
['{718E5287-E155-487D-BFA2-31450B9EE8D0}']
['{44F9FCAE-FD1F-4178-B9E2-5B4DB40B22A9}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -842,7 +795,7 @@ type
{ IAlbaranesProveedor_Refresh }
IAlbaranesProveedor_Refresh = interface(IDAStronglyTypedDataTable)
['{BED01443-54F6-4998-9BEF-647345BF7472}']
['{C77EF452-D5BC-4905-BF2B-C1F34E3FB831}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -926,8 +879,6 @@ type
procedure SetID_FAC_ALB_DEVValue(const aValue: Integer);
function GetREFERENCIA_FAC_ALB_DEVValue: String;
procedure SetREFERENCIA_FAC_ALB_DEVValue(const aValue: String);
function GetNUM_CORREOSValue: Integer;
procedure SetNUM_CORREOSValue(const aValue: Integer);
{ Properties }
@ -972,7 +923,6 @@ type
property REFERENCIA_ALB_DEV: String read GetREFERENCIA_ALB_DEVValue write SetREFERENCIA_ALB_DEVValue;
property ID_FAC_ALB_DEV: Integer read GetID_FAC_ALB_DEVValue write SetID_FAC_ALB_DEVValue;
property REFERENCIA_FAC_ALB_DEV: String read GetREFERENCIA_FAC_ALB_DEVValue write SetREFERENCIA_FAC_ALB_DEVValue;
property NUM_CORREOS: Integer read GetNUM_CORREOSValue write SetNUM_CORREOSValue;
end;
{ TAlbaranesProveedor_RefreshDataTableRules }
@ -1062,8 +1012,6 @@ type
procedure SetID_FAC_ALB_DEVValue(const aValue: Integer); virtual;
function GetREFERENCIA_FAC_ALB_DEVValue: String; virtual;
procedure SetREFERENCIA_FAC_ALB_DEVValue(const aValue: String); virtual;
function GetNUM_CORREOSValue: Integer; virtual;
procedure SetNUM_CORREOSValue(const aValue: Integer); virtual;
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
@ -1107,7 +1055,6 @@ type
property REFERENCIA_ALB_DEV: String read GetREFERENCIA_ALB_DEVValue write SetREFERENCIA_ALB_DEVValue;
property ID_FAC_ALB_DEV: Integer read GetID_FAC_ALB_DEVValue write SetID_FAC_ALB_DEVValue;
property REFERENCIA_FAC_ALB_DEV: String read GetREFERENCIA_FAC_ALB_DEVValue write SetREFERENCIA_FAC_ALB_DEVValue;
property NUM_CORREOS: Integer read GetNUM_CORREOSValue write SetNUM_CORREOSValue;
public
constructor Create(aDataTable: TDADataTable); override;
@ -1119,28 +1066,6 @@ implementation
uses Variants;
{ TListaAnosAlbaranesDataTableRules }
constructor TListaAnosAlbaranesDataTableRules.Create(aDataTable: TDADataTable);
begin
inherited;
end;
destructor TListaAnosAlbaranesDataTableRules.Destroy;
begin
inherited;
end;
function TListaAnosAlbaranesDataTableRules.GetANOValue: String;
begin
result := DataTable.Fields[idx_ListaAnosAlbaranesANO].AsString;
end;
procedure TListaAnosAlbaranesDataTableRules.SetANOValue(const aValue: String);
begin
DataTable.Fields[idx_ListaAnosAlbaranesANO].AsString := aValue;
end;
{ TDarReferenciaDataTableRules }
constructor TDarReferenciaDataTableRules.Create(aDataTable: TDADataTable);
begin
@ -1586,16 +1511,6 @@ begin
DataTable.Fields[idx_AlbaranesProveedorREFERENCIA_FAC_ALB_DEV].AsString := aValue;
end;
function TAlbaranesProveedorDataTableRules.GetNUM_CORREOSValue: Integer;
begin
result := DataTable.Fields[idx_AlbaranesProveedorNUM_CORREOS].AsInteger;
end;
procedure TAlbaranesProveedorDataTableRules.SetNUM_CORREOSValue(const aValue: Integer);
begin
DataTable.Fields[idx_AlbaranesProveedorNUM_CORREOS].AsInteger := aValue;
end;
{ TAlbaranesProveedor_DetallesDataTableRules }
constructor TAlbaranesProveedor_DetallesDataTableRules.Create(aDataTable: TDADataTable);
@ -2344,19 +2259,8 @@ begin
DataTable.Fields[idx_AlbaranesProveedor_RefreshREFERENCIA_FAC_ALB_DEV].AsString := aValue;
end;
function TAlbaranesProveedor_RefreshDataTableRules.GetNUM_CORREOSValue: Integer;
begin
result := DataTable.Fields[idx_AlbaranesProveedor_RefreshNUM_CORREOS].AsInteger;
end;
procedure TAlbaranesProveedor_RefreshDataTableRules.SetNUM_CORREOSValue(const aValue: Integer);
begin
DataTable.Fields[idx_AlbaranesProveedor_RefreshNUM_CORREOS].AsInteger := aValue;
end;
initialization
RegisterDataTableRules(RID_ListaAnosAlbaranes, TListaAnosAlbaranesDataTableRules);
RegisterDataTableRules(RID_DarReferencia, TDarReferenciaDataTableRules);
RegisterDataTableRules(RID_AlbaranesProveedor, TAlbaranesProveedorDataTableRules);
RegisterDataTableRules(RID_AlbaranesProveedor_Detalles, TAlbaranesProveedor_DetallesDataTableRules);

122
Source/Modulos/Albaranes de proveedor/Model/schAlbaranesProveedorServer_Intf.pas
View File

@ -9,46 +9,16 @@ const
{ Delta rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_ListaAnosAlbaranesDelta = '{50AFF5A5-FA78-49E8-A9B5-619AB87C6965}';
RID_DarReferenciaDelta = '{5BAE3A56-16AA-4BF1-883D-F7C3BD61177D}';
RID_AlbaranesProveedorDelta = '{12351137-EB50-45F3-BC78-6553ED19A50D}';
RID_AlbaranesProveedor_DetallesDelta = '{FA3E4A53-4AEF-40BF-9044-7661D2F3FC0D}';
RID_AlbaranesProveedor_Detalles_RefreshDelta = '{5831679B-4C77-4189-A6B4-767A14A0EB27}';
RID_AlbaranesProveedor_RefreshDelta = '{8D93E3B8-0E2D-41C2-BD26-DA07D07D790E}';
RID_DarReferenciaDelta = '{97B34AA4-C89F-4EF5-BD14-EAC025E8DE2A}';
RID_AlbaranesProveedorDelta = '{4C2884E6-A902-4C13-8217-86E1044EE171}';
RID_AlbaranesProveedor_DetallesDelta = '{14A26AA3-09EB-432C-84C0-B5BE48912937}';
RID_AlbaranesProveedor_Detalles_RefreshDelta = '{C18290F7-22E0-4F13-9F16-5B5B0F4F526A}';
RID_AlbaranesProveedor_RefreshDelta = '{74DBC27B-B1F7-4C31-9DB8-8DAC6066D9E8}';
type
{ IListaAnosAlbaranesDelta }
IListaAnosAlbaranesDelta = interface(IListaAnosAlbaranes)
['{50AFF5A5-FA78-49E8-A9B5-619AB87C6965}']
{ Property getters and setters }
function GetOldANOValue : String;
{ Properties }
property OldANO : String read GetOldANOValue;
end;
{ TListaAnosAlbaranesBusinessProcessorRules }
TListaAnosAlbaranesBusinessProcessorRules = class(TDABusinessProcessorRules, IListaAnosAlbaranes, IListaAnosAlbaranesDelta)
private
protected
{ Property getters and setters }
function GetANOValue: String; virtual;
function GetOldANOValue: String; virtual;
procedure SetANOValue(const aValue: String); virtual;
{ Properties }
property ANO : String read GetANOValue write SetANOValue;
property OldANO : String read GetOldANOValue;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
destructor Destroy; override;
end;
{ IDarReferenciaDelta }
IDarReferenciaDelta = interface(IDarReferencia)
['{5BAE3A56-16AA-4BF1-883D-F7C3BD61177D}']
['{97B34AA4-C89F-4EF5-BD14-EAC025E8DE2A}']
{ Property getters and setters }
function GetOldVALORValue : String;
@ -77,7 +47,7 @@ type
{ IAlbaranesProveedorDelta }
IAlbaranesProveedorDelta = interface(IAlbaranesProveedor)
['{12351137-EB50-45F3-BC78-6553ED19A50D}']
['{4C2884E6-A902-4C13-8217-86E1044EE171}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@ -120,7 +90,6 @@ type
function GetOldREFERENCIA_ALB_DEVValue : String;
function GetOldID_FAC_ALB_DEVValue : Integer;
function GetOldREFERENCIA_FAC_ALB_DEVValue : String;
function GetOldNUM_CORREOSValue : Integer;
{ Properties }
property OldID : Integer read GetOldIDValue;
@ -164,7 +133,6 @@ type
property OldREFERENCIA_ALB_DEV : String read GetOldREFERENCIA_ALB_DEVValue;
property OldID_FAC_ALB_DEV : Integer read GetOldID_FAC_ALB_DEVValue;
property OldREFERENCIA_FAC_ALB_DEV : String read GetOldREFERENCIA_FAC_ALB_DEVValue;
property OldNUM_CORREOS : Integer read GetOldNUM_CORREOSValue;
end;
{ TAlbaranesProveedorBusinessProcessorRules }
@ -295,9 +263,6 @@ type
function GetREFERENCIA_FAC_ALB_DEVValue: String; virtual;
function GetOldREFERENCIA_FAC_ALB_DEVValue: String; virtual;
procedure SetREFERENCIA_FAC_ALB_DEVValue(const aValue: String); virtual;
function GetNUM_CORREOSValue: Integer; virtual;
function GetOldNUM_CORREOSValue: Integer; virtual;
procedure SetNUM_CORREOSValue(const aValue: Integer); virtual;
{ Properties }
property ID : Integer read GetIDValue write SetIDValue;
@ -382,8 +347,6 @@ type
property OldID_FAC_ALB_DEV : Integer read GetOldID_FAC_ALB_DEVValue;
property REFERENCIA_FAC_ALB_DEV : String read GetREFERENCIA_FAC_ALB_DEVValue write SetREFERENCIA_FAC_ALB_DEVValue;
property OldREFERENCIA_FAC_ALB_DEV : String read GetOldREFERENCIA_FAC_ALB_DEVValue;
property NUM_CORREOS : Integer read GetNUM_CORREOSValue write SetNUM_CORREOSValue;
property OldNUM_CORREOS : Integer read GetOldNUM_CORREOSValue;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -393,7 +356,7 @@ type
{ IAlbaranesProveedor_DetallesDelta }
IAlbaranesProveedor_DetallesDelta = interface(IAlbaranesProveedor_Detalles)
['{FA3E4A53-4AEF-40BF-9044-7661D2F3FC0D}']
['{14A26AA3-09EB-432C-84C0-B5BE48912937}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_ALBARANValue : Integer;
@ -520,7 +483,7 @@ type
{ IAlbaranesProveedor_Detalles_RefreshDelta }
IAlbaranesProveedor_Detalles_RefreshDelta = interface(IAlbaranesProveedor_Detalles_Refresh)
['{5831679B-4C77-4189-A6B4-767A14A0EB27}']
['{C18290F7-22E0-4F13-9F16-5B5B0F4F526A}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_ALBARANValue : Integer;
@ -647,7 +610,7 @@ type
{ IAlbaranesProveedor_RefreshDelta }
IAlbaranesProveedor_RefreshDelta = interface(IAlbaranesProveedor_Refresh)
['{8D93E3B8-0E2D-41C2-BD26-DA07D07D790E}']
['{74DBC27B-B1F7-4C31-9DB8-8DAC6066D9E8}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@ -690,7 +653,6 @@ type
function GetOldREFERENCIA_ALB_DEVValue : String;
function GetOldID_FAC_ALB_DEVValue : Integer;
function GetOldREFERENCIA_FAC_ALB_DEVValue : String;
function GetOldNUM_CORREOSValue : Integer;
{ Properties }
property OldID : Integer read GetOldIDValue;
@ -734,7 +696,6 @@ type
property OldREFERENCIA_ALB_DEV : String read GetOldREFERENCIA_ALB_DEVValue;
property OldID_FAC_ALB_DEV : Integer read GetOldID_FAC_ALB_DEVValue;
property OldREFERENCIA_FAC_ALB_DEV : String read GetOldREFERENCIA_FAC_ALB_DEVValue;
property OldNUM_CORREOS : Integer read GetOldNUM_CORREOSValue;
end;
{ TAlbaranesProveedor_RefreshBusinessProcessorRules }
@ -865,9 +826,6 @@ type
function GetREFERENCIA_FAC_ALB_DEVValue: String; virtual;
function GetOldREFERENCIA_FAC_ALB_DEVValue: String; virtual;
procedure SetREFERENCIA_FAC_ALB_DEVValue(const aValue: String); virtual;
function GetNUM_CORREOSValue: Integer; virtual;
function GetOldNUM_CORREOSValue: Integer; virtual;
procedure SetNUM_CORREOSValue(const aValue: Integer); virtual;
{ Properties }
property ID : Integer read GetIDValue write SetIDValue;
@ -952,8 +910,6 @@ type
property OldID_FAC_ALB_DEV : Integer read GetOldID_FAC_ALB_DEVValue;
property REFERENCIA_FAC_ALB_DEV : String read GetREFERENCIA_FAC_ALB_DEVValue write SetREFERENCIA_FAC_ALB_DEVValue;
property OldREFERENCIA_FAC_ALB_DEV : String read GetOldREFERENCIA_FAC_ALB_DEVValue;
property NUM_CORREOS : Integer read GetNUM_CORREOSValue write SetNUM_CORREOSValue;
property OldNUM_CORREOS : Integer read GetOldNUM_CORREOSValue;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -966,33 +922,6 @@ implementation
uses
Variants, uROBinaryHelpers;
{ TListaAnosAlbaranesBusinessProcessorRules }
constructor TListaAnosAlbaranesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
begin
inherited;
end;
destructor TListaAnosAlbaranesBusinessProcessorRules.Destroy;
begin
inherited;
end;
function TListaAnosAlbaranesBusinessProcessorRules.GetANOValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ListaAnosAlbaranesANO];
end;
function TListaAnosAlbaranesBusinessProcessorRules.GetOldANOValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ListaAnosAlbaranesANO];
end;
procedure TListaAnosAlbaranesBusinessProcessorRules.SetANOValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ListaAnosAlbaranesANO] := aValue;
end;
{ TDarReferenciaBusinessProcessorRules }
constructor TDarReferenciaBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
begin
@ -1650,21 +1579,6 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorREFERENCIA_FAC_ALB_DEV] := aValue;
end;
function TAlbaranesProveedorBusinessProcessorRules.GetNUM_CORREOSValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorNUM_CORREOS];
end;
function TAlbaranesProveedorBusinessProcessorRules.GetOldNUM_CORREOSValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedorNUM_CORREOS];
end;
procedure TAlbaranesProveedorBusinessProcessorRules.SetNUM_CORREOSValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorNUM_CORREOS] := aValue;
end;
{ TAlbaranesProveedor_DetallesBusinessProcessorRules }
constructor TAlbaranesProveedor_DetallesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
@ -2770,24 +2684,8 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshREFERENCIA_FAC_ALB_DEV] := aValue;
end;
function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetNUM_CORREOSValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshNUM_CORREOS];
end;
function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetOldNUM_CORREOSValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_RefreshNUM_CORREOS];
end;
procedure TAlbaranesProveedor_RefreshBusinessProcessorRules.SetNUM_CORREOSValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshNUM_CORREOS] := aValue;
end;
initialization
RegisterBusinessProcessorRules(RID_ListaAnosAlbaranesDelta, TListaAnosAlbaranesBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_DarReferenciaDelta, TDarReferenciaBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_AlbaranesProveedorDelta, TAlbaranesProveedorBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_AlbaranesProveedor_DetallesDelta, TAlbaranesProveedor_DetallesBusinessProcessorRules);

Some files were not shown because too many files have changed in this diff Show More