Compare commits
64 Commits
| Author | SHA1 | Date | |
|---|---|---|---|
| 005ad1b637 | |||
| a94bd81b86 | |||
| 3faefc433d | |||
| faae54253c | |||
| 025b5ad823 | |||
| a1d83665c2 | |||
| db942ffa79 | |||
| fde328f775 | |||
| 773bb811d3 | |||
| a5db1dab14 | |||
| 36497dc456 | |||
| 98685a8e1d | |||
| ca4e178ab5 | |||
| b1b8def6eb | |||
| 8c42ef1f80 | |||
| 2df919ad37 | |||
| 3d656d4e2b | |||
| 72c7795cb3 | |||
| 347c202cb3 | |||
| 0c1b87a136 | |||
| f053b73d66 | |||
| babfd1fe48 | |||
| c83756255b | |||
| 96c436f1d9 | |||
| d018b53431 | |||
| 1a50e8079c | |||
| 0bd6255af8 | |||
| ab106540f3 | |||
| d1cc146bae | |||
| 2c68928503 | |||
| 61996caa03 | |||
| c7e8b89e41 | |||
| 0844f2cb7d | |||
| 5d1ba11799 | |||
| 073d29872a | |||
| 73fc0f45a2 | |||
| 5d716410f0 | |||
| c41fa8eb0f | |||
| 8c8efb17fb | |||
| c25908891b | |||
| bcf82f8833 | |||
| 523de01d77 | |||
| e918358544 | |||
| 8e748ddc7f | |||
| 929485d207 | |||
| d1ff7c3690 | |||
| 46bb97ed57 | |||
| ec5e7e3b2d | |||
| 99410f0272 | |||
| 3e0bcba9e4 | |||
| b14718b5ad | |||
| 1713b2b4a9 | |||
| 8edf3d7026 | |||
| e84aca044e | |||
| 9f7d7df6d1 | |||
| fa50cd7e2a | |||
| f146ff560d | |||
| a501958189 | |||
| 27e40864a2 | |||
| 9738b2cc39 | |||
| 2c31aa24b7 | |||
| c9d18a1e39 | |||
| ab8e38d08b | |||
| 817c4fc88f |
BIN
Build/Build.fbl6
Normal file
BIN
Build/Build.fbl6
Normal file
Binary file not shown.
21530
Build/Build.fbp5
21530
Build/Build.fbp5
File diff suppressed because it is too large
Load Diff
@ -1 +0,0 @@
|
||||
<variables><DELPHI><![CDATA[C:\Archivos de programa\Borland\Delphi10\bin\dcc32.exe]]></DELPHI></variables>
|
||||
BIN
Build/Build.fbz6
Normal file
BIN
Build/Build.fbz6
Normal file
Binary file not shown.
BIN
Build/Installer.fbl6
Normal file
BIN
Build/Installer.fbl6
Normal file
Binary file not shown.
1758
Build/Installer.fbp5
1758
Build/Installer.fbp5
File diff suppressed because it is too large
Load Diff
@ -1 +0,0 @@
|
||||
<variables><project_path><![CDATA[C:\Codigo Luis Leon]]></project_path></variables>
|
||||
BIN
Build/Installer.fbz6
Normal file
BIN
Build/Installer.fbz6
Normal file
Binary file not shown.
BIN
Build/UploadFTP.fbl6
Normal file
BIN
Build/UploadFTP.fbl6
Normal file
Binary file not shown.
@ -1,715 +0,0 @@
|
||||
<?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">True</Property>
|
||||
<Property name="CheckFileSizes" type="Boolean">False</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">True</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">False</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
Normal file
BIN
Build/UploadFTP.fbz6
Normal file
Binary file not shown.
Binary file not shown.
@ -1,32 +0,0 @@
|
||||
ALTER TABLE ALBARANES_CLIENTE_DETALLES
|
||||
ADD ID_PEDIDO TIPO_ID;
|
||||
|
||||
update albaranes_cliente_detalles
|
||||
set id_pedido = (select albaranes_cliente.id_pedido
|
||||
from albaranes_cliente
|
||||
where albaranes_cliente.id = albaranes_cliente_detalles.ID_ALBARAN);
|
||||
|
||||
ALTER TABLE ALBARANES_PROVEEDOR_DETALLES
|
||||
ADD ID_PEDIDO TIPO_ID;
|
||||
|
||||
update albaranes_proveedor_detalles
|
||||
set id_pedido = (select albaranes_proveedor.id_pedido
|
||||
from albaranes_proveedor
|
||||
where albaranes_proveedor.id = albaranes_proveedor_detalles.ID_ALBARAN);
|
||||
|
||||
|
||||
|
||||
|
||||
CREATE TRIGGER FACTURAS_CLIENTE_DELETE FOR FACTURAS_CLIENTE
|
||||
ACTIVE BEFORE DELETE POSITION 0
|
||||
AS
|
||||
begin
|
||||
update albaranes_cliente
|
||||
set albaranes_cliente.fecha_recepcion = null
|
||||
where albaranes_cliente.id_factura = id_factura;
|
||||
end
|
||||
^
|
||||
|
||||
|
||||
SET TERM ; ^
|
||||
|
||||
@ -85,7 +85,9 @@ 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;
|
||||
@ -175,7 +177,6 @@ CREATE VIEW V_CLIENTES(
|
||||
ID_AGENTE,
|
||||
GRUPO_CLIENTE,
|
||||
NOMBRE_COMERCIAL,
|
||||
VENCIMIENTO_FACTURAS,
|
||||
BLOQUEADO,
|
||||
REGIMEN_IVA,
|
||||
MOTIVO_BLOQUEO,
|
||||
@ -184,7 +185,11 @@ CREATE VIEW V_CLIENTES(
|
||||
ID_FORMA_PAGO,
|
||||
TIENDA_WEB,
|
||||
AGENTE,
|
||||
RAPEL)
|
||||
RAPEL,
|
||||
EMAIL_ADMINISTRACION,
|
||||
VENCIMIENTO_FACTURAS_1,
|
||||
VENCIMIENTO_FACTURAS_2,
|
||||
VENCIMIENTO_FACTURAS_3)
|
||||
AS
|
||||
SELECT
|
||||
V_CONTACTOS.ID,
|
||||
@ -212,7 +217,6 @@ 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,
|
||||
@ -221,7 +225,12 @@ SELECT
|
||||
CLIENTES_DATOS.ID_FORMA_PAGO,
|
||||
CLIENTES_DATOS.TIENDA_WEB,
|
||||
CONTACTOS.NOMBRE AS AGENTE,
|
||||
CLIENTES_DATOS.RAPEL
|
||||
CLIENTES_DATOS.RAPEL,
|
||||
CLIENTES_DATOS.EMAIL_ADMINISTRACION,
|
||||
CLIENTES_DATOS.VENCIMIENTO_FACTURAS_1,
|
||||
CLIENTES_DATOS.VENCIMIENTO_FACTURAS_2,
|
||||
CLIENTES_DATOS.VENCIMIENTO_FACTURAS_3
|
||||
|
||||
FROM
|
||||
V_CONTACTOS
|
||||
LEFT OUTER JOIN CLIENTES_DATOS ON (V_CONTACTOS.ID = CLIENTES_DATOS.ID_CLIENTE)
|
||||
@ -257,7 +266,11 @@ CREATE VIEW V_PROVEEDORES(
|
||||
REGIMEN_IVA,
|
||||
ID_TIPO_IVA,
|
||||
ID_FORMA_PAGO,
|
||||
TIENDA_WEB)
|
||||
TIENDA_WEB,
|
||||
EMAIL_ADMINISTRACION,
|
||||
VENCIMIENTO_FACTURAS_1,
|
||||
VENCIMIENTO_FACTURAS_2,
|
||||
VENCIMIENTO_FACTURAS_3)
|
||||
AS
|
||||
SELECT
|
||||
V_CONTACTOS.ID,
|
||||
@ -286,7 +299,12 @@ SELECT
|
||||
PROVEEDORES_DATOS.REGIMEN_IVA,
|
||||
PROVEEDORES_DATOS.ID_TIPO_IVA,
|
||||
PROVEEDORES_DATOS.ID_FORMA_PAGO,
|
||||
PROVEEDORES_DATOS.TIENDA_WEB
|
||||
PROVEEDORES_DATOS.TIENDA_WEB,
|
||||
PROVEEDORES_DATOS.EMAIL_ADMINISTRACION,
|
||||
PROVEEDORES_DATOS.VENCIMIENTO_FACTURAS_1,
|
||||
PROVEEDORES_DATOS.VENCIMIENTO_FACTURAS_2,
|
||||
PROVEEDORES_DATOS.VENCIMIENTO_FACTURAS_3
|
||||
|
||||
FROM
|
||||
PROVEEDORES_DATOS
|
||||
INNER JOIN V_CONTACTOS ON (PROVEEDORES_DATOS.ID_PROVEEDOR = V_CONTACTOS.ID)
|
||||
@ -294,6 +312,7 @@ WHERE
|
||||
V_CONTACTOS.ID_CATEGORIA = 2;
|
||||
|
||||
|
||||
|
||||
CREATE VIEW V_ALBARANES_PROVEEDOR(
|
||||
ID,
|
||||
ID_EMPRESA,
|
||||
@ -303,6 +322,10 @@ CREATE VIEW V_ALBARANES_PROVEEDOR(
|
||||
REFERENCIA,
|
||||
REFERENCIA_PROVEEDOR,
|
||||
TIPO,
|
||||
ID_ALBARAN_DEV,
|
||||
REFERENCIA_ALB_DEV,
|
||||
ID_FAC_ALB_DEV,
|
||||
REFERENCIA_FAC_ALB_DEV,
|
||||
ID_ALMACEN,
|
||||
NOMBRE_ALMACEN,
|
||||
ID_PEDIDO,
|
||||
@ -330,7 +353,9 @@ CREATE VIEW V_ALBARANES_PROVEEDOR(
|
||||
FECHA_ALTA,
|
||||
FECHA_MODIFICACION,
|
||||
USUARIO,
|
||||
ID_FORMA_PAGO)
|
||||
ID_FORMA_PAGO,
|
||||
NUM_COPIAS,
|
||||
NUM_CORREOS)
|
||||
AS
|
||||
SELECT
|
||||
ALBARANES_PROVEEDOR.ID,
|
||||
@ -341,6 +366,10 @@ SELECT
|
||||
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,
|
||||
@ -368,13 +397,22 @@ SELECT
|
||||
ALBARANES_PROVEEDOR.FECHA_ALTA,
|
||||
ALBARANES_PROVEEDOR.FECHA_MODIFICACION,
|
||||
ALBARANES_PROVEEDOR.USUARIO,
|
||||
ALBARANES_PROVEEDOR.ID_FORMA_PAGO
|
||||
ALBARANES_PROVEEDOR.ID_FORMA_PAGO,
|
||||
IMPRESIONES.NUM_COPIAS,
|
||||
REGISTRO_CORREOS.NUM_CORREOS
|
||||
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 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'))
|
||||
;
|
||||
|
||||
|
||||
CREATE VIEW V_AGENTES(
|
||||
@ -446,8 +484,7 @@ LEFT JOIN RECIBOS_CLIENTE
|
||||
ON (RECIBOS_CLIENTE.ID_FACTURA = FACTURAS_CLIENTE.ID)
|
||||
GROUP BY FACTURAS_CLIENTE.ID;
|
||||
|
||||
|
||||
CREATE VIEW V_REC_PRO_SITUACION(
|
||||
CREATE VIEW V_REC_PRO_SIT_SINCOMPENSAR(
|
||||
ID_RECIBO,
|
||||
SITUACION)
|
||||
AS
|
||||
@ -461,8 +498,21 @@ 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_SITUACION(
|
||||
|
||||
CREATE VIEW V_REC_CLI_SIT_SINCOMPENSAR(
|
||||
ID_RECIBO,
|
||||
SITUACION)
|
||||
AS
|
||||
@ -474,7 +524,21 @@ END
|
||||
FROM RECIBOS_CLIENTE
|
||||
LEFT JOIN PAGOS_CLIENTE
|
||||
ON (PAGOS_CLIENTE.ID_RECIBO = RECIBOS_CLIENTE.ID)
|
||||
GROUP BY 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);
|
||||
|
||||
|
||||
CREATE VIEW V_REC_PRO_COMPENSADOS (
|
||||
@ -525,11 +589,7 @@ SELECT RECIBOS_PROVEEDOR.ID,
|
||||
RECIBO_COMPENSADO1.REFERENCIA,
|
||||
RECIBOS_PROVEEDOR.REFERENCIA,
|
||||
RECIBOS_PROVEEDOR.REFERENCIA_PROVEEDOR,
|
||||
CASE
|
||||
WHEN RECIBOS_PROVEEDOR.ID_RECIBO_COMPENSADO IS NULL
|
||||
THEN V_REC_PRO_SITUACION.SITUACION
|
||||
ELSE RECIBO_COMPENSADO2.SITUACION
|
||||
END,
|
||||
V_REC_PRO_SITUACION.SITUACION,
|
||||
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,
|
||||
@ -564,8 +624,7 @@ 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 (
|
||||
@ -607,17 +666,15 @@ CREATE VIEW V_RECIBOS_CLIENTE(
|
||||
CUENTA_CLIENTE,
|
||||
FECHA_ALTA,
|
||||
FECHA_MODIFICACION,
|
||||
USUARIO)
|
||||
USUARIO,
|
||||
NUM_COPIAS,
|
||||
NUM_CORREOS)
|
||||
AS
|
||||
SELECT RECIBOS_CLIENTE.ID,
|
||||
RECIBOS_CLIENTE.ID_RECIBO_COMPENSADO,
|
||||
RECIBO_COMPENSADO1.REFERENCIA,
|
||||
RECIBOS_CLIENTE.REFERENCIA,
|
||||
CASE
|
||||
WHEN RECIBOS_CLIENTE.ID_RECIBO_COMPENSADO IS NULL
|
||||
THEN V_REC_CLI_SITUACION.SITUACION
|
||||
ELSE RECIBO_COMPENSADO2.SITUACION
|
||||
END,
|
||||
V_REC_CLI_SITUACION.SITUACION,
|
||||
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,
|
||||
@ -632,7 +689,9 @@ SELECT RECIBOS_CLIENTE.ID,
|
||||
|
||||
RECIBOS_CLIENTE.FECHA_ALTA,
|
||||
RECIBOS_CLIENTE.FECHA_MODIFICACION,
|
||||
RECIBOS_CLIENTE.USUARIO
|
||||
RECIBOS_CLIENTE.USUARIO,
|
||||
IMPRESIONES.NUM_COPIAS,
|
||||
REGISTRO_CORREOS.NUM_CORREOS
|
||||
|
||||
FROM RECIBOS_CLIENTE
|
||||
LEFT JOIN V_REC_CLI_SITUACION
|
||||
@ -651,31 +710,35 @@ 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 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'))
|
||||
LEFT JOIN REGISTRO_CORREOS
|
||||
ON ((REGISTRO_CORREOS.ID_TABLA = RECIBOS_CLIENTE.ID) AND (REGISTRO_CORREOS.TABLA = 'RECIBOSCLIENTE'))
|
||||
;
|
||||
|
||||
|
||||
|
||||
CREATE VIEW V_REMESAS_CLIENTE(
|
||||
ID,
|
||||
ID_EMPRESA,
|
||||
REFERENCIA,
|
||||
TIPO,
|
||||
FECHA_REMESA,
|
||||
DESCRIPCION,
|
||||
ID_DATOS_BANCO,
|
||||
FECHA_ALTA,
|
||||
FECHA_MODIFICACION,
|
||||
USUARIO,
|
||||
NOMBRE,
|
||||
ENTIDAD,
|
||||
SUCURSAL,
|
||||
DC,
|
||||
CUENTA,
|
||||
SUFIJO_N19,
|
||||
SUFIJO_N58,
|
||||
IMPORTE_TOTAL)
|
||||
AS
|
||||
ID,
|
||||
ID_EMPRESA,
|
||||
REFERENCIA,
|
||||
TIPO,
|
||||
FECHA_REMESA,
|
||||
DESCRIPCION,
|
||||
ID_DATOS_BANCO,
|
||||
FECHA_ALTA,
|
||||
FECHA_MODIFICACION,
|
||||
USUARIO,
|
||||
NOMBRE,
|
||||
ENTIDAD,
|
||||
SUCURSAL,
|
||||
DC,
|
||||
CUENTA,
|
||||
SUFIJO_N19,
|
||||
SUFIJO_N58,
|
||||
NUM_COPIAS,
|
||||
IMPORTE_TOTAL)
|
||||
AS
|
||||
SELECT
|
||||
REMESAS_CLIENTE.ID,
|
||||
REMESAS_CLIENTE.ID_EMPRESA,
|
||||
@ -694,6 +757,7 @@ SELECT
|
||||
EMPRESAS_DATOS_BANCO.CUENTA,
|
||||
EMPRESAS_DATOS_BANCO.SUFIJO_N19,
|
||||
EMPRESAS_DATOS_BANCO.SUFIJO_N58,
|
||||
IMPRESIONES.NUM_COPIAS,
|
||||
SUM(COALESCE(RECIBOS_CLIENTE.IMPORTE,0) + COALESCE(RECIBOS_CLIENTE.OTROS_GASTOS,0) + COALESCE(V_REC_CLI_COMPENSADOS.IMPORTE_TOTAL_COMPENSADO,0)) as IMPORTE_TOTAL
|
||||
|
||||
FROM
|
||||
@ -701,7 +765,8 @@ FROM
|
||||
LEFT OUTER JOIN EMPRESAS_DATOS_BANCO ON (EMPRESAS_DATOS_BANCO.ID = REMESAS_CLIENTE.ID_DATOS_BANCO)
|
||||
LEFT OUTER JOIN RECIBOS_CLIENTE ON (RECIBOS_CLIENTE.ID_REMESA = REMESAS_CLIENTE.ID)
|
||||
LEFT OUTER JOIN V_REC_CLI_COMPENSADOS ON (V_REC_CLI_COMPENSADOS.ID_RECIBO = RECIBOS_CLIENTE.ID)
|
||||
GROUP BY 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17;
|
||||
LEFT JOIN IMPRESIONES ON ((IMPRESIONES.ID_TABLA = REMESAS_CLIENTE.ID) AND (IMPRESIONES.TABLA = 'REMESASCLIENTE'))
|
||||
GROUP BY 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18;
|
||||
|
||||
|
||||
|
||||
@ -803,7 +868,9 @@ CREATE VIEW V_FACTURAS_PROVEEDOR(
|
||||
RECARGO_EQUIVALENCIA,
|
||||
ID_TIPO_IVA,
|
||||
IMPORTE_NETO,
|
||||
IMPORTE_PORTE)
|
||||
IMPORTE_PORTE,
|
||||
NUM_COPIAS,
|
||||
NUM_CORREOS)
|
||||
AS
|
||||
SELECT FACTURAS_PROVEEDOR.ID,
|
||||
FACTURAS_PROVEEDOR.ID_EMPRESA,
|
||||
@ -835,49 +902,59 @@ SELECT FACTURAS_PROVEEDOR.ID,
|
||||
FACTURAS_PROVEEDOR.RECARGO_EQUIVALENCIA,
|
||||
FACTURAS_PROVEEDOR.ID_TIPO_IVA,
|
||||
FACTURAS_PROVEEDOR.IMPORTE_NETO,
|
||||
FACTURAS_PROVEEDOR.IMPORTE_PORTE
|
||||
FACTURAS_PROVEEDOR.IMPORTE_PORTE,
|
||||
IMPRESIONES.NUM_COPIAS,
|
||||
REGISTRO_CORREOS.NUM_CORREOS
|
||||
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);
|
||||
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'))
|
||||
;
|
||||
|
||||
|
||||
CREATE VIEW V_FACTURAS_CLIENTE(
|
||||
ID,
|
||||
ID_EMPRESA,
|
||||
REFERENCIA,
|
||||
TIPO,
|
||||
ID_COMISION_LIQUIDADA,
|
||||
FECHA_FACTURA,
|
||||
SITUACION,
|
||||
BASE_IMPONIBLE,
|
||||
DESCUENTO,
|
||||
IMPORTE_DESCUENTO,
|
||||
IVA,
|
||||
IMPORTE_IVA,
|
||||
RE,
|
||||
IMPORTE_RE,
|
||||
IMPORTE_TOTAL,
|
||||
OBSERVACIONES,
|
||||
ID_CLIENTE,
|
||||
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,
|
||||
ID_AGENTE,
|
||||
REFERENCIA_COMISION)
|
||||
AS
|
||||
ID,
|
||||
ID_EMPRESA,
|
||||
REFERENCIA,
|
||||
TIPO,
|
||||
ID_COMISION_LIQUIDADA,
|
||||
FECHA_FACTURA,
|
||||
SITUACION,
|
||||
BASE_IMPONIBLE,
|
||||
DESCUENTO,
|
||||
IMPORTE_DESCUENTO,
|
||||
DESCRIPCION_DESCUENTO,
|
||||
IVA,
|
||||
IMPORTE_IVA,
|
||||
RE,
|
||||
IMPORTE_RE,
|
||||
IMPORTE_TOTAL,
|
||||
OBSERVACIONES,
|
||||
ID_CLIENTE,
|
||||
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,
|
||||
ID_AGENTE,
|
||||
REFERENCIA_COMISION,
|
||||
NUM_COPIAS,
|
||||
NUM_CORREOS)
|
||||
AS
|
||||
SELECT FACTURAS_CLIENTE.ID,
|
||||
FACTURAS_CLIENTE.ID_EMPRESA,
|
||||
FACTURAS_CLIENTE.REFERENCIA,
|
||||
@ -888,6 +965,7 @@ 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,
|
||||
@ -910,14 +988,21 @@ SELECT FACTURAS_CLIENTE.ID,
|
||||
FACTURAS_CLIENTE.IMPORTE_NETO,
|
||||
FACTURAS_CLIENTE.IMPORTE_PORTE,
|
||||
CLIENTES_DATOS.ID_AGENTE,
|
||||
COMISIONES_LIQUIDADAS.REFERENCIA
|
||||
COMISIONES_LIQUIDADAS.REFERENCIA,
|
||||
IMPRESIONES.NUM_COPIAS,
|
||||
REGISTRO_CORREOS.NUM_CORREOS
|
||||
FROM V_FAC_CLI_SITUACION
|
||||
LEFT JOIN FACTURAS_CLIENTE
|
||||
ON (FACTURAS_CLIENTE.ID = V_FAC_CLI_SITUACION.ID_FACTURA)
|
||||
LEFT JOIN COMISIONES_LIQUIDADAS
|
||||
ON (COMISIONES_LIQUIDADAS.ID = FACTURAS_CLIENTE.ID_COMISION_LIQUIDADA)
|
||||
LEFT JOIN CLIENTES_DATOS
|
||||
ON (CLIENTES_DATOS.ID_CLIENTE = FACTURAS_CLIENTE.ID_CLIENTE);
|
||||
ON (CLIENTES_DATOS.ID_CLIENTE = FACTURAS_CLIENTE.ID_CLIENTE)
|
||||
LEFT JOIN IMPRESIONES
|
||||
ON ((IMPRESIONES.ID_TABLA = FACTURAS_CLIENTE.ID) AND (IMPRESIONES.TABLA = 'FACTURASCLIENTE'))
|
||||
LEFT JOIN REGISTRO_CORREOS
|
||||
ON ((REGISTRO_CORREOS.ID_TABLA = FACTURAS_CLIENTE.ID) AND (REGISTRO_CORREOS.TABLA = 'FACTURASCLIENTE'));
|
||||
|
||||
|
||||
|
||||
CREATE VIEW V_AGENTES_COMISIONES_DET_FAC(
|
||||
@ -974,6 +1059,7 @@ SELECT ALBARANES_CLIENTE.ID,
|
||||
end as SITUACION
|
||||
FROM ALBARANES_CLIENTE;
|
||||
|
||||
|
||||
CREATE VIEW V_ALBARANES_CLIENTE(
|
||||
ID,
|
||||
ID_EMPRESA,
|
||||
@ -983,6 +1069,10 @@ CREATE VIEW V_ALBARANES_CLIENTE(
|
||||
REFERENCIA,
|
||||
REFERENCIA_CLIENTE,
|
||||
TIPO,
|
||||
ID_ALBARAN_DEV,
|
||||
REFERENCIA_ALB_DEV,
|
||||
ID_FAC_ALB_DEV,
|
||||
REFERENCIA_FAC_ALB_DEV,
|
||||
SITUACION,
|
||||
ID_ALMACEN,
|
||||
NOMBRE_ALMACEN,
|
||||
@ -1015,7 +1105,10 @@ CREATE VIEW V_ALBARANES_CLIENTE(
|
||||
FECHA_ENVIO,
|
||||
FECHA_RECEPCION,
|
||||
ID_AGENTE,
|
||||
AGENTE)
|
||||
AGENTE,
|
||||
NUM_COPIAS,
|
||||
NUM_CORREOS,
|
||||
BLOQUEADO)
|
||||
AS
|
||||
SELECT
|
||||
ALBARANES_CLIENTE.ID,
|
||||
@ -1026,6 +1119,10 @@ SELECT
|
||||
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,
|
||||
@ -1058,17 +1155,27 @@ SELECT
|
||||
ALBARANES_CLIENTE.FECHA_ENVIO,
|
||||
ALBARANES_CLIENTE.FECHA_RECEPCION,
|
||||
CLIENTES_DATOS.ID_AGENTE,
|
||||
AGENTES.NOMBRE
|
||||
AGENTES.NOMBRE,
|
||||
IMPRESIONES.NUM_COPIAS,
|
||||
REGISTRO_CORREOS.NUM_CORREOS,
|
||||
CLIENTES_DATOS.BLOQUEADO
|
||||
|
||||
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 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'))
|
||||
;
|
||||
|
||||
|
||||
/*Agrupa los artículos de un mismo albarán (ya que en un albarán puede existir varias lineas con el mismo artículo).
|
||||
@ -1298,7 +1405,7 @@ CREATE VIEW V_PED_CLI_ART_SIN_ALBARAN(
|
||||
PRECION_NETO)
|
||||
AS
|
||||
SELECT
|
||||
V_PED_CLI_ARTICULOS.ID_PEDIDO || V_PED_CLI_ARTICULOS.ID_ARTICULO as ID, /*Para tener un ID unico sobre el que poder consultar en la sentencia de selección del grid*/
|
||||
V_PED_CLI_ARTICULOS.ID_PEDIDO || 0 || V_PED_CLI_ARTICULOS.ID_ARTICULO as ID, /*Para tener un ID unico sobre el que poder consultar en la sentencia de selección del grid*/
|
||||
V_PED_CLI_ARTICULOS.ID_PEDIDO,
|
||||
PEDIDOS_CLIENTE.ID_EMPRESA,
|
||||
PEDIDOS_CLIENTE.referencia,
|
||||
@ -1571,7 +1678,7 @@ CREATE VIEW V_PED_PROV_ART_SIN_ALBARAN(
|
||||
PRECIO_PORTE)
|
||||
AS
|
||||
SELECT
|
||||
V_PED_PROV_ARTICULOS.ID_PEDIDO || V_PED_PROV_ARTICULOS.ID_ARTICULO as ID, /*Para tener un ID unico sobre el que poder consultar en la sentencia de selección del grid*/
|
||||
V_PED_PROV_ARTICULOS.ID_PEDIDO || 0 || V_PED_PROV_ARTICULOS.ID_ARTICULO as ID, /*Para tener un ID unico sobre el que poder consultar en la sentencia de selección del grid*/
|
||||
V_PED_PROV_ARTICULOS.ID_PEDIDO,
|
||||
PEDIDOS_PROVEEDOR.ID_EMPRESA,
|
||||
PEDIDOS_PROVEEDOR.referencia,
|
||||
@ -1667,14 +1774,16 @@ CREATE VIEW V_PEDIDOS_CLIENTE(
|
||||
IMPORTE_IVA,
|
||||
IMPORTE_TOTAL,
|
||||
ID_FORMA_PAGO,
|
||||
REF_TIENDA_WEB,
|
||||
FECHA_PREVISTA_ENVIO)
|
||||
REF_TIENDA_WEB,
|
||||
FECHA_PREVISTA_ENVIO,
|
||||
NUM_COPIAS,
|
||||
NUM_CORREOS)
|
||||
AS
|
||||
SELECT
|
||||
PEDIDOS_CLIENTE.ID,
|
||||
PEDIDOS_CLIENTE.ID_EMPRESA,
|
||||
PEDIDOS_CLIENTE.ID_CLIENTE,
|
||||
V_CLIENTES.NOMBRE,
|
||||
CONTACTOS.NOMBRE,
|
||||
PEDIDOS_CLIENTE.REFERENCIA,
|
||||
PEDIDOS_CLIENTE.REFERENCIA_CLIENTE,
|
||||
V_PED_CLI_SITUACION.SITUACION,
|
||||
@ -1701,11 +1810,18 @@ SELECT
|
||||
PEDIDOS_CLIENTE.IMPORTE_TOTAL,
|
||||
PEDIDOS_CLIENTE.ID_FORMA_PAGO,
|
||||
PEDIDOS_CLIENTE.REF_TIENDA_WEB,
|
||||
PEDIDOS_CLIENTE.FECHA_PREVISTA_ENVIO
|
||||
PEDIDOS_CLIENTE.FECHA_PREVISTA_ENVIO,
|
||||
IMPRESIONES.NUM_COPIAS,
|
||||
REGISTRO_CORREOS.NUM_CORREOS
|
||||
FROM
|
||||
V_PED_CLI_SITUACION
|
||||
INNER JOIN PEDIDOS_CLIENTE ON (PEDIDOS_CLIENTE.ID = V_PED_CLI_SITUACION.ID_PEDIDO)
|
||||
INNER JOIN V_CLIENTES ON (PEDIDOS_CLIENTE.ID_CLIENTE = V_CLIENTES.ID);
|
||||
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'))
|
||||
;
|
||||
|
||||
|
||||
CREATE VIEW V_PEDIDOS_PROVEEDOR(
|
||||
@ -1743,13 +1859,15 @@ CREATE VIEW V_PEDIDOS_PROVEEDOR(
|
||||
BASE_IMPONIBLE,
|
||||
IVA,
|
||||
IMPORTE_IVA,
|
||||
ID_FORMA_PAGO)
|
||||
ID_FORMA_PAGO,
|
||||
NUM_COPIAS,
|
||||
NUM_CORREOS)
|
||||
AS
|
||||
SELECT
|
||||
PEDIDOS_PROVEEDOR.ID,
|
||||
PEDIDOS_PROVEEDOR.ID_EMPRESA,
|
||||
PEDIDOS_PROVEEDOR.ID_PROVEEDOR,
|
||||
V_PROVEEDORES.NOMBRE,
|
||||
CONTACTOS.NOMBRE,
|
||||
PEDIDOS_PROVEEDOR.REFERENCIA,
|
||||
V_PED_PROV_SITUACION.SITUACION,
|
||||
PEDIDOS_PROVEEDOR.FECHA_ENVIO,
|
||||
@ -1780,31 +1898,20 @@ SELECT
|
||||
PEDIDOS_PROVEEDOR.BASE_IMPONIBLE,
|
||||
PEDIDOS_PROVEEDOR.IVA,
|
||||
PEDIDOS_PROVEEDOR.IMPORTE_IVA,
|
||||
PEDIDOS_PROVEEDOR.ID_FORMA_PAGO
|
||||
PEDIDOS_PROVEEDOR.ID_FORMA_PAGO,
|
||||
IMPRESIONES.NUM_COPIAS,
|
||||
REGISTRO_CORREOS.NUM_CORREOS
|
||||
FROM
|
||||
PEDIDOS_PROVEEDOR
|
||||
INNER JOIN V_PROVEEDORES ON (PEDIDOS_PROVEEDOR.ID_PROVEEDOR = V_PROVEEDORES.ID)
|
||||
INNER JOIN COnTACTOS ON (PEDIDOS_PROVEEDOR.ID_PROVEEDOR = CONTACTOS.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 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'))
|
||||
;
|
||||
|
||||
|
||||
CREATE VIEW V_PED_CLI_ART_PEND_PEDIR_PROV(
|
||||
@ -2268,25 +2375,26 @@ AND (ARTICULOS.INVENTARIABLE = 1);
|
||||
|
||||
|
||||
CREATE VIEW V_REMESAS_PROVEEDOR(
|
||||
ID,
|
||||
ID_EMPRESA,
|
||||
REFERENCIA,
|
||||
TIPO,
|
||||
FECHA_REMESA,
|
||||
DESCRIPCION,
|
||||
ID_DATOS_BANCO,
|
||||
FECHA_ALTA,
|
||||
FECHA_MODIFICACION,
|
||||
USUARIO,
|
||||
NOMBRE,
|
||||
ENTIDAD,
|
||||
SUCURSAL,
|
||||
DC,
|
||||
CUENTA,
|
||||
SUFIJO_N19,
|
||||
SUFIJO_N58,
|
||||
IMPORTE_TOTAL)
|
||||
AS
|
||||
ID,
|
||||
ID_EMPRESA,
|
||||
REFERENCIA,
|
||||
TIPO,
|
||||
FECHA_REMESA,
|
||||
DESCRIPCION,
|
||||
ID_DATOS_BANCO,
|
||||
FECHA_ALTA,
|
||||
FECHA_MODIFICACION,
|
||||
USUARIO,
|
||||
NOMBRE,
|
||||
ENTIDAD,
|
||||
SUCURSAL,
|
||||
DC,
|
||||
CUENTA,
|
||||
SUFIJO_N19,
|
||||
SUFIJO_N58,
|
||||
NUM_COPIAS,
|
||||
IMPORTE_TOTAL)
|
||||
AS
|
||||
SELECT
|
||||
REMESAS_PROVEEDOR.ID,
|
||||
REMESAS_PROVEEDOR.ID_EMPRESA,
|
||||
@ -2305,14 +2413,17 @@ SELECT
|
||||
EMPRESAS_DATOS_BANCO.CUENTA,
|
||||
EMPRESAS_DATOS_BANCO.SUFIJO_N19,
|
||||
EMPRESAS_DATOS_BANCO.SUFIJO_N58,
|
||||
SUM(COALESCE(RECIBOS_PROVEEDOR.IMPORTE,0) + COALESCE(RECIBOS_PROVEEDOR.OTROS_GASTOS,0) + COALESCE(V_REC_PRO_COMPENSADOS.IMPORTE_TOTAL_COMPENSADO,0)) as IMPORTE_TOTAL
|
||||
IMPRESIONES.NUM_COPIAS,
|
||||
SUM(COALESCE(RECIBOS_PROVEEDOR.IMPORTE,0) + COALESCE(RECIBOS_PROVEEDOR.OTROS_GASTOS,0) + COALESCE(V_REC_PRO_COMPENSADOS.IMPORTE_TOTAL_COMPENSADO,0)) as IMPORTE_TOTAL
|
||||
|
||||
FROM
|
||||
REMESAS_PROVEEDOR
|
||||
LEFT OUTER JOIN EMPRESAS_DATOS_BANCO ON (EMPRESAS_DATOS_BANCO.ID = REMESAS_PROVEEDOR.ID_DATOS_BANCO)
|
||||
LEFT OUTER JOIN RECIBOS_PROVEEDOR ON (RECIBOS_PROVEEDOR.ID_REMESA = REMESAS_PROVEEDOR.ID)
|
||||
LEFT OUTER JOIN V_REC_PRO_COMPENSADOS ON (V_REC_PRO_COMPENSADOS.ID_RECIBO = RECIBOS_PROVEEDOR.ID)
|
||||
GROUP BY 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17;
|
||||
LEFT JOIN IMPRESIONES ON ((IMPRESIONES.ID_TABLA = REMESAS_PROVEEDOR.ID) AND (IMPRESIONES.TABLA = 'REMESASPROVEEDOR'))
|
||||
GROUP BY 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18;
|
||||
|
||||
|
||||
|
||||
/*Vista para ver para quien estan reservados los articulos del inventario*/
|
||||
@ -2732,4 +2843,4 @@ on ((AGENTES_COMISIONES.ID_AGENTE = AGENTES.ID) and (AGENTES_COMISIONES.ID_PROVE
|
||||
|
||||
where (FACTURAS_CLIENTE_DETALLES.ID_ARTICULO is not null) and (FACTURAS_CLIENTE_DETALLES.ID_ARTICULO > 0) /*Quitamos conceptos libres*/
|
||||
/*and (FACTURAS_CLIENTE_DETALLES.cantidad > 0) Quitamos los abonos*/
|
||||
and (ARTICULOS.INVENTARIABLE = 1);
|
||||
and (ARTICULOS.INVENTARIABLE = 1);
|
||||
|
||||
@ -17,7 +17,12 @@ 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';
|
||||
|
||||
|
||||
/******************************************************************************/
|
||||
@ -60,6 +65,8 @@ VARCHAR(20);
|
||||
/**** Generators ****/
|
||||
/******************************************************************************/
|
||||
|
||||
CREATE GENERATOR GEN_IMPRESIONES_ID;
|
||||
CREATE GENERATOR GEN_REGISTRO_CORREOS_ID;
|
||||
CREATE GENERATOR GEN_AGENTES_COMISIONES_ID;
|
||||
CREATE GENERATOR GEN_ALBARANES_CLI_DETALLES_ID;
|
||||
CREATE GENERATOR GEN_ALBARANES_CLI_ID;
|
||||
@ -105,6 +112,19 @@ CREATE GENERATOR GEN_USUARIOS_ID;
|
||||
/**** Tables ****/
|
||||
/******************************************************************************/
|
||||
|
||||
CREATE TABLE IMPRESIONES(
|
||||
ID TIPO_ID NOT NULL,
|
||||
ID_TABLA TIPO_ID,
|
||||
TABLA VARCHAR(50) COLLATE ES_ES,
|
||||
NUM_COPIAS SMALLINT
|
||||
);
|
||||
|
||||
CREATE TABLE REGISTRO_CORREOS (
|
||||
ID TIPO_ID NOT NULL /* TIPO_ID = INTEGER */,
|
||||
ID_TABLA TIPO_ID /* TIPO_ID = INTEGER */,
|
||||
TABLA VARCHAR(50) COLLATE ES_ES,
|
||||
NUM_CORREOS SMALLINT
|
||||
);
|
||||
|
||||
|
||||
CREATE TABLE AGENTES_COMISIONES (
|
||||
@ -149,7 +169,8 @@ CREATE TABLE ALBARANES_CLIENTE (
|
||||
FECHA_RECEPCION DATE,
|
||||
FECHA_PREVISTA_ENVIO DATE,
|
||||
REFERENCIA_CLIENTE VARCHAR(255) COLLATE ES_ES,
|
||||
TIPO VARCHAR(1)
|
||||
TIPO VARCHAR(1),
|
||||
ID_ALBARAN_DEV TIPO_ID
|
||||
);
|
||||
|
||||
|
||||
@ -204,7 +225,8 @@ CREATE TABLE ALBARANES_PROVEEDOR (
|
||||
IMPORTE_PORTE TIPO_IMPORTE,
|
||||
REFERENCIA_PROVEEDOR VARCHAR(255),
|
||||
REF_FACTURA_PROV VARCHAR(255),
|
||||
TIPO VARCHAR(1)
|
||||
TIPO VARCHAR(1),
|
||||
ID_ALBARAN_DEV TIPO_ID
|
||||
);
|
||||
|
||||
|
||||
@ -288,7 +310,8 @@ CREATE TABLE CLIENTES_DATOS (
|
||||
ID_TIPO_IVA TIPO_ID,
|
||||
ID_FORMA_PAGO TIPO_ID,
|
||||
TIENDA_WEB TIPO_BOOLEANO,
|
||||
RAPEL SMALLINT
|
||||
RAPEL SMALLINT,
|
||||
EMAIL_ADMINISTRACION VARCHAR(255)
|
||||
);
|
||||
|
||||
|
||||
@ -448,6 +471,7 @@ 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,
|
||||
@ -747,7 +771,8 @@ CREATE TABLE PROVEEDORES_DATOS (
|
||||
REGIMEN_IVA VARCHAR(255),
|
||||
ID_TIPO_IVA TIPO_ID,
|
||||
ID_FORMA_PAGO TIPO_ID,
|
||||
TIENDA_WEB TIPO_BOOLEANO
|
||||
TIENDA_WEB TIPO_BOOLEANO,
|
||||
EMAIL_ADMINISTRACION VARCHAR(255)
|
||||
);
|
||||
|
||||
|
||||
@ -989,6 +1014,7 @@ SET GENERATOR GEN_FORMAS_PAGO_PLAZOS_ID TO 80;
|
||||
/**** Primary Keys ****/
|
||||
/******************************************************************************/
|
||||
|
||||
ALTER TABLE IMPRESIONES ADD CONSTRAINT PK_IMPRESIONES PRIMARY KEY (ID);
|
||||
ALTER TABLE AGENTES_COMISIONES ADD CONSTRAINT PK_AGENTES_COMISIONES PRIMARY KEY (ID);
|
||||
ALTER TABLE ALBARANES_CLIENTE ADD CONSTRAINT PK_ALBARAN_CLIENTE PRIMARY KEY (ID);
|
||||
ALTER TABLE ALBARANES_CLIENTE_DETALLES ADD CONSTRAINT PK_ALBARANES_CLIENTE_DETALLES PRIMARY KEY (ID);
|
||||
@ -1032,6 +1058,7 @@ ALTER TABLE REMESAS_PROVEEDOR ADD CONSTRAINT PK_REMESAS_PROVEEDOR PRIMARY KEY (I
|
||||
ALTER TABLE TIENDA_WEB ADD CONSTRAINT PK_TIENDA_WEB PRIMARY KEY (ID);
|
||||
ALTER TABLE TIPOS_IVA ADD PRIMARY KEY (ID);
|
||||
ALTER TABLE USUARIOS ADD CONSTRAINT PK_USUARIOS PRIMARY KEY (ID);
|
||||
ALTER TABLE REGISTRO_CORREOS ADD CONSTRAINT PK_REGISTRO_CORREOS PRIMARY KEY (ID);
|
||||
|
||||
|
||||
/******************************************************************************/
|
||||
@ -1077,6 +1104,10 @@ ALTER TABLE TIENDA_WEB ADD CONSTRAINT FK_EMPRESAS_TIENDA_WEB FOREIGN KEY (ID_EMP
|
||||
/**** Indices ****/
|
||||
/******************************************************************************/
|
||||
|
||||
CREATE INDEX IMPRESIONES_IDX1 ON IMPRESIONES(ID_TABLA);
|
||||
CREATE INDEX IMPRESIONES_IDX2 ON IMPRESIONES(TABLA);
|
||||
CREATE INDEX REGISTRO_CORREOS_IDX1 ON REGISTRO_CORREOS (ID_TABLA);
|
||||
CREATE INDEX REGISTRO_CORREOS_IDX2 ON REGISTRO_CORREOS (TABLA);
|
||||
CREATE INDEX IDX_AGENTES_COMISIONES1 ON AGENTES_COMISIONES (ID_AGENTE);
|
||||
CREATE INDEX IDX_AGENTES_COMISIONES2 ON AGENTES_COMISIONES (ID_PROVEEDOR);
|
||||
CREATE INDEX ALBARANES_CLIENTE_IDX1 ON ALBARANES_CLIENTE (TIPO);
|
||||
@ -1648,3 +1679,66 @@ end
|
||||
|
||||
|
||||
SET TERM ; ^
|
||||
|
||||
|
||||
CREATE PROCEDURE PRO_ANADIR_MARCA_IMPRESION (
|
||||
tabla varchar(255),
|
||||
id_tabla integer)
|
||||
as
|
||||
declare variable id integer;
|
||||
begin
|
||||
select ID
|
||||
from IMPRESIONES
|
||||
where ID_TABLA = :ID_TABLA
|
||||
and TABLA = UPPER(:TABLA)
|
||||
into :ID;
|
||||
|
||||
/*En el caso de que ya exista se modifica la cantidad en caso contrario se anade el elemetno*/
|
||||
if (ID > 0) then
|
||||
begin
|
||||
update IMPRESIONES
|
||||
set NUM_COPIAS = NUM_COPIAS + 1
|
||||
where ID = :ID;
|
||||
end
|
||||
else
|
||||
begin
|
||||
insert into IMPRESIONES (ID, TABLA, ID_TABLA, NUM_COPIAS)
|
||||
values (GEN_ID(GEN_IMPRESIONES_ID, 1), UPPER(:TABLA), :ID_TABLA, 1);
|
||||
end
|
||||
suspend;
|
||||
end;
|
||||
|
||||
SET TERM ^ ;
|
||||
|
||||
CREATE PROCEDURE PRO_ANADIR_MARCA_ENVIO_CORREO (
|
||||
tabla varchar(255),
|
||||
id_tabla integer)
|
||||
as
|
||||
declare variable id integer;
|
||||
begin
|
||||
select ID
|
||||
from REGISTRO_CORREOS
|
||||
where ID_TABLA = :ID_TABLA
|
||||
and TABLA = UPPER(:TABLA)
|
||||
into :ID;
|
||||
|
||||
/*En el caso de que ya exista se modifica la cantidad en caso contrario se anade el elemento */
|
||||
if (ID > 0) then
|
||||
begin
|
||||
update REGISTRO_CORREOS
|
||||
set NUM_CORREOS = NUM_CORREOS + 1
|
||||
where ID = :ID;
|
||||
end
|
||||
else
|
||||
begin
|
||||
insert into REGISTRO_CORREOS (ID, TABLA, ID_TABLA, NUM_CORREOS)
|
||||
values (GEN_ID(GEN_REGISTRO_CORREOS_ID, 1), UPPER(:TABLA), :ID_TABLA, 1);
|
||||
end
|
||||
suspend;
|
||||
end^
|
||||
|
||||
SET TERM ; ^
|
||||
|
||||
GRANT SELECT,INSERT,UPDATE ON REGISTRO_CORREOS TO PROCEDURE PRO_ANADIR_MARCA_ENVIO_CORREO;
|
||||
|
||||
GRANT EXECUTE ON PROCEDURE PRO_ANADIR_MARCA_ENVIO_CORREO TO SYSDBA;
|
||||
@ -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=519
|
||||
EurekaLog Version=6014
|
||||
Activate=1
|
||||
Activate Handle=1
|
||||
Save Log File=1
|
||||
@ -530,5 +530,190 @@ 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>
|
||||
|
||||
@ -78,7 +78,8 @@ requires
|
||||
jsDialog100,
|
||||
indy,
|
||||
JvDlgsD10R,
|
||||
JvNetD10R;
|
||||
JvNetD10R,
|
||||
dxGDIPlusD10;
|
||||
|
||||
contains
|
||||
uDataTableUtils in 'Utiles\uDataTableUtils.pas',
|
||||
@ -101,6 +102,9 @@ contains
|
||||
uPasswordUtils in 'Utiles\uPasswordUtils.pas',
|
||||
uInfoProjectUtils in 'Utiles\uInfoProjectUtils.pas',
|
||||
uInformeRegistryUtils in 'ClassRegistry\uInformeRegistryUtils.pas',
|
||||
uStringsUtils in 'Utiles\uStringsUtils.pas';
|
||||
uStringsUtils in 'Utiles\uStringsUtils.pas',
|
||||
uDataModuleImpresiones in '..\Modulos\Impresiones\Data\uDataModuleImpresiones.pas' {dmImpresiones: TDataModule},
|
||||
uEMailUtils in 'Utiles\uEMailUtils.pas',
|
||||
uDataModuleRegistroCorreos in '..\Modulos\Registro de correos\Data\uDataModuleRegistroCorreos.pas' {dmRegistroCorreos: TDataModule};
|
||||
|
||||
end.
|
||||
|
||||
@ -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=519
|
||||
EurekaLog Version=6014
|
||||
Activate=1
|
||||
Activate Handle=1
|
||||
Save Log File=1
|
||||
|
||||
@ -82,7 +82,8 @@ requires
|
||||
PNG_D10,
|
||||
PngComponentsD10,
|
||||
ControllerBase,
|
||||
cxIntlPrintSys3D10;
|
||||
cxIntlPrintSys3D10,
|
||||
dxGDIPlusD10;
|
||||
|
||||
contains
|
||||
uEditorBase in 'uEditorBase.pas' {fEditorBase: TCustomEditor},
|
||||
@ -107,6 +108,8 @@ contains
|
||||
uEditorBasico in 'uEditorBasico.pas' {fEditorBasico},
|
||||
uDialogBase in 'uDialogBase.pas' {fDialogBase},
|
||||
uViewFiltroBase in 'uViewFiltroBase.pas' {frViewFiltroBase: TFrame},
|
||||
uViewGrid in 'uViewGrid.pas' {frViewGrid: TFrame};
|
||||
uViewGrid in 'uViewGrid.pas' {frViewGrid: TFrame},
|
||||
uDialogElegirEMail in 'uDialogElegirEMail.pas' {fDialogElegirEMail},
|
||||
uDialogListaEnvioEMail in 'uDialogListaEnvioEMail.pas' {fDialogListaEnvioEMail};
|
||||
|
||||
end.
|
||||
|
||||
115
Source/Base/GUIBase/uDialogElegirEMail.dfm
Normal file
115
Source/Base/GUIBase/uDialogElegirEMail.dfm
Normal file
@ -0,0 +1,115 @@
|
||||
inherited fDialogElegirEMail: TfDialogElegirEMail
|
||||
Caption = 'Elegir direcci'#243'n de correo electr'#243'nico'
|
||||
ClientHeight = 258
|
||||
ClientWidth = 533
|
||||
OnCloseQuery = FormCloseQuery
|
||||
OnCreate = FormCreate
|
||||
OnDestroy = FormDestroy
|
||||
ExplicitWidth = 539
|
||||
ExplicitHeight = 283
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
inherited pnlBotones: TFlowPanel
|
||||
Top = 202
|
||||
Width = 533
|
||||
ExplicitTop = 202
|
||||
ExplicitWidth = 533
|
||||
inherited Button1: TButton
|
||||
Left = 437
|
||||
ExplicitLeft = 437
|
||||
end
|
||||
inherited Button2: TButton
|
||||
Left = 347
|
||||
ExplicitLeft = 347
|
||||
end
|
||||
end
|
||||
inherited FlowPanel1: TFlowPanel
|
||||
Width = 533
|
||||
Height = 202
|
||||
ExplicitWidth = 533
|
||||
ExplicitHeight = 202
|
||||
inherited lblInstruccion: TLabel
|
||||
Width = 477
|
||||
Caption = 'Indique la direcci'#243'n de correo electr'#243'nico del destinatario:'
|
||||
Font.Style = [fsBold]
|
||||
ExplicitWidth = 477
|
||||
end
|
||||
inherited Label2: TLabel
|
||||
Width = 490
|
||||
Height = 45
|
||||
Caption =
|
||||
'Para enviar el correo, puede usar la direcci'#243'n administrativa (s' +
|
||||
'i el cliente la tiene en su ficha) o indicar otra direcci'#243'n dist' +
|
||||
'inta con la segunda opci'#243'n.'
|
||||
WordWrap = True
|
||||
ExplicitWidth = 490
|
||||
ExplicitHeight = 45
|
||||
end
|
||||
object Panel1: TPanel
|
||||
Left = 31
|
||||
Top = 115
|
||||
Width = 482
|
||||
Height = 80
|
||||
Align = alClient
|
||||
BevelOuter = bvNone
|
||||
ParentColor = True
|
||||
TabOrder = 0
|
||||
object rbCombo: TRadioButton
|
||||
Tag = 1
|
||||
Left = 10
|
||||
Top = 6
|
||||
Width = 170
|
||||
Height = 17
|
||||
Caption = 'Usar la direcci'#243'n administrativa:'
|
||||
TabOrder = 0
|
||||
OnClick = rbComboClick
|
||||
end
|
||||
object cbEMail: TComboBox
|
||||
Left = 211
|
||||
Top = 6
|
||||
Width = 262
|
||||
Height = 21
|
||||
Style = csDropDownList
|
||||
ItemHeight = 13
|
||||
TabOrder = 1
|
||||
end
|
||||
object rbEdit: TRadioButton
|
||||
Tag = 2
|
||||
Left = 10
|
||||
Top = 41
|
||||
Width = 202
|
||||
Height = 17
|
||||
Caption = 'Usar la siguiente direcci'#243'n de correo:'
|
||||
TabOrder = 2
|
||||
OnClick = rbEditClick
|
||||
end
|
||||
object edtEMail: TcxHyperLinkEdit
|
||||
Left = 211
|
||||
Top = 39
|
||||
Properties.UsePrefix = upNever
|
||||
Properties.ValidateOnEnter = True
|
||||
Properties.Prefix = ''
|
||||
Style.LookAndFeel.Kind = lfStandard
|
||||
Style.LookAndFeel.NativeStyle = True
|
||||
StyleDisabled.LookAndFeel.Kind = lfStandard
|
||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||
StyleFocused.LookAndFeel.Kind = lfStandard
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 3
|
||||
Width = 262
|
||||
end
|
||||
end
|
||||
end
|
||||
inherited ActionList1: TActionList
|
||||
Left = 8
|
||||
Top = 8
|
||||
inherited actAceptar: TAction
|
||||
OnExecute = actAceptarExecute
|
||||
end
|
||||
inherited actCancelar: TAction
|
||||
OnExecute = actCancelarExecute
|
||||
end
|
||||
end
|
||||
end
|
||||
173
Source/Base/GUIBase/uDialogElegirEMail.pas
Normal file
173
Source/Base/GUIBase/uDialogElegirEMail.pas
Normal file
@ -0,0 +1,173 @@
|
||||
unit uDialogElegirEMail;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||
Dialogs, uDialogBase, ActnList, StdCtrls, ExtCtrls, cxControls, cxContainer,
|
||||
cxEdit, cxTextEdit, cxHyperLinkEdit;
|
||||
|
||||
type
|
||||
TfDialogElegirEMail = class(TfDialogBase)
|
||||
Panel1: TPanel;
|
||||
rbCombo: TRadioButton;
|
||||
cbEMail: TComboBox;
|
||||
rbEdit: TRadioButton;
|
||||
edtEMail: TcxHyperLinkEdit;
|
||||
procedure rbComboClick(Sender: TObject);
|
||||
procedure rbEditClick(Sender: TObject);
|
||||
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
|
||||
procedure FormCreate(Sender: TObject);
|
||||
procedure FormDestroy(Sender: TObject);
|
||||
procedure FormShow(Sender: TObject);
|
||||
procedure actAceptarExecute(Sender: TObject);
|
||||
procedure actCancelarExecute(Sender: TObject);
|
||||
private
|
||||
FListaDirecciones: TStringList;
|
||||
function GetEMailElegido: String;
|
||||
procedure ActualizarOpciones;
|
||||
public
|
||||
property EMailElegido: String read GetEMailElegido;
|
||||
property ListaDirecciones : TStringList read FListaDirecciones write FListaDirecciones;
|
||||
end;
|
||||
|
||||
|
||||
function ElegirEMail(const AListaEMails : TStringList; var AEMailElegido : String): Boolean;
|
||||
|
||||
implementation
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
uses
|
||||
uStringsUtils, uDialogUtils, uEMailUtils;
|
||||
|
||||
function ElegirEMail(const AListaEMails : TStringList; var AEMailElegido : String): Boolean;
|
||||
var
|
||||
AEditor : TfDialogElegirEMail;
|
||||
begin
|
||||
AEditor := TfDialogElegirEMail.Create(NIL);
|
||||
try
|
||||
AEditor.ListaDirecciones := AListaEMails;
|
||||
Result := (AEditor.ShowModal = mrOk);
|
||||
if Result then
|
||||
AEMailElegido := AEditor.EMailElegido;
|
||||
finally
|
||||
AEditor.Release;
|
||||
end;
|
||||
end;
|
||||
|
||||
|
||||
{ TfDialogElegirEMail }
|
||||
|
||||
procedure TfDialogElegirEMail.actAceptarExecute(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
ModalResult := mrOk
|
||||
end;
|
||||
|
||||
procedure TfDialogElegirEMail.actCancelarExecute(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
ModalResult := mrCancel;
|
||||
end;
|
||||
|
||||
procedure TfDialogElegirEMail.ActualizarOpciones;
|
||||
begin
|
||||
if rbEdit.Checked then
|
||||
begin
|
||||
edtEMail.Enabled := True;
|
||||
rbCombo.Checked := False;
|
||||
cbEMail.Enabled := False;
|
||||
end
|
||||
else begin
|
||||
if rbCombo.Enabled then
|
||||
begin
|
||||
cbEMail.Enabled := True;
|
||||
edtEMail.Enabled := False;
|
||||
rbEdit.Checked := False;
|
||||
end
|
||||
else
|
||||
rbEdit.Checked := True;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfDialogElegirEMail.FormCloseQuery(Sender: TObject;
|
||||
var CanClose: Boolean);
|
||||
begin
|
||||
inherited;
|
||||
|
||||
if (ModalResult = mrOk) and rbEdit.Checked then
|
||||
begin
|
||||
if not EsCadenaVacia(edtEMail.Text) then
|
||||
begin
|
||||
if not EsDireccionEMailValida(edtEMail.Text) then
|
||||
begin
|
||||
ShowErrorMessage('La dirección de correo electrónica no es válida', 'Para poder continuar, compruebe que ha indicado una dirección de correo y que está bien escrita.');
|
||||
edtEMail.SetFocus;
|
||||
CanClose := False;
|
||||
end;
|
||||
end
|
||||
else begin
|
||||
ShowErrorMessage('Debe indicar una dirección de correo electrónico.', 'Para poder continuar debe elegir o indicar una dirección de correo electrónico.');
|
||||
edtEMail.SetFocus;
|
||||
CanClose := False;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfDialogElegirEMail.FormCreate(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
//FListaDirecciones := TStringList.Create; <- La lista se da mediante la propiedad.
|
||||
end;
|
||||
|
||||
procedure TfDialogElegirEMail.FormDestroy(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
//FreeAndNIL(FListaDirecciones) <- La lista se da mediante la propiedad.
|
||||
end;
|
||||
|
||||
procedure TfDialogElegirEMail.FormShow(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
cbEMail.Items.Clear;
|
||||
cbEMail.Items := FListaDirecciones;
|
||||
|
||||
if cbEMail.Items.Count = 0 then
|
||||
begin
|
||||
cbEmail.Items.Add('Sin dirección administrativa');
|
||||
cbEMail.ItemIndex := 0;
|
||||
rbCombo.Enabled := False;
|
||||
rbEdit.Checked;
|
||||
end
|
||||
else begin
|
||||
cbEMail.ItemIndex := 0;
|
||||
rbCombo.Checked := True;
|
||||
end;
|
||||
|
||||
ActualizarOpciones;
|
||||
end;
|
||||
|
||||
function TfDialogElegirEMail.GetEMailElegido: String;
|
||||
begin
|
||||
if rbCombo.Checked then
|
||||
Result := cbEMail.Text
|
||||
else
|
||||
Result := edtEMail.Text;
|
||||
end;
|
||||
|
||||
procedure TfDialogElegirEMail.rbComboClick(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
rbEdit.Checked := False;
|
||||
ActualizarOpciones;
|
||||
end;
|
||||
|
||||
procedure TfDialogElegirEMail.rbEditClick(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
rbEdit.Checked := True;
|
||||
ActualizarOpciones;
|
||||
end;
|
||||
|
||||
end.
|
||||
29
Source/Base/GUIBase/uDialogListaEnvioEMail.dfm
Normal file
29
Source/Base/GUIBase/uDialogListaEnvioEMail.dfm
Normal file
@ -0,0 +1,29 @@
|
||||
inherited fDialogListaEnvioEMail: TfDialogListaEnvioEMail
|
||||
Caption = 'fDialogListaEnvioEMail'
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
inherited FlowPanel1: TFlowPanel
|
||||
object ListView1: TListView
|
||||
Left = 31
|
||||
Top = 151
|
||||
Width = 571
|
||||
Height = 197
|
||||
Align = alClient
|
||||
Columns = <
|
||||
item
|
||||
Caption = 'Documento'
|
||||
end
|
||||
item
|
||||
Caption = 'Destinatario'
|
||||
end
|
||||
item
|
||||
Caption = 'Direcci'#243'n E-Mail'
|
||||
end
|
||||
item
|
||||
Caption = 'Estado'
|
||||
end>
|
||||
TabOrder = 0
|
||||
ViewStyle = vsReport
|
||||
end
|
||||
end
|
||||
end
|
||||
22
Source/Base/GUIBase/uDialogListaEnvioEMail.pas
Normal file
22
Source/Base/GUIBase/uDialogListaEnvioEMail.pas
Normal file
@ -0,0 +1,22 @@
|
||||
unit uDialogListaEnvioEMail;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||
Dialogs, uDialogBase, ActnList, StdCtrls, ExtCtrls, ComCtrls;
|
||||
|
||||
type
|
||||
TfDialogListaEnvioEMail = class(TfDialogBase)
|
||||
ListView1: TListView;
|
||||
private
|
||||
{ Private declarations }
|
||||
public
|
||||
{ Public declarations }
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
end.
|
||||
@ -1669,7 +1669,7 @@ object fEditorBase: TfEditorBase
|
||||
object JvAppRegistryStorage: TJvAppRegistryStorage
|
||||
StorageOptions.BooleanStringTrueValues = 'TRUE, YES, Y'
|
||||
StorageOptions.BooleanStringFalseValues = 'FALSE, NO, N'
|
||||
Root = 'Software\%APPL_NAME%'
|
||||
Root = 'Software\FactuGES'
|
||||
SubStorages = <>
|
||||
Left = 424
|
||||
Top = 120
|
||||
|
||||
@ -4,6 +4,7 @@ inherited fEditorGridBase: TfEditorGridBase
|
||||
Caption = 'fEditorGridBase'
|
||||
ClientHeight = 444
|
||||
ClientWidth = 543
|
||||
OnDestroy = CustomEditorDestroy
|
||||
ExplicitWidth = 551
|
||||
ExplicitHeight = 471
|
||||
PixelsPerInch = 96
|
||||
@ -84,6 +85,16 @@ 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
|
||||
@ -1515,8 +1526,6 @@ inherited fEditorGridBase: TfEditorGridBase
|
||||
Bitmap = {}
|
||||
end
|
||||
inherited JvFormStorage: TJvFormStorage
|
||||
OnSavePlacement = JvFormStorageSavePlacement
|
||||
OnRestorePlacement = JvFormStorageRestorePlacement
|
||||
Left = 400
|
||||
Top = 160
|
||||
end
|
||||
|
||||
@ -57,12 +57,13 @@ 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);
|
||||
@ -70,10 +71,17 @@ 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;
|
||||
|
||||
@ -81,8 +89,12 @@ 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;
|
||||
@ -102,9 +114,22 @@ 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;
|
||||
@ -117,12 +142,53 @@ 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
|
||||
@ -139,6 +205,11 @@ 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
|
||||
@ -153,10 +224,14 @@ end;
|
||||
procedure TfEditorGridBase.FormShow(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
if Assigned(ViewGrid) then
|
||||
ViewGrid.ShowEmbedded(Self);
|
||||
|
||||
|
||||
if Assigned(ViewGrid) then
|
||||
begin
|
||||
ViewGrid.RestoreFromIniFile;
|
||||
ViewGrid.ShowEmbedded(Self);
|
||||
end;
|
||||
|
||||
cbxListaAnos.ItemIndex := 0;
|
||||
end;
|
||||
|
||||
procedure TfEditorGridBase.actEliminarUpdate(Sender: TObject);
|
||||
@ -246,6 +321,14 @@ 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);
|
||||
@ -271,13 +354,6 @@ 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;
|
||||
@ -304,13 +380,6 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfEditorGridBase.JvFormStorageRestorePlacement(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
if Assigned(ViewGrid) then
|
||||
ViewGrid.RestoreFromRegistry(JvAppRegistryStorage.Root);
|
||||
end;
|
||||
|
||||
initialization
|
||||
RegisterClass(TfEditorGridBase);
|
||||
|
||||
|
||||
@ -5,17 +5,15 @@ inherited fEditorPreview: TfEditorPreview
|
||||
WindowState = wsMaximized
|
||||
OnDestroy = FormDestroy
|
||||
OnResize = FormResize
|
||||
ExplicitWidth = 658
|
||||
ExplicitHeight = 492
|
||||
ExplicitWidth = 803
|
||||
ExplicitHeight = 485
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
inherited JvNavPanelHeader: TJvNavPanelHeader
|
||||
Top = 75
|
||||
Visible = False
|
||||
ExplicitTop = 75
|
||||
ExplicitWidth = 650
|
||||
inherited Image1: TImage
|
||||
Left = 623
|
||||
ExplicitLeft = 623
|
||||
end
|
||||
end
|
||||
@ -27,7 +25,7 @@ inherited fEditorPreview: TfEditorPreview
|
||||
DefaultDock = TBXDock
|
||||
Visible = False
|
||||
ExplicitTop = 49
|
||||
ExplicitWidth = 242
|
||||
ExplicitWidth = 248
|
||||
end
|
||||
inherited tbxMenu: TTBXToolbar
|
||||
DockPos = -24
|
||||
@ -175,8 +173,6 @@ inherited fEditorPreview: TfEditorPreview
|
||||
item
|
||||
Width = 50
|
||||
end>
|
||||
ExplicitTop = 439
|
||||
ExplicitWidth = 650
|
||||
end
|
||||
inherited EditorActionList: TActionList
|
||||
Top = 104
|
||||
@ -847,13 +843,14 @@ inherited fEditorPreview: TfEditorPreview
|
||||
Bitmap = {}
|
||||
end
|
||||
object frxReport1: TfrxReport
|
||||
Version = '3.23.7'
|
||||
Version = '4.3'
|
||||
DotMatrixReport = False
|
||||
EngineOptions.DoublePass = True
|
||||
IniFile = '\Software\Fast Reports'
|
||||
PreviewOptions.Buttons = [pbPrint, pbLoad, pbSave, pbExport, pbZoom, pbFind, pbOutline, pbPageSetup, pbTools, pbEdit, pbNavigator]
|
||||
PreviewOptions.Zoom = 1.000000000000000000
|
||||
PrintOptions.Printer = 'Default'
|
||||
PrintOptions.PrintOnSheet = 0
|
||||
ReportOptions.CreateDate = 38658.858023541660000000
|
||||
ReportOptions.LastChange = 38658.858023541660000000
|
||||
ScriptLanguage = 'PascalScript'
|
||||
@ -864,9 +861,6 @@ inherited fEditorPreview: TfEditorPreview
|
||||
StoreInDFM = False
|
||||
Left = 16
|
||||
Top = 200
|
||||
Datasets = <>
|
||||
Variables = <>
|
||||
Style = <>
|
||||
end
|
||||
object frxBarCodeObject1: TfrxBarCodeObject
|
||||
Left = 16
|
||||
|
||||
@ -19,8 +19,15 @@ type
|
||||
property Report: TfrxReport read GetReport;
|
||||
procedure LoadFromStream(AStream : TStream);
|
||||
function ExportToFile : String;
|
||||
procedure Print;
|
||||
procedure Preview;
|
||||
function Print: Boolean;
|
||||
procedure Preview;
|
||||
|
||||
function GetTablaImpresion: String;
|
||||
function GetIdTablaImpresion: String;
|
||||
procedure SetTablaImpresion (Value: String);
|
||||
procedure SetIdTablaImpresion (Value: String);
|
||||
property TablaImpresion: String read GetTablaImpresion write SetTablaImpresion;
|
||||
property IdTablaImpresion: String read GetIdTablaImpresion write SetIdTablaImpresion;
|
||||
end;
|
||||
|
||||
TfEditorPreview = class(TfEditorBase, IEditorPreview)
|
||||
@ -99,16 +106,29 @@ type
|
||||
procedure actPrimeraPaginaUpdate(Sender: TObject);
|
||||
procedure actPaginaAnteriorUpdate(Sender: TObject);
|
||||
private
|
||||
FVariable: Boolean;
|
||||
FPreview : TfrViewPreview;
|
||||
procedure OnPageChanged(Sender: TfrxPreview; PageNo: Integer);
|
||||
procedure UpdateZoom;
|
||||
procedure OnPrint(Sender: Tobject);
|
||||
|
||||
protected
|
||||
FTablaImpresion: String;
|
||||
FIdTablaImpresion: String;
|
||||
function GetTablaImpresion: String;
|
||||
function GetIdTablaImpresion: String;
|
||||
procedure SetTablaImpresion (Value: String);
|
||||
procedure SetIdTablaImpresion (Value: String);
|
||||
|
||||
function GetReport: TfrxReport; virtual;
|
||||
public
|
||||
property TablaImpresion: String read GetTablaImpresion write SetTablaImpresion;
|
||||
property IdTablaImpresion: String read GetIdTablaImpresion write SetIdTablaImpresion;
|
||||
|
||||
constructor Create(AOwner: TComponent); override;
|
||||
property Report: TfrxReport read GetReport;
|
||||
procedure Print;
|
||||
procedure Preview;
|
||||
function Print: Boolean;
|
||||
procedure Preview;
|
||||
procedure LoadFromStream(AStream : TStream);
|
||||
function ExportToFile : String;
|
||||
end;
|
||||
@ -117,19 +137,29 @@ type
|
||||
implementation
|
||||
|
||||
uses
|
||||
frxRes, frxUtils, frxPrinter, frxFormUtils,
|
||||
uCustomEditor, uSistemaFunc;
|
||||
frxRes, frxUtils, frxPrinter,
|
||||
uCustomEditor, uSistemaFunc, uDataModuleImpresiones;
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
{ TfEditorBase1 }
|
||||
|
||||
function TfEditorPreview.GetIdTablaImpresion: String;
|
||||
begin
|
||||
Result := FIdTablaImpresion;
|
||||
end;
|
||||
|
||||
function TfEditorPreview.GetReport: TfrxReport;
|
||||
begin
|
||||
Result := frxReport1;
|
||||
end;
|
||||
|
||||
|
||||
function TfEditorPreview.GetTablaImpresion: String;
|
||||
begin
|
||||
Result := FTablaImpresion;
|
||||
end;
|
||||
|
||||
procedure TfEditorPreview.FormShow(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
@ -284,6 +314,13 @@ begin
|
||||
[PageNo, Sender.PageCount]);
|
||||
end;
|
||||
|
||||
procedure TfEditorPreview.OnPrint(Sender: Tobject);
|
||||
begin
|
||||
FVariable := True;
|
||||
if (FTablaImpresion <> '-1') and (FIdTablaImpresion <> '-1') then
|
||||
dmImpresiones.AnadirMarcaImpresion(TablaImpresion, IdTablaImpresion);
|
||||
end;
|
||||
|
||||
constructor TfEditorPreview.Create(AOwner: TComponent);
|
||||
begin
|
||||
inherited;
|
||||
@ -304,6 +341,8 @@ begin
|
||||
FPreview := TfrViewPreview.Create(Self);
|
||||
Report.Preview := FPreview.Preview;
|
||||
FPreview.Preview.OnPageChanged := OnPageChanged;
|
||||
FTablaImpresion := '-1';
|
||||
FIdTablaImpresion := '-1';
|
||||
end;
|
||||
|
||||
procedure TfEditorPreview.Preview;
|
||||
@ -311,13 +350,28 @@ begin
|
||||
Self.ShowModal;
|
||||
end;
|
||||
|
||||
procedure TfEditorPreview.Print;
|
||||
function TfEditorPreview.Print: Boolean;
|
||||
begin
|
||||
FVariable := False;
|
||||
FPreview.Preview.Report.OnPrintReport := OnPrint;
|
||||
|
||||
if not frxPrinters.HasPhysicalPrinters then
|
||||
frxErrorMsg(frxResources.Get('clNoPrinters'))
|
||||
else
|
||||
FPreview.Preview.Print;
|
||||
|
||||
Enabled := True;
|
||||
Result := FVariable;
|
||||
end;
|
||||
|
||||
procedure TfEditorPreview.SetIdTablaImpresion(Value: String);
|
||||
begin
|
||||
FIdTablaImpresion := Value;
|
||||
end;
|
||||
|
||||
procedure TfEditorPreview.SetTablaImpresion(Value: String);
|
||||
begin
|
||||
FTablaImpresion := Value;
|
||||
end;
|
||||
|
||||
function TfEditorPreview.ExportToFile: String;
|
||||
|
||||
@ -1,10 +1,9 @@
|
||||
object frViewFiltroBase: TfrViewFiltroBase
|
||||
Left = 0
|
||||
Top = 0
|
||||
inherited frViewFiltroBase: TfrViewFiltroBase
|
||||
Width = 565
|
||||
Height = 102
|
||||
TabOrder = 0
|
||||
Visible = False
|
||||
ExplicitWidth = 565
|
||||
ExplicitHeight = 102
|
||||
object TBXDockablePanel1: TTBXDockablePanel
|
||||
Left = 0
|
||||
Top = 0
|
||||
@ -20,8 +19,6 @@ object frViewFiltroBase: TfrViewFiltroBase
|
||||
ShowCaptionWhenDocked = False
|
||||
SupportedDocks = [dkStandardDock, dkMultiDock]
|
||||
TabOrder = 0
|
||||
ExplicitWidth = 128
|
||||
ExplicitHeight = 98
|
||||
object dxLayoutControl1: TdxLayoutControl
|
||||
Left = 0
|
||||
Top = 0
|
||||
@ -30,8 +27,8 @@ object frViewFiltroBase: TfrViewFiltroBase
|
||||
Align = alTop
|
||||
ParentBackground = True
|
||||
TabOrder = 0
|
||||
TabStop = False
|
||||
AutoContentSizes = [acsWidth, acsHeight]
|
||||
ExplicitWidth = 128
|
||||
object txtFiltroTodo: TcxTextEdit
|
||||
Left = 87
|
||||
Top = 10
|
||||
@ -129,7 +126,6 @@ object frViewFiltroBase: TfrViewFiltroBase
|
||||
Margins.Left = 10
|
||||
Align = alTop
|
||||
TabOrder = 1
|
||||
ExplicitWidth = 128
|
||||
object tbxBotones: TTBXToolbar
|
||||
Left = 10
|
||||
Top = 0
|
||||
@ -147,7 +143,6 @@ object frViewFiltroBase: TfrViewFiltroBase
|
||||
ParentShowHint = False
|
||||
ShowHint = True
|
||||
TabOrder = 0
|
||||
ExplicitWidth = 118
|
||||
object TBXItem2: TTBXItem
|
||||
Action = actQuitarFiltro
|
||||
DisplayMode = nbdmImageAndText
|
||||
|
||||
@ -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;
|
||||
TBX, TB2Item, TB2Dock, TB2Toolbar, ActnList, ImgList, PngImageList, uViewBase;
|
||||
|
||||
type
|
||||
IViewFiltroBase = interface
|
||||
IViewFiltroBase = interface (IViewBase)
|
||||
['{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(TFrame, IViewFiltroBase)
|
||||
TfrViewFiltroBase = class(TfrViewBase , IViewFiltroBase)
|
||||
dxLayoutControl1Group_Root: TdxLayoutGroup;
|
||||
dxLayoutControl1: TdxLayoutControl;
|
||||
dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList;
|
||||
@ -59,6 +59,7 @@ type
|
||||
protected
|
||||
procedure LimpiarCampos; virtual;
|
||||
function ValidarCampos: Boolean; virtual;
|
||||
function GetModified: Boolean; override;
|
||||
|
||||
public
|
||||
property OnFiltrosChange: TNotifyEvent read GetFiltrosChange write SetFiltrosChange;
|
||||
@ -78,6 +79,11 @@ begin
|
||||
Result := FOnFiltrosChange;
|
||||
end;
|
||||
|
||||
function TfrViewFiltroBase.GetModified: Boolean;
|
||||
begin
|
||||
Result := False;
|
||||
end;
|
||||
|
||||
procedure TfrViewFiltroBase.SetFiltrosChange(const Value: TNotifyEvent);
|
||||
begin
|
||||
FOnFiltrosChange := Value;
|
||||
|
||||
@ -61,8 +61,15 @@ 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
|
||||
@ -155,7 +162,7 @@ inherited frViewGrid: TfrViewGrid
|
||||
PrinterPage.ScaleMode = smFit
|
||||
PrinterPage._dxMeasurementUnits_ = 0
|
||||
PrinterPage._dxLastMU_ = 2
|
||||
ReportDocument.CreationDate = 39615.820451203710000000
|
||||
ReportDocument.CreationDate = 40259.515870208340000000
|
||||
StyleManager = dxPrintStyleManager1
|
||||
OptionsCards.Shadow.Depth = 0
|
||||
OptionsExpanding.ExpandGroupRows = True
|
||||
|
||||
@ -1,6 +1,6 @@
|
||||
{*******************************************************}
|
||||
{*******************************************************}
|
||||
{ }
|
||||
{ Administración de puntos de venta }
|
||||
{ Administración de puntos de venta }
|
||||
{ }
|
||||
{ Copyright (C) 2006 Rodax Software S.L. }
|
||||
{ }
|
||||
@ -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;
|
||||
TB2Item, TBX, TB2Dock, TB2Toolbar, TBXDkPanels, dxPgsDlg, uCustomView;
|
||||
|
||||
type
|
||||
IViewGrid = interface(IViewGridBase)
|
||||
@ -139,16 +139,19 @@ end;
|
||||
procedure TfrViewGrid.actQuitarAgrupacionesExecute(Sender: TObject);
|
||||
var
|
||||
Columna: TcxGridDBColumn;
|
||||
i: Integer;
|
||||
i,j: Integer;
|
||||
begin
|
||||
inherited;
|
||||
for i := 0 to cxGridView.ColumnCount - 1 do
|
||||
for j := 0 to cxGrid.ViewCount - 1 do
|
||||
begin
|
||||
Columna := (cxGridView as TcxGridDBTableView).Columns[i];
|
||||
if not (Columna.GroupIndex < 0) then
|
||||
for i := 0 to (cxGrid.Views[j] as tcxGridDBTableView).ColumnCount - 1 do
|
||||
begin
|
||||
Columna.GroupIndex := -1;
|
||||
Columna.Visible := True;
|
||||
Columna := (cxGrid.Views[j] as TcxGridDBTableView).Columns[i];
|
||||
if not (Columna.GroupIndex < 0) then
|
||||
begin
|
||||
Columna.GroupIndex := -1;
|
||||
Columna.Visible := True;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
@ -37,6 +37,9 @@ type
|
||||
procedure SaveGridStatus;
|
||||
procedure RestoreGridStatus;
|
||||
|
||||
procedure DesactivarGrid;
|
||||
procedure ActivarGrid;
|
||||
|
||||
procedure GotoFirst;
|
||||
procedure GotoLast;
|
||||
|
||||
@ -49,6 +52,9 @@ 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;
|
||||
@ -93,6 +99,7 @@ type
|
||||
FFilter: string;
|
||||
FOnFilterChanged : TNotifyEvent;
|
||||
FGridStatus : TcxGridStatus;
|
||||
procedure BestFitAllColumns;
|
||||
protected
|
||||
FOnDblClick: TNotifyEvent;
|
||||
FPopupMenu: TPopupMenu;
|
||||
@ -136,6 +143,8 @@ type
|
||||
|
||||
procedure SaveGridStatus;
|
||||
procedure RestoreGridStatus;
|
||||
procedure DesactivarGrid;
|
||||
procedure ActivarGrid;
|
||||
|
||||
procedure GotoFirst;
|
||||
procedure GotoLast;
|
||||
@ -143,9 +152,12 @@ 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;
|
||||
|
||||
|
||||
property Filter: string read GetFilter write SetFilter;
|
||||
property Filtered : Boolean read GetFiltered;
|
||||
|
||||
@ -166,7 +178,8 @@ procedure Register;
|
||||
implementation
|
||||
|
||||
uses
|
||||
CCReg, uDataModuleBase, uDBSelectionListUtils;
|
||||
CCReg, uDataModuleBase, uDBSelectionListUtils, cxGridDBDataDefinitions,
|
||||
uSistemaFunc, SHFolder;
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
@ -177,12 +190,52 @@ end;
|
||||
|
||||
{ TfrViewGrid }
|
||||
|
||||
procedure TfrViewGridBase.ActivarGrid;
|
||||
begin
|
||||
if Assigned(_FocusedView) then
|
||||
_FocusedView.EndUpdate;
|
||||
end;
|
||||
|
||||
procedure TfrViewGridBase.BestFitAllColumns;
|
||||
var
|
||||
i : Integer ;
|
||||
|
||||
begin
|
||||
ShowHourglassCursor;
|
||||
_FocusedView.BeginUpdate;
|
||||
try
|
||||
for i := 0 to _FocusedView.VisibleColumnCount-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;
|
||||
end;
|
||||
finally
|
||||
_FocusedView.EndUpdate;
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrViewGridBase.AjustarAncho;
|
||||
begin
|
||||
if Assigned(_FocusedView) then
|
||||
_FocusedView.ApplyBestFit;
|
||||
begin
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
_FocusedView.ApplyBestFit(nil, True, False);
|
||||
//BestFitAllColumns;
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
|
||||
procedure TfrViewGridBase.AnadirOtrosFiltros;
|
||||
begin
|
||||
//
|
||||
@ -300,6 +353,24 @@ 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
|
||||
@ -387,6 +458,24 @@ 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
|
||||
@ -431,6 +520,12 @@ begin
|
||||
//
|
||||
end;
|
||||
|
||||
procedure TfrViewGridBase.DesactivarGrid;
|
||||
begin
|
||||
if Assigned(_FocusedView) then
|
||||
_FocusedView.BeginUpdate;
|
||||
end;
|
||||
|
||||
destructor TfrViewGridBase.Destroy;
|
||||
begin
|
||||
FOnFilterChanged := Nil;
|
||||
|
||||
@ -1076,7 +1076,7 @@ object fLoginForm: TfLoginForm
|
||||
StorageOptions.BooleanStringTrueValues = 'TRUE, YES, Y'
|
||||
StorageOptions.BooleanStringFalseValues = 'FALSE, NO, N'
|
||||
StorageOptions.BooleanAsString = False
|
||||
Root = 'Software\%APPL_NAME%'
|
||||
Root = 'Software\FactuGES'
|
||||
SubStorages = <>
|
||||
Left = 14
|
||||
Top = 168
|
||||
|
||||
457
Source/Base/Utiles/uEMailUtils.pas
Normal file
457
Source/Base/Utiles/uEMailUtils.pas
Normal file
@ -0,0 +1,457 @@
|
||||
unit uEMailUtils;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;
|
||||
|
||||
type
|
||||
{ Introducing a new Type of Event to get the Errorcode }
|
||||
TMapiErrEvent = procedure(Sender: TObject; ErrCode: Integer) of object;
|
||||
|
||||
TMapiControl = class(TComponent)
|
||||
constructor Create(AOwner: TComponent); override;
|
||||
destructor Destroy; override;
|
||||
private
|
||||
{ Private-Deklarationen }
|
||||
FSubject: string;
|
||||
FMailtext: string;
|
||||
FFromName: string;
|
||||
FFromAdress: string;
|
||||
FTOAdr: TStrings;
|
||||
FCCAdr: TStrings;
|
||||
FBCCAdr: TStrings;
|
||||
FAttachedFileName: TStrings;
|
||||
FDisplayFileName: TStrings;
|
||||
FShowDialog: Boolean;
|
||||
FUseAppHandle: Boolean;
|
||||
{ Error Events: }
|
||||
{ FOnUserAbort: TNotifyEvent;
|
||||
FOnMapiError: TMapiErrEvent;
|
||||
FOnSuccess: TNotifyEvent;}
|
||||
{ +> Changes by Eugene Mayevski [mailto:Mayevski@eldos.org]}
|
||||
procedure SetToAddr(newValue: TStrings);
|
||||
procedure SetCCAddr(newValue: TStrings);
|
||||
procedure SetBCCAddr(newValue: TStrings);
|
||||
procedure SetAttachedFileName(newValue: TStrings);
|
||||
{ +< Changes }
|
||||
protected
|
||||
{ Protected-Deklarationen }
|
||||
public
|
||||
{ Public-Deklarationen }
|
||||
ApplicationHandle: THandle;
|
||||
function Sendmail: Boolean;
|
||||
procedure Reset;
|
||||
published
|
||||
{ Published-Deklarationen }
|
||||
property Subject: string read FSubject write FSubject;
|
||||
property Body: string read FMailText write FMailText;
|
||||
property FromName: string read FFromName write FFromName;
|
||||
property FromAdress: string read FFromAdress write FFromAdress;
|
||||
property Recipients: TStrings read FTOAdr write SetTOAddr;
|
||||
property CopyTo: TStrings read FCCAdr write SetCCAddr;
|
||||
property BlindCopyTo: TStrings read FBCCAdr write SetBCCAddr;
|
||||
property AttachedFiles: TStrings read FAttachedFileName write SetAttachedFileName;
|
||||
property DisplayFileName: TStrings read FDisplayFileName;
|
||||
property ShowDialog: Boolean read FShowDialog write FShowDialog;
|
||||
property UseAppHandle: Boolean read FUseAppHandle write FUseAppHandle;
|
||||
|
||||
{ Events: }
|
||||
{property OnUserAbort: TNotifyEvent read FOnUserAbort write FOnUserAbort;
|
||||
property OnMapiError: TMapiErrEvent read FOnMapiError write FOnMapiError;
|
||||
property OnSuccess: TNotifyEvent read FOnSuccess write FOnSuccess;}
|
||||
end;
|
||||
|
||||
function EsDireccionEMailValida(const Value: string): boolean;
|
||||
function EnviarEMailMAPI(const AAsunto, ACuerpo, AFicheroAdjunto, ANombreRemitente, AEMailRemitente,
|
||||
ANombreDestinatario, AEMailDestinatario: String; AEnviarDirectamente: Boolean = false) : boolean;
|
||||
|
||||
implementation
|
||||
|
||||
uses
|
||||
MAPI;
|
||||
|
||||
function EsDireccionEMailValida(const Value: string): boolean;
|
||||
function CheckAllowed(const s: string): boolean;
|
||||
var
|
||||
i: integer;
|
||||
begin
|
||||
Result:= false;
|
||||
for i:= 1 to Length(s) do
|
||||
begin
|
||||
// illegal char in s -> no valid address
|
||||
if not (s[i] in ['a'..'z','A'..'Z','0'..'9','_','-','.']) then
|
||||
Exit;
|
||||
end;
|
||||
Result:= true;
|
||||
end;
|
||||
var
|
||||
i: integer;
|
||||
namePart, serverPart: string;
|
||||
begin // of IsValidEmail
|
||||
Result:= false;
|
||||
i:= Pos('@', Value);
|
||||
if (i = 0) or (pos('..', Value) > 0) then
|
||||
Exit;
|
||||
namePart:= Copy(Value, 1, i - 1);
|
||||
serverPart:= Copy(Value, i + 1, Length(Value));
|
||||
if (Length(namePart) = 0) // @ or name missing
|
||||
or ((Length(serverPart) < 4)) // name or server missing or
|
||||
then Exit; // too short
|
||||
i:= Pos('.', serverPart);
|
||||
// must have dot and at least 3 places from end
|
||||
if (i < 2) or (i > (Length(serverPart) - 2)) then
|
||||
Exit;
|
||||
Result:= CheckAllowed(namePart) and CheckAllowed(serverPart);
|
||||
end;
|
||||
|
||||
function EnviarEMailMAPI(const AAsunto, ACuerpo, AFicheroAdjunto, ANombreRemitente, AEMailRemitente,
|
||||
ANombreDestinatario, AEMailDestinatario: String; AEnviarDirectamente: Boolean = false) : boolean;
|
||||
var
|
||||
AMAPIControl : TMapiControl;
|
||||
begin
|
||||
AMAPIControl := TMapiControl.Create(NIL);
|
||||
try
|
||||
with AMAPIControl do
|
||||
begin
|
||||
Subject := AAsunto;
|
||||
Body := ACuerpo;
|
||||
FromName := ANombreRemitente;
|
||||
FromAdress := AEMailRemitente;
|
||||
|
||||
Recipients.Add(AEMailDestinatario);
|
||||
AttachedFiles.Add(AFicheroAdjunto);
|
||||
|
||||
ShowDialog := not AEnviarDirectamente;
|
||||
end;
|
||||
Result := AMAPIControl.Sendmail;
|
||||
finally
|
||||
FreeANDNIL(AMAPIControl);
|
||||
end;
|
||||
end;
|
||||
|
||||
|
||||
{ TMapiControl }
|
||||
|
||||
constructor TMapiControl.Create(AOwner: TComponent);
|
||||
begin
|
||||
inherited Create(AOwner);
|
||||
{FOnUserAbort := nil;
|
||||
FOnMapiError := nil;
|
||||
FOnSuccess := nil;}
|
||||
FSubject := '';
|
||||
FMailtext := '';
|
||||
FFromName := '';
|
||||
FFromAdress := '';
|
||||
FTOAdr := TStringList.Create;
|
||||
FCCAdr := TStringList.Create;
|
||||
FBCCAdr := TStringList.Create;
|
||||
FAttachedFileName := TStringList.Create;
|
||||
FDisplayFileName := TStringList.Create;
|
||||
FShowDialog := False;
|
||||
ApplicationHandle := Application.Handle;
|
||||
end;
|
||||
|
||||
{ +> Changes by Eugene Mayevski [mailto:Mayevski@eldos.org]}
|
||||
|
||||
procedure TMapiControl.SetToAddr(newValue: TStrings);
|
||||
begin
|
||||
FToAdr.Assign(newValue);
|
||||
end;
|
||||
|
||||
procedure TMapiControl.SetCCAddr(newValue: TStrings);
|
||||
begin
|
||||
FCCAdr.Assign(newValue);
|
||||
end;
|
||||
|
||||
procedure TMapiControl.SetBCCAddr(newValue: TStrings);
|
||||
begin
|
||||
FBCCAdr.Assign(newValue);
|
||||
end;
|
||||
|
||||
procedure TMapiControl.SetAttachedFileName(newValue: TStrings);
|
||||
begin
|
||||
FAttachedFileName.Assign(newValue);
|
||||
end;
|
||||
{ +< Changes }
|
||||
|
||||
destructor TMapiControl.Destroy;
|
||||
begin
|
||||
FTOAdr.Free;
|
||||
FCCAdr.Free;
|
||||
FBCCAdr.Free;
|
||||
FAttachedFileName.Free;
|
||||
FDisplayFileName.Free;
|
||||
inherited destroy;
|
||||
end;
|
||||
|
||||
{ Reset the fields for re-use}
|
||||
|
||||
procedure TMapiControl.Reset;
|
||||
begin
|
||||
FSubject := '';
|
||||
FMailtext := '';
|
||||
FFromName := '';
|
||||
FFromAdress := '';
|
||||
FTOAdr.Clear;
|
||||
FCCAdr.Clear;
|
||||
FBCCAdr.Clear;
|
||||
FAttachedFileName.Clear;
|
||||
FDisplayFileName.Clear;
|
||||
end;
|
||||
|
||||
{ Send the Mail via the API, this procedure composes and sends
|
||||
the Email }
|
||||
|
||||
function TMapiControl.Sendmail: Boolean;
|
||||
var
|
||||
MapiMessage: TMapiMessage;
|
||||
MError: Cardinal;
|
||||
Sender: TMapiRecipDesc;
|
||||
PRecip, Recipients: PMapiRecipDesc;
|
||||
PFiles, Attachments: PMapiFileDesc;
|
||||
i: Integer;
|
||||
AppHandle: THandle;
|
||||
begin
|
||||
{ First we store the Application Handle, if not
|
||||
the Component might fail to send the Email or
|
||||
your calling Program gets locked up. }
|
||||
AppHandle := Application.Handle;
|
||||
|
||||
{ Initialize the Attachment Pointer, to keep Delphi quiet }
|
||||
PFiles := nil;
|
||||
|
||||
{ We need all recipients to alloc the memory }
|
||||
MapiMessage.nRecipCount := FTOAdr.Count + FCCAdr.Count + FBCCAdr.Count;
|
||||
GetMem(Recipients, MapiMessage.nRecipCount * sizeof(TMapiRecipDesc));
|
||||
|
||||
try
|
||||
with MapiMessage do
|
||||
begin
|
||||
ulReserved := 0;
|
||||
{ Setting the Subject: }
|
||||
lpszSubject := PChar(Self.FSubject);
|
||||
|
||||
{ ... the Body: }
|
||||
lpszNoteText := PChar(FMailText);
|
||||
|
||||
lpszMessageType := nil;
|
||||
lpszDateReceived := nil;
|
||||
lpszConversationID := nil;
|
||||
flFlags := 0;
|
||||
|
||||
{ and the sender: (MAPI_ORIG) }
|
||||
Sender.ulReserved := 0;
|
||||
Sender.ulRecipClass := MAPI_ORIG;
|
||||
Sender.lpszName := PChar(FromName);
|
||||
Sender.lpszAddress := PChar(FromAdress);
|
||||
Sender.ulEIDSize := 0;
|
||||
Sender.lpEntryID := nil;
|
||||
lpOriginator := @Sender;
|
||||
|
||||
PRecip := Recipients;
|
||||
|
||||
{ We have multiple recipients: (MAPI_TO)
|
||||
and setting up each: }
|
||||
if nRecipCount > 0 then
|
||||
begin
|
||||
for i := 1 to FTOAdr.Count do
|
||||
begin
|
||||
PRecip^.ulReserved := 0;
|
||||
PRecip^.ulRecipClass := MAPI_TO;
|
||||
{ lpszName should carry the Name like in the
|
||||
contacts or the adress book, I will take the
|
||||
email adress to keep it short: }
|
||||
PRecip^.lpszName := PChar(FTOAdr.Strings[i - 1]);
|
||||
{ If you use this component with Outlook97 or 2000
|
||||
and not some of Express versions you will have to set
|
||||
'SMTP:' in front of each (email-) adress. Otherwise
|
||||
Outlook/Mapi will try to handle the Email on itself.
|
||||
Sounds strange, just erease the 'SMTP:', compile, compose
|
||||
a mail and take a look at the resulting email adresses
|
||||
(right click).
|
||||
}
|
||||
{ +> Changes by Andreas Hoerig [mailto:andreas.hoerig@sillner.com] }
|
||||
PRecip^.lpszAddress := StrNew(PChar('SMTP:' + FTOAdr.Strings[i - 1]));
|
||||
{ +< Changes }
|
||||
PRecip^.ulEIDSize := 0;
|
||||
PRecip^.lpEntryID := nil;
|
||||
Inc(PRecip);
|
||||
end;
|
||||
|
||||
{ Same with the carbon copy recipients: (CC, MAPI_CC) }
|
||||
for i := 1 to FCCAdr.Count do
|
||||
begin
|
||||
PRecip^.ulReserved := 0;
|
||||
PRecip^.ulRecipClass := MAPI_CC;
|
||||
PRecip^.lpszName := PChar(FCCAdr.Strings[i - 1]);
|
||||
{ +> Changes by Andreas Hoerig [mailto:andreas.hoerig@sillner.com] }
|
||||
PRecip^.lpszAddress := StrNew(PChar('SMTP:' + FCCAdr.Strings[i - 1]));
|
||||
{ +< Changes }
|
||||
PRecip^.ulEIDSize := 0;
|
||||
PRecip^.lpEntryID := nil;
|
||||
Inc(PRecip);
|
||||
end;
|
||||
|
||||
{ ... and the blind copy recipients: (BCC, MAPI_BCC) }
|
||||
for i := 1 to FBCCAdr.Count do
|
||||
begin
|
||||
PRecip^.ulReserved := 0;
|
||||
PRecip^.ulRecipClass := MAPI_BCC;
|
||||
PRecip^.lpszName := PChar(FBCCAdr.Strings[i - 1]);
|
||||
{ +> Changes by Andreas Hoerig [mailto:andreas.hoerig@sillner.com] }
|
||||
PRecip^.lpszAddress := StrNew(PChar('SMTP:' + FBCCAdr.Strings[i - 1]));
|
||||
{ +< Changes }
|
||||
PRecip^.ulEIDSize := 0;
|
||||
PRecip^.lpEntryID := nil;
|
||||
Inc(PRecip);
|
||||
end;
|
||||
end;
|
||||
lpRecips := Recipients;
|
||||
|
||||
{ Now we process the attachments: }
|
||||
nFileCount := FAttachedFileName.Count;
|
||||
if nFileCount > 0 then
|
||||
begin
|
||||
GetMem(Attachments, nFileCount * sizeof(TMapiFileDesc));
|
||||
PFiles := Attachments;
|
||||
|
||||
{ Fist setting up the display names (without path): }
|
||||
FDisplayFileName.Clear;
|
||||
for i := 1 to FAttachedFileName.Count do
|
||||
FDisplayFileName.Add(ExtractFileName(FAttachedFileName[i - 1]));
|
||||
|
||||
if nFileCount > 0 then
|
||||
begin
|
||||
{ Now we pass the attached file (their paths) to the
|
||||
structure: }
|
||||
for i := 1 to FAttachedFileName.Count do
|
||||
begin
|
||||
{ Setting the complete Path }
|
||||
Attachments^.lpszPathName := PChar(FAttachedFileName.Strings[i - 1]);
|
||||
{ ... and the displayname: }
|
||||
Attachments^.lpszFileName := PChar(FDisplayFileName.Strings[i - 1]);
|
||||
Attachments^.ulReserved := 0;
|
||||
Attachments^.flFlags := 0;
|
||||
{ Position has to be -1, please see the WinApi Help
|
||||
for details. }
|
||||
Attachments^.nPosition := Cardinal(-1);
|
||||
Attachments^.lpFileType := nil;
|
||||
Inc(Attachments);
|
||||
end;
|
||||
end;
|
||||
lpFiles := PFiles;
|
||||
end
|
||||
else
|
||||
begin
|
||||
nFileCount := 0;
|
||||
lpFiles := nil;
|
||||
end;
|
||||
end;
|
||||
|
||||
{ Send the Mail, silent or verbose:
|
||||
Verbose means in Express a Mail is composed and shown as setup.
|
||||
In non-Express versions we show the Login-Dialog for a new
|
||||
session and after we have choosen the profile to use, the
|
||||
composed email is shown before sending
|
||||
|
||||
Silent does currently not work for non-Express version. We have
|
||||
no Session, no Login Dialog so the system refuses to compose a
|
||||
new email. In Express Versions the email is sent in the
|
||||
background.
|
||||
|
||||
Please Note: It seems that your success on the delivery depends
|
||||
on a combination of MAPI-Flags (MAPI_DIALOG, MAPI_LOGON_UI, ...)
|
||||
and your used OS and Office Version. I am currently using
|
||||
Win2K SP1 and Office 2K SP2 with no problems at all.
|
||||
If you experience problems on another versions, please try
|
||||
a different combination of flags for each purpose (Dialog or not).
|
||||
I would be glad to setup a table with working flags on
|
||||
each OS/Office combination, just drop me a line.
|
||||
|
||||
Possible combinations are also (with Dialog):
|
||||
1. MAPI_DIALOG or MAPI_LOGON_UI MAPI_NEW_SESSION or MAPI_USE_DEFAULT
|
||||
2. MAPI_SIMPLE_DEFAULT
|
||||
|
||||
See MAPI.PAS or MAPI.H (SDK) for more...
|
||||
}
|
||||
if FShowDialog then
|
||||
MError := MapiSendMail(0, AppHandle, MapiMessage, MAPI_DIALOG or MAPI_LOGON_UI or MAPI_NEW_SESSION, 0)
|
||||
else
|
||||
MError := MapiSendMail(0, AppHandle, MapiMessage, 0, 0);
|
||||
|
||||
{ Now we have to process the error messages. There are some
|
||||
defined in the MAPI unit please take a look at the unit to get
|
||||
familiar with it.
|
||||
I decided to handle USER_ABORT and SUCCESS as special and leave
|
||||
the rest to fire the "new" error event defined at the top (as
|
||||
generic error)
|
||||
|
||||
Not treated as special (constants from mapi.pas):
|
||||
|
||||
MAPI_E_FAILURE = 2;
|
||||
MAPI_E_LOGON_FAILURE = 3;
|
||||
MAPI_E_LOGIN_FAILURE = MAPI_E_LOGON_FAILURE;
|
||||
MAPI_E_DISK_FULL = 4;
|
||||
MAPI_E_INSUFFICIENT_MEMORY = 5;
|
||||
MAPI_E_ACCESS_DENIED = 6;
|
||||
MAPI_E_TOO_MANY_SESSIONS = 8;
|
||||
MAPI_E_TOO_MANY_FILES = 9;
|
||||
MAPI_E_TOO_MANY_RECIPIENTS = 10;
|
||||
MAPI_E_ATTACHMENT_NOT_FOUND = 11;
|
||||
MAPI_E_ATTACHMENT_OPEN_FAILURE = 12;
|
||||
MAPI_E_ATTACHMENT_WRITE_FAILURE = 13;
|
||||
MAPI_E_UNKNOWN_RECIPIENT = 14;
|
||||
MAPI_E_BAD_RECIPTYPE = 15;
|
||||
MAPI_E_NO_MESSAGES = 16;
|
||||
MAPI_E_INVALID_MESSAGE = 17;
|
||||
MAPI_E_TEXT_TOO_LARGE = 18;
|
||||
MAPI_E_INVALID_SESSION = 19;
|
||||
MAPI_E_TYPE_NOT_SUPPORTED = 20;
|
||||
MAPI_E_AMBIGUOUS_RECIPIENT = 21;
|
||||
MAPI_E_AMBIG_RECIP = MAPI_E_AMBIGUOUS_RECIPIENT;
|
||||
MAPI_E_MESSAGE_IN_USE = 22;
|
||||
MAPI_E_NETWORK_FAILURE = 23;
|
||||
MAPI_E_INVALID_EDITFIELDS = 24;
|
||||
MAPI_E_INVALID_RECIPS = 25;
|
||||
MAPI_E_NOT_SUPPORTED = 26;
|
||||
}
|
||||
|
||||
{ case MError of
|
||||
MAPI_E_USER_ABORT:
|
||||
begin
|
||||
if Assigned(FOnUserAbort) then
|
||||
FOnUserAbort(Self);
|
||||
end;
|
||||
SUCCESS_SUCCESS:
|
||||
begin
|
||||
if Assigned(FOnSuccess) then
|
||||
FOnSuccess(Self);
|
||||
end
|
||||
else
|
||||
begin
|
||||
if Assigned(FOnMapiError) then
|
||||
FOnMapiError(Self, MError);
|
||||
end;
|
||||
end;}
|
||||
Result := (MError = 0);
|
||||
|
||||
finally
|
||||
{ Finally we do the cleanups, the message should be on its way }
|
||||
{ +> Changes by Andreas Hoerig [mailto:andreas.hoerig@sillner.com] }
|
||||
PRecip := Recipients;
|
||||
for i := 1 to MapiMessage.nRecipCount do
|
||||
begin
|
||||
StrDispose(PRecip^.lpszAddress);
|
||||
Inc(PRecip)
|
||||
end;
|
||||
{ +< Changes }
|
||||
FreeMem(Recipients, MapiMessage.nRecipCount * sizeof(TMapiRecipDesc));
|
||||
{ +> Changes due to Ken Halliwell [mailto:kjhalliwell@aol.com] }
|
||||
if Assigned(PFiles) then
|
||||
FreeMem(PFiles, MapiMessage.nFileCount * sizeof(TMapiFileDesc));
|
||||
{ +< Changes }
|
||||
end;
|
||||
end;
|
||||
|
||||
end.
|
||||
@ -3,7 +3,7 @@ unit uIntegerListUtils;
|
||||
interface
|
||||
|
||||
uses
|
||||
Classes;
|
||||
Classes, FactuGES_Intf;
|
||||
|
||||
type
|
||||
TIntegerList = class(TList)
|
||||
@ -14,10 +14,15 @@ type
|
||||
procedure Add(Value: integer); reintroduce;
|
||||
function Find(Value: integer; var Index: Integer): Boolean;
|
||||
property Integers[index: integer]: integer read GetInteger write SetInteger; default;
|
||||
function ToIntegerArray : TIntegerArray;
|
||||
function ToString : String;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
uses
|
||||
SysUtils;
|
||||
|
||||
function TIntegerList.GetInteger(Index: integer): integer;
|
||||
begin
|
||||
result := Integer(Items[index]);
|
||||
@ -28,6 +33,30 @@ begin
|
||||
Items[index] := Pointer(Value);
|
||||
end;
|
||||
|
||||
function TIntegerList.ToIntegerArray: TIntegerArray;
|
||||
var
|
||||
i : Integer;
|
||||
begin
|
||||
Result := TIntegerArray.Create;
|
||||
for i := 0 to Count - 1 do
|
||||
Result.Add(Integers[i]);
|
||||
end;
|
||||
|
||||
function TIntegerList.ToString: String;
|
||||
var
|
||||
i : Integer;
|
||||
AList : TStringList;
|
||||
begin
|
||||
AList := TStringList.Create;
|
||||
try
|
||||
for i := 0 to Count - 1 do
|
||||
AList.Add(IntToStr(Integers[i]));
|
||||
Result := AList.CommaText;
|
||||
finally
|
||||
FreeANDNIL(AList);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TIntegerList.Add(Value: integer);
|
||||
var
|
||||
Index: integer;
|
||||
@ -59,3 +88,4 @@ begin
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
|
||||
@ -20,33 +20,70 @@
|
||||
---------------------------------------------------------------------------
|
||||
===============================================================================
|
||||
}
|
||||
|
||||
unit uSistemaFunc;
|
||||
|
||||
interface
|
||||
|
||||
uses SysUtils, Classes;
|
||||
|
||||
{ Funciones del sistema }
|
||||
function Ejecutar (const LineaComando: String; Oculto, Esperar: Boolean) : Boolean;
|
||||
procedure EscribirEnFichero (NombreFichero, Texto : string);
|
||||
function DarRutaTemporal : String;
|
||||
function DarDirectorioTemporal : String;
|
||||
function DarFicheroTemporal : String;
|
||||
function DarFicheroJPGTemporal : String;
|
||||
function DarFicheroBMPTemporal : String;
|
||||
function DarFicheroTIFFTemporal : String;
|
||||
function DarFicheroExportar (var Fichero : String) : Boolean;
|
||||
function DarFicheroHTMLTemporal : String;
|
||||
function DarFicheroExcelTemporal : String;
|
||||
function DarFicheroPDFTemporal : String; overload;
|
||||
function DarFicheroPDFTemporal(const AFileName : String) : String; overload;
|
||||
function DarVersionFichero (Executable : String) : String;
|
||||
function DarFechaFichero (Executable : String) : String;
|
||||
procedure CopiarFichero(const Origen, Destino: string);
|
||||
procedure DoDelTree( TheDir : String);
|
||||
procedure Deltree(DirToKill : String; KillChoosenDir : Boolean);
|
||||
function GetSpecialFolderPath(folder : integer) : string;
|
||||
function PreguntarRuta(const ATitulo: String; const AComentario: String; var ARuta: String): Boolean;
|
||||
function PreguntarFicheroWordExportar (var Fichero : String) : Boolean;
|
||||
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
|
||||
SysUtils, Windows, Dialogs,
|
||||
Windows, Variants, Dialogs, JclFileUtils,
|
||||
Messages, Graphics, Controls, Forms,
|
||||
StdCtrls, SHFolder, cxShellBrowserDialog,
|
||||
cxLookAndFeels, uStringsUtils;
|
||||
|
||||
|
||||
function GetSpecialFolderPath(folder : integer) : string;
|
||||
const
|
||||
SHGFP_TYPE_CURRENT = 0;
|
||||
var
|
||||
path: array [0..MAX_PATH] of char;
|
||||
begin
|
||||
if SUCCEEDED(SHGetFolderPath(0, folder, 0, SHGFP_TYPE_CURRENT, @path[0])) then
|
||||
Result := path
|
||||
else
|
||||
Result := '';
|
||||
end;
|
||||
|
||||
procedure EscribirEnFichero (NombreFichero, Texto : string);
|
||||
var
|
||||
FicheroAux : TextFile;
|
||||
begin
|
||||
SysUtils.DeleteFile(NombreFichero);
|
||||
AssignFile(FicheroAux, NombreFichero);
|
||||
Rewrite(FicheroAux);
|
||||
WriteLn(FicheroAux, Texto);
|
||||
CloseFile(FicheroAux);
|
||||
end;
|
||||
|
||||
Messages, Classes, Graphics, Controls, Forms,
|
||||
StdCtrls;
|
||||
|
||||
function Ejecutar (const LineaComando: String; Oculto, Esperar: Boolean): Boolean;
|
||||
var
|
||||
@ -112,6 +149,30 @@ begin
|
||||
Result := Copy(Cadena, 0, (Length(Cadena)-3)) + 'tif';
|
||||
end;
|
||||
|
||||
function DarFicheroPDFTemporal : String;
|
||||
var
|
||||
Cadena : String;
|
||||
begin
|
||||
Cadena := DarFicheroTemporal;
|
||||
Result := Copy(Cadena, 0, (Length(Cadena)-3)) + 'pdf';
|
||||
end;
|
||||
|
||||
function DarFicheroPDFTemporal(const AFileName : String) : String;
|
||||
var
|
||||
Cadena : String;
|
||||
RutaTmp : string;
|
||||
begin
|
||||
if not EsCadenaVacia(AFileName) then
|
||||
begin
|
||||
RutaTmp := DarRutaTemporal;
|
||||
Cadena := ExtractFileName(AFileName);
|
||||
Cadena := StringReplace(Cadena, ExtractFileExt(Cadena), '', []);
|
||||
Result := RutaTmp + Cadena + '.pdf';
|
||||
end
|
||||
else
|
||||
Result := DarFicheroPDFTemporal;
|
||||
end;
|
||||
|
||||
function DarFicheroBMPTemporal : String;
|
||||
var
|
||||
Cadena : String;
|
||||
@ -120,6 +181,22 @@ begin
|
||||
Result := Copy(Cadena, 0, (Length(Cadena)-3)) + 'bmp';
|
||||
end;
|
||||
|
||||
function DarFicheroExcelTemporal : String;
|
||||
var
|
||||
Cadena : String;
|
||||
begin
|
||||
Cadena := DarFicheroTemporal;
|
||||
Result := Copy(Cadena, 0, (Length(Cadena)-3)) + 'xls';
|
||||
end;
|
||||
|
||||
function DarFicheroHTMLTemporal : String;
|
||||
var
|
||||
Cadena : String;
|
||||
begin
|
||||
Cadena := DarFicheroTemporal;
|
||||
Result := Copy(Cadena, 0, (Length(Cadena)-3)) + 'html';
|
||||
end;
|
||||
|
||||
function DarFicheroJPGTemporal : String;
|
||||
var
|
||||
Cadena : String;
|
||||
@ -128,7 +205,7 @@ begin
|
||||
Result := Copy(Cadena, 0, (Length(Cadena)-3)) + 'jpg';
|
||||
end;
|
||||
|
||||
function DarFicheroExportar (var Fichero : String) : Boolean;
|
||||
function PreguntarFicheroWordExportar (var Fichero : String) : Boolean;
|
||||
var
|
||||
DialogoSalvar : TSaveDialog;
|
||||
begin
|
||||
@ -149,29 +226,38 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
function PreguntarFicheroExcelExportar (var Fichero : String) : Boolean;
|
||||
var
|
||||
DialogoSalvar : TSaveDialog;
|
||||
begin
|
||||
DialogoSalvar := TSaveDialog.Create(NIL);
|
||||
try
|
||||
with DialogoSalvar do
|
||||
begin
|
||||
DefaultExt := 'xls';
|
||||
Filter := 'Documento de Excel (*.xls)|*.xls';
|
||||
FilterIndex := 0;
|
||||
Options := [ofOverwritePrompt, ofHideReadOnly, ofPathMustExist, ofEnableSizing];
|
||||
end;
|
||||
Result := DialogoSalvar.Execute;
|
||||
if Result then
|
||||
Fichero := DialogoSalvar.FileName;
|
||||
finally
|
||||
DialogoSalvar.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
|
||||
function DarVersionFichero (Executable : String) : String;
|
||||
var
|
||||
Size, Size2: DWord;
|
||||
Pt, Pt2: Pointer;
|
||||
Obj : TJclFileVersionInfo;
|
||||
begin
|
||||
Size := GetFileVersionInfoSize(PChar (Executable), Size2);
|
||||
if Size > 0 then
|
||||
begin
|
||||
GetMem (Pt, Size);
|
||||
try
|
||||
GetFileVersionInfo (PChar (Executable), 0, Size, Pt);
|
||||
VerQueryValue (Pt, '\', Pt2, Size2);
|
||||
with TVSFixedFileInfo (Pt2^) do
|
||||
begin
|
||||
Result:= IntToStr (HiWord (dwFileVersionMS)) + '.' +
|
||||
IntToStr (LoWord (dwFileVersionMS)) + '.' +
|
||||
IntToStr (HiWord (dwFileVersionLS)) + '.' +
|
||||
IntToStr (LoWord (dwFileVersionLS));
|
||||
end;
|
||||
finally
|
||||
FreeMem (Pt);
|
||||
end;
|
||||
end;
|
||||
Obj := TJclFileVersionInfo.Create(Application.ExeName);
|
||||
try
|
||||
Result := Obj.FileVersion;
|
||||
finally
|
||||
FreeAndNil(Obj);
|
||||
end;
|
||||
end;
|
||||
|
||||
function DarFechaFichero (Executable : String) : String;
|
||||
@ -251,5 +337,127 @@ begin
|
||||
end;
|
||||
|
||||
|
||||
function PreguntarRuta(const ATitulo: String; const AComentario: String; var ARuta: String): Boolean;
|
||||
var
|
||||
cxShellBrowserDialog1: TcxShellBrowserDialog;
|
||||
begin
|
||||
cxShellBrowserDialog1 := TcxShellBrowserDialog.Create(NIL);
|
||||
try
|
||||
with cxShellBrowserDialog1 do
|
||||
begin
|
||||
Name := 'cxShellBrowserDialog1';
|
||||
FolderLabelCaption := AComentario;
|
||||
LookAndFeel.NativeStyle := True;
|
||||
LookAndFeel.Kind := lfStandard;
|
||||
Title := ATitulo;
|
||||
|
||||
Result := cxShellBrowserDialog1.Execute;
|
||||
ARuta := cxShellBrowserDialog1.Path;
|
||||
end;
|
||||
finally
|
||||
FreeANDNIL(cxShellBrowserDialog1);
|
||||
end;
|
||||
end;
|
||||
|
||||
|
||||
function EscapeIllegalChars(AFileName: string): string;
|
||||
var
|
||||
x: integer;
|
||||
const
|
||||
IllegalCharSet: set of char =
|
||||
['|','<','>','\','^','+','=','?','/','[',']','"',';',',','*'];
|
||||
begin
|
||||
for x := 1 to Length(AFileName) do
|
||||
if AFileName[x] in IllegalCharSet then
|
||||
AFileName[x] := '_';
|
||||
Result := AFileName;
|
||||
end;
|
||||
|
||||
function FindFile(const filespec: TFileName; attributes: integer): TStringList;
|
||||
var
|
||||
spec: string;
|
||||
list: TStringList;
|
||||
|
||||
procedure RFindFile(const folder: TFileName);
|
||||
var
|
||||
SearchRec: TSearchRec;
|
||||
begin
|
||||
// Locate all matching files in the current
|
||||
// folder and add their names to the list
|
||||
if FindFirst(folder + spec, attributes, SearchRec) = 0 then begin
|
||||
try
|
||||
repeat
|
||||
if (SearchRec.Attr and faDirectory = 0) or
|
||||
(SearchRec.Name <> '.') and (SearchRec.Name <> '..') then
|
||||
list.Add(folder + SearchRec.Name);
|
||||
until FindNext(SearchRec) <> 0;
|
||||
except
|
||||
SysUtils.FindClose(SearchRec);
|
||||
raise;
|
||||
end;
|
||||
SysUtils.FindClose(SearchRec);
|
||||
end;
|
||||
// Now search the subfolders
|
||||
if FindFirst(folder + '*', attributes
|
||||
Or faDirectory, SearchRec) = 0 then
|
||||
begin
|
||||
try
|
||||
repeat
|
||||
if ((SearchRec.Attr and faDirectory) <> 0) and
|
||||
(SearchRec.Name <> '.') and (SearchRec.Name <> '..') then
|
||||
RFindFile(folder + SearchRec.Name + '\');
|
||||
until FindNext(SearchRec) <> 0;
|
||||
except
|
||||
SysUtils.FindClose(SearchRec);
|
||||
raise;
|
||||
end;
|
||||
SysUtils.FindClose(SearchRec);
|
||||
end;
|
||||
end; // procedure RFindFile inside of FindFile
|
||||
|
||||
begin // function FindFile
|
||||
list := TStringList.Create;
|
||||
try
|
||||
spec := ExtractFileName(filespec);
|
||||
RFindFile(ExtractFilePath(filespec));
|
||||
Result := list;
|
||||
except
|
||||
list.Free;
|
||||
raise;
|
||||
end;
|
||||
end;
|
||||
|
||||
function DarDirectorioTemporal : String;
|
||||
var
|
||||
Cadena: String;
|
||||
begin
|
||||
Cadena := ExtractFileName(DarFicheroTemporal);
|
||||
Cadena := StringReplace(Cadena, ExtractFileExt(Cadena), '', []);
|
||||
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.
|
||||
|
||||
|
||||
|
||||
@ -38,7 +38,8 @@ implementation
|
||||
|
||||
uses
|
||||
uDataModuleConexion, Dialogs, TBX, TBXThemes, Forms, Windows,
|
||||
JclFileUtils, cxControls, SysUtils, uDataModuleConfiguracion;
|
||||
JclFileUtils, cxControls, SysUtils, uDataModuleConfiguracion,
|
||||
uDataModuleImpresiones;
|
||||
|
||||
{
|
||||
*********************************** TdmBase ************************************
|
||||
@ -47,6 +48,7 @@ procedure TdmBase.DAClientDataModuleCreate(Sender: TObject);
|
||||
begin
|
||||
dmConexion := TdmConexion.Create(NIL);
|
||||
dmConfiguracion := TdmConfiguracion.Create(NIL);
|
||||
dmImpresiones := TDataModuleImpresiones.Create(NIL);
|
||||
|
||||
TBXSwitcher.OnThemeChange := OnTBXThemeChange;
|
||||
TBXSetTheme('Office2003');
|
||||
@ -114,6 +116,7 @@ procedure TdmBase.DataModuleDestroy(Sender: TObject);
|
||||
begin
|
||||
FreeANDNIL(dmConfiguracion);
|
||||
FreeAndNil(dmConexion);
|
||||
FreeAndNil(dmImpresiones);
|
||||
end;
|
||||
|
||||
initialization
|
||||
|
||||
@ -148,8 +148,8 @@
|
||||
<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
|
||||
<VersionInfo Name="AutoIncBuild">False</VersionInfo>
|
||||
<VersionInfo Name="MajorVer">3</VersionInfo>
|
||||
<VersionInfo Name="MinorVer">0</VersionInfo>
|
||||
<VersionInfo Name="Release">2</VersionInfo>
|
||||
<VersionInfo Name="MinorVer">3</VersionInfo>
|
||||
<VersionInfo Name="Release">7</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.0.2.0</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="FileVersion">3.3.7.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.0.2.0</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="ProductVersion">3.3.7.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=519
|
||||
EurekaLog Version=6014
|
||||
Activate=0
|
||||
Activate Handle=1
|
||||
Save Log File=1
|
||||
@ -491,5 +491,190 @@ 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>
|
||||
|
||||
@ -13,8 +13,6 @@ uses
|
||||
uMainMenuController in 'uMainMenuController.pas',
|
||||
uClienteUtils in 'Utiles\uClienteUtils.pas';
|
||||
|
||||
|
||||
|
||||
{$R *.res}
|
||||
|
||||
var
|
||||
|
||||
@ -1,7 +1,7 @@
|
||||
MAINICON ICON "c:\Codigo Luis Leon\Source\Iconos\Factuges.ico"
|
||||
1 VERSIONINFO
|
||||
FILEVERSION 3,0,0,0
|
||||
PRODUCTVERSION 3,0,0,0
|
||||
FILEVERSION 3,3,7,0
|
||||
PRODUCTVERSION 3,3,7,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.0.0.0\0"
|
||||
VALUE "FileVersion", "3.3.7.0\0"
|
||||
VALUE "InternalName", "FactuGES\0"
|
||||
VALUE "ProductVersion", "3.0.0.0\0"
|
||||
VALUE "ProductVersion", "3.3.7.0\0"
|
||||
END
|
||||
END
|
||||
BLOCK "VarFileInfo"
|
||||
|
||||
Binary file not shown.
@ -2,7 +2,7 @@ object fPantallaPrincipal: TfPantallaPrincipal
|
||||
Left = 358
|
||||
Top = 250
|
||||
Caption = 'Pantalla principal'
|
||||
ClientHeight = 662
|
||||
ClientHeight = 681
|
||||
ClientWidth = 559
|
||||
Color = clWindow
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
@ -23,7 +23,7 @@ object fPantallaPrincipal: TfPantallaPrincipal
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 559
|
||||
Height = 640
|
||||
Height = 659
|
||||
Margins.Left = 5
|
||||
Margins.Top = 5
|
||||
Margins.Right = 5
|
||||
@ -31,11 +31,12 @@ object fPantallaPrincipal: TfPantallaPrincipal
|
||||
ParentColor = True
|
||||
Align = alClient
|
||||
TabOrder = 0
|
||||
ExplicitHeight = 640
|
||||
object JvSyncSplitter1: TJvSyncSplitter
|
||||
Left = 215
|
||||
Top = 5
|
||||
Width = 5
|
||||
Height = 630
|
||||
Height = 649
|
||||
ResizeStyle = rsPattern
|
||||
ExplicitLeft = 210
|
||||
ExplicitHeight = 570
|
||||
@ -44,7 +45,7 @@ object fPantallaPrincipal: TfPantallaPrincipal
|
||||
Left = 5
|
||||
Top = 5
|
||||
Width = 210
|
||||
Height = 630
|
||||
Height = 649
|
||||
ActivePage = pagInicio
|
||||
Align = alLeft
|
||||
AutoHeaders = True
|
||||
@ -85,11 +86,12 @@ object fPantallaPrincipal: TfPantallaPrincipal
|
||||
NavPanelHotTrackFont.Style = []
|
||||
SmallImages = ModulesSmallImageList
|
||||
OnChange = JvNavigationPaneChange
|
||||
ExplicitHeight = 630
|
||||
object pagInicio: TJvNavPanelPage
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 208
|
||||
Height = 557
|
||||
Height = 576
|
||||
Background.Stretch = False
|
||||
Background.Proportional = False
|
||||
Background.Center = False
|
||||
@ -97,15 +99,17 @@ object fPantallaPrincipal: TfPantallaPrincipal
|
||||
Background.Transparent = False
|
||||
Caption = 'Inicio'
|
||||
ImageIndex = 0
|
||||
ExplicitHeight = 557
|
||||
object Panel1: TPanel
|
||||
Left = 0
|
||||
Top = 471
|
||||
Top = 490
|
||||
Width = 208
|
||||
Height = 86
|
||||
Align = alBottom
|
||||
Color = clWindow
|
||||
ParentBackground = False
|
||||
TabOrder = 1
|
||||
ExplicitTop = 471
|
||||
object Label1: TLabel
|
||||
Left = 38
|
||||
Top = 29
|
||||
@ -153,19 +157,21 @@ object fPantallaPrincipal: TfPantallaPrincipal
|
||||
Left = 220
|
||||
Top = 5
|
||||
Width = 334
|
||||
Height = 630
|
||||
Height = 649
|
||||
BoundColor = clActiveCaption
|
||||
BoundLines = [blLeft, blTop, blRight, blBottom]
|
||||
Caption = 'pnlBorde'
|
||||
Align = alClient
|
||||
ExplicitHeight = 630
|
||||
object pnlMain: TTBXAlignmentPanel
|
||||
Left = 1
|
||||
Top = 1
|
||||
Width = 332
|
||||
Height = 628
|
||||
Height = 647
|
||||
Align = alClient
|
||||
Color = clWindow
|
||||
TabOrder = 0
|
||||
ExplicitHeight = 628
|
||||
object lblBienvenido: TLabel
|
||||
Left = 8
|
||||
Top = 8
|
||||
@ -202,7 +208,7 @@ object fPantallaPrincipal: TfPantallaPrincipal
|
||||
end
|
||||
object TBXStatusBar1: TTBXStatusBar
|
||||
Left = 0
|
||||
Top = 640
|
||||
Top = 659
|
||||
Width = 559
|
||||
Images = StatusPanelImageList
|
||||
Panels = <
|
||||
@ -224,6 +230,7 @@ object fPantallaPrincipal: TfPantallaPrincipal
|
||||
Tag = 0
|
||||
end>
|
||||
UseSystemFont = False
|
||||
ExplicitTop = 640
|
||||
end
|
||||
object XPManifest1: TXPManifest
|
||||
Left = 248
|
||||
@ -494,7 +501,7 @@ object fPantallaPrincipal: TfPantallaPrincipal
|
||||
object JvAppRegistryStorage: TJvAppRegistryStorage
|
||||
StorageOptions.BooleanStringTrueValues = 'TRUE, YES, Y'
|
||||
StorageOptions.BooleanStringFalseValues = 'FALSE, NO, N'
|
||||
Root = 'Software\%APPL_NAME%'
|
||||
Root = 'Software\FactuGES'
|
||||
SubStorages = <>
|
||||
Left = 504
|
||||
Top = 128
|
||||
|
||||
@ -19,11 +19,6 @@
|
||||
<Projects Name="Usuarios.bpl">Base\Usuarios\Usuarios.bdsproj</Projects>
|
||||
<Projects Name="Empresas_view.bpl">Modulos\Empresas\Views\Empresas_view.bdsproj</Projects>
|
||||
<Projects Name="Empresas_plugin.bpl">Modulos\Empresas\Plugin\Empresas_plugin.bdsproj</Projects>
|
||||
<Projects Name="TiposIVA_model.bpl">Modulos\Tipos de IVA\Model\TiposIVA_model.bdsproj</Projects>
|
||||
<Projects Name="TiposIVA_data.bpl">Modulos\Tipos de IVA\Data\TiposIVA_data.bdsproj</Projects>
|
||||
<Projects Name="TiposIVA_controller.bpl">Modulos\Tipos de IVA\Controller\TiposIVA_controller.bdsproj</Projects>
|
||||
<Projects Name="TiposIVA_view.bpl">Modulos\Tipos de IVA\Views\TiposIVA_view.bdsproj</Projects>
|
||||
<Projects Name="TiposIVA_plugin.bpl">Modulos\Tipos de IVA\Plugin\TiposIVA_plugin.bdsproj</Projects>
|
||||
<Projects Name="Contactos_model.bpl">Modulos\Contactos\Model\Contactos_model.bdsproj</Projects>
|
||||
<Projects Name="Contactos_data.bpl">Modulos\Contactos\Data\Contactos_data.bdsproj</Projects>
|
||||
<Projects Name="Contactos_controller.bpl">Modulos\Contactos\Controller\Contactos_controller.bdsproj</Projects>
|
||||
@ -47,8 +42,6 @@
|
||||
<Projects Name="RemesasCliente_model.bpl">Modulos\Remesas de cliente\Model\RemesasCliente_model.bdsproj</Projects>
|
||||
<Projects Name="RemesasCliente_data.bpl">Modulos\Remesas de cliente\Data\RemesasCliente_data.bdsproj</Projects>
|
||||
<Projects Name="RemesasCliente_controller.bpl">Modulos\Remesas de cliente\Controller\RemesasCliente_controller.bdsproj</Projects>
|
||||
<Projects Name="BancaElectronica_controller.bpl">Modulos\Banca electronica\Controller\BancaElectronica_controller.bdsproj</Projects>
|
||||
<Projects Name="BancaElectronica_view.bpl">Modulos\Banca electronica\Views\BancaElectronica_view.bdsproj</Projects>
|
||||
<Projects Name="RemesasCliente_view.bpl">Modulos\Remesas de cliente\Views\RemesasCliente_view.bdsproj</Projects>
|
||||
<Projects Name="RemesasCliente_plugin.bpl">Modulos\Remesas de cliente\Plugin\RemesasCliente_plugin.bdsproj</Projects>
|
||||
<Projects Name="PedidosCliente_model.bpl">Modulos\Pedidos de cliente\Model\PedidosCliente_model.bdsproj</Projects>
|
||||
@ -83,12 +76,14 @@
|
||||
<Projects Name="PedidosProveedor_plugin.bpl">Modulos\Pedidos a proveedor\Plugin\PedidosProveedor_plugin.bdsproj</Projects>
|
||||
<Projects Name="AlbaranesProveedor_view.bpl">Modulos\Albaranes de proveedor\Views\AlbaranesProveedor_view.bdsproj</Projects>
|
||||
<Projects Name="AlbaranesProveedor_plugin.bpl">Modulos\Albaranes de proveedor\Plugin\AlbaranesProveedor_plugin.bdsproj</Projects>
|
||||
<Projects Name="FormasPago_controller.bpl">Modulos\Formas de pago\Controller\FormasPago_controller.bdsproj</Projects>
|
||||
<Projects Name="FormasPago_view.bpl">Modulos\Formas de pago\Views\FormasPago_view.bdsproj</Projects>
|
||||
<Projects Name="FactuGES.exe">Cliente\FactuGES.bdsproj</Projects>
|
||||
<Projects Name="FactuGES_Server.exe">Servidor\FactuGES_Server.bdsproj</Projects>
|
||||
<Projects Name="FormasPago_model.bpl">Modulos\Formas de pago\Model\FormasPago_model.bdsproj</Projects>
|
||||
<Projects Name="Targets">DataAbstract_D10.bpl Base.bpl ControllerBase.bpl GUIBase.bpl Empresas_model.bpl Empresas_data.bpl Empresas_controller.bpl Usuarios.bpl Empresas_view.bpl Empresas_plugin.bpl TiposIVA_model.bpl TiposIVA_data.bpl TiposIVA_controller.bpl TiposIVA_view.bpl TiposIVA_plugin.bpl Contactos_model.bpl Contactos_data.bpl Contactos_controller.bpl Contactos_view.bpl Contactos_plugin.bpl Almacenes_model.bpl Almacenes_data.bpl Almacenes_controller.bpl Almacenes_view.bpl Almacenes_plugin.bpl Articulos_model.bpl Articulos_data.bpl Articulos_controller.bpl Articulos_view.bpl Articulos_plugin.bpl RecibosCliente_model.bpl RecibosCliente_data.bpl RecibosCliente_controller.bpl RecibosCliente_view.bpl RecibosCliente_plugin.bpl RemesasCliente_model.bpl RemesasCliente_data.bpl RemesasCliente_controller.bpl BancaElectronica_controller.bpl BancaElectronica_view.bpl RemesasCliente_view.bpl RemesasCliente_plugin.bpl PedidosCliente_model.bpl PedidosCliente_data.bpl PedidosCliente_controller.bpl AlbaranesCliente_model.bpl AlbaranesCliente_data.bpl AlbaranesCliente_controller.bpl FacturasCliente_model.bpl FacturasCliente_data.bpl FacturasCliente_controller.bpl PedidosProveedor_model.bpl PedidosProveedor_data.bpl PedidosProveedor_controller.bpl Inventario_model.bpl Inventario_data.bpl Inventario_controller.bpl AlbaranesProveedor_model.bpl AlbaranesProveedor_data.bpl AlbaranesProveedor_controller.bpl PedCli_PedProv_relation.bpl PedCli_AlbCli_relation.bpl PedidosCliente_view.bpl PedidosCliente_plugin.bpl AlbaranesCliente_view.bpl AlbaranesCliente_plugin.bpl FacturasCliente_view.bpl FacturasCliente_plugin.bpl Inventario_view.bpl Inventario_plugin.bpl PedidosProveedor_view.bpl PedidosProveedor_plugin.bpl AlbaranesProveedor_view.bpl AlbaranesProveedor_plugin.bpl FormasPago_controller.bpl FormasPago_view.bpl FactuGES.exe FactuGES_Server.exe FormasPago_model.bpl</Projects>
|
||||
<Projects Name="Comisiones_model.bpl">Modulos\Comisiones\Model\Comisiones_model.bdsproj</Projects>
|
||||
<Projects Name="Comisiones_data.bpl">Modulos\Comisiones\Data\Comisiones_data.bdsproj</Projects>
|
||||
<Projects Name="Comisiones_controller.bpl">Modulos\Comisiones\Controller\Comisiones_controller.bdsproj</Projects>
|
||||
<Projects Name="Comisiones_view.bpl">Modulos\Comisiones\Views\Comisiones_view.bdsproj</Projects>
|
||||
<Projects Name="Comisiones_plugin.bpl">Modulos\Comisiones\Plugin\Comisiones_plugin.bdsproj</Projects>
|
||||
<Projects Name="Targets">DataAbstract_D10.bpl Base.bpl ControllerBase.bpl GUIBase.bpl Empresas_model.bpl Empresas_data.bpl Empresas_controller.bpl Usuarios.bpl Empresas_view.bpl Empresas_plugin.bpl Contactos_model.bpl Contactos_data.bpl Contactos_controller.bpl Contactos_view.bpl Contactos_plugin.bpl Almacenes_model.bpl Almacenes_data.bpl Almacenes_controller.bpl Almacenes_view.bpl Almacenes_plugin.bpl Articulos_model.bpl Articulos_data.bpl Articulos_controller.bpl Articulos_view.bpl Articulos_plugin.bpl RecibosCliente_model.bpl RecibosCliente_data.bpl RecibosCliente_controller.bpl RecibosCliente_view.bpl RecibosCliente_plugin.bpl RemesasCliente_model.bpl RemesasCliente_data.bpl RemesasCliente_controller.bpl RemesasCliente_view.bpl RemesasCliente_plugin.bpl PedidosCliente_model.bpl PedidosCliente_data.bpl PedidosCliente_controller.bpl AlbaranesCliente_model.bpl AlbaranesCliente_data.bpl AlbaranesCliente_controller.bpl FacturasCliente_model.bpl FacturasCliente_data.bpl FacturasCliente_controller.bpl PedidosProveedor_model.bpl PedidosProveedor_data.bpl PedidosProveedor_controller.bpl Inventario_model.bpl Inventario_data.bpl Inventario_controller.bpl AlbaranesProveedor_model.bpl AlbaranesProveedor_data.bpl AlbaranesProveedor_controller.bpl PedCli_PedProv_relation.bpl PedCli_AlbCli_relation.bpl PedidosCliente_view.bpl PedidosCliente_plugin.bpl AlbaranesCliente_view.bpl AlbaranesCliente_plugin.bpl FacturasCliente_view.bpl FacturasCliente_plugin.bpl Inventario_view.bpl Inventario_plugin.bpl PedidosProveedor_view.bpl PedidosProveedor_plugin.bpl AlbaranesProveedor_view.bpl AlbaranesProveedor_plugin.bpl FactuGES.exe FactuGES_Server.exe Comisiones_model.bpl Comisiones_data.bpl Comisiones_controller.bpl Comisiones_view.bpl Comisiones_plugin.bpl</Projects>
|
||||
</Projects>
|
||||
<Dependencies/>
|
||||
</Default.Personality>
|
||||
|
||||
BIN
Source/Iconos/Generales/16x16/Mail.png
Normal file
BIN
Source/Iconos/Generales/16x16/Mail.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 592 B |
Binary file not shown.
BIN
Source/Iconos/Generales/16x16/header_email.png
Normal file
BIN
Source/Iconos/Generales/16x16/header_email.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 1.1 KiB |
BIN
Source/Iconos/Generales/16x16/header_printer.png
Normal file
BIN
Source/Iconos/Generales/16x16/header_printer.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 1.2 KiB |
BIN
Source/Iconos/Generales/24x24/Mail.png
Normal file
BIN
Source/Iconos/Generales/24x24/Mail.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 775 B |
BIN
Source/Iconos/Generales/28x28/Mail.png
Normal file
BIN
Source/Iconos/Generales/28x28/Mail.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 976 B |
Binary file not shown.
|
Before Width: | Height: | Size: 6.2 KiB |
BIN
Source/Iconos/fondo.jpg
Normal file
BIN
Source/Iconos/fondo.jpg
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 7.2 KiB |
BIN
Source/Iconos/logo.jpg
Normal file
BIN
Source/Iconos/logo.jpg
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 9.3 KiB |
BIN
Source/Iconos/no_comisionable.png
Normal file
BIN
Source/Iconos/no_comisionable.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 290 B |
58
Source/Informes/1/InfAlbaranCliente.fr3
Normal file
58
Source/Informes/1/InfAlbaranCliente.fr3
Normal file
File diff suppressed because one or more lines are too long
80
Source/Informes/1/InfFacturaCliente.fr3
Normal file
80
Source/Informes/1/InfFacturaCliente.fr3
Normal file
File diff suppressed because one or more lines are too long
45
Source/Informes/1/InfPedidoCliente.fr3
Normal file
45
Source/Informes/1/InfPedidoCliente.fr3
Normal file
File diff suppressed because one or more lines are too long
58
Source/Informes/2/InfAlbaranCliente.fr3
Normal file
58
Source/Informes/2/InfAlbaranCliente.fr3
Normal file
File diff suppressed because one or more lines are too long
37
Source/Informes/2/InfAlbaranProveedor.fr3
Normal file
37
Source/Informes/2/InfAlbaranProveedor.fr3
Normal file
@ -0,0 +1,37 @@
|
||||
<?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=" procedure DatosEmpresaOnBeforePrint(Sender: TfrxComponent); var Cadena: String; begin DatosEmpresa.Lines.Clear; if (<frxDBCabecera."TELEFONO_1_EMPRESA"> <> '') then Cadena := 'TLF: ' + <frxDBCabecera."TELEFONO_1_EMPRESA">; if (<frxDBCabecera."FAX_EMPRESA"> <> '') then Cadena := Cadena + ' FAX: ' + <frxDBCabecera."FAX_EMPRESA">; DatosEmpresa.Lines.Add(Cadena); end; procedure NombreEmpresaOnBeforePrint(Sender: TfrxComponent); begin NombreEmpresa.Lines.Clear; NombreEmpresa.Lines.Add(<frxDBCabecera."NOMBRE_EMPRESA">); end; procedure DireccionEnvioOnBeforePrint(Sender: TfrxComponent); var ACadena : String; begin ACadena := ''; DireccionEnvio.Lines.Clear; if (<frxDBCabecera."PERSONA_CONTACTO"> <> '') then ACadena := <frxDBCabecera."PERSONA_CONTACTO">; if (<frxDBCabecera."TELEFONO"> <> '') then ACadena := ACadena + ' (tlf: ' + <frxDBCabecera."TELEFONO"> + ' )'; DireccionEnvio.Lines.Add(ACadena); ACadena := ''; DireccionEnvio.Lines.Add(ACadena); DireccionEnvio.Lines.Add(<frxDBCabecera."CALLE">); if (<frxDBCabecera."CODIGO_POSTAL"> <> '') then ACadena := <frxDBCabecera."CODIGO_POSTAL"> + ' '; if (<frxDBCabecera."POBLACION"> <> '') then ACadena := ACadena + <frxDBCabecera."CODIGO_POSTAL">; if (ACadena <> '') then DireccionEnvio.Lines.Add(ACadena); if (<frxDBCabecera."PROVINCIA"> <> '') 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('ORDEN DE DEVOLUCIÓN') else Memo2.Lines.Add('ALBARÁN DE PROVEEDOR') end; procedure Memo5OnBeforePrint(Sender: TfrxComponent); begin if (StrToFloat(<frxDBCabecera."IMPORTE_TOTAL">) < 0) then begin Memo5.Lines.Clear; Memo5.Lines.Add('Nº orden:'); end; end; procedure Memo1OnBeforePrint(Sender: TfrxComponent); begin if (StrToFloat(<frxDBCabecera."IMPORTE_TOTAL">) < 0) then begin Memo1.Lines.Clear; Memo1.Lines.Add('Fecha orden:'); end; end; procedure PageHeader1OnBeforePrint(Sender: TfrxComponent); begin if not Engine.FinalPass then Set('TotalPaginas', (<TotalPaginas> + 1)); if Engine.FinalPass then Set('Pagina', (<Pagina> + 1)); end; procedure frxReportOnStartReport(Sender: TfrxComponent); begin Set('Pagina', 0); Set('TotalPaginas', 0); end; begin 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."REFERENCIA_PROVEEDOR"] "/>
|
||||
<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."CANTIDAD"]"/>
|
||||
</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="[<Pagina>] / [<TotalPaginas>]"/>
|
||||
<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."NOMBRE"]"/>
|
||||
<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."REFERENCIA"]"/>
|
||||
<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."FECHA_ALBARAN"]"/>
|
||||
<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
Normal file
49
Source/Informes/2/InfComisiones.fr3
Normal file
File diff suppressed because one or more lines are too long
55
Source/Informes/2/InfComisionesDesglosado.fr3
Normal file
55
Source/Informes/2/InfComisionesDesglosado.fr3
Normal file
File diff suppressed because one or more lines are too long
21
Source/Informes/2/InfEtiquetasAlbaranCliente.fr3
Normal file
21
Source/Informes/2/InfEtiquetasAlbaranCliente.fr3
Normal file
@ -0,0 +1,21 @@
|
||||
<?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=" procedure NombreEmpresaOnBeforePrint(Sender: TfrxComponent); begin NombreEmpresa.Lines.Clear; NombreEmpresa.Lines.Add(<frxDBCabecera."NOMBRE_EMPRESA">); end; procedure TelefonosEmpresaOnBeforePrint(Sender: TfrxComponent); var Cadena: String; begin TelefonosEmpresa.Lines.Clear; if (<frxDBCabecera."TELEFONO_1_EMPRESA"> <> '') then Cadena := 'tlf: ' + <frxDBCabecera."TELEFONO_1_EMPRESA">; if (<frxDBCabecera."FAX_EMPRESA"> <> '') then Cadena := Cadena + ' / fax: ' + <frxDBCabecera."FAX_EMPRESA">; TelefonosEmpresa.Lines.Add(Cadena); end; procedure DireccionEmpresaOnBeforePrint(Sender: TfrxComponent); var Cadena: String; begin DireccionEmpresa.Lines.Clear; if (<frxDBCabecera."CALLE_EMPRESA"> <> '') then DireccionEmpresa.Lines.Add(<frxDBCabecera."CALLE_EMPRESA">); if (<frxDBCabecera."CODIGO_POSTAL_EMPRESA"> <> '') then Cadena := <frxDBCabecera."CODIGO_POSTAL_EMPRESA">; if (<frxDBCabecera."POBLACION_EMPRESA"> <> '') then Cadena := Cadena + ', ' + <frxDBCabecera."POBLACION_EMPRESA">; DireccionEmpresa.Lines.Add(Cadena); if (<frxDBCabecera."PROVINCIA_EMPRESA"> <> '') then DireccionEmpresa.Lines.Add(<frxDBCabecera."PROVINCIA_EMPRESA">); end; procedure Memo11OnBeforePrint(Sender: TfrxComponent); begin Memo11.Visible := (<withRefCliente> <> 0); end; begin 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."REFERENCIA_PROVEEDOR"] "/>
|
||||
<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."REFERENCIA_CLIENTE"]"/>
|
||||
<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."REFERENCIA"]"/>
|
||||
<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."FECHA_PREVISTA_ENVIO"]"/>
|
||||
<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."CONCEPTO"] "/>
|
||||
<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
Normal file
8
Source/Informes/2/InfEtiquetasContactos.fr3
Normal file
@ -0,0 +1,8 @@
|
||||
<?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); var Cadena: String; begin Memo2.Lines.Clear; Cadena:= UPPERCASE(<frxDBCabecera."NOMBRE">); Memo2.Lines.Add(Cadena); Cadena:= UPPERCASE(<frxDBCabecera."CALLE">); Memo2.Lines.Add(Cadena); Cadena:= UPPERCASE(<frxDBCabecera."CODIGO_POSTAL">); if (length(<frxDBCabecera."POBLACION">) > 0) then begin if (length(Cadena) > 0) then Cadena := Cadena + ', '; Cadena := Cadena + UPPERCASE(<frxDBCabecera."POBLACION">); end; Memo2.Lines.Add(Cadena); Cadena:= UPPERCASE(<frxDBCabecera."PROVINCIA">); Memo2.Lines.Add(Cadena); end; begin 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
Normal file
71
Source/Informes/2/InfFacturaCliente.fr3
Normal file
File diff suppressed because one or more lines are too long
72
Source/Informes/2/InfFacturaProveedor.fr3
Normal file
72
Source/Informes/2/InfFacturaProveedor.fr3
Normal file
File diff suppressed because one or more lines are too long
45
Source/Informes/2/InfPedidoCliente.fr3
Normal file
45
Source/Informes/2/InfPedidoCliente.fr3
Normal file
File diff suppressed because one or more lines are too long
39
Source/Informes/2/InfPedidoProveedor.fr3
Normal file
39
Source/Informes/2/InfPedidoProveedor.fr3
Normal file
@ -0,0 +1,39 @@
|
||||
<?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=" procedure DatosEmpresaOnBeforePrint(Sender: TfrxComponent); var Cadena: String; begin DatosEmpresa.Lines.Clear; if (<frxDBCabecera."TELEFONO_1_EMPRESA"> <> '') then Cadena := 'TLF: ' + <frxDBCabecera."TELEFONO_1_EMPRESA">; if (<frxDBCabecera."FAX_EMPRESA"> <> '') then Cadena := Cadena + ' FAX: ' + <frxDBCabecera."FAX_EMPRESA">; DatosEmpresa.Lines.Add(Cadena); end; procedure NombreEmpresaOnBeforePrint(Sender: TfrxComponent); begin NombreEmpresa.Lines.Clear; NombreEmpresa.Lines.Add(<frxDBCabecera."NOMBRE_EMPRESA">); end; procedure DireccionEnvioOnBeforePrint(Sender: TfrxComponent); var ACadena : String; begin ACadena := ''; DireccionEnvio.Lines.Clear; if (<frxDBCabecera."NOMBRE_ALMACEN"> <> '') then DireccionEnvio.Lines.Add(<frxDBCabecera."NOMBRE_ALMACEN">); if (<frxDBCabecera."PERSONA_CONTACTO"> <> '') then DireccionEnvio.Lines.Add(<frxDBCabecera."PERSONA_CONTACTO">); DireccionEnvio.Lines.Add(<frxDBCabecera."CALLE">); if (<frxDBCabecera."CODIGO_POSTAL"> <> '') then ACadena := <frxDBCabecera."CODIGO_POSTAL"> + ' '; if (<frxDBCabecera."POBLACION"> <> '') then ACadena := ACadena + <frxDBCabecera."POBLACION">; if (ACadena <> '') then DireccionEnvio.Lines.Add(ACadena); if (<frxDBCabecera."PROVINCIA"> <> '') then DireccionEnvio.Lines.Add(<frxDBCabecera."PROVINCIA">); if (<frxDBCabecera."TELEFONO"> <> '') then DireccionEnvio.Lines.Add(<frxDBCabecera."TELEFONO">); end; procedure PageHeader1OnBeforePrint(Sender: TfrxComponent); begin if not Engine.FinalPass then Set('TotalPaginas', (<TotalPaginas> + 1)); if Engine.FinalPass then Set('Pagina', (<Pagina> + 1)); end; procedure frxReportOnStartReport(Sender: TfrxComponent); begin Set('Pagina', 0); Set('TotalPaginas', 0); end; begin 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."CANTIDAD"]"/>
|
||||
<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."REFERENCIA_PROVEEDOR"] "/>
|
||||
</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="[<Pagina>] / [<TotalPaginas>]"/>
|
||||
<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."NOMBRE"]"/>
|
||||
<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."REFERENCIA"]"/>
|
||||
<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."FECHA_PEDIDO"]"/>
|
||||
<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."FAX"]"/>
|
||||
</TfrxPageHeader>
|
||||
</TfrxReportPage>
|
||||
</TfrxReport>
|
||||
89
Source/Informes/2/InfReciboCliente.fr3
Normal file
89
Source/Informes/2/InfReciboCliente.fr3
Normal file
File diff suppressed because one or more lines are too long
55
Source/Informes/2/InfRemesaCliente.fr3
Normal file
55
Source/Informes/2/InfRemesaCliente.fr3
Normal file
@ -0,0 +1,55 @@
|
||||
<?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); begin // Engine.CurY := Engine.CurY + Engine.FreeSpace - ReportSummary1.Height; end; procedure DatosEmpresaOnBeforePrint(Sender: TfrxComponent); var Cadena: String; begin DatosEmpresa.Lines.Clear; DatosEmpresa.Lines.Add(<frxDBCabecera."RAZON_SOCIAL">); DatosEmpresa.Lines.Add(<frxDBCabecera."CALLE_EMPRESA">); Cadena := ''; if (<frxDBCabecera."TELEFONO_1"> <> '') then Cadena := 'TLF: ' + <frxDBCabecera."TELEFONO_1">; if (<frxDBCabecera."FAX"> <> '') then Cadena := Cadena + ' FAX: ' + <frxDBCabecera."FAX">; DatosEmpresa.Lines.Add(Cadena); Cadena := ''; if (<frxDBCabecera."CODIGO_POSTAL_EMPRESA"> <> '') then Cadena := <frxDBCabecera."CODIGO_POSTAL_EMPRESA">; if (<frxDBCabecera."POBLACION_EMPRESA"> <> '') then Cadena := Cadena + ' ' + <frxDBCabecera."POBLACION_EMPRESA">; if (<frxDBCabecera."PROVINCIA_EMPRESA"> <> '') then Cadena := Cadena + ' - ' + <frxDBCabecera."PROVINCIA_EMPRESA">; DatosEmpresa.Lines.Add(Cadena); end; procedure Band2OnBeforePrint(Sender: TfrxComponent); begin if not Engine.FinalPass then Set('TotalPaginas', (<TotalPaginas> + 1)); if Engine.FinalPass then Set('Pagina', (<Pagina> + 1)); end; procedure frxReportOnStartReport(Sender: TfrxComponent); begin Set('Pagina', 0); Set('TotalPaginas', 0); end; procedure PageFooter1OnBeforePrint(Sender: TfrxComponent); begin if Engine.FinalPass and (<TotalPaginas> = <Pagina>)then begin eTotal.Visible := True; vTotal.Visible := True; Cuadro.Visible := True; end else begin eTotal.Visible := False; vTotal.Visible := False; Cuadro.Visible := False; end; end; begin 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."REFERENCIA"]"/>
|
||||
<TfrxMemoView Name="Memo6" Left="60,25201" Top="162,29932" Width="196,75603" Height="18,89765" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Text="[frxDBCabecera."FECHA_REMESA"]"/>
|
||||
<TfrxMemoView Name="Memo7" Left="75,37013" Top="184,9765" Width="181,63791" Height="18,89765" Text="[<Pagina>] / [<TotalPaginas>]"/>
|
||||
<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."DESCRIPCION"]"/>
|
||||
<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."TITULAR"]"/>
|
||||
<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."ENTIDAD"]"/>
|
||||
<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."SUCURSAL"]"/>
|
||||
<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."DC"]"/>
|
||||
<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."CUENTA"]"/>
|
||||
<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."NIF_CIF_CLIENTE"]"/>
|
||||
<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."IMPORTE_TOTAL"]"/>
|
||||
<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."NOMBRE_CLIENTE"]"/>
|
||||
<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."FECHA_VENCIMIENTO"]"/>
|
||||
<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."REFERENCIA"]"/>
|
||||
</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."IMPORTE_TOTAL"]"/>
|
||||
<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
Normal file
64
Source/Informes/2/InfRemesaProveedor.fr3
Normal file
@ -0,0 +1,64 @@
|
||||
<?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=" procedure DatosEmpresaOnBeforePrint(Sender: TfrxComponent); var Cadena: String; begin DatosEmpresa.Lines.Clear; DatosEmpresa.Lines.Add(<frxDBCabecera."RAZON_SOCIAL">); DatosEmpresa.Lines.Add(<frxDBCabecera."CALLE_EMPRESA">); Cadena := ''; if (<frxDBCabecera."TELEFONO_1"> <> '') then Cadena := 'TLF: ' + <frxDBCabecera."TELEFONO_1">; if (<frxDBCabecera."FAX"> <> '') then Cadena := Cadena + ' FAX: ' + <frxDBCabecera."FAX">; DatosEmpresa.Lines.Add(Cadena); Cadena := ''; if (<frxDBCabecera."CODIGO_POSTAL_EMPRESA"> <> '') then Cadena := <frxDBCabecera."CODIGO_POSTAL_EMPRESA">; if (<frxDBCabecera."POBLACION_EMPRESA"> <> '') then Cadena := Cadena + ' ' + <frxDBCabecera."POBLACION_EMPRESA">; if (<frxDBCabecera."PROVINCIA_EMPRESA"> <> '') then Cadena := Cadena + ' - ' + <frxDBCabecera."PROVINCIA_EMPRESA">; DatosEmpresa.Lines.Add(Cadena); end; procedure Band2OnBeforePrint(Sender: TfrxComponent); begin if not Engine.FinalPass then Set('TotalPaginas', (<TotalPaginas> + 1)); if Engine.FinalPass then Set('Pagina', (<Pagina> + 1)); end; procedure frxReportOnStartReport(Sender: TfrxComponent); begin Set('Pagina', 0); Set('TotalPaginas', 0); end; procedure PageFooter1OnBeforePrint(Sender: TfrxComponent); begin if Engine.FinalPass and (<TotalPaginas> = <Pagina>) then begin Cuadro.Visible := True; eTotal.Visible := True; vTotal.Visible := True; end else begin Cuadro.Visible := False; eTotal.Visible := False; vTotal.Visible := False; end; end; begin 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."REFERENCIA"]"/>
|
||||
<TfrxMemoView Name="Memo6" Left="60,25201" Top="162,29932" Width="196,75603" Height="18,89765" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Text="[frxDBCabecera."FECHA_REMESA"]"/>
|
||||
<TfrxMemoView Name="Memo7" Left="75,37013" Top="184,9765" Width="181,63791" Height="18,89765" Text="[<Pagina>] / [<TotalPaginas>]"/>
|
||||
<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."DESCRIPCION"]"/>
|
||||
<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."TITULAR"]"/>
|
||||
<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."ENTIDAD"]"/>
|
||||
<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."SUCURSAL"]"/>
|
||||
<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."DC"]"/>
|
||||
<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."CUENTA"]"/>
|
||||
<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."NIF_CIF_PROVEEDOR"]"/>
|
||||
<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."IMPORTE_TOTAL"]"/>
|
||||
<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."NOMBRE_PROVEEDOR"]"/>
|
||||
<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."FECHA_VENCIMIENTO"]"/>
|
||||
<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."REFERENCIA"]"/>
|
||||
<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."ENTIDAD_PROVEEDOR"]"/>
|
||||
<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."SUCURSAL_PROVEEDOR"]"/>
|
||||
<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."DC_PROVEEDOR"]"/>
|
||||
<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."CUENTA_PROVEEDOR"]"/>
|
||||
<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."REFERENCIA_FACTURA_PROV"]"/>
|
||||
</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."IMPORTE_TOTAL"]"/>
|
||||
<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>
|
||||
@ -1,47 +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,7527121296" ScriptLanguage="PascalScript" ScriptText.Text="var Pagina: Variant; procedure DatosEmpresaOnBeforePrint(Sender: TfrxComponent); var Cadena: String; begin DatosEmpresa.Lines.Clear; if (<frxDBCabecera."TELEFONO_1_EMPRESA"> <> '') then Cadena := 'TLF: ' + <frxDBCabecera."TELEFONO_1_EMPRESA">; if (<frxDBCabecera."FAX_EMPRESA"> <> '') then Cadena := Cadena + ' FAX: ' + <frxDBCabecera."FAX_EMPRESA">; DatosEmpresa.Lines.Add(Cadena); end; procedure NombreEmpresaOnBeforePrint(Sender: TfrxComponent); begin NombreEmpresa.Lines.Clear; NombreEmpresa.Lines.Add(<frxDBCabecera."NOMBRE_EMPRESA">); end; procedure DireccionEnvioOnBeforePrint(Sender: TfrxComponent); var ACadena : String; begin ACadena := ''; DireccionEnvio.Lines.Clear; ACadena := ''; DireccionEnvio.Lines.Add(<frxDBCabecera."CALLE">); if (<frxDBCabecera."CODIGO_POSTAL"> <> '') then ACadena := <frxDBCabecera."CODIGO_POSTAL"> + ' '; if (<frxDBCabecera."POBLACION"> <> '') then ACadena := ACadena + <frxDBCabecera."POBLACION">; if (ACadena <> '') then DireccionEnvio.Lines.Add(ACadena); if (<frxDBCabecera."PROVINCIA"> <> '') 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('ORDEN DE DEVOLUCIÓN') else Memo2.Lines.Add('ALBARÁN DE CLIENTE') end; procedure Memo5OnBeforePrint(Sender: TfrxComponent); begin if (StrToFloat(<frxDBCabecera."IMPORTE_TOTAL">) < 0) then begin Memo5.Lines.Clear; Memo5.Lines.Add('Nº orden:'); end; end; procedure Memo9OnBeforePrint(Sender: TfrxComponent); begin if (StrToFloat(<frxDBCabecera."IMPORTE_TOTAL">) < 0) then begin Memo9.Lines.Clear; Memo9.Lines.Add('Fecha orden:'); end; end; procedure PageHeader1OnBeforePrint(Sender: TfrxComponent); begin if not Engine.FinalPass then Set('TotalPaginas', (<TotalPaginas> + 1)); if Engine.FinalPass then Set('Pagina', (<Pagina> + 1)); end; procedure frxReportOnStartReport(Sender: TfrxComponent); begin Set('Pagina', 0); Set('TotalPaginas', 0); end; begin end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403A90003546F70021008446174617365747301010C3400000020446174615365743D22667278444243616265636572612220446174615365744E616D653D22667278444243616265636572612200010C3400000020446174615365743D226672784442446574616C6C65732220446174615365744E616D653D226672784442446574616C6C6573220000095661726961626C657301010C13000000204E616D653D2220506167696E6163696F6E2200010C0E000000204E616D653D22506167696E612200010C14000000204E616D653D22546F74616C506167696E6173220000055374796C650100">
|
||||
<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="476,22078" 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."REFERENCIA_PROVEEDOR"] "/>
|
||||
<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."CANTIDAD"]"/>
|
||||
</TfrxMasterData>
|
||||
<TfrxPageFooter Name="PageFooter1" Height="72,87953" Left="0" Top="559,37044" 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="394,96075685" Left="0" Top="18,89765" Width="718,1107" OnBeforePrint="PageHeader1OnBeforePrint">
|
||||
<TfrxMemoView Name="Memo23" Left="134,72047" Top="369,01979" Width="583,7" Height="26,45669291" Color="16777215" Font.Charset="0" Font.Color="0" 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="369,01979" Width="60,71653543" Height="26,45669291" Color="16777215" Font.Charset="0" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="12" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Cantidad"/>
|
||||
<TfrxMemoView Name="Memo13" Left="0" Top="369,01979" Width="76,2" Height="26,45669291" Color="16777215" Font.Charset="0" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="12" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Referencia"/>
|
||||
<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="65,82684" Top="94,48825" Width="84,03154" Height="18,89765" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" ParentFont="False" Text="[<Pagina>]/[<TotalPaginas>]"/>
|
||||
<TfrxShapeView Name="Shape1" Left="0" Top="168,18897638" Width="717,73228346" Height="172,09451016" Color="16777215" Frame.Color="8421504"/>
|
||||
<TfrxMemoView Name="Memo10" Left="79,27551" Top="272,31509" Width="156,53556" 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="226,55133" Top="94,48825" Width="64,47248" 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="106,48825" 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="Nombre de cliente:"/>
|
||||
<TfrxMemoView Name="Memo11" Left="113,82684" Top="119,11812" Width="335,81107" 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."NOMBRE"]"/>
|
||||
<TfrxMemoView Name="Memo3" Left="294,80334" Top="94,48825" Width="90,14162" 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."REFERENCIA"]"/>
|
||||
<TfrxMemoView Name="DireccionEnvio" Left="242,33086" Top="273,41744" Width="460,63018" Height="64,94812" 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=""/>
|
||||
<TfrxLineView Name="Line1" Left="718,5" Top="368,50406638" Width="0" Height="611,96846" Frame.Color="8421504" Frame.Typ="1"/>
|
||||
<TfrxLineView Name="Line2" Left="0" Top="368,50406638" Width="0" Height="611,96846" Frame.Color="8421504" Frame.Typ="1"/>
|
||||
<TfrxLineView Name="Line3" Left="76,2" Top="368,50406638" Width="0" Height="611,96846" Frame.Color="8421504" Frame.Typ="1"/>
|
||||
<TfrxLineView Name="Line5" Left="136,44094488" Top="368,50406638" Width="0" Height="611,96846" Frame.Color="8421504" Frame.Typ="1"/>
|
||||
<TfrxMemoView Name="Memo1" Left="3,77953" Top="143,1812" Width="110,26778" 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="Nombre comercial:"/>
|
||||
<TfrxMemoView Name="Memo6" Left="113,3859" Top="143,1812" Width="592,81911" 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."NOMBRE_COMERCIAL"]"/>
|
||||
<TfrxMemoView Name="Memo9" Left="453,5436" Top="94,48825" Width="83,81107" Height="18,9" OnBeforePrint="Memo9OnBeforePrint" 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="Memo15" Left="601,60668" Top="94,48825" Width="105,25974" Height="18,9" 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."FECHA_ALBARAN"]"/>
|
||||
<TfrxMemoView Name="Memo16" Left="453,5436" Top="117,16543" Width="144,28355" Height="18,9" OnBeforePrint="Memo9OnBeforePrint" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="Fecha prevista de entrega:"/>
|
||||
<TfrxMemoView Name="Memo17" Left="601,60668" Top="117,16543" Width="105,25974" Height="18,9" 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."FECHA_PREVISTA_ENVIO"]"/>
|
||||
<TfrxMemoView Name="Memo18" Left="79,37013" Top="181,41744" Width="156,53556" 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="Ref. del cliente:"/>
|
||||
<TfrxMemoView Name="Memo19" Left="79,37013" Top="211,65368" Width="156,53556" 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="Persona de contacto:"/>
|
||||
<TfrxMemoView Name="Memo20" Left="241,88992" Top="181,41744" Width="462,67749" 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="[frxDBCabecera."REFERENCIA_CLIENTE"]"/>
|
||||
<TfrxMemoView Name="Memo21" Left="241,88992" Top="211,65368" Width="923,78015" 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="[frxDBCabecera."PERSONA_CONTACTO"]"/>
|
||||
<TfrxMemoView Name="Memo22" Left="79,37013" Top="241,88992" Width="156,53556" 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="Teléfonos de contacto:"/>
|
||||
<TfrxMemoView Name="Memo24" Left="241,88992" Top="241,88992" Width="462,67749" 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="[frxDBCabecera."TELEFONO"]"/>
|
||||
</TfrxPageHeader>
|
||||
</TfrxReportPage>
|
||||
</TfrxReport>
|
||||
File diff suppressed because one or more lines are too long
@ -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="39293,6816451389" ScriptLanguage="PascalScript" ScriptText.Text=" procedure DatosEmpresaOnBeforePrint(Sender: TfrxComponent); var Cadena: String; begin DatosEmpresa.Lines.Clear; if (<frxDBCabecera."TELEFONO_1_EMPRESA"> <> '') then Cadena := 'TLF: ' + <frxDBCabecera."TELEFONO_1_EMPRESA">; if (<frxDBCabecera."FAX_EMPRESA"> <> '') then Cadena := Cadena + ' FAX: ' + <frxDBCabecera."FAX_EMPRESA">; DatosEmpresa.Lines.Add(Cadena); end; procedure NombreEmpresaOnBeforePrint(Sender: TfrxComponent); begin NombreEmpresa.Lines.Clear; NombreEmpresa.Lines.Add(<frxDBCabecera."NOMBRE_EMPRESA">); end; procedure DireccionEnvioOnBeforePrint(Sender: TfrxComponent); var ACadena : String; begin ACadena := ''; DireccionEnvio.Lines.Clear; if (<frxDBCabecera."REFERENCIA_CLIENTE"> <> '') then ACadena := <frxDBCabecera."REFERENCIA_CLIENTE">; if (<frxDBCabecera."PERSONA_CONTACTO"> <> '') then ACadena := ACadena + ' ' + <frxDBCabecera."PERSONA_CONTACTO">; DireccionEnvio.Lines.Add(ACadena); ACadena := ''; DireccionEnvio.Lines.Add(<frxDBCabecera."CALLE">); if (<frxDBCabecera."CODIGO_POSTAL"> <> '') then ACadena := <frxDBCabecera."CODIGO_POSTAL"> + ' '; if (<frxDBCabecera."POBLACION"> <> '') then ACadena := ACadena + <frxDBCabecera."CODIGO_POSTAL">; if (ACadena <> '') then DireccionEnvio.Lines.Add(ACadena); if (<frxDBCabecera."PROVINCIA"> <> '') then DireccionEnvio.Lines.Add(<frxDBCabecera."PROVINCIA">); if (<frxDBCabecera."TELEFONO"> <> '') then DireccionEnvio.Lines.Add(<frxDBCabecera."TELEFONO">); end; procedure PageHeader1OnBeforePrint(Sender: TfrxComponent); begin if not Engine.FinalPass then Set('TotalPaginas', (<TotalPaginas> + 1)); if Engine.FinalPass then Set('Pagina', (<Pagina> + 1)); end; procedure frxReportOnStartReport(Sender: TfrxComponent); begin Set('Pagina', 0); Set('TotalPaginas', 0); end; begin end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403A90003546F70021008446174617365747301010C3400000020446174615365743D22667278444243616265636572612220446174615365744E616D653D22667278444243616265636572612200010C3400000020446174615365743D226672784442446574616C6C65732220446174615365744E616D653D226672784442446574616C6C6573220000095661726961626C657301010C13000000204E616D653D2220506167696E6163696F6E2200010C0E000000204E616D653D22506167696E612200010C14000000204E616D653D22546F74616C506167696E6173220000055374796C650100">
|
||||
<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="283,46475" Width="718,1107" ColumnWidth="0" ColumnGap="0" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" RowCount="0" Stretched="True">
|
||||
<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."REFERENCIA_PROVEEDOR"] "/>
|
||||
<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."CANTIDAD"]"/>
|
||||
<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"/>
|
||||
</TfrxMasterData>
|
||||
<TfrxPageFooter Name="PageFooter1" Height="69,1" Left="0" Top="366,61441" Width="718,1107">
|
||||
<TfrxLineView Name="Line4" Align="baCenter" Left="-0,944650000000024" Top="0" Width="720" Height="0" Frame.Typ="4"/>
|
||||
</TfrxPageFooter>
|
||||
<TfrxPageHeader Name="PageHeader1" Height="202,20472441" Left="0" Top="18,89765" Width="718,1107" OnBeforePrint="PageHeader1OnBeforePrint">
|
||||
<TfrxMemoView Name="Memo23" Left="135,5" Top="172,92517" Width="583,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="Concepto"/>
|
||||
<TfrxMemoView Name="Memo8" Left="76" Top="172,92517" 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="12" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Cantidad"/>
|
||||
<TfrxMemoView Name="Memo13" Left="0" Top="172,92517" 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"/>
|
||||
<TfrxShapeView Name="Shape2" Left="357,60637" Top="76" Width="360,69295" Height="96,5" Color="16777215" Frame.Color="8421504"/>
|
||||
<TfrxMemoView Name="Memo2" Left="358,36209" Top="18,89765" Width="355,49629" Height="38,89765" Font.Charset="1" Font.Color="8421504" Font.Height="-29" Font.Name="Tahoma" Font.Style="1" HAlign="haRight" ParentFont="False" Text="PEDIDO DE CLIENTE"/>
|
||||
<TfrxMemoView Name="NombreEmpresa" Left="0" Top="8" 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="366,39394" Top="79,81107" Width="80,03154" 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="446,42548" Top="79,81107" Width="157,63791" Height="18,89765" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" ParentFont="False" Text="[<Pagina>] / [<TotalPaginas>]"/>
|
||||
<TfrxShapeView Name="Shape1" Left="0" Top="76" Width="357,92122079" Height="96,50391016" Color="16777215" Frame.Color="8421504"/>
|
||||
<TfrxMemoView Name="Memo10" Left="3,68491" Top="80" Width="349,29159" Height="15,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="40" 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="366,39394" Top="101,35436" Width="68,69295" 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="366,39394" Top="123,33859" Width="53,57483" 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="Cliente:"/>
|
||||
<TfrxMemoView Name="Memo11" Left="423,7483" Top="123,33859" Width="290,45671" 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."NOMBRE"]"/>
|
||||
<TfrxMemoView Name="Memo3" Left="446,42548" Top="101,57483" Width="207,30705" 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."REFERENCIA"]"/>
|
||||
<TfrxMemoView Name="DireccionEnvio" Left="11,5" Top="100" Width="341,18522" Height="68,94812" OnBeforePrint="DireccionEnvioOnBeforePrint" StretchMode="smActualHeight" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text=""/>
|
||||
<TfrxLineView Name="Line1" Left="718,5" Top="174,73995" Width="0" Height="802,69" Frame.Typ="1"/>
|
||||
<TfrxLineView Name="Line2" Left="0" Top="174,73995" Width="0" Height="802,69" Frame.Color="8421504" Frame.Typ="1"/>
|
||||
<TfrxMemoView Name="Memo1" Left="366,61441" Top="147,40167" Width="83,81107" 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="Cliente final:"/>
|
||||
<TfrxMemoView Name="Memo6" Left="454,20501" Top="147,40167" Width="260,22047" 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."NOMBRE_COMERCIAL"]"/>
|
||||
<TfrxLineView Name="Line3" Left="76,2" Top="174,73995" Width="0" Height="802,69" Frame.Color="8421504" Frame.Typ="1"/>
|
||||
<TfrxLineView Name="Line5" Left="135,5" Top="174,73995" Width="0" Height="802,69" Frame.Color="8421504" Frame.Typ="1"/>
|
||||
</TfrxPageHeader>
|
||||
</TfrxReportPage>
|
||||
</TfrxReport>
|
||||
@ -8,7 +8,9 @@
|
||||
<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>
|
||||
@ -18,14 +20,14 @@
|
||||
<Projects Name="AlbaranesCliente_model.bpl">Model\AlbaranesCliente_model.bdsproj</Projects>
|
||||
<Projects Name="AlbaranesCliente_data.bpl">Data\AlbaranesCliente_data.bdsproj</Projects>
|
||||
<Projects Name="AlbaranesCliente_controller.bpl">Controller\AlbaranesCliente_controller.bdsproj</Projects>
|
||||
<Projects Name="FacturasCliente_controller.bpl">..\Facturas de cliente\Controller\FacturasCliente_controller.bdsproj</Projects>
|
||||
<Projects Name="PedCli_AlbCli_relation.bpl">..\Relaciones\Pedidos de cliente - Albaranes de cliente\PedCli_AlbCli_relation.bdsproj</Projects>
|
||||
<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="AlbCli_FacCli_relation.bpl">..\Relaciones\Albaranes de cliente - Facturas de cliente\AlbCli_FacCli_relation.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="PedCli_AlbCli_relation.bpl">..\Relaciones\Pedidos de cliente - Albaranes de cliente\PedCli_AlbCli_relation.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 AlbaranesCliente_view.bpl AlbaranesCliente_plugin.bpl AlbCli_FacCli_relation.bpl FacturasCliente_view.bpl FactuGES_Server.exe FactuGES.exe PedCli_AlbCli_relation.bpl</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>
|
||||
<Dependencies/>
|
||||
</Default.Personality>
|
||||
|
||||
@ -172,7 +172,7 @@
|
||||
<VersionInfoKeys Name="Comments"></VersionInfoKeys>
|
||||
</VersionInfoKeys>
|
||||
</Delphi.Personality>
|
||||
<!-- EurekaLog First Line
|
||||
<!-- EurekaLog First Line
|
||||
[Exception Log]
|
||||
EurekaLog Version=519
|
||||
Activate=1
|
||||
|
||||
@ -54,6 +54,7 @@ contains
|
||||
uAlbaranesClienteReportController in 'uAlbaranesClienteReportController.pas',
|
||||
uIEditorAlbaranesClientePreview in 'View\uIEditorAlbaranesClientePreview.pas',
|
||||
uIEditorAlbaranesDevCliente in 'View\uIEditorAlbaranesDevCliente.pas',
|
||||
uIEditorAlbaranDevCliente in 'View\uIEditorAlbaranDevCliente.pas';
|
||||
uIEditorAlbaranDevCliente in 'View\uIEditorAlbaranDevCliente.pas',
|
||||
uIDialogListaAlbaranesCliEnvioEMail in 'View\uIDialogListaAlbaranesCliEnvioEMail.pas';
|
||||
|
||||
end.
|
||||
|
||||
@ -0,0 +1,21 @@
|
||||
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.
|
||||
@ -4,9 +4,10 @@ interface
|
||||
|
||||
|
||||
uses
|
||||
SysUtils, uDADataTable, uEditorDBItem,
|
||||
Classes, SysUtils, uDADataTable, uEditorDBItem,
|
||||
uControllerBase, uIDataModuleAlbaranesCliente, uClientesController,
|
||||
uDetallesAlbaranClienteController, uBizAlbaranesCliente, uBizDireccionesContacto;
|
||||
uDetallesAlbaranClienteController, uBizAlbaranesCliente, uBizDireccionesContacto,
|
||||
uViewGridBase;
|
||||
|
||||
type
|
||||
IAlbaranesClienteController = interface(IObservador)
|
||||
@ -38,12 +39,13 @@ type
|
||||
procedure DescartarCambios(AAlbaran : IBizAlbaranCliente);
|
||||
function Existe(const ID: Integer) : Boolean;
|
||||
function Duplicar(AAlbaran: IBizAlbaranCliente): IBizAlbaranCliente;
|
||||
function GenerarOrdenDev(AAlbaran: IBizAlbaranCliente): IBizAlbaranCliente;
|
||||
|
||||
function ExtraerSeleccionados(AAlbaran: IBizAlbaranCliente) : IBizAlbaranCliente;
|
||||
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);
|
||||
procedure Print(AAlbaran : IBizAlbaranCliente; AllItems: Boolean = false);
|
||||
procedure Preview(AAlbaran : IBizAlbaranCliente; AllItems: Boolean = false; ConObservacionesIncidencias: Boolean = false);
|
||||
function Print(AAlbaran : IBizAlbaranCliente; AllItems: Boolean = false; ConObservacionesIncidencias: Boolean = false): Boolean;
|
||||
procedure EtiquetasPreview(AAlbaran : IBizAlbaranCliente; Const withRefCliente: Boolean);
|
||||
procedure EtiquetasPrint(AAlbaran : IBizAlbaranCliente; Const withRefCliente: Boolean);
|
||||
|
||||
@ -63,6 +65,16 @@ 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)
|
||||
@ -87,6 +99,7 @@ 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;
|
||||
@ -115,11 +128,12 @@ type
|
||||
procedure VerTodosAlbaranesDev(AAlbarans: IBizAlbaranCliente);
|
||||
procedure VerDireccionEntrega(AAlbaran : IBizAlbaranCliente);
|
||||
function Duplicar(AAlbaran: IBizAlbaranCliente): IBizAlbaranCliente;
|
||||
function GenerarOrdenDev(AAlbaran: IBizAlbaranCliente): IBizAlbaranCliente;
|
||||
procedure CopiarDireccionEnvio (const ADireccionEnvio: IBizDireccionesContacto;
|
||||
AAlbaran: IBizAlbaranCliente);
|
||||
|
||||
procedure QuitarDireccionEnvio(AAlbaran: IBizAlbaranCliente);
|
||||
function ExtraerSeleccionados(AAlbaran: IBizAlbaranCliente) : IBizAlbaranCliente;
|
||||
function ExtraerSeleccionados(AAlbaran: IBizAlbaranCliente; Const ViewGrid: IViewGridBase = Nil) : IBizAlbaranCliente;
|
||||
function ElegirAlbaranes(AAlbaran: IBizAlbaranCliente; AMensaje: String; AMultiSelect: Boolean): IBizAlbaranCliente;
|
||||
|
||||
procedure RecuperarCliente(AAlbaran : IBizAlbaranCliente);
|
||||
@ -136,10 +150,20 @@ type
|
||||
AFechaRecibido : TDateTime = 0;
|
||||
DoPost: Boolean = True) : Boolean;
|
||||
|
||||
procedure Preview(AAlbaran : IBizAlbaranCliente; AllItems: Boolean = false);
|
||||
procedure Print(AAlbaran : IBizAlbaranCliente; AllItems: Boolean = false);
|
||||
procedure Preview(AAlbaran : IBizAlbaranCliente; AllItems: Boolean = false; ConObservacionesIncidencias: Boolean = false);
|
||||
function Print(AAlbaran : IBizAlbaranCliente; AllItems: Boolean = false; ConObservacionesIncidencias: 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
|
||||
@ -148,12 +172,14 @@ uses
|
||||
uROTypes, Controls, cxControls, DB, uEditorRegistryUtils, uEditorPreview, DateUtils,
|
||||
uIEditorAlbaranesCliente, uIEditorAlbaranesDevCliente, uIEditorAlbaranDevCliente,
|
||||
uDataModuleAlbaranesCliente, Variants, uBizDetallesAlbaranCliente,
|
||||
uBizContactos, uDataTableUtils, uDataModuleUsuarios, Classes,
|
||||
uBizContactos, uDataTableUtils, uDataModuleUsuarios,
|
||||
schAlbaranesClienteClient_Intf, uDAInterfaces, uDateUtils, uIEditorAlbaranCliente,
|
||||
uIEditorElegirAlbaranesCliente, uIEditorDireccionEntregaAlbaranCliente,
|
||||
schContactosClient_Intf, uAlbaranesClienteReportController, uControllerDetallesBase,
|
||||
uPedidosClienteController, uBizPedidosCliente, uBizDetallesPedidoCliente,
|
||||
schPedidosClienteClient_Intf, uDialogUtils, Windows, Forms, Dialogs, uGUIBase;
|
||||
schPedidosClienteClient_Intf, uDialogUtils, Windows, Forms, Dialogs, uGUIBase,
|
||||
uDataModuleRegistroCorreos,
|
||||
uIDialogListaAlbaranesCliEnvioEMail, uSistemaFunc, uStringsUtils, uDialogElegirEMail, uEMailUtils;
|
||||
|
||||
|
||||
|
||||
@ -379,6 +405,11 @@ 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
|
||||
@ -424,7 +455,9 @@ begin
|
||||
FECHA_PREVISTA_ENVIO := 0;
|
||||
FECHA_ENVIO := 0;
|
||||
FECHA_RECEPCION := 0;
|
||||
REF_FACTURA := '';
|
||||
ID_FACTURA := 0;
|
||||
REF_PEDIDO := '';
|
||||
ID_PEDIDO := 0;
|
||||
end;
|
||||
Result.Post;
|
||||
@ -642,6 +675,37 @@ 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);
|
||||
@ -737,6 +801,104 @@ 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
|
||||
@ -817,13 +979,51 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
function TAlbaranesClienteController.ExtraerSeleccionados(AAlbaran: IBizAlbaranCliente): IBizAlbaranCliente;
|
||||
function TAlbaranesClienteController.ExtraerSeleccionados(AAlbaran: IBizAlbaranCliente; Const ViewGrid: IViewGridBase = Nil): IBizAlbaranCliente;
|
||||
var
|
||||
ASeleccionados : IBizAlbaranCliente;
|
||||
begin
|
||||
if Assigned(ViewGrid) then
|
||||
begin
|
||||
//Guardamos la situación porque el CopyDataTable nos cambia la posicion
|
||||
ViewGrid.SaveGridStatus;
|
||||
ViewGrid.DesactivarGrid;
|
||||
end;
|
||||
|
||||
ASeleccionados := (Self.Buscar(ID_NULO) as IBizAlbaranCliente);
|
||||
CopyDataTable(AAlbaran.DataTable, ASeleccionados.DataTable, True);
|
||||
Result := ASeleccionados;
|
||||
|
||||
if Assigned(ViewGrid) then
|
||||
begin
|
||||
ViewGrid.ActivarGrid;
|
||||
ViewGrid.RestoreGridStatus;
|
||||
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(
|
||||
@ -928,7 +1128,7 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TAlbaranesClienteController.Preview(AAlbaran: IBizAlbaranCliente; AllItems: Boolean = false);
|
||||
procedure TAlbaranesClienteController.Preview(AAlbaran: IBizAlbaranCliente; AllItems: Boolean = false; ConObservacionesIncidencias: Boolean = false);
|
||||
var
|
||||
AReportController : IAlbaranesClienteReportController;
|
||||
ID_Albaranes: TStringList;
|
||||
@ -955,7 +1155,7 @@ begin
|
||||
else
|
||||
ID_Albaranes.Add(IntToStr(AAlbaran.ID));
|
||||
|
||||
AReportController.Preview(ID_Albaranes.CommaText);
|
||||
AReportController.Preview(ID_Albaranes.CommaText, ConObservacionesIncidencias);
|
||||
|
||||
finally
|
||||
AReportController := NIL;
|
||||
@ -963,12 +1163,13 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TAlbaranesClienteController.Print(AAlbaran: IBizAlbaranCliente; AllItems: Boolean = false);
|
||||
function TAlbaranesClienteController.Print(AAlbaran: IBizAlbaranCliente; AllItems: Boolean = false; ConObservacionesIncidencias: Boolean = false): Boolean;
|
||||
var
|
||||
AReportController : IAlbaranesClienteReportController;
|
||||
ID_Albaranes: TStringList;
|
||||
|
||||
begin
|
||||
Result := False;
|
||||
AReportController := TAlbaranesClienteReportController.Create;
|
||||
try
|
||||
ID_Albaranes := TStringList.Create;
|
||||
@ -990,7 +1191,7 @@ begin
|
||||
else
|
||||
ID_Albaranes.Add(IntToStr(AAlbaran.ID));
|
||||
|
||||
AReportController.Print(ID_Albaranes.CommaText);
|
||||
Result := AReportController.Print(ID_Albaranes.CommaText, ConObservacionesIncidencias);
|
||||
|
||||
finally
|
||||
AReportController := NIL;
|
||||
@ -1023,6 +1224,51 @@ 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;
|
||||
IdAlbaran: Integer;
|
||||
|
||||
begin
|
||||
if Assigned(AAlbaran) then
|
||||
begin
|
||||
IdAlbaran := AAlbaran.ID;
|
||||
AOrden := Duplicar(AAlbaran);
|
||||
if Assigned(AOrden) then
|
||||
begin
|
||||
if not AOrden.DataTable.Editing then
|
||||
AOrden.Edit;
|
||||
|
||||
AOrden.TIPO := CTE_TIPO_ALBARAN_DEV;
|
||||
AOrden.ID_ALBARAN_DEV := IdAlbaran;
|
||||
AOrden.Post;
|
||||
|
||||
//Convierte todos los articulos del albaran a negativos por se una orden de devolucion
|
||||
FDetallesController.CambiarSignoDetalles(AOrden.Detalles);
|
||||
|
||||
end;
|
||||
Ver(AOrden);
|
||||
end;
|
||||
end;
|
||||
|
||||
function TAlbaranesClienteController.GetClienteController: IClientesController;
|
||||
begin
|
||||
Result := FClienteController;
|
||||
|
||||
@ -10,10 +10,11 @@ uses
|
||||
type
|
||||
IAlbaranesClienteReportController = interface
|
||||
['{4BCC7A93-3322-494C-A3FA-118F4B62CB15}']
|
||||
procedure Preview(const AID : String);
|
||||
procedure Print(const AID : String);
|
||||
procedure Preview(const AID : String; ConObservacionesIncidencias: Boolean = false);
|
||||
function Print(const AID : String; ConObservacionesIncidencias: Boolean = false): 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)
|
||||
@ -25,10 +26,11 @@ type
|
||||
constructor Create;
|
||||
destructor Destroy; override;
|
||||
|
||||
procedure Preview(const AID : String);
|
||||
procedure Print(const AID : String);
|
||||
procedure Preview(const AID : String; ConObservacionesIncidencias: Boolean = false);
|
||||
function Print(const AID : String; ConObservacionesIncidencias: Boolean = false): 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;
|
||||
|
||||
|
||||
@ -36,7 +38,8 @@ implementation
|
||||
|
||||
uses
|
||||
uROTypes, uEditorRegistryUtils, uIEditorAlbaranesClientePreview,
|
||||
uEditorPreview, uDataModuleAlbaranesCliente, uEditorBase, cxControls;
|
||||
uEditorPreview, uDataModuleAlbaranesCliente, uEditorBase, cxControls,
|
||||
schAlbaranesClienteClient_Intf, uStringsUtils;
|
||||
|
||||
{ TAlbaranesClienteReportController }
|
||||
|
||||
@ -106,7 +109,29 @@ begin
|
||||
AEditor.Print
|
||||
end;
|
||||
|
||||
procedure TAlbaranesClienteReportController.Preview(const AID : String);
|
||||
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);
|
||||
var
|
||||
AStream: Binary;
|
||||
AEditor : IEditorAlbaranesClientePreview;
|
||||
@ -115,7 +140,7 @@ begin
|
||||
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
AStream := FDataModule.GetReport(AID); //Lista de seleccionados (Array de integers)
|
||||
AStream := FDataModule.GetReport(AID, ConObservacionesIncidencias); //Lista de seleccionados (Array de integers)
|
||||
try
|
||||
CreateEditor('EditorAlbaranesClientePreview', IEditorAlbaranesClientePreview, AEditor);
|
||||
AEditor.LoadFromStream(AStream);
|
||||
@ -130,16 +155,17 @@ begin
|
||||
AEditor.Preview;
|
||||
end;
|
||||
|
||||
procedure TAlbaranesClienteReportController.Print(const AID : String);
|
||||
function TAlbaranesClienteReportController.Print(const AID : String; ConObservacionesIncidencias: Boolean = false): Boolean;
|
||||
var
|
||||
AStream: Binary;
|
||||
AEditor : IEditorAlbaranesClientePreview;
|
||||
begin
|
||||
Result := False;
|
||||
AEditor := NIL;
|
||||
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
AStream := FDataModule.GetReport(AID);
|
||||
AStream := FDataModule.GetReport(AID, ConObservacionesIncidencias);
|
||||
try
|
||||
CreateEditor('EditorAlbaranesClientePreview', IEditorAlbaranesClientePreview, AEditor);
|
||||
AEditor.LoadFromStream(AStream);
|
||||
@ -151,7 +177,11 @@ begin
|
||||
end;
|
||||
|
||||
if Assigned(AEditor) then
|
||||
AEditor.Print
|
||||
begin
|
||||
AEditor.TablaImpresion := nme_AlbaranesCliente;
|
||||
AEditor.IdTablaImpresion := AID;
|
||||
Result := AEditor.Print;
|
||||
end;
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
@ -9,7 +9,7 @@ uses
|
||||
type
|
||||
IDetallesAlbaranClienteController = interface(IControllerDetallesArticulos)
|
||||
['{6AD99D47-2856-47B1-9620-DD115726B0E1}']
|
||||
procedure AnadirArticulos(ADetalles: IDAStronglyTypedDataTable; ACliente: IBizCliente); overload;
|
||||
procedure AnadirArticulos(ADetalles: IDAStronglyTypedDataTable; ACliente: IBizCliente; const ANuevaFila :Boolean = True; const ACantidad: Integer = 1); overload;
|
||||
procedure ActualizarDetalles(ADetalles: IDAStronglyTypedDataTable; ACliente: IBizCliente); overload;
|
||||
procedure DesglosarPorteDetalles(ImportePorte: Currency; ADetalles: IDAStronglyTypedDataTable);
|
||||
function DarTotalPorteTotal(ADetalles: IDAStronglyTypedDataTable): Double;
|
||||
@ -31,7 +31,7 @@ type
|
||||
function DarTotalPorteTotal(ADetalles: IDAStronglyTypedDataTable): Double;
|
||||
|
||||
public
|
||||
procedure AnadirArticulos(ADetalles: IDAStronglyTypedDataTable; ACliente: IBizCliente); overload;
|
||||
procedure AnadirArticulos(ADetalles: IDAStronglyTypedDataTable; ACliente: IBizCliente; const ANuevaFila :Boolean = True; const ACantidad: Integer = 1); overload;
|
||||
procedure ActualizarDetalles(ADetalles: IDAStronglyTypedDataTable; ACliente: IBizCliente); overload;
|
||||
constructor Create; override;
|
||||
destructor Destroy; override;
|
||||
@ -60,7 +60,7 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TDetallesAlbaranClienteController.AnadirArticulos(ADetalles: IDAStronglyTypedDataTable; ACliente: IBizCliente);
|
||||
procedure TDetallesAlbaranClienteController.AnadirArticulos(ADetalles: IDAStronglyTypedDataTable; ACliente: IBizCliente; const ANuevaFila :Boolean = True; const ACantidad: Integer = 1);
|
||||
var
|
||||
AArticulos: IBizArticulo;
|
||||
begin
|
||||
@ -68,8 +68,19 @@ begin
|
||||
begin
|
||||
try
|
||||
AArticulos := (FArticulosController.BuscarTodos(ACliente) as IBizArticulo);
|
||||
AArticulos := (FArticulosController as IArticulosAlbaranClienteController).ElegirArticulos(AArticulos, 'Elija los artículos que desea añadir a este albarán de cliente', True);
|
||||
Add(ADetalles, AArticulos);
|
||||
|
||||
//Si nueva fila es false, quiere decir que se sustituye un determinado artículo, por ello la lista a seleccionar no debe ser multiselect
|
||||
if ANuevaFila then
|
||||
begin
|
||||
AArticulos := (FArticulosController as IArticulosAlbaranClienteController).ElegirArticulos(AArticulos, 'Elija los artículos que desea añadir a este albarán de cliente', True);
|
||||
Add(ADetalles, AArticulos, ACantidad)
|
||||
end
|
||||
else
|
||||
begin
|
||||
AArticulos := (FArticulosController as IArticulosAlbaranClienteController).ElegirArticulos(AArticulos, 'Elija el artículo que desea añadir a este albarán de cliente', False);
|
||||
RellenarDetalle(ADetalles, AArticulos, ACantidad);
|
||||
end;
|
||||
|
||||
finally
|
||||
AArticulos := Nil;
|
||||
end;
|
||||
|
||||
@ -172,7 +172,7 @@
|
||||
<VersionInfoKeys Name="Comments"></VersionInfoKeys>
|
||||
</VersionInfoKeys>
|
||||
</Delphi.Personality>
|
||||
<!-- EurekaLog First Line
|
||||
<!-- EurekaLog First Line
|
||||
[Exception Log]
|
||||
EurekaLog Version=519
|
||||
Activate=1
|
||||
|
||||
@ -614,6 +614,94 @@ object DataModuleAlbaranesCliente: TDataModuleAlbaranesCliente
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'NUM_COPIAS'
|
||||
DataType = datInteger
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'AlbaranesCliente_NUM_COPIAS'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'ID_ALBARAN_DEV'
|
||||
DataType = datInteger
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'AlbaranesCliente_ID_ALBARAN_DEV'
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'AlbaranesCliente_ID_ALBARAN_DEV'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'REFERENCIA_ALB_DEV'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'AlbaranesCliente_REFERENCIA_ALB_DEV'
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'AlbaranesCliente_REFERENCIA_ALB_DEV'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'ID_FAC_ALB_DEV'
|
||||
DataType = datInteger
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'AlbaranesCliente_ID_FAC_ALB_DEV'
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'AlbaranesCliente_ID_FAC_ALB_DEV'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'REFERENCIA_FAC_ALB_DEV'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Ref. factura alb. dev.'
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'AlbaranesCliente_REFERENCIA_FAC_ALB_DEV'
|
||||
InPrimaryKey = False
|
||||
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
|
||||
@ -1009,4 +1097,113 @@ 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
|
||||
|
||||
@ -22,6 +22,8 @@ type
|
||||
ds_AlbaranesCliente: TDADataSource;
|
||||
tbl_AlbaranesCliente_Detalles: TDACDSDataTable;
|
||||
ds_AlbaranesCliente_Detalles: TDADataSource;
|
||||
tbl_ListaAnosAlbaranes: TDACDSDataTable;
|
||||
ds_ListaAnosAlbaranes: TDADataSource;
|
||||
procedure DAClientDataModuleCreate(Sender: TObject);
|
||||
|
||||
private
|
||||
@ -38,8 +40,11 @@ type
|
||||
function NewItem : IBizAlbaranCliente;
|
||||
|
||||
// Report
|
||||
function GetReport(const AID: String): Binary;
|
||||
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 GetAnosItems : TStringList;
|
||||
end;
|
||||
|
||||
implementation
|
||||
@ -76,9 +81,23 @@ begin
|
||||
Result := (RORemoteService as IsrvAlbaranesCliente).GetNextAutoInc(aGeneratorName)
|
||||
end;
|
||||
|
||||
function TDataModuleAlbaranesCliente.GetReport(const AID: String): Binary;
|
||||
function TDataModuleAlbaranesCliente.GetReport(const AID: String; const ConObservacionesIncidencias: Boolean = False; const ShowLogotipo: Boolean = False): Binary;
|
||||
begin
|
||||
Result := (RORemoteService as IsrvAlbaranesCliente).GenerateReport(AID)
|
||||
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;
|
||||
end;
|
||||
|
||||
function TDataModuleAlbaranesCliente.NewItem: IBizAlbaranCliente;
|
||||
@ -116,6 +135,30 @@ 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,11 +3,12 @@ unit uIDataModuleAlbaranesCliente;
|
||||
interface
|
||||
|
||||
uses
|
||||
uBizAlbaranesCliente;
|
||||
Classes, 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;
|
||||
|
||||
@ -8,8 +8,9 @@ uses
|
||||
type
|
||||
IDataModuleAlbaranesClienteReport = interface
|
||||
['{42C55204-5AB9-403E-8385-1A62B02D8234}']
|
||||
function GetReport(const AID: String): Binary;
|
||||
function GetEtiquetas(const AID: Integer; withRefCliente: Boolean): Binary;
|
||||
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;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
@ -9,19 +9,27 @@ 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_DarReferencia = '{082B0C4D-3177-4BB4-B3B3-768B55A2D4CD}';
|
||||
RID_AlbaranesCliente = '{3BDADEA6-ACB7-4E6F-8877-8634A2F4B4FB}';
|
||||
RID_AlbaranesCliente_Detalles = '{0ACEBB64-A4A0-410C-BA50-BE62510542C0}';
|
||||
RID_AlbaranesCliente_Detalles_Refresh = '{0E3B100E-D70D-41C4-BC7C-D53C5C732E65}';
|
||||
RID_AlbaranesCliente_Refresh = '{19951F6E-3BFD-4195-A2F3-0D66AAC9B375}';
|
||||
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}';
|
||||
|
||||
{ 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';
|
||||
|
||||
@ -70,6 +78,13 @@ const
|
||||
fld_AlbaranesClienteFECHA_RECEPCION = 'FECHA_RECEPCION';
|
||||
fld_AlbaranesClienteID_AGENTE = 'ID_AGENTE';
|
||||
fld_AlbaranesClienteAGENTE = 'AGENTE';
|
||||
fld_AlbaranesClienteNUM_COPIAS = 'NUM_COPIAS';
|
||||
fld_AlbaranesClienteID_ALBARAN_DEV = 'ID_ALBARAN_DEV';
|
||||
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;
|
||||
@ -113,6 +128,13 @@ const
|
||||
idx_AlbaranesClienteFECHA_RECEPCION = 38;
|
||||
idx_AlbaranesClienteID_AGENTE = 39;
|
||||
idx_AlbaranesClienteAGENTE = 40;
|
||||
idx_AlbaranesClienteNUM_COPIAS = 41;
|
||||
idx_AlbaranesClienteID_ALBARAN_DEV = 42;
|
||||
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';
|
||||
@ -224,6 +246,12 @@ const
|
||||
fld_AlbaranesCliente_RefreshFECHA_RECEPCION = 'FECHA_RECEPCION';
|
||||
fld_AlbaranesCliente_RefreshID_AGENTE = 'ID_AGENTE';
|
||||
fld_AlbaranesCliente_RefreshAGENTE = 'AGENTE';
|
||||
fld_AlbaranesCliente_RefreshNUM_COPIAS = 'NUM_COPIAS';
|
||||
fld_AlbaranesCliente_RefreshID_ALBARAN_DEV = 'ID_ALBARAN_DEV';
|
||||
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;
|
||||
@ -267,11 +295,46 @@ const
|
||||
idx_AlbaranesCliente_RefreshFECHA_RECEPCION = 38;
|
||||
idx_AlbaranesCliente_RefreshID_AGENTE = 39;
|
||||
idx_AlbaranesCliente_RefreshAGENTE = 40;
|
||||
idx_AlbaranesCliente_RefreshNUM_COPIAS = 41;
|
||||
idx_AlbaranesCliente_RefreshID_ALBARAN_DEV = 42;
|
||||
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)
|
||||
['{7E399946-10F5-4182-AF9A-88118707303F}']
|
||||
['{55C372FF-BF39-4F24-8C0F-3F8652C093C9}']
|
||||
{ Property getters and setters }
|
||||
function GetVALORValue: String;
|
||||
procedure SetVALORValue(const aValue: String);
|
||||
@ -300,7 +363,7 @@ type
|
||||
|
||||
{ IAlbaranesCliente }
|
||||
IAlbaranesCliente = interface(IDAStronglyTypedDataTable)
|
||||
['{A9F7185C-D38D-4987-8371-EAAABA04D66F}']
|
||||
['{30E4105E-F304-4684-9F36-0F085B95E8F6}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -384,6 +447,20 @@ type
|
||||
procedure SetID_AGENTEValue(const aValue: Integer);
|
||||
function GetAGENTEValue: String;
|
||||
procedure SetAGENTEValue(const aValue: String);
|
||||
function GetNUM_COPIASValue: Integer;
|
||||
procedure SetNUM_COPIASValue(const aValue: Integer);
|
||||
function GetID_ALBARAN_DEVValue: Integer;
|
||||
procedure SetID_ALBARAN_DEVValue(const aValue: Integer);
|
||||
function GetREFERENCIA_ALB_DEVValue: String;
|
||||
procedure SetREFERENCIA_ALB_DEVValue(const aValue: String);
|
||||
function GetID_FAC_ALB_DEVValue: Integer;
|
||||
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 }
|
||||
@ -428,6 +505,13 @@ type
|
||||
property FECHA_RECEPCION: DateTime read GetFECHA_RECEPCIONValue write SetFECHA_RECEPCIONValue;
|
||||
property ID_AGENTE: Integer read GetID_AGENTEValue write SetID_AGENTEValue;
|
||||
property AGENTE: String read GetAGENTEValue write SetAGENTEValue;
|
||||
property NUM_COPIAS: Integer read GetNUM_COPIASValue write SetNUM_COPIASValue;
|
||||
property ID_ALBARAN_DEV: Integer read GetID_ALBARAN_DEVValue write SetID_ALBARAN_DEVValue;
|
||||
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 }
|
||||
@ -517,6 +601,20 @@ type
|
||||
procedure SetID_AGENTEValue(const aValue: Integer); virtual;
|
||||
function GetAGENTEValue: String; virtual;
|
||||
procedure SetAGENTEValue(const aValue: String); virtual;
|
||||
function GetNUM_COPIASValue: Integer; virtual;
|
||||
procedure SetNUM_COPIASValue(const aValue: Integer); virtual;
|
||||
function GetID_ALBARAN_DEVValue: Integer; virtual;
|
||||
procedure SetID_ALBARAN_DEVValue(const aValue: Integer); virtual;
|
||||
function GetREFERENCIA_ALB_DEVValue: String; virtual;
|
||||
procedure SetREFERENCIA_ALB_DEVValue(const aValue: String); virtual;
|
||||
function GetID_FAC_ALB_DEVValue: Integer; virtual;
|
||||
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;
|
||||
@ -560,6 +658,13 @@ type
|
||||
property FECHA_RECEPCION: DateTime read GetFECHA_RECEPCIONValue write SetFECHA_RECEPCIONValue;
|
||||
property ID_AGENTE: Integer read GetID_AGENTEValue write SetID_AGENTEValue;
|
||||
property AGENTE: String read GetAGENTEValue write SetAGENTEValue;
|
||||
property NUM_COPIAS: Integer read GetNUM_COPIASValue write SetNUM_COPIASValue;
|
||||
property ID_ALBARAN_DEV: Integer read GetID_ALBARAN_DEVValue write SetID_ALBARAN_DEVValue;
|
||||
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;
|
||||
@ -569,7 +674,7 @@ type
|
||||
|
||||
{ IAlbaranesCliente_Detalles }
|
||||
IAlbaranesCliente_Detalles = interface(IDAStronglyTypedDataTable)
|
||||
['{B10831B5-8141-4090-8D71-0F09742F86ED}']
|
||||
['{5CAD693C-E2DB-4355-8310-B8EBA15EDB4F}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -682,7 +787,7 @@ type
|
||||
|
||||
{ IAlbaranesCliente_Detalles_Refresh }
|
||||
IAlbaranesCliente_Detalles_Refresh = interface(IDAStronglyTypedDataTable)
|
||||
['{48F905D6-3C7F-4E0F-9E48-8B91954739ED}']
|
||||
['{3B82C2B6-F19A-453E-8524-EA8E3565867B}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -795,7 +900,7 @@ type
|
||||
|
||||
{ IAlbaranesCliente_Refresh }
|
||||
IAlbaranesCliente_Refresh = interface(IDAStronglyTypedDataTable)
|
||||
['{D51B67F3-2EC6-46BC-82F7-B2BE93663E91}']
|
||||
['{04558C4E-FE43-44B4-9439-774781EB864B}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -879,6 +984,18 @@ type
|
||||
procedure SetID_AGENTEValue(const aValue: Integer);
|
||||
function GetAGENTEValue: String;
|
||||
procedure SetAGENTEValue(const aValue: String);
|
||||
function GetNUM_COPIASValue: Integer;
|
||||
procedure SetNUM_COPIASValue(const aValue: Integer);
|
||||
function GetID_ALBARAN_DEVValue: Integer;
|
||||
procedure SetID_ALBARAN_DEVValue(const aValue: Integer);
|
||||
function GetREFERENCIA_ALB_DEVValue: String;
|
||||
procedure SetREFERENCIA_ALB_DEVValue(const aValue: String);
|
||||
function GetID_FAC_ALB_DEVValue: Integer;
|
||||
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 }
|
||||
@ -923,6 +1040,12 @@ type
|
||||
property FECHA_RECEPCION: DateTime read GetFECHA_RECEPCIONValue write SetFECHA_RECEPCIONValue;
|
||||
property ID_AGENTE: Integer read GetID_AGENTEValue write SetID_AGENTEValue;
|
||||
property AGENTE: String read GetAGENTEValue write SetAGENTEValue;
|
||||
property NUM_COPIAS: Integer read GetNUM_COPIASValue write SetNUM_COPIASValue;
|
||||
property ID_ALBARAN_DEV: Integer read GetID_ALBARAN_DEVValue write SetID_ALBARAN_DEVValue;
|
||||
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 }
|
||||
@ -1012,6 +1135,18 @@ type
|
||||
procedure SetID_AGENTEValue(const aValue: Integer); virtual;
|
||||
function GetAGENTEValue: String; virtual;
|
||||
procedure SetAGENTEValue(const aValue: String); virtual;
|
||||
function GetNUM_COPIASValue: Integer; virtual;
|
||||
procedure SetNUM_COPIASValue(const aValue: Integer); virtual;
|
||||
function GetID_ALBARAN_DEVValue: Integer; virtual;
|
||||
procedure SetID_ALBARAN_DEVValue(const aValue: Integer); virtual;
|
||||
function GetREFERENCIA_ALB_DEVValue: String; virtual;
|
||||
procedure SetREFERENCIA_ALB_DEVValue(const aValue: String); virtual;
|
||||
function GetID_FAC_ALB_DEVValue: Integer; virtual;
|
||||
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;
|
||||
@ -1055,6 +1190,12 @@ type
|
||||
property FECHA_RECEPCION: DateTime read GetFECHA_RECEPCIONValue write SetFECHA_RECEPCIONValue;
|
||||
property ID_AGENTE: Integer read GetID_AGENTEValue write SetID_AGENTEValue;
|
||||
property AGENTE: String read GetAGENTEValue write SetAGENTEValue;
|
||||
property NUM_COPIAS: Integer read GetNUM_COPIASValue write SetNUM_COPIASValue;
|
||||
property ID_ALBARAN_DEV: Integer read GetID_ALBARAN_DEVValue write SetID_ALBARAN_DEVValue;
|
||||
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;
|
||||
@ -1066,6 +1207,28 @@ 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
|
||||
@ -1511,6 +1674,76 @@ begin
|
||||
DataTable.Fields[idx_AlbaranesClienteAGENTE].AsString := aValue;
|
||||
end;
|
||||
|
||||
function TAlbaranesClienteDataTableRules.GetNUM_COPIASValue: Integer;
|
||||
begin
|
||||
result := DataTable.Fields[idx_AlbaranesClienteNUM_COPIAS].AsInteger;
|
||||
end;
|
||||
|
||||
procedure TAlbaranesClienteDataTableRules.SetNUM_COPIASValue(const aValue: Integer);
|
||||
begin
|
||||
DataTable.Fields[idx_AlbaranesClienteNUM_COPIAS].AsInteger := aValue;
|
||||
end;
|
||||
|
||||
function TAlbaranesClienteDataTableRules.GetID_ALBARAN_DEVValue: Integer;
|
||||
begin
|
||||
result := DataTable.Fields[idx_AlbaranesClienteID_ALBARAN_DEV].AsInteger;
|
||||
end;
|
||||
|
||||
procedure TAlbaranesClienteDataTableRules.SetID_ALBARAN_DEVValue(const aValue: Integer);
|
||||
begin
|
||||
DataTable.Fields[idx_AlbaranesClienteID_ALBARAN_DEV].AsInteger := aValue;
|
||||
end;
|
||||
|
||||
function TAlbaranesClienteDataTableRules.GetREFERENCIA_ALB_DEVValue: String;
|
||||
begin
|
||||
result := DataTable.Fields[idx_AlbaranesClienteREFERENCIA_ALB_DEV].AsString;
|
||||
end;
|
||||
|
||||
procedure TAlbaranesClienteDataTableRules.SetREFERENCIA_ALB_DEVValue(const aValue: String);
|
||||
begin
|
||||
DataTable.Fields[idx_AlbaranesClienteREFERENCIA_ALB_DEV].AsString := aValue;
|
||||
end;
|
||||
|
||||
function TAlbaranesClienteDataTableRules.GetID_FAC_ALB_DEVValue: Integer;
|
||||
begin
|
||||
result := DataTable.Fields[idx_AlbaranesClienteID_FAC_ALB_DEV].AsInteger;
|
||||
end;
|
||||
|
||||
procedure TAlbaranesClienteDataTableRules.SetID_FAC_ALB_DEVValue(const aValue: Integer);
|
||||
begin
|
||||
DataTable.Fields[idx_AlbaranesClienteID_FAC_ALB_DEV].AsInteger := aValue;
|
||||
end;
|
||||
|
||||
function TAlbaranesClienteDataTableRules.GetREFERENCIA_FAC_ALB_DEVValue: String;
|
||||
begin
|
||||
result := DataTable.Fields[idx_AlbaranesClienteREFERENCIA_FAC_ALB_DEV].AsString;
|
||||
end;
|
||||
|
||||
procedure TAlbaranesClienteDataTableRules.SetREFERENCIA_FAC_ALB_DEVValue(const aValue: String);
|
||||
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);
|
||||
@ -2259,8 +2492,69 @@ begin
|
||||
DataTable.Fields[idx_AlbaranesCliente_RefreshAGENTE].AsString := aValue;
|
||||
end;
|
||||
|
||||
function TAlbaranesCliente_RefreshDataTableRules.GetNUM_COPIASValue: Integer;
|
||||
begin
|
||||
result := DataTable.Fields[idx_AlbaranesCliente_RefreshNUM_COPIAS].AsInteger;
|
||||
end;
|
||||
|
||||
procedure TAlbaranesCliente_RefreshDataTableRules.SetNUM_COPIASValue(const aValue: Integer);
|
||||
begin
|
||||
DataTable.Fields[idx_AlbaranesCliente_RefreshNUM_COPIAS].AsInteger := aValue;
|
||||
end;
|
||||
|
||||
function TAlbaranesCliente_RefreshDataTableRules.GetID_ALBARAN_DEVValue: Integer;
|
||||
begin
|
||||
result := DataTable.Fields[idx_AlbaranesCliente_RefreshID_ALBARAN_DEV].AsInteger;
|
||||
end;
|
||||
|
||||
procedure TAlbaranesCliente_RefreshDataTableRules.SetID_ALBARAN_DEVValue(const aValue: Integer);
|
||||
begin
|
||||
DataTable.Fields[idx_AlbaranesCliente_RefreshID_ALBARAN_DEV].AsInteger := aValue;
|
||||
end;
|
||||
|
||||
function TAlbaranesCliente_RefreshDataTableRules.GetREFERENCIA_ALB_DEVValue: String;
|
||||
begin
|
||||
result := DataTable.Fields[idx_AlbaranesCliente_RefreshREFERENCIA_ALB_DEV].AsString;
|
||||
end;
|
||||
|
||||
procedure TAlbaranesCliente_RefreshDataTableRules.SetREFERENCIA_ALB_DEVValue(const aValue: String);
|
||||
begin
|
||||
DataTable.Fields[idx_AlbaranesCliente_RefreshREFERENCIA_ALB_DEV].AsString := aValue;
|
||||
end;
|
||||
|
||||
function TAlbaranesCliente_RefreshDataTableRules.GetID_FAC_ALB_DEVValue: Integer;
|
||||
begin
|
||||
result := DataTable.Fields[idx_AlbaranesCliente_RefreshID_FAC_ALB_DEV].AsInteger;
|
||||
end;
|
||||
|
||||
procedure TAlbaranesCliente_RefreshDataTableRules.SetID_FAC_ALB_DEVValue(const aValue: Integer);
|
||||
begin
|
||||
DataTable.Fields[idx_AlbaranesCliente_RefreshID_FAC_ALB_DEV].AsInteger := aValue;
|
||||
end;
|
||||
|
||||
function TAlbaranesCliente_RefreshDataTableRules.GetREFERENCIA_FAC_ALB_DEVValue: String;
|
||||
begin
|
||||
result := DataTable.Fields[idx_AlbaranesCliente_RefreshREFERENCIA_FAC_ALB_DEV].AsString;
|
||||
end;
|
||||
|
||||
procedure TAlbaranesCliente_RefreshDataTableRules.SetREFERENCIA_FAC_ALB_DEVValue(const aValue: String);
|
||||
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);
|
||||
|
||||
@ -9,16 +9,46 @@ 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_DarReferenciaDelta = '{3D8FD5D2-A886-493F-8792-FF470F196654}';
|
||||
RID_AlbaranesClienteDelta = '{B423BC9B-11C5-4CD6-B4DE-15BD0746B77F}';
|
||||
RID_AlbaranesCliente_DetallesDelta = '{07D56912-3A90-4AB6-A546-53E07A7F32FA}';
|
||||
RID_AlbaranesCliente_Detalles_RefreshDelta = '{180849FA-AF37-4138-A0D9-B89C55E94A4D}';
|
||||
RID_AlbaranesCliente_RefreshDelta = '{53C27CD8-3116-4171-97EE-4DDD39E6DFF3}';
|
||||
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}';
|
||||
|
||||
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)
|
||||
['{3D8FD5D2-A886-493F-8792-FF470F196654}']
|
||||
['{5C4E2CEA-88DD-4AC6-AAC2-6293B3382633}']
|
||||
{ Property getters and setters }
|
||||
function GetOldVALORValue : String;
|
||||
|
||||
@ -47,7 +77,7 @@ type
|
||||
|
||||
{ IAlbaranesClienteDelta }
|
||||
IAlbaranesClienteDelta = interface(IAlbaranesCliente)
|
||||
['{B423BC9B-11C5-4CD6-B4DE-15BD0746B77F}']
|
||||
['{98711469-A105-4C12-A90C-952772B92D20}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_EMPRESAValue : Integer;
|
||||
@ -90,6 +120,13 @@ type
|
||||
function GetOldFECHA_RECEPCIONValue : DateTime;
|
||||
function GetOldID_AGENTEValue : Integer;
|
||||
function GetOldAGENTEValue : String;
|
||||
function GetOldNUM_COPIASValue : Integer;
|
||||
function GetOldID_ALBARAN_DEVValue : Integer;
|
||||
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;
|
||||
@ -133,6 +170,13 @@ type
|
||||
property OldFECHA_RECEPCION : DateTime read GetOldFECHA_RECEPCIONValue;
|
||||
property OldID_AGENTE : Integer read GetOldID_AGENTEValue;
|
||||
property OldAGENTE : String read GetOldAGENTEValue;
|
||||
property OldNUM_COPIAS : Integer read GetOldNUM_COPIASValue;
|
||||
property OldID_ALBARAN_DEV : Integer read GetOldID_ALBARAN_DEVValue;
|
||||
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 }
|
||||
@ -263,6 +307,27 @@ type
|
||||
function GetAGENTEValue: String; virtual;
|
||||
function GetOldAGENTEValue: String; virtual;
|
||||
procedure SetAGENTEValue(const aValue: String); virtual;
|
||||
function GetNUM_COPIASValue: Integer; virtual;
|
||||
function GetOldNUM_COPIASValue: Integer; virtual;
|
||||
procedure SetNUM_COPIASValue(const aValue: Integer); virtual;
|
||||
function GetID_ALBARAN_DEVValue: Integer; virtual;
|
||||
function GetOldID_ALBARAN_DEVValue: Integer; virtual;
|
||||
procedure SetID_ALBARAN_DEVValue(const aValue: Integer); virtual;
|
||||
function GetREFERENCIA_ALB_DEVValue: String; virtual;
|
||||
function GetOldREFERENCIA_ALB_DEVValue: String; virtual;
|
||||
procedure SetREFERENCIA_ALB_DEVValue(const aValue: String); virtual;
|
||||
function GetID_FAC_ALB_DEVValue: Integer; virtual;
|
||||
function GetOldID_FAC_ALB_DEVValue: Integer; virtual;
|
||||
procedure SetID_FAC_ALB_DEVValue(const aValue: Integer); virtual;
|
||||
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;
|
||||
@ -347,6 +412,20 @@ type
|
||||
property OldID_AGENTE : Integer read GetOldID_AGENTEValue;
|
||||
property AGENTE : String read GetAGENTEValue write SetAGENTEValue;
|
||||
property OldAGENTE : String read GetOldAGENTEValue;
|
||||
property NUM_COPIAS : Integer read GetNUM_COPIASValue write SetNUM_COPIASValue;
|
||||
property OldNUM_COPIAS : Integer read GetOldNUM_COPIASValue;
|
||||
property ID_ALBARAN_DEV : Integer read GetID_ALBARAN_DEVValue write SetID_ALBARAN_DEVValue;
|
||||
property OldID_ALBARAN_DEV : Integer read GetOldID_ALBARAN_DEVValue;
|
||||
property REFERENCIA_ALB_DEV : String read GetREFERENCIA_ALB_DEVValue write SetREFERENCIA_ALB_DEVValue;
|
||||
property OldREFERENCIA_ALB_DEV : String read GetOldREFERENCIA_ALB_DEVValue;
|
||||
property ID_FAC_ALB_DEV : Integer read GetID_FAC_ALB_DEVValue write SetID_FAC_ALB_DEVValue;
|
||||
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;
|
||||
@ -356,7 +435,7 @@ type
|
||||
|
||||
{ IAlbaranesCliente_DetallesDelta }
|
||||
IAlbaranesCliente_DetallesDelta = interface(IAlbaranesCliente_Detalles)
|
||||
['{07D56912-3A90-4AB6-A546-53E07A7F32FA}']
|
||||
['{A0FDE976-C61E-4FCE-8507-54924F485E4F}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_ALBARANValue : Integer;
|
||||
@ -483,7 +562,7 @@ type
|
||||
|
||||
{ IAlbaranesCliente_Detalles_RefreshDelta }
|
||||
IAlbaranesCliente_Detalles_RefreshDelta = interface(IAlbaranesCliente_Detalles_Refresh)
|
||||
['{180849FA-AF37-4138-A0D9-B89C55E94A4D}']
|
||||
['{48C36801-6C3D-4815-B443-DDDC4BCD25DF}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_ALBARANValue : Integer;
|
||||
@ -610,7 +689,7 @@ type
|
||||
|
||||
{ IAlbaranesCliente_RefreshDelta }
|
||||
IAlbaranesCliente_RefreshDelta = interface(IAlbaranesCliente_Refresh)
|
||||
['{53C27CD8-3116-4171-97EE-4DDD39E6DFF3}']
|
||||
['{4153EB2E-48B9-4133-8427-285B91FA9723}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_EMPRESAValue : Integer;
|
||||
@ -653,6 +732,12 @@ type
|
||||
function GetOldFECHA_RECEPCIONValue : DateTime;
|
||||
function GetOldID_AGENTEValue : Integer;
|
||||
function GetOldAGENTEValue : String;
|
||||
function GetOldNUM_COPIASValue : Integer;
|
||||
function GetOldID_ALBARAN_DEVValue : Integer;
|
||||
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;
|
||||
@ -696,6 +781,12 @@ type
|
||||
property OldFECHA_RECEPCION : DateTime read GetOldFECHA_RECEPCIONValue;
|
||||
property OldID_AGENTE : Integer read GetOldID_AGENTEValue;
|
||||
property OldAGENTE : String read GetOldAGENTEValue;
|
||||
property OldNUM_COPIAS : Integer read GetOldNUM_COPIASValue;
|
||||
property OldID_ALBARAN_DEV : Integer read GetOldID_ALBARAN_DEVValue;
|
||||
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 }
|
||||
@ -826,6 +917,24 @@ type
|
||||
function GetAGENTEValue: String; virtual;
|
||||
function GetOldAGENTEValue: String; virtual;
|
||||
procedure SetAGENTEValue(const aValue: String); virtual;
|
||||
function GetNUM_COPIASValue: Integer; virtual;
|
||||
function GetOldNUM_COPIASValue: Integer; virtual;
|
||||
procedure SetNUM_COPIASValue(const aValue: Integer); virtual;
|
||||
function GetID_ALBARAN_DEVValue: Integer; virtual;
|
||||
function GetOldID_ALBARAN_DEVValue: Integer; virtual;
|
||||
procedure SetID_ALBARAN_DEVValue(const aValue: Integer); virtual;
|
||||
function GetREFERENCIA_ALB_DEVValue: String; virtual;
|
||||
function GetOldREFERENCIA_ALB_DEVValue: String; virtual;
|
||||
procedure SetREFERENCIA_ALB_DEVValue(const aValue: String); virtual;
|
||||
function GetID_FAC_ALB_DEVValue: Integer; virtual;
|
||||
function GetOldID_FAC_ALB_DEVValue: Integer; virtual;
|
||||
procedure SetID_FAC_ALB_DEVValue(const aValue: Integer); virtual;
|
||||
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;
|
||||
@ -910,6 +1019,18 @@ type
|
||||
property OldID_AGENTE : Integer read GetOldID_AGENTEValue;
|
||||
property AGENTE : String read GetAGENTEValue write SetAGENTEValue;
|
||||
property OldAGENTE : String read GetOldAGENTEValue;
|
||||
property NUM_COPIAS : Integer read GetNUM_COPIASValue write SetNUM_COPIASValue;
|
||||
property OldNUM_COPIAS : Integer read GetOldNUM_COPIASValue;
|
||||
property ID_ALBARAN_DEV : Integer read GetID_ALBARAN_DEVValue write SetID_ALBARAN_DEVValue;
|
||||
property OldID_ALBARAN_DEV : Integer read GetOldID_ALBARAN_DEVValue;
|
||||
property REFERENCIA_ALB_DEV : String read GetREFERENCIA_ALB_DEVValue write SetREFERENCIA_ALB_DEVValue;
|
||||
property OldREFERENCIA_ALB_DEV : String read GetOldREFERENCIA_ALB_DEVValue;
|
||||
property ID_FAC_ALB_DEV : Integer read GetID_FAC_ALB_DEVValue write SetID_FAC_ALB_DEVValue;
|
||||
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;
|
||||
@ -922,6 +1043,33 @@ 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
|
||||
@ -1579,6 +1727,111 @@ begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteAGENTE] := aValue;
|
||||
end;
|
||||
|
||||
function TAlbaranesClienteBusinessProcessorRules.GetNUM_COPIASValue: Integer;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteNUM_COPIAS];
|
||||
end;
|
||||
|
||||
function TAlbaranesClienteBusinessProcessorRules.GetOldNUM_COPIASValue: Integer;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesClienteNUM_COPIAS];
|
||||
end;
|
||||
|
||||
procedure TAlbaranesClienteBusinessProcessorRules.SetNUM_COPIASValue(const aValue: Integer);
|
||||
begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteNUM_COPIAS] := aValue;
|
||||
end;
|
||||
|
||||
function TAlbaranesClienteBusinessProcessorRules.GetID_ALBARAN_DEVValue: Integer;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteID_ALBARAN_DEV];
|
||||
end;
|
||||
|
||||
function TAlbaranesClienteBusinessProcessorRules.GetOldID_ALBARAN_DEVValue: Integer;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesClienteID_ALBARAN_DEV];
|
||||
end;
|
||||
|
||||
procedure TAlbaranesClienteBusinessProcessorRules.SetID_ALBARAN_DEVValue(const aValue: Integer);
|
||||
begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteID_ALBARAN_DEV] := aValue;
|
||||
end;
|
||||
|
||||
function TAlbaranesClienteBusinessProcessorRules.GetREFERENCIA_ALB_DEVValue: String;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteREFERENCIA_ALB_DEV];
|
||||
end;
|
||||
|
||||
function TAlbaranesClienteBusinessProcessorRules.GetOldREFERENCIA_ALB_DEVValue: String;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesClienteREFERENCIA_ALB_DEV];
|
||||
end;
|
||||
|
||||
procedure TAlbaranesClienteBusinessProcessorRules.SetREFERENCIA_ALB_DEVValue(const aValue: String);
|
||||
begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteREFERENCIA_ALB_DEV] := aValue;
|
||||
end;
|
||||
|
||||
function TAlbaranesClienteBusinessProcessorRules.GetID_FAC_ALB_DEVValue: Integer;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteID_FAC_ALB_DEV];
|
||||
end;
|
||||
|
||||
function TAlbaranesClienteBusinessProcessorRules.GetOldID_FAC_ALB_DEVValue: Integer;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesClienteID_FAC_ALB_DEV];
|
||||
end;
|
||||
|
||||
procedure TAlbaranesClienteBusinessProcessorRules.SetID_FAC_ALB_DEVValue(const aValue: Integer);
|
||||
begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteID_FAC_ALB_DEV] := aValue;
|
||||
end;
|
||||
|
||||
function TAlbaranesClienteBusinessProcessorRules.GetREFERENCIA_FAC_ALB_DEVValue: String;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteREFERENCIA_FAC_ALB_DEV];
|
||||
end;
|
||||
|
||||
function TAlbaranesClienteBusinessProcessorRules.GetOldREFERENCIA_FAC_ALB_DEVValue: String;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesClienteREFERENCIA_FAC_ALB_DEV];
|
||||
end;
|
||||
|
||||
procedure TAlbaranesClienteBusinessProcessorRules.SetREFERENCIA_FAC_ALB_DEVValue(const aValue: String);
|
||||
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);
|
||||
@ -2684,8 +2937,99 @@ begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_RefreshAGENTE] := aValue;
|
||||
end;
|
||||
|
||||
function TAlbaranesCliente_RefreshBusinessProcessorRules.GetNUM_COPIASValue: Integer;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_RefreshNUM_COPIAS];
|
||||
end;
|
||||
|
||||
function TAlbaranesCliente_RefreshBusinessProcessorRules.GetOldNUM_COPIASValue: Integer;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesCliente_RefreshNUM_COPIAS];
|
||||
end;
|
||||
|
||||
procedure TAlbaranesCliente_RefreshBusinessProcessorRules.SetNUM_COPIASValue(const aValue: Integer);
|
||||
begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_RefreshNUM_COPIAS] := aValue;
|
||||
end;
|
||||
|
||||
function TAlbaranesCliente_RefreshBusinessProcessorRules.GetID_ALBARAN_DEVValue: Integer;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_RefreshID_ALBARAN_DEV];
|
||||
end;
|
||||
|
||||
function TAlbaranesCliente_RefreshBusinessProcessorRules.GetOldID_ALBARAN_DEVValue: Integer;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesCliente_RefreshID_ALBARAN_DEV];
|
||||
end;
|
||||
|
||||
procedure TAlbaranesCliente_RefreshBusinessProcessorRules.SetID_ALBARAN_DEVValue(const aValue: Integer);
|
||||
begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_RefreshID_ALBARAN_DEV] := aValue;
|
||||
end;
|
||||
|
||||
function TAlbaranesCliente_RefreshBusinessProcessorRules.GetREFERENCIA_ALB_DEVValue: String;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_RefreshREFERENCIA_ALB_DEV];
|
||||
end;
|
||||
|
||||
function TAlbaranesCliente_RefreshBusinessProcessorRules.GetOldREFERENCIA_ALB_DEVValue: String;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesCliente_RefreshREFERENCIA_ALB_DEV];
|
||||
end;
|
||||
|
||||
procedure TAlbaranesCliente_RefreshBusinessProcessorRules.SetREFERENCIA_ALB_DEVValue(const aValue: String);
|
||||
begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_RefreshREFERENCIA_ALB_DEV] := aValue;
|
||||
end;
|
||||
|
||||
function TAlbaranesCliente_RefreshBusinessProcessorRules.GetID_FAC_ALB_DEVValue: Integer;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_RefreshID_FAC_ALB_DEV];
|
||||
end;
|
||||
|
||||
function TAlbaranesCliente_RefreshBusinessProcessorRules.GetOldID_FAC_ALB_DEVValue: Integer;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesCliente_RefreshID_FAC_ALB_DEV];
|
||||
end;
|
||||
|
||||
procedure TAlbaranesCliente_RefreshBusinessProcessorRules.SetID_FAC_ALB_DEVValue(const aValue: Integer);
|
||||
begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_RefreshID_FAC_ALB_DEV] := aValue;
|
||||
end;
|
||||
|
||||
function TAlbaranesCliente_RefreshBusinessProcessorRules.GetREFERENCIA_FAC_ALB_DEVValue: String;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_RefreshREFERENCIA_FAC_ALB_DEV];
|
||||
end;
|
||||
|
||||
function TAlbaranesCliente_RefreshBusinessProcessorRules.GetOldREFERENCIA_FAC_ALB_DEVValue: String;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesCliente_RefreshREFERENCIA_FAC_ALB_DEV];
|
||||
end;
|
||||
|
||||
procedure TAlbaranesCliente_RefreshBusinessProcessorRules.SetREFERENCIA_FAC_ALB_DEVValue(const aValue: String);
|
||||
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);
|
||||
|
||||
@ -110,19 +110,20 @@ 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.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'
|
||||
'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'
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <
|
||||
item
|
||||
@ -248,6 +249,10 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
|
||||
item
|
||||
DatasetField = 'PROVINCIA_EMPRESA'
|
||||
TableField = 'PROVINCIA_EMPRESA'
|
||||
end
|
||||
item
|
||||
DatasetField = 'INCIDENCIAS'
|
||||
TableField = 'INCIDENCIAS'
|
||||
end>
|
||||
end>
|
||||
Name = 'Informe_Cabecera'
|
||||
@ -450,6 +455,17 @@ 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
|
||||
@ -1321,17 +1337,35 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
|
||||
Top = 158
|
||||
end
|
||||
object frxReport: TfrxReport
|
||||
Version = '3.23.7'
|
||||
Version = '4.3'
|
||||
DotMatrixReport = False
|
||||
EngineOptions.DoublePass = True
|
||||
IniFile = '\Software\Fast Reports'
|
||||
PreviewOptions.Buttons = [pbPrint, pbLoad, pbSave, pbExport, pbZoom, pbFind, pbOutline, pbPageSetup, pbTools, pbEdit, pbNavigator, pbExportQuick]
|
||||
PreviewOptions.Zoom = 1.000000000000000000
|
||||
PrintOptions.Printer = 'Por defecto'
|
||||
PrintOptions.PrintOnSheet = 0
|
||||
ReportOptions.CreateDate = 39065.872423495400000000
|
||||
ReportOptions.LastChange = 39286.749813368060000000
|
||||
ReportOptions.LastChange = 39752.715049039350000000
|
||||
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'
|
||||
@ -1339,74 +1373,109 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
|
||||
' NombreEmpresa.Lines.Add(<frxDBCabecera."NOMBRE_EMPRESA">);'
|
||||
'end;'
|
||||
''
|
||||
'procedure TelefonosEmpresaOnBeforePrint(Sender: TfrxComponent);'
|
||||
'procedure DireccionEnvioOnBeforePrint(Sender: TfrxComponent);'
|
||||
'var'
|
||||
' Cadena: String;'
|
||||
' ACadena : String;'
|
||||
'begin'
|
||||
' TelefonosEmpresa.Lines.Clear;'
|
||||
' ACadena := '#39#39';'
|
||||
' DireccionEnvio.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_EMPRE' +
|
||||
'SA">;'
|
||||
' TelefonosEmpresa.Lines.Add(Cadena);'
|
||||
' 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 DireccionEmpresaOnBeforePrint(Sender: TfrxComponent);'
|
||||
'var'
|
||||
' Cadena: String;'
|
||||
'procedure Memo2OnBeforePrint(Sender: TfrxComponent);'
|
||||
'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">);'
|
||||
' 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;'
|
||||
|
||||
' 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'
|
||||
'end;'
|
||||
''
|
||||
'begin'
|
||||
''
|
||||
'end.')
|
||||
ShowProgress = False
|
||||
StoreInDFM = False
|
||||
OnGetValue = frxReportGetValue
|
||||
OnStartReport = 'frxReportOnStartReport'
|
||||
Left = 169
|
||||
Top = 16
|
||||
Datasets = <
|
||||
item
|
||||
DataSet = frxDBCabecera
|
||||
DataSetName = 'frxDBCabecera'
|
||||
end
|
||||
item
|
||||
DataSet = frxDBDetalles
|
||||
DataSetName = 'frxDBDetalles'
|
||||
end>
|
||||
Variables = <>
|
||||
Style = <
|
||||
item
|
||||
Name = 'Style1'
|
||||
Color = clNone
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -27
|
||||
Font.Name = 'Arial'
|
||||
Font.Style = []
|
||||
end>
|
||||
end
|
||||
object frxDBCabecera: TfrxDBDataset
|
||||
UserName = 'frxDBCabecera'
|
||||
@ -1422,4 +1491,18 @@ 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
|
||||
|
||||
@ -7,7 +7,7 @@ uses
|
||||
Dialogs, frxClass, frxDBSet, uDAScriptingProvider,
|
||||
uDADataTable, uDACDSDataTable, DB, uDAClasses, frxChart, frxGradient,
|
||||
frxChBox, frxCross, frxOLE, frxBarcode, frxRich, uDABINAdapter, uROTypes,
|
||||
uDAInterfaces;
|
||||
uDAInterfaces, FactuGES_Intf, frxExportPDF;
|
||||
|
||||
type
|
||||
TRptAlbaranesCliente = class(TDataModule)
|
||||
@ -25,17 +25,22 @@ 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): Binary; overload;
|
||||
function GenerarAlbaran(const AID : String; const AConLogotipo: Boolean; const ConObservacionesIncidencias: Boolean): Binary; overload;
|
||||
function GenerarEtiquetas(const AID : Integer; withRefCliente: Boolean): Binary;
|
||||
function GenerarReportEnPDF(const ListaID : TIntegerArray; const AConLogotipo: Boolean): Binary;
|
||||
end;
|
||||
|
||||
implementation
|
||||
@ -43,7 +48,7 @@ implementation
|
||||
{$R *.dfm}
|
||||
|
||||
uses
|
||||
uDataModuleServer, schAlbaranesClienteClient_Intf;
|
||||
uSistemaFunc, uDataModuleServer, schAlbaranesClienteClient_Intf;
|
||||
|
||||
const
|
||||
rptInfAlbaran = 'InfAlbaranCliente.fr3';
|
||||
@ -62,39 +67,50 @@ procedure TRptAlbaranesCliente.DataModuleCreate(Sender: TObject);
|
||||
begin
|
||||
schReport.ConnectionManager := dmServer.ConnectionManager;
|
||||
FConnection := dmServer.DarNuevaConexion;
|
||||
FShowLogotipo := False;
|
||||
FConObservacionesIncidencias := False;
|
||||
frxReport.EngineOptions.NewSilentMode := simReThrow;
|
||||
end;
|
||||
|
||||
function TRptAlbaranesCliente.GenerarAlbaran(const AID: String): Binary;
|
||||
function TRptAlbaranesCliente.GenerarAlbaran(const AID: String; const AConLogotipo: Boolean; const ConObservacionesIncidencias: Boolean): Binary;
|
||||
var
|
||||
ID_Albaranes: TStringList;
|
||||
i: Integer;
|
||||
begin
|
||||
Result := Binary.Create;
|
||||
FConnection.BeginTransaction;
|
||||
|
||||
try
|
||||
FShowLogotipo := AConLogotipo;
|
||||
FConObservacionesIncidencias := ConObservacionesIncidencias;
|
||||
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;
|
||||
|
||||
procedure TRptAlbaranesCliente.GenerarAlbaran(const ID: integer);
|
||||
procedure TRptAlbaranesCliente.frxReportGetValue(const VarName: string; var Value: Variant);
|
||||
begin
|
||||
if VarName = 'ShowLogotipo' then
|
||||
Value := FShowLogotipo;
|
||||
|
||||
if VarName = 'ConObservacionesIncidencias' then
|
||||
Value := FConObservacionesIncidencias;
|
||||
end;
|
||||
|
||||
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]);
|
||||
@ -108,10 +124,16 @@ begin
|
||||
DABINAdapter.WriteDataset(AStream, dsDetail, [woRows, woSchema], -1);
|
||||
DABINAdapter.ReadDataset(AStream, tbl_Detalles, TRUE, '', TRUE, TRUE);
|
||||
|
||||
frxReport.LoadFromFile(DarRutaInformes + rptInfAlbaran, 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.PrepareReport(False);
|
||||
|
||||
finally
|
||||
FConnection.RollbackTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO"
|
||||
AStream.Free;
|
||||
dsMaster := Nil;
|
||||
dsDetail := Nil;
|
||||
@ -123,6 +145,7 @@ var
|
||||
dsMaster: IDADataset;
|
||||
dsDetail: IDADataset;
|
||||
AStream: TMemoryStream;
|
||||
AInforme: Variant;
|
||||
begin
|
||||
AStream := TMemoryStream.Create;
|
||||
Result := Binary.Create;
|
||||
@ -139,7 +162,12 @@ begin
|
||||
DABINAdapter.WriteDataset(AStream, dsDetail, [woRows, woSchema], -1);
|
||||
DABINAdapter.ReadDataset(AStream, tbl_Detalles, TRUE, '', TRUE, TRUE);
|
||||
|
||||
frxReport.LoadFromFile(DarRutaInformes + rptInfEtiquetas, 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);
|
||||
if withRefCliente then
|
||||
frxReport.Variables.Variables['withRefCliente'] := 1
|
||||
else
|
||||
@ -152,4 +180,22 @@ 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.
|
||||
|
||||
Some files were not shown because too many files have changed in this diff Show More
Reference in New Issue
Block a user