Compare commits
6 Commits
| Author | SHA1 | Date | |
|---|---|---|---|
| 005ad1b637 | |||
| a94bd81b86 | |||
| 3faefc433d | |||
| faae54253c | |||
| 025b5ad823 | |||
| a1d83665c2 |
BIN
Build/Build.fbl6
Normal file
BIN
Build/Build.fbl6
Normal file
Binary file not shown.
21002
Build/Build.fbp5
21002
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">False</Property>
|
|
||||||
<Property name="CheckFileSizes" type="Boolean">True</Property>
|
|
||||||
<Property MultiValue="1" name="ConnectionName" type="string"><![CDATA[FTP Actualizaciones]]>
|
|
||||||
</Property>
|
|
||||||
<Property name="DetailedLogging" type="Boolean">True</Property>
|
|
||||||
<Property name="Enabled" type="WordBool">True</Property>
|
|
||||||
<Property name="EnableTimeout" type="Boolean">False</Property>
|
|
||||||
<Property name="ExpandActionLogTitle" type="Boolean">True</Property>
|
|
||||||
<Property MultiValue="0" name="FileSetName" type="string">ListaFicherosUpdate</Property>
|
|
||||||
<Property MultiValue="0" name="FileSpec" type="string"></Property>
|
|
||||||
<Property name="ForceNextClockSkewUpdate" type="Boolean">False</Property>
|
|
||||||
<Property name="GapLength" type="Integer">5</Property>
|
|
||||||
<Property name="IgnoreFailure" type="WordBool">False</Property>
|
|
||||||
<Property name="IsAction" type="Boolean">True</Property>
|
|
||||||
<Property name="IsBreakPoint" type="WordBool">False</Property>
|
|
||||||
<Property MultiValue="0" name="LocalDir" type="string"></Property>
|
|
||||||
<Property MultiValue="0" name="LogToVariable" type="string"></Property>
|
|
||||||
<Property name="MaxRetryAttempts" type="Cardinal">0</Property>
|
|
||||||
<Property name="NodeCollapsed" type="Boolean">False</Property>
|
|
||||||
<Property name="PauseInterval" type="Cardinal">0</Property>
|
|
||||||
<Property name="Recursive" type="Boolean">False</Property>
|
|
||||||
<Property MultiValue="0" name="RemoteFile" type="string"></Property>
|
|
||||||
<Property name="RetryIfUploadFails" type="Boolean">True</Property>
|
|
||||||
<Property name="RetryPauseInterval" type="Cardinal">1000</Property>
|
|
||||||
<Property name="ServerClockSkew" type="Integer">0</Property>
|
|
||||||
<Property name="SuppressStatusMessages" type="Boolean">False</Property>
|
|
||||||
<Property name="ThrottleSpeed" type="Integer">128</Property>
|
|
||||||
<Property name="ThrottleUpload" type="Boolean">False</Property>
|
|
||||||
<Property name="TimeoutLength" type="Cardinal">10</Property>
|
|
||||||
<Property name="UpdateOnly" type="Boolean">True</Property>
|
|
||||||
<Property name="UseFileSpec" type="Boolean">False</Property>
|
|
||||||
</Object>
|
|
||||||
<Object Class="TFBFileSetObject" XMLID="{4C96E19D-4C98-467F-809B-CB662FF2372D}"><Property MultiValue="0" name="BaseDirectory" type="string">%project_path%\Installer\Output</Property>
|
|
||||||
<Property name="ExcludePatternList" type="IFBFileSetPatternList" XMLID="{9C8884C4-AC87-4A06-9C76-F6FCF3C9E49A}"/>
|
|
||||||
<Property name="FilterList" type="IFBFileSetFilterList" XMLID="{93191189-6FD7-4733-A59A-F4F2581CB00C}"/>
|
|
||||||
<Property MultiValue="0" name="Name" type="string">ListaFicherosUpdate</Property>
|
|
||||||
<Property name="OutputQuoting" type="TFileSetQuoteType">qtNone</Property>
|
|
||||||
<Property name="OutputSeparator" type="TFileSetSepType">spNone</Property>
|
|
||||||
<Property name="PatternList" type="IFBFileSetPatternList" XMLID="{2A9CF598-8D00-49FE-A651-B048E48A6EB5}"/>
|
|
||||||
<Property name="RecurseHiddenSystem" type="Boolean">False</Property>
|
|
||||||
<Object Class="TFBFileSetPatternList" XMLID="{2A9CF598-8D00-49FE-A651-B048E48A6EB5}"><Property MultiValue="0" name="Name" type="string">PATTERNLIST</Property>
|
|
||||||
<Object Class="TFBFileSetPattern" XMLID="{B9A535A2-0090-4530-A298-1F2566525C68}"><Property MultiValue="0" name="Comment" type="string"></Property>
|
|
||||||
<Property name="IsRegExpr" type="Boolean">False</Property>
|
|
||||||
<Property MultiValue="0" name="Item" type="string">*.*</Property>
|
|
||||||
<Property name="Recurse" type="Boolean">False</Property>
|
|
||||||
</Object>
|
|
||||||
</Object>
|
|
||||||
<Object Class="TFBFileSetPatternList" XMLID="{9C8884C4-AC87-4A06-9C76-F6FCF3C9E49A}"><Property MultiValue="0" name="Name" type="string">EXCLUDEPATTERNLIST</Property>
|
|
||||||
</Object>
|
|
||||||
<Object Class="TFBFileSetFilterList" XMLID="{93191189-6FD7-4733-A59A-F4F2581CB00C}"/>
|
|
||||||
</Object>
|
|
||||||
</Object>
|
|
||||||
<Object Class="TCommentAction" XMLID="{0C0BACA7-33E4-4C67-9DD8-BC1EDCF60346}"><Property MultiValue="0" name="ActionComment" type="string"></Property>
|
|
||||||
<Property MultiValue="0" name="ActionDescription" type="string">#</Property>
|
|
||||||
<Property name="ActionTextColor" type="Cardinal">16711680</Property>
|
|
||||||
<Property MultiValue="0" name="ActionTypeID" type="string"></Property>
|
|
||||||
<Property MultiValue="0" name="Description" type="string">#</Property>
|
|
||||||
<Property name="Enabled" type="WordBool">True</Property>
|
|
||||||
<Property name="ExpandActionLogTitle" type="Boolean">True</Property>
|
|
||||||
<Property name="IgnoreFailure" type="WordBool">False</Property>
|
|
||||||
<Property name="IsAction" type="Boolean">True</Property>
|
|
||||||
<Property name="IsBreakPoint" type="WordBool">False</Property>
|
|
||||||
<Property MultiValue="0" name="LogToVariable" type="string"></Property>
|
|
||||||
<Property name="MaxRetryAttempts" type="Cardinal">0</Property>
|
|
||||||
<Property name="NodeCollapsed" type="Boolean">False</Property>
|
|
||||||
<Property name="PauseInterval" type="Cardinal">0</Property>
|
|
||||||
<Property name="RetryPauseInterval" type="Cardinal">1000</Property>
|
|
||||||
<Property name="SuppressStatusMessages" type="Boolean">False</Property>
|
|
||||||
</Object>
|
|
||||||
<Object Class="TCommentAction" XMLID="{0EE1EBCC-CBBC-423C-8A8B-C539E0AD3F1A}"><Property MultiValue="0" name="ActionComment" type="string"></Property>
|
|
||||||
<Property MultiValue="0" name="ActionDescription" type="string">#</Property>
|
|
||||||
<Property name="ActionTextColor" type="Cardinal">16711680</Property>
|
|
||||||
<Property MultiValue="0" name="ActionTypeID" type="string"></Property>
|
|
||||||
<Property MultiValue="0" name="Description" type="string">#</Property>
|
|
||||||
<Property name="Enabled" type="WordBool">True</Property>
|
|
||||||
<Property name="ExpandActionLogTitle" type="Boolean">True</Property>
|
|
||||||
<Property name="IgnoreFailure" type="WordBool">False</Property>
|
|
||||||
<Property name="IsAction" type="Boolean">True</Property>
|
|
||||||
<Property name="IsBreakPoint" type="WordBool">False</Property>
|
|
||||||
<Property MultiValue="0" name="LogToVariable" type="string"></Property>
|
|
||||||
<Property name="MaxRetryAttempts" type="Cardinal">0</Property>
|
|
||||||
<Property name="NodeCollapsed" type="Boolean">False</Property>
|
|
||||||
<Property name="PauseInterval" type="Cardinal">0</Property>
|
|
||||||
<Property name="RetryPauseInterval" type="Cardinal">1000</Property>
|
|
||||||
<Property name="SuppressStatusMessages" type="Boolean">False</Property>
|
|
||||||
</Object>
|
|
||||||
<Object Class="TCommentAction" XMLID="{414785EC-5943-4162-A8E1-E74A8C7444AA}"><Property MultiValue="0" name="ActionComment" type="string"></Property>
|
|
||||||
<Property MultiValue="0" name="ActionDescription" type="string">#</Property>
|
|
||||||
<Property name="ActionTextColor" type="Cardinal">16711680</Property>
|
|
||||||
<Property MultiValue="0" name="ActionTypeID" type="string"></Property>
|
|
||||||
<Property MultiValue="0" name="Description" type="string">#</Property>
|
|
||||||
<Property name="Enabled" type="WordBool">True</Property>
|
|
||||||
<Property name="ExpandActionLogTitle" type="Boolean">True</Property>
|
|
||||||
<Property name="IgnoreFailure" type="WordBool">False</Property>
|
|
||||||
<Property name="IsAction" type="Boolean">True</Property>
|
|
||||||
<Property name="IsBreakPoint" type="WordBool">False</Property>
|
|
||||||
<Property MultiValue="0" name="LogToVariable" type="string"></Property>
|
|
||||||
<Property name="MaxRetryAttempts" type="Cardinal">0</Property>
|
|
||||||
<Property name="NodeCollapsed" type="Boolean">False</Property>
|
|
||||||
<Property name="PauseInterval" type="Cardinal">0</Property>
|
|
||||||
<Property name="RetryPauseInterval" type="Cardinal">1000</Property>
|
|
||||||
<Property name="SuppressStatusMessages" type="Boolean">False</Property>
|
|
||||||
</Object>
|
|
||||||
<Object Class="TFTPDisconnectAction" XMLID="{A0067CDC-7F31-43A8-A938-A97C20D918D4}"><Property MultiValue="0" name="ActionComment" type="string"></Property>
|
|
||||||
<Property MultiValue="1" name="ActionDescription" type="string"><![CDATA[FTP Disconnect [ FTP Actualizaciones ]]]>
|
|
||||||
</Property>
|
|
||||||
<Property name="ActionTextColor" type="Cardinal">0</Property>
|
|
||||||
<Property MultiValue="0" name="ActionTypeID" type="string"></Property>
|
|
||||||
<Property MultiValue="1" name="ConnectionName" type="string"><![CDATA[FTP Actualizaciones]]>
|
|
||||||
</Property>
|
|
||||||
<Property name="DetailedLogging" type="Boolean">False</Property>
|
|
||||||
<Property name="Enabled" type="WordBool">True</Property>
|
|
||||||
<Property name="ExpandActionLogTitle" type="Boolean">True</Property>
|
|
||||||
<Property name="IgnoreFailure" type="WordBool">False</Property>
|
|
||||||
<Property name="IsAction" type="Boolean">True</Property>
|
|
||||||
<Property name="IsBreakPoint" type="WordBool">False</Property>
|
|
||||||
<Property MultiValue="0" name="LogToVariable" type="string"></Property>
|
|
||||||
<Property name="MaxRetryAttempts" type="Cardinal">0</Property>
|
|
||||||
<Property name="NodeCollapsed" type="Boolean">False</Property>
|
|
||||||
<Property name="PauseInterval" type="Cardinal">0</Property>
|
|
||||||
<Property name="RetryPauseInterval" type="Cardinal">1000</Property>
|
|
||||||
<Property name="SuppressStatusMessages" type="Boolean">False</Property>
|
|
||||||
</Object>
|
|
||||||
</Object>
|
|
||||||
<Object Class="TFBActionListParametersCollection" XMLID="{B49D139C-E17C-41DB-BA6F-9E7BE6658A3F}"/>
|
|
||||||
</Object>
|
|
||||||
<Object Class="TFBActionList" XMLID="{6E64816C-A2E7-4975-BB38-6B7F97A9A2A0}"><Property name="IsFailure" type="Boolean">True</Property>
|
|
||||||
<Property name="IsMain" type="Boolean">False</Property>
|
|
||||||
<Property MultiValue="0" name="Name" type="string">OnFailure</Property>
|
|
||||||
<Property MultiValue="0" name="UniqueID" type="string">{3825909B-D200-4593-9304-63A49FA84CA9}</Property>
|
|
||||||
<Object Class="TFBAction" XMLID="{0F620111-B2BA-4349-A799-E868BAFB041F}"><Property MultiValue="0" name="ActionComment" type="string"></Property>
|
|
||||||
<Property MultiValue="0" name="ActionDescription" type="string">FinalBuilderAction</Property>
|
|
||||||
<Property name="ActionTextColor" type="Cardinal">0</Property>
|
|
||||||
<Property MultiValue="0" name="ActionTypeID" type="string"></Property>
|
|
||||||
<Property name="Enabled" type="WordBool">True</Property>
|
|
||||||
<Property name="ExpandActionLogTitle" type="Boolean">True</Property>
|
|
||||||
<Property name="IgnoreFailure" type="WordBool">False</Property>
|
|
||||||
<Property name="IsAction" type="Boolean">True</Property>
|
|
||||||
<Property name="IsBreakPoint" type="WordBool">False</Property>
|
|
||||||
<Property MultiValue="0" name="LogToVariable" type="string"></Property>
|
|
||||||
<Property name="MaxRetryAttempts" type="Cardinal">0</Property>
|
|
||||||
<Property name="NodeCollapsed" type="Boolean">False</Property>
|
|
||||||
<Property name="PauseInterval" type="Cardinal">0</Property>
|
|
||||||
<Property name="RetryPauseInterval" type="Cardinal">1000</Property>
|
|
||||||
<Property name="SuppressStatusMessages" type="Boolean">False</Property>
|
|
||||||
</Object>
|
|
||||||
<Object Class="TFBActionListParametersCollection" XMLID="{E15A5391-4DA5-47D3-ADDC-B6BC9AB70F7A}"/>
|
|
||||||
</Object>
|
|
||||||
</Object>
|
|
||||||
<Object Class="TFBVariablesCollection" XMLID="{7255F19A-68E5-4C57-9854-E7C3E6E8F9CB}"><Property MultiValue="0" name="Name" type="string">Project</Property>
|
|
||||||
<Object Class="TFBVariable" XMLID="{23BA1DA8-C505-471D-A53E-5811A50DAEA2}"><Property MultiValue="0" name="Comment" type="string"></Property>
|
|
||||||
<Property MultiValue="0" name="DefaultValue" type="string"></Property>
|
|
||||||
<Property name="IsMacro" type="Boolean">False</Property>
|
|
||||||
<Property name="IsPersistent" type="Boolean">False</Property>
|
|
||||||
<Property name="MakeEnv" type="Boolean">False</Property>
|
|
||||||
<Property MultiValue="0" name="Name" type="string">FTPAddress</Property>
|
|
||||||
<Property name="VariableType" type="TFBVariableType">vtProject</Property>
|
|
||||||
</Object>
|
|
||||||
<Object Class="TFBVariable" XMLID="{976221CE-22AE-41F2-807D-539435613FC4}"><Property MultiValue="0" name="Comment" type="string"></Property>
|
|
||||||
<Property MultiValue="0" name="DefaultValue" type="string"></Property>
|
|
||||||
<Property name="IsMacro" type="Boolean">False</Property>
|
|
||||||
<Property name="IsPersistent" type="Boolean">False</Property>
|
|
||||||
<Property name="MakeEnv" type="Boolean">False</Property>
|
|
||||||
<Property MultiValue="0" name="Name" type="string">FTPRemotePath</Property>
|
|
||||||
<Property name="VariableType" type="TFBVariableType">vtProject</Property>
|
|
||||||
</Object>
|
|
||||||
<Object Class="TFBVariable" XMLID="{FEDCC39B-1CF9-4510-B360-FB33B625CD51}"><Property MultiValue="0" name="Comment" type="string"></Property>
|
|
||||||
<Property MultiValue="0" name="DefaultValue" type="string"></Property>
|
|
||||||
<Property name="IsMacro" type="Boolean">False</Property>
|
|
||||||
<Property name="IsPersistent" type="Boolean">False</Property>
|
|
||||||
<Property name="MakeEnv" type="Boolean">False</Property>
|
|
||||||
<Property MultiValue="0" name="Name" type="string">FTPUser</Property>
|
|
||||||
<Property name="VariableType" type="TFBVariableType">vtProject</Property>
|
|
||||||
</Object>
|
|
||||||
<Object Class="TFBVariable" XMLID="{8578F671-4F91-4D84-85AF-BBEE59425ACF}"><Property MultiValue="0" name="Comment" type="string"></Property>
|
|
||||||
<Property MultiValue="0" name="DefaultValue" type="string"></Property>
|
|
||||||
<Property name="IsMacro" type="Boolean">False</Property>
|
|
||||||
<Property name="IsPersistent" type="Boolean">False</Property>
|
|
||||||
<Property name="MakeEnv" type="Boolean">False</Property>
|
|
||||||
<Property MultiValue="0" name="Name" type="string">FTPPassword</Property>
|
|
||||||
<Property name="VariableType" type="TFBVariableType">vtProject</Property>
|
|
||||||
</Object>
|
|
||||||
<Object Class="TFBVariable" XMLID="{02D50FCB-BC86-407E-B5D9-DA4F9C6E5F49}"><Property MultiValue="0" name="Comment" type="string"></Property>
|
|
||||||
<Property MultiValue="0" name="DefaultValue" type="string"></Property>
|
|
||||||
<Property name="IsMacro" type="Boolean">False</Property>
|
|
||||||
<Property name="IsPersistent" type="Boolean">False</Property>
|
|
||||||
<Property name="MakeEnv" type="Boolean">False</Property>
|
|
||||||
<Property MultiValue="0" name="Name" type="string">_aux_directoylist</Property>
|
|
||||||
<Property name="VariableType" type="TFBVariableType">vtProject</Property>
|
|
||||||
</Object>
|
|
||||||
<Object Class="TFBVariable" XMLID="{01B15C1E-1D63-4EC0-B7C9-0D3A1BE252A4}"><Property MultiValue="0" name="Comment" type="string"></Property>
|
|
||||||
<Property MultiValue="0" name="DefaultValue" type="string"></Property>
|
|
||||||
<Property name="IsMacro" type="Boolean">False</Property>
|
|
||||||
<Property name="IsPersistent" type="Boolean">False</Property>
|
|
||||||
<Property name="MakeEnv" type="Boolean">False</Property>
|
|
||||||
<Property MultiValue="0" name="Name" type="string">_aux_filename</Property>
|
|
||||||
<Property name="VariableType" type="TFBVariableType">vtProject</Property>
|
|
||||||
</Object>
|
|
||||||
<Object Class="TFBVariable" XMLID="{C9ED743F-AF5C-4FB5-9808-070B3F4E32A1}"><Property MultiValue="0" name="Comment" type="string"></Property>
|
|
||||||
<Property MultiValue="0" name="DefaultValue" type="string"></Property>
|
|
||||||
<Property name="IsMacro" type="Boolean">False</Property>
|
|
||||||
<Property name="IsPersistent" type="Boolean">False</Property>
|
|
||||||
<Property name="MakeEnv" type="Boolean">False</Property>
|
|
||||||
<Property MultiValue="0" name="Name" type="string">project_path</Property>
|
|
||||||
<Property name="VariableType" type="TFBVariableType">vtProject</Property>
|
|
||||||
</Object>
|
|
||||||
</Object>
|
|
||||||
</Object>
|
|
||||||
</VSXML>
|
|
||||||
BIN
Build/UploadFTP.fbz6
Normal file
BIN
Build/UploadFTP.fbz6
Normal file
Binary file not shown.
@ -1783,7 +1783,7 @@ SELECT
|
|||||||
PEDIDOS_CLIENTE.ID,
|
PEDIDOS_CLIENTE.ID,
|
||||||
PEDIDOS_CLIENTE.ID_EMPRESA,
|
PEDIDOS_CLIENTE.ID_EMPRESA,
|
||||||
PEDIDOS_CLIENTE.ID_CLIENTE,
|
PEDIDOS_CLIENTE.ID_CLIENTE,
|
||||||
V_CLIENTES.NOMBRE,
|
CONTACTOS.NOMBRE,
|
||||||
PEDIDOS_CLIENTE.REFERENCIA,
|
PEDIDOS_CLIENTE.REFERENCIA,
|
||||||
PEDIDOS_CLIENTE.REFERENCIA_CLIENTE,
|
PEDIDOS_CLIENTE.REFERENCIA_CLIENTE,
|
||||||
V_PED_CLI_SITUACION.SITUACION,
|
V_PED_CLI_SITUACION.SITUACION,
|
||||||
@ -1816,7 +1816,7 @@ SELECT
|
|||||||
FROM
|
FROM
|
||||||
V_PED_CLI_SITUACION
|
V_PED_CLI_SITUACION
|
||||||
INNER JOIN PEDIDOS_CLIENTE ON (PEDIDOS_CLIENTE.ID = V_PED_CLI_SITUACION.ID_PEDIDO)
|
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
|
LEFT JOIN IMPRESIONES
|
||||||
ON ((IMPRESIONES.ID_TABLA = PEDIDOS_CLIENTE.ID) AND (IMPRESIONES.TABLA = 'PEDIDOSCLIENTE'))
|
ON ((IMPRESIONES.ID_TABLA = PEDIDOS_CLIENTE.ID) AND (IMPRESIONES.TABLA = 'PEDIDOSCLIENTE'))
|
||||||
LEFT JOIN REGISTRO_CORREOS
|
LEFT JOIN REGISTRO_CORREOS
|
||||||
@ -1867,7 +1867,7 @@ SELECT
|
|||||||
PEDIDOS_PROVEEDOR.ID,
|
PEDIDOS_PROVEEDOR.ID,
|
||||||
PEDIDOS_PROVEEDOR.ID_EMPRESA,
|
PEDIDOS_PROVEEDOR.ID_EMPRESA,
|
||||||
PEDIDOS_PROVEEDOR.ID_PROVEEDOR,
|
PEDIDOS_PROVEEDOR.ID_PROVEEDOR,
|
||||||
V_PROVEEDORES.NOMBRE,
|
CONTACTOS.NOMBRE,
|
||||||
PEDIDOS_PROVEEDOR.REFERENCIA,
|
PEDIDOS_PROVEEDOR.REFERENCIA,
|
||||||
V_PED_PROV_SITUACION.SITUACION,
|
V_PED_PROV_SITUACION.SITUACION,
|
||||||
PEDIDOS_PROVEEDOR.FECHA_ENVIO,
|
PEDIDOS_PROVEEDOR.FECHA_ENVIO,
|
||||||
@ -1903,7 +1903,7 @@ SELECT
|
|||||||
REGISTRO_CORREOS.NUM_CORREOS
|
REGISTRO_CORREOS.NUM_CORREOS
|
||||||
FROM
|
FROM
|
||||||
PEDIDOS_PROVEEDOR
|
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)
|
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 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)
|
||||||
|
|||||||
@ -170,8 +170,7 @@
|
|||||||
<VersionInfoKeys Name="ProductName"></VersionInfoKeys>
|
<VersionInfoKeys Name="ProductName"></VersionInfoKeys>
|
||||||
<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
|
<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
|
||||||
<VersionInfoKeys Name="Comments"></VersionInfoKeys>
|
<VersionInfoKeys Name="Comments"></VersionInfoKeys>
|
||||||
</VersionInfoKeys>
|
</VersionInfoKeys> <Excluded_Packages>
|
||||||
<Excluded_Packages>
|
|
||||||
<Excluded_Packages Name="C:\Archivos de programa\RemObjects Software\Data Abstract for Delphi\Dcu\D10\DataAbstract_IDE_D10.bpl">RemObjects Data Abstract - IDE Package</Excluded_Packages>
|
<Excluded_Packages Name="C:\Archivos de programa\RemObjects Software\Data Abstract for Delphi\Dcu\D10\DataAbstract_IDE_D10.bpl">RemObjects Data Abstract - IDE Package</Excluded_Packages>
|
||||||
<Excluded_Packages Name="C:\Documents and Settings\David\Mis documentos\Borland Studio Projects\Bpl\SMImportD2006.bpl">SMImport suite: data importing into dataset. Scalabium/Mike Shkolnik, 2000-2005</Excluded_Packages>
|
<Excluded_Packages Name="C:\Documents and Settings\David\Mis documentos\Borland Studio Projects\Bpl\SMImportD2006.bpl">SMImport suite: data importing into dataset. Scalabium/Mike Shkolnik, 2000-2005</Excluded_Packages>
|
||||||
<Excluded_Packages Name="C:\Documents and Settings\David\Mis documentos\Borland Studio Projects\Bpl\SMExportD2006.bpl">SMExport suite: data export from dataset. Written by Mike Shkolnik/Scalabium, 1998-2004.</Excluded_Packages>
|
<Excluded_Packages Name="C:\Documents and Settings\David\Mis documentos\Borland Studio Projects\Bpl\SMExportD2006.bpl">SMExport suite: data export from dataset. Written by Mike Shkolnik/Scalabium, 1998-2004.</Excluded_Packages>
|
||||||
|
|||||||
@ -50,11 +50,12 @@ function PreguntarFicheroExcelExportar (var Fichero : String) : Boolean;
|
|||||||
function EscapeIllegalChars(AFileName: string): string;
|
function EscapeIllegalChars(AFileName: string): string;
|
||||||
function FindFile(const filespec: TFileName; attributes: integer = faReadOnly Or faHidden Or faSysFile Or faArchive): TStringList;
|
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
|
implementation
|
||||||
|
|
||||||
uses
|
uses
|
||||||
Windows, Dialogs, JclFileUtils,
|
Windows, Variants, Dialogs, JclFileUtils,
|
||||||
Messages, Graphics, Controls, Forms,
|
Messages, Graphics, Controls, Forms,
|
||||||
StdCtrls, SHFolder, cxShellBrowserDialog,
|
StdCtrls, SHFolder, cxShellBrowserDialog,
|
||||||
cxLookAndFeels, uStringsUtils;
|
cxLookAndFeels, uStringsUtils;
|
||||||
@ -435,6 +436,28 @@ begin
|
|||||||
Result := DarRutaTemporal + Cadena + '\';
|
Result := DarRutaTemporal + Cadena + '\';
|
||||||
end;
|
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.
|
end.
|
||||||
|
|
||||||
|
|||||||
@ -13,8 +13,6 @@ uses
|
|||||||
uMainMenuController in 'uMainMenuController.pas',
|
uMainMenuController in 'uMainMenuController.pas',
|
||||||
uClienteUtils in 'Utiles\uClienteUtils.pas';
|
uClienteUtils in 'Utiles\uClienteUtils.pas';
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
{$R *.res}
|
{$R *.res}
|
||||||
|
|
||||||
var
|
var
|
||||||
|
|||||||
@ -1,7 +1,7 @@
|
|||||||
MAINICON ICON "c:\Codigo Luis Leon\Source\Iconos\Factuges.ico"
|
MAINICON ICON "c:\Codigo Luis Leon\Source\Iconos\Factuges.ico"
|
||||||
1 VERSIONINFO
|
1 VERSIONINFO
|
||||||
FILEVERSION 3,3,6,0
|
FILEVERSION 3,3,7,0
|
||||||
PRODUCTVERSION 3,3,6,0
|
PRODUCTVERSION 3,3,7,0
|
||||||
FILEFLAGSMASK 0x3FL
|
FILEFLAGSMASK 0x3FL
|
||||||
FILEFLAGS 0x00L
|
FILEFLAGS 0x00L
|
||||||
FILEOS 0x40004L
|
FILEOS 0x40004L
|
||||||
@ -13,9 +13,9 @@ BEGIN
|
|||||||
BLOCK "0C0A04E4"
|
BLOCK "0C0A04E4"
|
||||||
BEGIN
|
BEGIN
|
||||||
VALUE "CompanyName", "Rodax Software S.L.\0"
|
VALUE "CompanyName", "Rodax Software S.L.\0"
|
||||||
VALUE "FileVersion", "3.3.6.0\0"
|
VALUE "FileVersion", "3.3.7.0\0"
|
||||||
VALUE "InternalName", "FactuGES\0"
|
VALUE "InternalName", "FactuGES\0"
|
||||||
VALUE "ProductVersion", "3.3.6.0\0"
|
VALUE "ProductVersion", "3.3.7.0\0"
|
||||||
END
|
END
|
||||||
END
|
END
|
||||||
BLOCK "VarFileInfo"
|
BLOCK "VarFileInfo"
|
||||||
|
|||||||
Binary file not shown.
@ -2,7 +2,7 @@ object fPantallaPrincipal: TfPantallaPrincipal
|
|||||||
Left = 358
|
Left = 358
|
||||||
Top = 250
|
Top = 250
|
||||||
Caption = 'Pantalla principal'
|
Caption = 'Pantalla principal'
|
||||||
ClientHeight = 662
|
ClientHeight = 681
|
||||||
ClientWidth = 559
|
ClientWidth = 559
|
||||||
Color = clWindow
|
Color = clWindow
|
||||||
Font.Charset = DEFAULT_CHARSET
|
Font.Charset = DEFAULT_CHARSET
|
||||||
@ -23,7 +23,7 @@ object fPantallaPrincipal: TfPantallaPrincipal
|
|||||||
Left = 0
|
Left = 0
|
||||||
Top = 0
|
Top = 0
|
||||||
Width = 559
|
Width = 559
|
||||||
Height = 640
|
Height = 659
|
||||||
Margins.Left = 5
|
Margins.Left = 5
|
||||||
Margins.Top = 5
|
Margins.Top = 5
|
||||||
Margins.Right = 5
|
Margins.Right = 5
|
||||||
@ -31,11 +31,12 @@ object fPantallaPrincipal: TfPantallaPrincipal
|
|||||||
ParentColor = True
|
ParentColor = True
|
||||||
Align = alClient
|
Align = alClient
|
||||||
TabOrder = 0
|
TabOrder = 0
|
||||||
|
ExplicitHeight = 640
|
||||||
object JvSyncSplitter1: TJvSyncSplitter
|
object JvSyncSplitter1: TJvSyncSplitter
|
||||||
Left = 215
|
Left = 215
|
||||||
Top = 5
|
Top = 5
|
||||||
Width = 5
|
Width = 5
|
||||||
Height = 630
|
Height = 649
|
||||||
ResizeStyle = rsPattern
|
ResizeStyle = rsPattern
|
||||||
ExplicitLeft = 210
|
ExplicitLeft = 210
|
||||||
ExplicitHeight = 570
|
ExplicitHeight = 570
|
||||||
@ -44,7 +45,7 @@ object fPantallaPrincipal: TfPantallaPrincipal
|
|||||||
Left = 5
|
Left = 5
|
||||||
Top = 5
|
Top = 5
|
||||||
Width = 210
|
Width = 210
|
||||||
Height = 630
|
Height = 649
|
||||||
ActivePage = pagInicio
|
ActivePage = pagInicio
|
||||||
Align = alLeft
|
Align = alLeft
|
||||||
AutoHeaders = True
|
AutoHeaders = True
|
||||||
@ -85,11 +86,12 @@ object fPantallaPrincipal: TfPantallaPrincipal
|
|||||||
NavPanelHotTrackFont.Style = []
|
NavPanelHotTrackFont.Style = []
|
||||||
SmallImages = ModulesSmallImageList
|
SmallImages = ModulesSmallImageList
|
||||||
OnChange = JvNavigationPaneChange
|
OnChange = JvNavigationPaneChange
|
||||||
|
ExplicitHeight = 630
|
||||||
object pagInicio: TJvNavPanelPage
|
object pagInicio: TJvNavPanelPage
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 0
|
Top = 0
|
||||||
Width = 208
|
Width = 208
|
||||||
Height = 557
|
Height = 576
|
||||||
Background.Stretch = False
|
Background.Stretch = False
|
||||||
Background.Proportional = False
|
Background.Proportional = False
|
||||||
Background.Center = False
|
Background.Center = False
|
||||||
@ -97,15 +99,17 @@ object fPantallaPrincipal: TfPantallaPrincipal
|
|||||||
Background.Transparent = False
|
Background.Transparent = False
|
||||||
Caption = 'Inicio'
|
Caption = 'Inicio'
|
||||||
ImageIndex = 0
|
ImageIndex = 0
|
||||||
|
ExplicitHeight = 557
|
||||||
object Panel1: TPanel
|
object Panel1: TPanel
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 471
|
Top = 490
|
||||||
Width = 208
|
Width = 208
|
||||||
Height = 86
|
Height = 86
|
||||||
Align = alBottom
|
Align = alBottom
|
||||||
Color = clWindow
|
Color = clWindow
|
||||||
ParentBackground = False
|
ParentBackground = False
|
||||||
TabOrder = 1
|
TabOrder = 1
|
||||||
|
ExplicitTop = 471
|
||||||
object Label1: TLabel
|
object Label1: TLabel
|
||||||
Left = 38
|
Left = 38
|
||||||
Top = 29
|
Top = 29
|
||||||
@ -153,19 +157,21 @@ object fPantallaPrincipal: TfPantallaPrincipal
|
|||||||
Left = 220
|
Left = 220
|
||||||
Top = 5
|
Top = 5
|
||||||
Width = 334
|
Width = 334
|
||||||
Height = 630
|
Height = 649
|
||||||
BoundColor = clActiveCaption
|
BoundColor = clActiveCaption
|
||||||
BoundLines = [blLeft, blTop, blRight, blBottom]
|
BoundLines = [blLeft, blTop, blRight, blBottom]
|
||||||
Caption = 'pnlBorde'
|
Caption = 'pnlBorde'
|
||||||
Align = alClient
|
Align = alClient
|
||||||
|
ExplicitHeight = 630
|
||||||
object pnlMain: TTBXAlignmentPanel
|
object pnlMain: TTBXAlignmentPanel
|
||||||
Left = 1
|
Left = 1
|
||||||
Top = 1
|
Top = 1
|
||||||
Width = 332
|
Width = 332
|
||||||
Height = 628
|
Height = 647
|
||||||
Align = alClient
|
Align = alClient
|
||||||
Color = clWindow
|
Color = clWindow
|
||||||
TabOrder = 0
|
TabOrder = 0
|
||||||
|
ExplicitHeight = 628
|
||||||
object lblBienvenido: TLabel
|
object lblBienvenido: TLabel
|
||||||
Left = 8
|
Left = 8
|
||||||
Top = 8
|
Top = 8
|
||||||
@ -202,7 +208,7 @@ object fPantallaPrincipal: TfPantallaPrincipal
|
|||||||
end
|
end
|
||||||
object TBXStatusBar1: TTBXStatusBar
|
object TBXStatusBar1: TTBXStatusBar
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 640
|
Top = 659
|
||||||
Width = 559
|
Width = 559
|
||||||
Images = StatusPanelImageList
|
Images = StatusPanelImageList
|
||||||
Panels = <
|
Panels = <
|
||||||
@ -224,6 +230,7 @@ object fPantallaPrincipal: TfPantallaPrincipal
|
|||||||
Tag = 0
|
Tag = 0
|
||||||
end>
|
end>
|
||||||
UseSystemFont = False
|
UseSystemFont = False
|
||||||
|
ExplicitTop = 640
|
||||||
end
|
end
|
||||||
object XPManifest1: TXPManifest
|
object XPManifest1: TXPManifest
|
||||||
Left = 248
|
Left = 248
|
||||||
|
|||||||
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>
|
||||||
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>
|
||||||
@ -48,7 +48,7 @@ implementation
|
|||||||
{$R *.dfm}
|
{$R *.dfm}
|
||||||
|
|
||||||
uses
|
uses
|
||||||
uDataModuleServer, schAlbaranesClienteClient_Intf;
|
uSistemaFunc, uDataModuleServer, schAlbaranesClienteClient_Intf;
|
||||||
|
|
||||||
const
|
const
|
||||||
rptInfAlbaran = 'InfAlbaranCliente.fr3';
|
rptInfAlbaran = 'InfAlbaranCliente.fr3';
|
||||||
@ -107,6 +107,7 @@ var
|
|||||||
AStream: TMemoryStream;
|
AStream: TMemoryStream;
|
||||||
dsMaster: IDADataset;
|
dsMaster: IDADataset;
|
||||||
dsDetail: IDADataset;
|
dsDetail: IDADataset;
|
||||||
|
AInforme: Variant;
|
||||||
begin
|
begin
|
||||||
AStream := TMemoryStream.Create;
|
AStream := TMemoryStream.Create;
|
||||||
FConnection.BeginTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO"
|
FConnection.BeginTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO"
|
||||||
@ -123,7 +124,12 @@ begin
|
|||||||
DABINAdapter.WriteDataset(AStream, dsDetail, [woRows, woSchema], -1);
|
DABINAdapter.WriteDataset(AStream, dsDetail, [woRows, woSchema], -1);
|
||||||
DABINAdapter.ReadDataset(AStream, tbl_Detalles, TRUE, '', TRUE, TRUE);
|
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);
|
frxReport.PrepareReport(False);
|
||||||
|
|
||||||
finally
|
finally
|
||||||
@ -139,6 +145,7 @@ var
|
|||||||
dsMaster: IDADataset;
|
dsMaster: IDADataset;
|
||||||
dsDetail: IDADataset;
|
dsDetail: IDADataset;
|
||||||
AStream: TMemoryStream;
|
AStream: TMemoryStream;
|
||||||
|
AInforme: Variant;
|
||||||
begin
|
begin
|
||||||
AStream := TMemoryStream.Create;
|
AStream := TMemoryStream.Create;
|
||||||
Result := Binary.Create;
|
Result := Binary.Create;
|
||||||
@ -155,7 +162,12 @@ begin
|
|||||||
DABINAdapter.WriteDataset(AStream, dsDetail, [woRows, woSchema], -1);
|
DABINAdapter.WriteDataset(AStream, dsDetail, [woRows, woSchema], -1);
|
||||||
DABINAdapter.ReadDataset(AStream, tbl_Detalles, TRUE, '', TRUE, TRUE);
|
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
|
if withRefCliente then
|
||||||
frxReport.Variables.Variables['withRefCliente'] := 1
|
frxReport.Variables.Variables['withRefCliente'] := 1
|
||||||
else
|
else
|
||||||
|
|||||||
@ -44,7 +44,7 @@ implementation
|
|||||||
{$R *.dfm}
|
{$R *.dfm}
|
||||||
|
|
||||||
uses
|
uses
|
||||||
uDataModuleServer, schAlbaranesProveedorClient_Intf;
|
uSistemaFunc, uDataModuleServer, schAlbaranesProveedorClient_Intf;
|
||||||
|
|
||||||
const
|
const
|
||||||
rptInforme = 'InfAlbaranProveedor.fr3';
|
rptInforme = 'InfAlbaranProveedor.fr3';
|
||||||
@ -106,6 +106,7 @@ var
|
|||||||
AStream: TMemoryStream;
|
AStream: TMemoryStream;
|
||||||
dsMaster: IDADataset;
|
dsMaster: IDADataset;
|
||||||
dsDetail: IDADataset;
|
dsDetail: IDADataset;
|
||||||
|
AInforme: Variant;
|
||||||
begin
|
begin
|
||||||
AStream := TMemoryStream.Create;
|
AStream := TMemoryStream.Create;
|
||||||
FConnection.BeginTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO"
|
FConnection.BeginTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO"
|
||||||
@ -122,7 +123,12 @@ begin
|
|||||||
DABINAdapter.WriteDataset(AStream, dsDetail, [woRows, woSchema], -1);
|
DABINAdapter.WriteDataset(AStream, dsDetail, [woRows, woSchema], -1);
|
||||||
DABINAdapter.ReadDataset(AStream, tbl_Detalles, TRUE, '', TRUE, TRUE);
|
DABINAdapter.ReadDataset(AStream, tbl_Detalles, TRUE, '', TRUE, TRUE);
|
||||||
|
|
||||||
frxReport.LoadFromFile(DarRutaInformes + rptInforme, True);
|
|
||||||
|
AInforme := DarRutaFichero(DarRutaInformes, rptInforme, tbl_Cabecera.FieldByName('ID_EMPRESA').AsString);
|
||||||
|
if VarIsNull(AInforme) then
|
||||||
|
raise Exception.Create (('Error Servidor: _GenerarAlbaran, no encuentra informe ' + rptInforme));
|
||||||
|
|
||||||
|
frxReport.LoadFromFile(AInforme, True);
|
||||||
frxReport.PrepareReport(False);
|
frxReport.PrepareReport(False);
|
||||||
|
|
||||||
finally
|
finally
|
||||||
|
|||||||
@ -150,7 +150,7 @@ begin
|
|||||||
else
|
else
|
||||||
Result := (FDataModule as IDataModuleArticulos).GetItem(ID, AClienteID);
|
Result := (FDataModule as IDataModuleArticulos).GetItem(ID, AClienteID);
|
||||||
|
|
||||||
FiltrarEmpresa(Result);
|
// FiltrarEmpresa(Result);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TArticulosController.BuscarInventariables: IBizArticulo;
|
function TArticulosController.BuscarInventariables: IBizArticulo;
|
||||||
@ -218,7 +218,7 @@ end;
|
|||||||
function TArticulosController.BuscarTodos(ACliente: Integer): IBizArticulo;
|
function TArticulosController.BuscarTodos(ACliente: Integer): IBizArticulo;
|
||||||
begin
|
begin
|
||||||
Result := FDataModule.GetItems(ACliente);
|
Result := FDataModule.GetItems(ACliente);
|
||||||
FiltrarEmpresa(Result);
|
// FiltrarEmpresa(Result);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TArticulosController.BuscarTodos(ACliente: IBizCliente): IBizArticulo;
|
function TArticulosController.BuscarTodos(ACliente: IBizCliente): IBizArticulo;
|
||||||
@ -253,7 +253,7 @@ end;
|
|||||||
function TArticulosController.BuscarTodos: IBizArticulo;
|
function TArticulosController.BuscarTodos: IBizArticulo;
|
||||||
begin
|
begin
|
||||||
Result := FDataModule.GetItems;
|
Result := FDataModule.GetItems;
|
||||||
FiltrarEmpresa(Result);
|
// FiltrarEmpresa(Result);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TArticulosController.CalcularPrecioNeto(AArticulos: IBizArticulo);
|
procedure TArticulosController.CalcularPrecioNeto(AArticulos: IBizArticulo);
|
||||||
@ -598,7 +598,7 @@ var
|
|||||||
AArticulo : IBizArticulo;
|
AArticulo : IBizArticulo;
|
||||||
begin
|
begin
|
||||||
AArticulo := FDataModule.NewItem;
|
AArticulo := FDataModule.NewItem;
|
||||||
FiltrarEmpresa(AArticulo);
|
// FiltrarEmpresa(AArticulo);
|
||||||
AArticulo.DataTable.Active := True;
|
AArticulo.DataTable.Active := True;
|
||||||
AArticulo.Insert;
|
AArticulo.Insert;
|
||||||
Result := AArticulo;
|
Result := AArticulo;
|
||||||
|
|||||||
@ -30,6 +30,8 @@ type
|
|||||||
function BuscarFacturasDesglosadas(AFacturas: IBizFacturaCliente): IBizFacturasComision;
|
function BuscarFacturasDesglosadas(AFacturas: IBizFacturaCliente): IBizFacturasComision;
|
||||||
// procedure QuitarExistentes(AFacturas: IBizFacturaCliente; AFacturasComision: IBizFacturasComision);
|
// procedure QuitarExistentes(AFacturas: IBizFacturaCliente; AFacturasComision: IBizFacturasComision);
|
||||||
|
|
||||||
|
procedure FiltrarEmpresa(AComision: IBizComisiones);
|
||||||
|
|
||||||
protected
|
protected
|
||||||
FDataModule : IDataModuleComisiones;
|
FDataModule : IDataModuleComisiones;
|
||||||
FFacturasClienteController: IFacturasClienteController;
|
FFacturasClienteController: IFacturasClienteController;
|
||||||
@ -219,6 +221,7 @@ end;
|
|||||||
function TComisionesController.BuscarTodos: IBizComisiones;
|
function TComisionesController.BuscarTodos: IBizComisiones;
|
||||||
begin
|
begin
|
||||||
Result := FDataModule.GetItems;
|
Result := FDataModule.GetItems;
|
||||||
|
FiltrarEmpresa(Result);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
constructor TComisionesController.Create;
|
constructor TComisionesController.Create;
|
||||||
@ -429,6 +432,20 @@ begin
|
|||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
procedure TComisionesController.FiltrarEmpresa(AComision: IBizComisiones);
|
||||||
|
begin
|
||||||
|
if AComision.DataTable.Active then
|
||||||
|
AComision.DataTable.Active := False;
|
||||||
|
|
||||||
|
// Filtrar los recibos actuales por empresa
|
||||||
|
with AComision.DataTable.Where do
|
||||||
|
begin
|
||||||
|
if NotEmpty then
|
||||||
|
AddOperator(opAND);
|
||||||
|
AddCondition(fld_ComisionesID_EMPRESA, cEqual, dmUsuarios.IDEmpresaActual);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
procedure TComisionesController.RecibirAviso(ASujeto: ISujeto; ADataTable: IDAStronglyTypedDataTable);
|
procedure TComisionesController.RecibirAviso(ASujeto: ISujeto; ADataTable: IDAStronglyTypedDataTable);
|
||||||
begin
|
begin
|
||||||
inherited;
|
inherited;
|
||||||
|
|||||||
@ -1376,7 +1376,7 @@ object RptComisiones: TRptComisiones
|
|||||||
Top = 158
|
Top = 158
|
||||||
end
|
end
|
||||||
object frxReport: TfrxReport
|
object frxReport: TfrxReport
|
||||||
Version = '3.23.7'
|
Version = '4.3'
|
||||||
DotMatrixReport = False
|
DotMatrixReport = False
|
||||||
EngineOptions.DoublePass = True
|
EngineOptions.DoublePass = True
|
||||||
IniFile = '\Software\Fast Reports'
|
IniFile = '\Software\Fast Reports'
|
||||||
@ -1384,6 +1384,7 @@ object RptComisiones: TRptComisiones
|
|||||||
PreviewOptions.OutlineWidth = 180
|
PreviewOptions.OutlineWidth = 180
|
||||||
PreviewOptions.Zoom = 1.000000000000000000
|
PreviewOptions.Zoom = 1.000000000000000000
|
||||||
PrintOptions.Printer = 'Default'
|
PrintOptions.Printer = 'Default'
|
||||||
|
PrintOptions.PrintOnSheet = 0
|
||||||
ReportOptions.CreateDate = 37871.995398692100000000
|
ReportOptions.CreateDate = 37871.995398692100000000
|
||||||
ReportOptions.LastChange = 39266.688905347220000000
|
ReportOptions.LastChange = 39266.688905347220000000
|
||||||
ReportOptions.VersionBuild = '1'
|
ReportOptions.VersionBuild = '1'
|
||||||
@ -1436,62 +1437,6 @@ object RptComisiones: TRptComisiones
|
|||||||
StoreInDFM = False
|
StoreInDFM = False
|
||||||
Left = 169
|
Left = 169
|
||||||
Top = 16
|
Top = 16
|
||||||
Datasets = <
|
|
||||||
item
|
|
||||||
DataSet = frxDBCabecera
|
|
||||||
DataSetName = 'frxDBCabecera'
|
|
||||||
end>
|
|
||||||
Variables = <
|
|
||||||
item
|
|
||||||
Name = ' Fechas'
|
|
||||||
Value = Null
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Name = 'FechaIni'
|
|
||||||
Value = Null
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Name = 'FechaFin'
|
|
||||||
Value = Null
|
|
||||||
end>
|
|
||||||
Style = <
|
|
||||||
item
|
|
||||||
Name = 'Concepto normal'
|
|
||||||
Color = clNone
|
|
||||||
Font.Charset = ANSI_CHARSET
|
|
||||||
Font.Color = clWindowText
|
|
||||||
Font.Height = -12
|
|
||||||
Font.Name = 'Tahoma'
|
|
||||||
Font.Style = []
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Name = 'Concepto subtotal'
|
|
||||||
Color = clNone
|
|
||||||
Font.Charset = ANSI_CHARSET
|
|
||||||
Font.Color = clWindowText
|
|
||||||
Font.Height = -12
|
|
||||||
Font.Name = 'Tahoma'
|
|
||||||
Font.Style = [fsBold]
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Name = 'Cabecera de columna'
|
|
||||||
Color = 15790320
|
|
||||||
Font.Charset = ANSI_CHARSET
|
|
||||||
Font.Color = clWindowText
|
|
||||||
Font.Height = -12
|
|
||||||
Font.Name = 'Tahoma'
|
|
||||||
Font.Style = [fsBold]
|
|
||||||
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Name = 'Concepto titulo'
|
|
||||||
Color = clNone
|
|
||||||
Font.Charset = ANSI_CHARSET
|
|
||||||
Font.Color = clWindowText
|
|
||||||
Font.Height = -13
|
|
||||||
Font.Name = 'Tahoma'
|
|
||||||
Font.Style = [fsBold]
|
|
||||||
end>
|
|
||||||
end
|
end
|
||||||
object frxDBCabecera: TfrxDBDataset
|
object frxDBCabecera: TfrxDBDataset
|
||||||
UserName = 'frxDBCabecera'
|
UserName = 'frxDBCabecera'
|
||||||
|
|||||||
@ -37,7 +37,7 @@ implementation
|
|||||||
{$R *.dfm}
|
{$R *.dfm}
|
||||||
|
|
||||||
uses
|
uses
|
||||||
uDataModuleServer, schReportClient_Intf;
|
uSistemaFunc, uDataModuleServer, schReportClient_Intf;
|
||||||
|
|
||||||
const
|
const
|
||||||
rptComision = 'InfComisiones.fr3';
|
rptComision = 'InfComisiones.fr3';
|
||||||
@ -61,6 +61,7 @@ function TRptComisiones.GenerarComision(const AComisionID : Variant; const Desgl
|
|||||||
var
|
var
|
||||||
dsMaster: IDADataset;
|
dsMaster: IDADataset;
|
||||||
AStream: TMemoryStream;
|
AStream: TMemoryStream;
|
||||||
|
AInforme: Variant;
|
||||||
begin
|
begin
|
||||||
AStream := TMemoryStream.Create;
|
AStream := TMemoryStream.Create;
|
||||||
Result := Binary.Create;
|
Result := Binary.Create;
|
||||||
@ -107,9 +108,21 @@ begin
|
|||||||
DABINAdapter.ReadDataset(AStream, tbl_Comisiones, TRUE, '', TRUE, TRUE);
|
DABINAdapter.ReadDataset(AStream, tbl_Comisiones, TRUE, '', TRUE, TRUE);
|
||||||
|
|
||||||
if DesglosadoProv then
|
if DesglosadoProv then
|
||||||
frxReport.LoadFromFile(DarRutaInformes + rptComisionDesglosado, True)
|
begin
|
||||||
|
AInforme := DarRutaFichero(DarRutaInformes, rptComisionDesglosado, tbl_Comisiones.FieldByName('ID_EMPRESA').AsString);
|
||||||
|
if VarIsNull(AInforme) then
|
||||||
|
raise Exception.Create (('Error Servidor: _GenerarComision, no encuentra informe ' + rptComisionDesglosado));
|
||||||
|
|
||||||
|
frxReport.LoadFromFile(AInforme, True);
|
||||||
|
end
|
||||||
else
|
else
|
||||||
frxReport.LoadFromFile(DarRutaInformes + rptComision, True);
|
begin
|
||||||
|
AInforme := DarRutaFichero(DarRutaInformes, rptComision, tbl_Comisiones.FieldByName('ID_EMPRESA').AsString);
|
||||||
|
if VarIsNull(AInforme) then
|
||||||
|
raise Exception.Create (('Error Servidor: _GenerarComision, no encuentra informe ' + rptComision));
|
||||||
|
|
||||||
|
frxReport.LoadFromFile(AInforme, True);
|
||||||
|
end;
|
||||||
|
|
||||||
frxReport.Variables['FechaIni'] := QuotedStr(FechaIni);
|
frxReport.Variables['FechaIni'] := QuotedStr(FechaIni);
|
||||||
frxReport.Variables['FechaFin'] := QuotedStr(FechaFin);
|
frxReport.Variables['FechaFin'] := QuotedStr(FechaFin);
|
||||||
|
|||||||
@ -9,17 +9,17 @@ const
|
|||||||
{ Data table rules ids
|
{ Data table rules ids
|
||||||
Feel free to change them to something more human readable
|
Feel free to change them to something more human readable
|
||||||
but make sure they are unique in the context of your application }
|
but make sure they are unique in the context of your application }
|
||||||
RID_Contactos = '{8DB966AC-5E6E-45D2-985E-608DBF4431DC}';
|
RID_Contactos = '{8CD2171A-3002-4130-9553-1A4F691BBCEE}';
|
||||||
RID_GruposCliente = '{916430A0-9119-40A8-BD75-0D167170697B}';
|
RID_GruposCliente = '{DFD26958-96EC-4899-929E-5E0AA4989FB8}';
|
||||||
RID_ClienteEliminable = '{BDE7F021-7D40-442C-A60A-6BCE999B3E76}';
|
RID_ClienteEliminable = '{AF773B24-4F18-41F6-99FD-61EF39C4E15B}';
|
||||||
RID_DatosBancarios = '{72E93F56-6CD9-4840-AC91-BC3619B6DBBA}';
|
RID_DatosBancarios = '{3B26C029-EB2B-44F0-9B16-577FCBB002F7}';
|
||||||
RID_ContactosCategorias = '{87F9603C-21B7-4A45-B2D1-D42C1BD24124}';
|
RID_ContactosCategorias = '{14EA0534-43AB-4C2D-AD4E-8B2296D61FD1}';
|
||||||
RID_Clientes = '{FC2D5240-5CB5-473F-85BA-7C848198643E}';
|
RID_Clientes = '{97E0D322-7374-4E50-BED3-6FC3EC2D909F}';
|
||||||
RID_Proveedores = '{8B6E18AE-B694-4D8F-A9AD-E00286BDA417}';
|
RID_Proveedores = '{1BBB9786-6529-43FC-AE52-0BC27C116F30}';
|
||||||
RID_Agentes = '{E7B9B4D9-1DD9-45DC-AC1E-01EC9FDCD10A}';
|
RID_Agentes = '{60C288E2-F28E-4C2B-9A18-B4B3C0C98BA7}';
|
||||||
RID_DireccionesContacto = '{39EE7BEF-4CB2-48C4-9DBC-93913A30B200}';
|
RID_DireccionesContacto = '{F30B2CD3-D508-4A44-928D-2724C45253E8}';
|
||||||
RID_AgentesComisiones = '{2202C71F-70D4-4EF3-87EF-62B1A4E64DCD}';
|
RID_AgentesComisiones = '{0F8E7B45-4D69-4BB2-9788-55267E69C27A}';
|
||||||
RID_ClientesDescuentos = '{123A04B2-4B64-49C4-9A70-892C08CEBDF4}';
|
RID_ClientesDescuentos = '{D4DF5FA7-4CD6-497E-A658-1A4797BFFFCF}';
|
||||||
|
|
||||||
{ Data table names }
|
{ Data table names }
|
||||||
nme_Contactos = 'Contactos';
|
nme_Contactos = 'Contactos';
|
||||||
@ -379,7 +379,7 @@ const
|
|||||||
type
|
type
|
||||||
{ IContactos }
|
{ IContactos }
|
||||||
IContactos = interface(IDAStronglyTypedDataTable)
|
IContactos = interface(IDAStronglyTypedDataTable)
|
||||||
['{129F3A9A-CAEE-422B-9962-ED37AA1B8DA1}']
|
['{787ADE80-F984-4B67-B4C0-A2B933210BF3}']
|
||||||
{ Property getters and setters }
|
{ Property getters and setters }
|
||||||
function GetIDValue: Integer;
|
function GetIDValue: Integer;
|
||||||
procedure SetIDValue(const aValue: Integer);
|
procedure SetIDValue(const aValue: Integer);
|
||||||
@ -534,7 +534,7 @@ type
|
|||||||
|
|
||||||
{ IGruposCliente }
|
{ IGruposCliente }
|
||||||
IGruposCliente = interface(IDAStronglyTypedDataTable)
|
IGruposCliente = interface(IDAStronglyTypedDataTable)
|
||||||
['{E7D5EDB0-EEE7-433E-BD7D-A9B7B0E22231}']
|
['{30B50D38-F156-41A8-B360-E3E21A627F32}']
|
||||||
{ Property getters and setters }
|
{ Property getters and setters }
|
||||||
function GetDESCRIPCIONValue: String;
|
function GetDESCRIPCIONValue: String;
|
||||||
procedure SetDESCRIPCIONValue(const aValue: String);
|
procedure SetDESCRIPCIONValue(const aValue: String);
|
||||||
@ -563,7 +563,7 @@ type
|
|||||||
|
|
||||||
{ IClienteEliminable }
|
{ IClienteEliminable }
|
||||||
IClienteEliminable = interface(IDAStronglyTypedDataTable)
|
IClienteEliminable = interface(IDAStronglyTypedDataTable)
|
||||||
['{9A1C2E5A-6BEE-4C64-9E92-EE7AA70A0E00}']
|
['{9B81F948-EF40-4D43-9B83-5492EF0148B2}']
|
||||||
{ Property getters and setters }
|
{ Property getters and setters }
|
||||||
function GetIDValue: Integer;
|
function GetIDValue: Integer;
|
||||||
procedure SetIDValue(const aValue: Integer);
|
procedure SetIDValue(const aValue: Integer);
|
||||||
@ -598,7 +598,7 @@ type
|
|||||||
|
|
||||||
{ IDatosBancarios }
|
{ IDatosBancarios }
|
||||||
IDatosBancarios = interface(IDAStronglyTypedDataTable)
|
IDatosBancarios = interface(IDAStronglyTypedDataTable)
|
||||||
['{FBA163E1-FB0B-48AB-A018-301A11A05078}']
|
['{BBFCFE93-B454-4BC0-ABB4-0E12C7F5CAC8}']
|
||||||
{ Property getters and setters }
|
{ Property getters and setters }
|
||||||
function GetIDValue: Integer;
|
function GetIDValue: Integer;
|
||||||
procedure SetIDValue(const aValue: Integer);
|
procedure SetIDValue(const aValue: Integer);
|
||||||
@ -663,7 +663,7 @@ type
|
|||||||
|
|
||||||
{ IContactosCategorias }
|
{ IContactosCategorias }
|
||||||
IContactosCategorias = interface(IDAStronglyTypedDataTable)
|
IContactosCategorias = interface(IDAStronglyTypedDataTable)
|
||||||
['{B51A66E8-B60F-498B-A578-E2C4C4C6DEA3}']
|
['{012F1CA7-8AE0-4462-AEB2-4B1351EFD72B}']
|
||||||
{ Property getters and setters }
|
{ Property getters and setters }
|
||||||
function GetID_CONTACTOValue: Integer;
|
function GetID_CONTACTOValue: Integer;
|
||||||
procedure SetID_CONTACTOValue(const aValue: Integer);
|
procedure SetID_CONTACTOValue(const aValue: Integer);
|
||||||
@ -698,7 +698,7 @@ type
|
|||||||
|
|
||||||
{ IClientes }
|
{ IClientes }
|
||||||
IClientes = interface(IDAStronglyTypedDataTable)
|
IClientes = interface(IDAStronglyTypedDataTable)
|
||||||
['{5318AB05-B7DA-4083-83F3-C8601201C3A2}']
|
['{357D6A95-C3E0-4889-B48C-9701694567E9}']
|
||||||
{ Property getters and setters }
|
{ Property getters and setters }
|
||||||
function GetIDValue: Integer;
|
function GetIDValue: Integer;
|
||||||
procedure SetIDValue(const aValue: Integer);
|
procedure SetIDValue(const aValue: Integer);
|
||||||
@ -949,7 +949,7 @@ type
|
|||||||
|
|
||||||
{ IProveedores }
|
{ IProveedores }
|
||||||
IProveedores = interface(IDAStronglyTypedDataTable)
|
IProveedores = interface(IDAStronglyTypedDataTable)
|
||||||
['{6B2547D0-73B9-4A4B-B799-4D37005F99F3}']
|
['{185A04AB-054D-475A-ACAF-3615F2FDDC18}']
|
||||||
{ Property getters and setters }
|
{ Property getters and setters }
|
||||||
function GetIDValue: Integer;
|
function GetIDValue: Integer;
|
||||||
procedure SetIDValue(const aValue: Integer);
|
procedure SetIDValue(const aValue: Integer);
|
||||||
@ -1158,7 +1158,7 @@ type
|
|||||||
|
|
||||||
{ IAgentes }
|
{ IAgentes }
|
||||||
IAgentes = interface(IDAStronglyTypedDataTable)
|
IAgentes = interface(IDAStronglyTypedDataTable)
|
||||||
['{19AC98BF-4123-481B-995E-84962805FBA1}']
|
['{45138401-D00C-47C9-B545-81193C2A0799}']
|
||||||
{ Property getters and setters }
|
{ Property getters and setters }
|
||||||
function GetIDValue: Integer;
|
function GetIDValue: Integer;
|
||||||
procedure SetIDValue(const aValue: Integer);
|
procedure SetIDValue(const aValue: Integer);
|
||||||
@ -1313,7 +1313,7 @@ type
|
|||||||
|
|
||||||
{ IDireccionesContacto }
|
{ IDireccionesContacto }
|
||||||
IDireccionesContacto = interface(IDAStronglyTypedDataTable)
|
IDireccionesContacto = interface(IDAStronglyTypedDataTable)
|
||||||
['{F54AA472-C5F9-4E24-8C87-D0B273FBD687}']
|
['{883C1ABB-363E-4AA3-B5DF-F8B072E0F729}']
|
||||||
{ Property getters and setters }
|
{ Property getters and setters }
|
||||||
function GetIDValue: Integer;
|
function GetIDValue: Integer;
|
||||||
procedure SetIDValue(const aValue: Integer);
|
procedure SetIDValue(const aValue: Integer);
|
||||||
@ -1420,7 +1420,7 @@ type
|
|||||||
|
|
||||||
{ IAgentesComisiones }
|
{ IAgentesComisiones }
|
||||||
IAgentesComisiones = interface(IDAStronglyTypedDataTable)
|
IAgentesComisiones = interface(IDAStronglyTypedDataTable)
|
||||||
['{5EE1C84D-093A-4A09-B2B9-E956F01E9ADC}']
|
['{BF1D13A0-E79B-4458-B11F-EBD7F789F0C1}']
|
||||||
{ Property getters and setters }
|
{ Property getters and setters }
|
||||||
function GetIDValue: Integer;
|
function GetIDValue: Integer;
|
||||||
procedure SetIDValue(const aValue: Integer);
|
procedure SetIDValue(const aValue: Integer);
|
||||||
@ -1473,7 +1473,7 @@ type
|
|||||||
|
|
||||||
{ IClientesDescuentos }
|
{ IClientesDescuentos }
|
||||||
IClientesDescuentos = interface(IDAStronglyTypedDataTable)
|
IClientesDescuentos = interface(IDAStronglyTypedDataTable)
|
||||||
['{1225583F-EBB3-4673-9C53-670AFBA01826}']
|
['{27D77A4D-007A-4AD3-8781-E834A196285A}']
|
||||||
{ Property getters and setters }
|
{ Property getters and setters }
|
||||||
function GetIDValue: Integer;
|
function GetIDValue: Integer;
|
||||||
procedure SetIDValue(const aValue: Integer);
|
procedure SetIDValue(const aValue: Integer);
|
||||||
|
|||||||
@ -9,22 +9,22 @@ const
|
|||||||
{ Delta rules ids
|
{ Delta rules ids
|
||||||
Feel free to change them to something more human readable
|
Feel free to change them to something more human readable
|
||||||
but make sure they are unique in the context of your application }
|
but make sure they are unique in the context of your application }
|
||||||
RID_ContactosDelta = '{FBA19294-A947-41DA-9ABF-0F58B7AD3871}';
|
RID_ContactosDelta = '{ED3DC929-6DF8-44C9-A77A-8854F74F281C}';
|
||||||
RID_GruposClienteDelta = '{63CFD830-E148-4E4D-802B-B274275CC4A0}';
|
RID_GruposClienteDelta = '{E416320D-F8B9-4086-9DF5-B12DC21C37FE}';
|
||||||
RID_ClienteEliminableDelta = '{3ABFD442-48BB-451F-8923-EECB61A74980}';
|
RID_ClienteEliminableDelta = '{D47AA51C-3F22-4185-94FC-D92E570749B5}';
|
||||||
RID_DatosBancariosDelta = '{24737E5E-FF2A-49CA-82E6-CF01F6A4F1AD}';
|
RID_DatosBancariosDelta = '{BA78D5CC-F08A-4C98-B891-33A4079D54A1}';
|
||||||
RID_ContactosCategoriasDelta = '{E9CCBC76-017F-49DA-8AC1-5D05D3F5BD58}';
|
RID_ContactosCategoriasDelta = '{F1C35B46-DC20-477E-B2CA-345807F1262D}';
|
||||||
RID_ClientesDelta = '{D36C7B31-0994-4EDE-A0AF-AF7CF1AA5622}';
|
RID_ClientesDelta = '{B20D68B1-ABA7-409F-9B42-AD7A43A10DB5}';
|
||||||
RID_ProveedoresDelta = '{C5F98D58-4E55-4BCD-AEE1-4D15FCFCD402}';
|
RID_ProveedoresDelta = '{6D5CDCC5-86ED-466E-B9B2-EA8B2B5203F3}';
|
||||||
RID_AgentesDelta = '{FBAE47C9-5F62-4EEB-A61B-9DE8145AC3A3}';
|
RID_AgentesDelta = '{25995918-FB9D-4E8D-972B-E52FE149A435}';
|
||||||
RID_DireccionesContactoDelta = '{EF9D18DF-D0EB-4433-A8D0-F22735A7F6A3}';
|
RID_DireccionesContactoDelta = '{F0BD77F8-70C0-4B9E-AE8D-B2EF02350C1C}';
|
||||||
RID_AgentesComisionesDelta = '{B296BBFC-AF34-4AB9-BB6F-4308BE188D15}';
|
RID_AgentesComisionesDelta = '{B1F1802F-E10B-4A50-9CC4-376DDA2961F7}';
|
||||||
RID_ClientesDescuentosDelta = '{18D4AC51-8E27-42E7-8A75-A5E1E21EAB34}';
|
RID_ClientesDescuentosDelta = '{1CC3E306-6A9D-4951-94C1-54CDEC790F13}';
|
||||||
|
|
||||||
type
|
type
|
||||||
{ IContactosDelta }
|
{ IContactosDelta }
|
||||||
IContactosDelta = interface(IContactos)
|
IContactosDelta = interface(IContactos)
|
||||||
['{FBA19294-A947-41DA-9ABF-0F58B7AD3871}']
|
['{ED3DC929-6DF8-44C9-A77A-8854F74F281C}']
|
||||||
{ Property getters and setters }
|
{ Property getters and setters }
|
||||||
function GetOldIDValue : Integer;
|
function GetOldIDValue : Integer;
|
||||||
function GetOldID_CATEGORIAValue : Integer;
|
function GetOldID_CATEGORIAValue : Integer;
|
||||||
@ -200,7 +200,7 @@ type
|
|||||||
|
|
||||||
{ IGruposClienteDelta }
|
{ IGruposClienteDelta }
|
||||||
IGruposClienteDelta = interface(IGruposCliente)
|
IGruposClienteDelta = interface(IGruposCliente)
|
||||||
['{63CFD830-E148-4E4D-802B-B274275CC4A0}']
|
['{E416320D-F8B9-4086-9DF5-B12DC21C37FE}']
|
||||||
{ Property getters and setters }
|
{ Property getters and setters }
|
||||||
function GetOldDESCRIPCIONValue : String;
|
function GetOldDESCRIPCIONValue : String;
|
||||||
|
|
||||||
@ -229,7 +229,7 @@ type
|
|||||||
|
|
||||||
{ IClienteEliminableDelta }
|
{ IClienteEliminableDelta }
|
||||||
IClienteEliminableDelta = interface(IClienteEliminable)
|
IClienteEliminableDelta = interface(IClienteEliminable)
|
||||||
['{3ABFD442-48BB-451F-8923-EECB61A74980}']
|
['{D47AA51C-3F22-4185-94FC-D92E570749B5}']
|
||||||
{ Property getters and setters }
|
{ Property getters and setters }
|
||||||
function GetOldIDValue : Integer;
|
function GetOldIDValue : Integer;
|
||||||
function GetOldNOMBREValue : String;
|
function GetOldNOMBREValue : String;
|
||||||
@ -265,7 +265,7 @@ type
|
|||||||
|
|
||||||
{ IDatosBancariosDelta }
|
{ IDatosBancariosDelta }
|
||||||
IDatosBancariosDelta = interface(IDatosBancarios)
|
IDatosBancariosDelta = interface(IDatosBancarios)
|
||||||
['{24737E5E-FF2A-49CA-82E6-CF01F6A4F1AD}']
|
['{BA78D5CC-F08A-4C98-B891-33A4079D54A1}']
|
||||||
{ Property getters and setters }
|
{ Property getters and setters }
|
||||||
function GetOldIDValue : Integer;
|
function GetOldIDValue : Integer;
|
||||||
function GetOldID_CONTACTOValue : Integer;
|
function GetOldID_CONTACTOValue : Integer;
|
||||||
@ -336,7 +336,7 @@ type
|
|||||||
|
|
||||||
{ IContactosCategoriasDelta }
|
{ IContactosCategoriasDelta }
|
||||||
IContactosCategoriasDelta = interface(IContactosCategorias)
|
IContactosCategoriasDelta = interface(IContactosCategorias)
|
||||||
['{E9CCBC76-017F-49DA-8AC1-5D05D3F5BD58}']
|
['{F1C35B46-DC20-477E-B2CA-345807F1262D}']
|
||||||
{ Property getters and setters }
|
{ Property getters and setters }
|
||||||
function GetOldID_CONTACTOValue : Integer;
|
function GetOldID_CONTACTOValue : Integer;
|
||||||
function GetOldID_CATEGORIAValue : Integer;
|
function GetOldID_CATEGORIAValue : Integer;
|
||||||
@ -372,7 +372,7 @@ type
|
|||||||
|
|
||||||
{ IClientesDelta }
|
{ IClientesDelta }
|
||||||
IClientesDelta = interface(IClientes)
|
IClientesDelta = interface(IClientes)
|
||||||
['{D36C7B31-0994-4EDE-A0AF-AF7CF1AA5622}']
|
['{B20D68B1-ABA7-409F-9B42-AD7A43A10DB5}']
|
||||||
{ Property getters and setters }
|
{ Property getters and setters }
|
||||||
function GetOldIDValue : Integer;
|
function GetOldIDValue : Integer;
|
||||||
function GetOldID_CATEGORIAValue : Integer;
|
function GetOldID_CATEGORIAValue : Integer;
|
||||||
@ -660,7 +660,7 @@ type
|
|||||||
|
|
||||||
{ IProveedoresDelta }
|
{ IProveedoresDelta }
|
||||||
IProveedoresDelta = interface(IProveedores)
|
IProveedoresDelta = interface(IProveedores)
|
||||||
['{C5F98D58-4E55-4BCD-AEE1-4D15FCFCD402}']
|
['{6D5CDCC5-86ED-466E-B9B2-EA8B2B5203F3}']
|
||||||
{ Property getters and setters }
|
{ Property getters and setters }
|
||||||
function GetOldIDValue : Integer;
|
function GetOldIDValue : Integer;
|
||||||
function GetOldID_CATEGORIAValue : Integer;
|
function GetOldID_CATEGORIAValue : Integer;
|
||||||
@ -899,7 +899,7 @@ type
|
|||||||
|
|
||||||
{ IAgentesDelta }
|
{ IAgentesDelta }
|
||||||
IAgentesDelta = interface(IAgentes)
|
IAgentesDelta = interface(IAgentes)
|
||||||
['{FBAE47C9-5F62-4EEB-A61B-9DE8145AC3A3}']
|
['{25995918-FB9D-4E8D-972B-E52FE149A435}']
|
||||||
{ Property getters and setters }
|
{ Property getters and setters }
|
||||||
function GetOldIDValue : Integer;
|
function GetOldIDValue : Integer;
|
||||||
function GetOldID_CATEGORIAValue : Integer;
|
function GetOldID_CATEGORIAValue : Integer;
|
||||||
@ -1075,7 +1075,7 @@ type
|
|||||||
|
|
||||||
{ IDireccionesContactoDelta }
|
{ IDireccionesContactoDelta }
|
||||||
IDireccionesContactoDelta = interface(IDireccionesContacto)
|
IDireccionesContactoDelta = interface(IDireccionesContacto)
|
||||||
['{EF9D18DF-D0EB-4433-A8D0-F22735A7F6A3}']
|
['{F0BD77F8-70C0-4B9E-AE8D-B2EF02350C1C}']
|
||||||
{ Property getters and setters }
|
{ Property getters and setters }
|
||||||
function GetOldIDValue : Integer;
|
function GetOldIDValue : Integer;
|
||||||
function GetOldID_CONTACTOValue : Integer;
|
function GetOldID_CONTACTOValue : Integer;
|
||||||
@ -1195,7 +1195,7 @@ type
|
|||||||
|
|
||||||
{ IAgentesComisionesDelta }
|
{ IAgentesComisionesDelta }
|
||||||
IAgentesComisionesDelta = interface(IAgentesComisiones)
|
IAgentesComisionesDelta = interface(IAgentesComisiones)
|
||||||
['{B296BBFC-AF34-4AB9-BB6F-4308BE188D15}']
|
['{B1F1802F-E10B-4A50-9CC4-376DDA2961F7}']
|
||||||
{ Property getters and setters }
|
{ Property getters and setters }
|
||||||
function GetOldIDValue : Integer;
|
function GetOldIDValue : Integer;
|
||||||
function GetOldID_AGENTEValue : Integer;
|
function GetOldID_AGENTEValue : Integer;
|
||||||
@ -1252,7 +1252,7 @@ type
|
|||||||
|
|
||||||
{ IClientesDescuentosDelta }
|
{ IClientesDescuentosDelta }
|
||||||
IClientesDescuentosDelta = interface(IClientesDescuentos)
|
IClientesDescuentosDelta = interface(IClientesDescuentos)
|
||||||
['{18D4AC51-8E27-42E7-8A75-A5E1E21EAB34}']
|
['{1CC3E306-6A9D-4951-94C1-54CDEC790F13}']
|
||||||
{ Property getters and setters }
|
{ Property getters and setters }
|
||||||
function GetOldIDValue : Integer;
|
function GetOldIDValue : Integer;
|
||||||
function GetOldID_CLIENTEValue : Integer;
|
function GetOldID_CLIENTEValue : Integer;
|
||||||
|
|||||||
@ -64,7 +64,7 @@ begin
|
|||||||
with ACommand do
|
with ACommand do
|
||||||
begin
|
begin
|
||||||
ParamByName('OLD_ID_CONTACTO').Value := aChange.OldValueByName[fld_ContactosID];
|
ParamByName('OLD_ID_CONTACTO').Value := aChange.OldValueByName[fld_ContactosID];
|
||||||
ParamByName('OLD_ID_EMPRESA').Value := aChange.OldValueByName[fld_ContactosID_EMPRESA];
|
// ParamByName('OLD_ID_EMPRESA').Value := aChange.OldValueByName[fld_ContactosID_EMPRESA];
|
||||||
Execute;
|
Execute;
|
||||||
end;
|
end;
|
||||||
finally
|
finally
|
||||||
@ -86,7 +86,7 @@ begin
|
|||||||
with ACommand do
|
with ACommand do
|
||||||
begin
|
begin
|
||||||
ParamByName('ID_CONTACTO').Value := aChange.NewValueByName[fld_ContactosID];
|
ParamByName('ID_CONTACTO').Value := aChange.NewValueByName[fld_ContactosID];
|
||||||
ParamByName('ID_EMPRESA').Value := aChange.NewValueByName[fld_ContactosID_EMPRESA];
|
// ParamByName('ID_EMPRESA').Value := aChange.NewValueByName[fld_ContactosID_EMPRESA];
|
||||||
Execute;
|
Execute;
|
||||||
end;
|
end;
|
||||||
finally
|
finally
|
||||||
|
|||||||
@ -930,13 +930,14 @@ object RptEtiquetasContactos: TRptEtiquetasContactos
|
|||||||
Top = 158
|
Top = 158
|
||||||
end
|
end
|
||||||
object frxReport: TfrxReport
|
object frxReport: TfrxReport
|
||||||
Version = '3.23.7'
|
Version = '4.3'
|
||||||
DotMatrixReport = False
|
DotMatrixReport = False
|
||||||
IniFile = '\Software\Fast Reports'
|
IniFile = '\Software\Fast Reports'
|
||||||
PreviewOptions.Buttons = [pbPrint, pbLoad, pbSave, pbExport, pbZoom, pbFind, pbOutline, pbPageSetup, pbTools, pbEdit, pbNavigator, pbExportQuick]
|
PreviewOptions.Buttons = [pbPrint, pbLoad, pbSave, pbExport, pbZoom, pbFind, pbOutline, pbPageSetup, pbTools, pbEdit, pbNavigator, pbExportQuick]
|
||||||
PreviewOptions.Zoom = 1.000000000000000000
|
PreviewOptions.Zoom = 1.000000000000000000
|
||||||
PrintOptions.Printer = 'Por defecto'
|
PrintOptions.Printer = 'Por defecto'
|
||||||
ReportOptions.CreateDate = 38330.712904247700000000
|
PrintOptions.PrintOnSheet = 0
|
||||||
|
ReportOptions.CreateDate = 38330.712904247710000000
|
||||||
ReportOptions.LastChange = 39363.863353761580000000
|
ReportOptions.LastChange = 39363.863353761580000000
|
||||||
ScriptLanguage = 'PascalScript'
|
ScriptLanguage = 'PascalScript'
|
||||||
ScriptText.Strings = (
|
ScriptText.Strings = (
|
||||||
@ -972,13 +973,6 @@ object RptEtiquetasContactos: TRptEtiquetasContactos
|
|||||||
StoreInDFM = False
|
StoreInDFM = False
|
||||||
Left = 169
|
Left = 169
|
||||||
Top = 16
|
Top = 16
|
||||||
Datasets = <
|
|
||||||
item
|
|
||||||
DataSet = frxDBCabecera
|
|
||||||
DataSetName = 'frxDBCabecera'
|
|
||||||
end>
|
|
||||||
Variables = <>
|
|
||||||
Style = <>
|
|
||||||
end
|
end
|
||||||
object frxDBCabecera: TfrxDBDataset
|
object frxDBCabecera: TfrxDBDataset
|
||||||
UserName = 'frxDBCabecera'
|
UserName = 'frxDBCabecera'
|
||||||
|
|||||||
@ -37,7 +37,7 @@ implementation
|
|||||||
{$R *.dfm}
|
{$R *.dfm}
|
||||||
|
|
||||||
uses
|
uses
|
||||||
uDataModuleServer, schContactosClient_Intf;
|
uSistemaFunc, uDataModuleServer, schContactosClient_Intf;
|
||||||
|
|
||||||
const
|
const
|
||||||
rptInfEtiquetas = 'InfEtiquetasContactos.fr3';
|
rptInfEtiquetas = 'InfEtiquetasContactos.fr3';
|
||||||
@ -60,7 +60,7 @@ function TRptEtiquetasContactos.GenerarEtiquetas(const AID: String): Binary;
|
|||||||
var
|
var
|
||||||
dsMaster: IDADataset;
|
dsMaster: IDADataset;
|
||||||
AStream: TMemoryStream;
|
AStream: TMemoryStream;
|
||||||
|
AInforme: Variant;
|
||||||
begin
|
begin
|
||||||
AStream := TMemoryStream.Create;
|
AStream := TMemoryStream.Create;
|
||||||
Result := Binary.Create;
|
Result := Binary.Create;
|
||||||
@ -74,7 +74,11 @@ begin
|
|||||||
DABINAdapter.WriteDataset(AStream, dsMaster, [woRows, woSchema], -1);
|
DABINAdapter.WriteDataset(AStream, dsMaster, [woRows, woSchema], -1);
|
||||||
DABINAdapter.ReadDataset(AStream, tbl_Cabecera, TRUE, '', TRUE, TRUE);
|
DABINAdapter.ReadDataset(AStream, tbl_Cabecera, 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);
|
||||||
frxReport.PrepareReport(False);
|
frxReport.PrepareReport(False);
|
||||||
frxReport.PreviewPages.SaveToStream(Result);
|
frxReport.PreviewPages.SaveToStream(Result);
|
||||||
finally
|
finally
|
||||||
|
|||||||
@ -3126,13 +3126,6 @@ object srvContactos: TsrvContactos
|
|||||||
end
|
end
|
||||||
item
|
item
|
||||||
Params = <
|
Params = <
|
||||||
item
|
|
||||||
Name = 'ID_EMPRESA'
|
|
||||||
DataType = datInteger
|
|
||||||
BlobType = dabtUnknown
|
|
||||||
Value = ''
|
|
||||||
ParamType = daptInput
|
|
||||||
end
|
|
||||||
item
|
item
|
||||||
Name = 'ID_CONTACTO'
|
Name = 'ID_CONTACTO'
|
||||||
DataType = datInteger
|
DataType = datInteger
|
||||||
@ -3145,8 +3138,9 @@ object srvContactos: TsrvContactos
|
|||||||
Connection = 'IBX'
|
Connection = 'IBX'
|
||||||
TargetTable = 'EMPRESAS_CONTACTOS'
|
TargetTable = 'EMPRESAS_CONTACTOS'
|
||||||
SQL =
|
SQL =
|
||||||
'INSERT'#10' INTO EMPRESAS_CONTACTOS'#10' (ID_EMPRESA, ID_CONTACTO)'#10' ' +
|
'INSERT INTO EMPRESAS_CONTACTOS'#10' (ID, ID_EMPRESA, ID_CONTACTO)' +
|
||||||
' VALUES'#10' (:ID_EMPRESA, :ID_CONTACTO)'
|
#10#10'SELECT (SELECT GEN_ID(GEN_EMPRESAS_CONTACTOS_ID, 1) FROM RDB$D' +
|
||||||
|
'ATABASE), EMPRESAS.ID, :ID_CONTACTO'#10'FROM EMPRESAS'
|
||||||
StatementType = stSQL
|
StatementType = stSQL
|
||||||
ColumnMappings = <>
|
ColumnMappings = <>
|
||||||
end>
|
end>
|
||||||
@ -3154,13 +3148,6 @@ object srvContactos: TsrvContactos
|
|||||||
end
|
end
|
||||||
item
|
item
|
||||||
Params = <
|
Params = <
|
||||||
item
|
|
||||||
Name = 'OLD_ID_EMPRESA'
|
|
||||||
DataType = datInteger
|
|
||||||
BlobType = dabtUnknown
|
|
||||||
Value = ''
|
|
||||||
ParamType = daptInput
|
|
||||||
end
|
|
||||||
item
|
item
|
||||||
Name = 'OLD_ID_CONTACTO'
|
Name = 'OLD_ID_CONTACTO'
|
||||||
DataType = datInteger
|
DataType = datInteger
|
||||||
@ -3173,8 +3160,8 @@ object srvContactos: TsrvContactos
|
|||||||
Connection = 'IBX'
|
Connection = 'IBX'
|
||||||
TargetTable = 'EMPRESAS_CONTACTOS'
|
TargetTable = 'EMPRESAS_CONTACTOS'
|
||||||
SQL =
|
SQL =
|
||||||
'DELETE '#10' FROM'#10' EMPRESAS_CONTACTOS'#10' WHERE'#10' (ID_EMPRESA = ' +
|
'DELETE'#10' FROM'#10' EMPRESAS_CONTACTOS'#10' WHERE'#10' (ID_CONTACTO = ' +
|
||||||
':OLD_ID_EMPRESA) AND '#10' (ID_CONTACTO = :OLD_ID_CONTACTO)'
|
':OLD_ID_CONTACTO)'
|
||||||
StatementType = stSQL
|
StatementType = stSQL
|
||||||
ColumnMappings = <>
|
ColumnMappings = <>
|
||||||
end>
|
end>
|
||||||
@ -4970,10 +4957,10 @@ object srvContactos: TsrvContactos
|
|||||||
Top = 82
|
Top = 82
|
||||||
DiagramData =
|
DiagramData =
|
||||||
'<Diagrams>'#13#10' <Diagram Name="New Diagram" Left="200" Top="200" W' +
|
'<Diagrams>'#13#10' <Diagram Name="New Diagram" Left="200" Top="200" W' +
|
||||||
'idth="400" Height="300">'#13#10' <Entity Name="Contactos" Left="223' +
|
'idth="400" Height="300">'#13#10' <Entity Name="ContactosCategorias"' +
|
||||||
',77" Top="0,00" />'#13#10' <Entity Name="DatosBancarios" Left="479,' +
|
' Left="0,00" Top="26,50" />'#13#10' <Entity Name="DatosBancarios" L' +
|
||||||
'77" Top="0,00" />'#13#10' <Entity Name="ContactosCategorias" Left="' +
|
'eft="479,77" Top="0,00" />'#13#10' <Entity Name="Contactos" Left="2' +
|
||||||
'0,00" Top="26,50" />'#13#10' </Diagram>'#13#10'</Diagrams>'#13#10
|
'23,77" Top="0,00" />'#13#10' </Diagram>'#13#10'</Diagrams>'#13#10
|
||||||
end
|
end
|
||||||
object bpContactos: TDABusinessProcessor
|
object bpContactos: TDABusinessProcessor
|
||||||
Schema = schContactos
|
Schema = schContactos
|
||||||
|
|||||||
@ -178,7 +178,7 @@
|
|||||||
</Delphi.Personality>
|
</Delphi.Personality>
|
||||||
<!-- EurekaLog First Line
|
<!-- EurekaLog First Line
|
||||||
[Exception Log]
|
[Exception Log]
|
||||||
EurekaLog Version=519
|
EurekaLog Version=6014
|
||||||
Activate=1
|
Activate=1
|
||||||
Activate Handle=1
|
Activate Handle=1
|
||||||
Save Log File=1
|
Save Log File=1
|
||||||
@ -492,6 +492,191 @@ Count mtSend_SuccessMsg=1
|
|||||||
mtSend_SuccessMsg0="The message was sent successfully."
|
mtSend_SuccessMsg0="The message was sent successfully."
|
||||||
Count mtSend_FailureMsg=1
|
Count mtSend_FailureMsg=1
|
||||||
mtSend_FailureMsg0="Sorry, sending the message didn't work."
|
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 -->
|
EurekaLog Last Line -->
|
||||||
<ModelSupport>True</ModelSupport>
|
<ModelSupport>True</ModelSupport>
|
||||||
</BorlandProject>
|
</BorlandProject>
|
||||||
|
|||||||
@ -54,8 +54,8 @@ type
|
|||||||
implementation
|
implementation
|
||||||
|
|
||||||
uses
|
uses
|
||||||
uEditorRegistryUtils, cxControls, DB,
|
uEditorRegistryUtils, cxControls, DB,
|
||||||
uDataModuleEmpresas, uIEditorEmpresa;
|
uDataModuleEmpresas, uIEditorEmpresa, uIEditorEmpresas;
|
||||||
|
|
||||||
{ TEmpresasController }
|
{ TEmpresasController }
|
||||||
|
|
||||||
@ -321,16 +321,16 @@ begin
|
|||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TEmpresasController.VerTodos(AEmpresas: IBizEmpresa);
|
procedure TEmpresasController.VerTodos(AEmpresas: IBizEmpresa);
|
||||||
{var
|
var
|
||||||
AEditor : IEditorClientes;}
|
AEditor : IEditorEmpresas;
|
||||||
begin
|
begin
|
||||||
{ CreateEditor('EditorEmpresas', IEditorClientes, AEditor);
|
CreateEditor('EditorEmpresas', IEditorEmpresas, AEditor);
|
||||||
with AEditor do
|
with AEditor do
|
||||||
begin
|
begin
|
||||||
Contactos := AContactos;
|
Empresas := AEmpresas;
|
||||||
Controller := Self;
|
Controller := Self;
|
||||||
ShowEmbedded;
|
ShowEmbedded;
|
||||||
end;}
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
end.
|
end.
|
||||||
|
|||||||
@ -178,7 +178,7 @@
|
|||||||
</Delphi.Personality>
|
</Delphi.Personality>
|
||||||
<!-- EurekaLog First Line
|
<!-- EurekaLog First Line
|
||||||
[Exception Log]
|
[Exception Log]
|
||||||
EurekaLog Version=519
|
EurekaLog Version=6014
|
||||||
Activate=1
|
Activate=1
|
||||||
Activate Handle=1
|
Activate Handle=1
|
||||||
Save Log File=1
|
Save Log File=1
|
||||||
@ -492,5 +492,190 @@ Count mtSend_SuccessMsg=1
|
|||||||
mtSend_SuccessMsg0="The message was sent successfully."
|
mtSend_SuccessMsg0="The message was sent successfully."
|
||||||
Count mtSend_FailureMsg=1
|
Count mtSend_FailureMsg=1
|
||||||
mtSend_FailureMsg0="Sorry, sending the message didn't work."
|
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 -->
|
EurekaLog Last Line -->
|
||||||
</BorlandProject>
|
</BorlandProject>
|
||||||
|
|||||||
@ -342,6 +342,8 @@ object PluginEmpresas: TPluginEmpresas
|
|||||||
object actGestionEmpresas: TAction
|
object actGestionEmpresas: TAction
|
||||||
Category = 'Empresa'
|
Category = 'Empresa'
|
||||||
Caption = 'Gesti'#243'n de empresas'
|
Caption = 'Gesti'#243'n de empresas'
|
||||||
|
Enabled = False
|
||||||
|
OnExecute = actGestionEmpresasExecute
|
||||||
end
|
end
|
||||||
object actSucursales: TAction
|
object actSucursales: TAction
|
||||||
Category = 'Empresa'
|
Category = 'Empresa'
|
||||||
|
|||||||
@ -36,6 +36,7 @@ type
|
|||||||
procedure actDatosDeUpdate(Sender: TObject);
|
procedure actDatosDeUpdate(Sender: TObject);
|
||||||
procedure actDatosDeExecute(Sender: TObject);
|
procedure actDatosDeExecute(Sender: TObject);
|
||||||
procedure actNuevaEmpresaExecute(Sender: TObject);
|
procedure actNuevaEmpresaExecute(Sender: TObject);
|
||||||
|
procedure actGestionEmpresasExecute(Sender: TObject);
|
||||||
protected
|
protected
|
||||||
function Empresas : TStringList;
|
function Empresas : TStringList;
|
||||||
function Controller : IEmpresasController;
|
function Controller : IEmpresasController;
|
||||||
@ -87,6 +88,17 @@ begin
|
|||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
procedure TPluginEmpresas.actGestionEmpresasExecute(Sender: TObject);
|
||||||
|
var
|
||||||
|
AEmpresasController : IEmpresasController;
|
||||||
|
AEmpresas : IBizEmpresa;
|
||||||
|
|
||||||
|
begin
|
||||||
|
AEmpresasController := TEmpresasController.Create;
|
||||||
|
AEmpresas := (AEmpresasController.BuscarTodos as IBizEmpresa);
|
||||||
|
AEmpresasController.VerTodos(AEmpresas);
|
||||||
|
end;
|
||||||
|
|
||||||
procedure TPluginEmpresas.actNuevaEmpresaExecute(Sender: TObject);
|
procedure TPluginEmpresas.actNuevaEmpresaExecute(Sender: TObject);
|
||||||
var
|
var
|
||||||
AEmpresasController : IEmpresasController;
|
AEmpresasController : IEmpresasController;
|
||||||
|
|||||||
@ -223,9 +223,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 Name="C:\Documents and Settings\David\Mis documentos\Borland Studio Projects\Bpl\dxGDIPlusD10.bpl">ExpressGDI+ Library by Developer Express Inc.</Excluded_Packages>
|
||||||
</Excluded_Packages>
|
</Excluded_Packages>
|
||||||
</Delphi.Personality>
|
</Delphi.Personality>
|
||||||
<!-- EurekaLog First Line
|
<!-- EurekaLog First Line
|
||||||
[Exception Log]
|
[Exception Log]
|
||||||
EurekaLog Version=519
|
EurekaLog Version=6014
|
||||||
Activate=1
|
Activate=1
|
||||||
Activate Handle=1
|
Activate Handle=1
|
||||||
Save Log File=1
|
Save Log File=1
|
||||||
@ -539,5 +539,190 @@ Count mtSend_SuccessMsg=1
|
|||||||
mtSend_SuccessMsg0="The message was sent successfully."
|
mtSend_SuccessMsg0="The message was sent successfully."
|
||||||
Count mtSend_FailureMsg=1
|
Count mtSend_FailureMsg=1
|
||||||
mtSend_FailureMsg0="Sorry, sending the message didn't work."
|
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 -->
|
EurekaLog Last Line -->
|
||||||
</BorlandProject>
|
</BorlandProject>
|
||||||
|
|||||||
@ -72,13 +72,17 @@ requires
|
|||||||
Empresas_model,
|
Empresas_model,
|
||||||
Empresas_controller,
|
Empresas_controller,
|
||||||
JvCtrlsD10R,
|
JvCtrlsD10R,
|
||||||
JvJansD10R;
|
JvJansD10R,
|
||||||
|
dxGDIPlusD10,
|
||||||
|
cxIntlPrintSys3D10;
|
||||||
|
|
||||||
contains
|
contains
|
||||||
uEmpresasViewRegister in 'uEmpresasViewRegister.pas',
|
uEmpresasViewRegister in 'uEmpresasViewRegister.pas',
|
||||||
uEditorEmpresa in 'uEditorEmpresa.pas' {fEditorEmpresa: TForm},
|
uEditorEmpresa in 'uEditorEmpresa.pas' {fEditorEmpresa: TForm},
|
||||||
uViewEmpresa in 'uViewEmpresa.pas' {frViewEmpresa: TFrame},
|
uViewEmpresa in 'uViewEmpresa.pas' {frViewEmpresa: TFrame},
|
||||||
uViewDatosBancarios in 'uViewDatosBancarios.pas' {frViewDatosBancarios: TFrame},
|
uViewDatosBancarios in 'uViewDatosBancarios.pas' {frViewDatosBancarios: TFrame},
|
||||||
uEditorDatosBancariosEmpresa in 'uEditorDatosBancariosEmpresa.pas' {fEditorDatosBancariosEmpresa};
|
uEditorDatosBancariosEmpresa in 'uEditorDatosBancariosEmpresa.pas' {fEditorDatosBancariosEmpresa},
|
||||||
|
uViewEmpresas in 'uViewEmpresas.pas' {frViewEmpresas: TFrame},
|
||||||
|
uEditorEmpresas in 'uEditorEmpresas.pas' {fEditorEmpresas};
|
||||||
|
|
||||||
end.
|
end.
|
||||||
|
|||||||
1495
Source/Modulos/Empresas/Views/uEditorEmpresas.dfm
Normal file
1495
Source/Modulos/Empresas/Views/uEditorEmpresas.dfm
Normal file
File diff suppressed because it is too large
Load Diff
139
Source/Modulos/Empresas/Views/uEditorEmpresas.pas
Normal file
139
Source/Modulos/Empresas/Views/uEditorEmpresas.pas
Normal file
@ -0,0 +1,139 @@
|
|||||||
|
unit uEditorEmpresas;
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||||
|
Dialogs, uEditorBase, ToolWin, ComCtrls, JvExControls, JvComponent,
|
||||||
|
JvNavigationPane, uViewEmpresas, uBizEmpresas, ActnList, DBActns, uViewGrid,
|
||||||
|
Menus, uDataModuleBase, ImgList, PngImageList, TB2Dock, TB2Toolbar, TBX,
|
||||||
|
TB2Item, StdActns, TB2ExtItems, TBXExtItems, TB2MRU, DB, uDADataTable,
|
||||||
|
JvFormAutoSize, uDAScriptingProvider, uDACDSDataTable, JvAppStorage,
|
||||||
|
JvAppRegistryStorage, JvFormPlacement, ExtCtrls, uCustomView, uViewBase,
|
||||||
|
uViewBarraSeleccion, pngimage, uIEditorEmpresas, uEditorGridBase,
|
||||||
|
JvComponentBase, uViewGridBase, uEmpresasController, JvExComCtrls,
|
||||||
|
JvStatusBar;
|
||||||
|
|
||||||
|
type
|
||||||
|
TfEditorEmpresas = class(TfEditorGridBase, IEditorEmpresas)
|
||||||
|
frViewEmpresas1: TfrViewEmpresas;
|
||||||
|
procedure FormShow(Sender: TObject);
|
||||||
|
private
|
||||||
|
FEmpresas: IBizEmpresa;
|
||||||
|
FController : IEmpresasController;
|
||||||
|
protected
|
||||||
|
function GetEmpresas: IBizEmpresa;
|
||||||
|
procedure SetEmpresas(const Value: IBizEmpresa);
|
||||||
|
function GetController : IEmpresasController; virtual;
|
||||||
|
procedure SetController (const Value : IEmpresasController); virtual;
|
||||||
|
|
||||||
|
procedure NuevoInterno; override;
|
||||||
|
procedure EliminarInterno; override;
|
||||||
|
procedure ModificarInterno; override;
|
||||||
|
|
||||||
|
public
|
||||||
|
procedure PonerTitulos(const ATitulo: string = ''); override;
|
||||||
|
property Empresas: IBizEmpresa read GetEmpresas write SetEmpresas;
|
||||||
|
property Controller : IEmpresasController read GetController write SetController;
|
||||||
|
constructor Create(AOwner: TComponent); override;
|
||||||
|
destructor Destroy; override;
|
||||||
|
end;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
uses
|
||||||
|
uCustomEditor, uDataModuleEmpresas, //uDataModuleUsuarios,
|
||||||
|
// uEditorAlmacen,
|
||||||
|
uEditorDBBase,
|
||||||
|
cxGrid, cxGridCustomTableView; //, uListaEmpresas;
|
||||||
|
|
||||||
|
{$R *.dfm}
|
||||||
|
|
||||||
|
{
|
||||||
|
****************************** TfEditorEmpresas *******************************
|
||||||
|
}
|
||||||
|
procedure TfEditorEmpresas.FormShow(Sender: TObject);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
|
||||||
|
if not Assigned(ViewGrid) then
|
||||||
|
raise Exception.Create('No hay ninguna vista asignada');
|
||||||
|
|
||||||
|
if not Assigned(Empresas) then
|
||||||
|
raise Exception.Create('No hay ningún Almacen asignado');
|
||||||
|
|
||||||
|
Empresas.DataTable.Active := True;
|
||||||
|
ViewGrid.GotoFirst;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TfEditorEmpresas.GetEmpresas: IBizEmpresa;
|
||||||
|
begin
|
||||||
|
Result := FEmpresas;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TfEditorEmpresas.GetController: IEmpresasController;
|
||||||
|
begin
|
||||||
|
Result := FController;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorEmpresas.ModificarInterno;
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
FController.Ver(Empresas);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorEmpresas.NuevoInterno;
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
FController.Anadir(Empresas);
|
||||||
|
FController.Ver(Empresas);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorEmpresas.PonerTitulos(const ATitulo: string);
|
||||||
|
var
|
||||||
|
FTitulo : String;
|
||||||
|
begin
|
||||||
|
// FTitulo := 'Lista de empresas - ' + dmUsuarios.EmpresaActual.NOMBRE;
|
||||||
|
inherited PonerTitulos(FTitulo);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorEmpresas.SetEmpresas(const Value: IBizEmpresa);
|
||||||
|
begin
|
||||||
|
FEmpresas := Value;
|
||||||
|
dsDataTable.DataTable := FEmpresas.DataTable;
|
||||||
|
if Assigned(ViewGrid) then
|
||||||
|
(ViewGrid as IViewEmpresas).Empresas := Empresas;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorEmpresas.SetController(const Value: IEmpresasController);
|
||||||
|
begin
|
||||||
|
FController := Value;
|
||||||
|
end;
|
||||||
|
|
||||||
|
destructor TfEditorEmpresas.Destroy;
|
||||||
|
begin
|
||||||
|
FEmpresas := NIL;
|
||||||
|
inherited;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorEmpresas.EliminarInterno;
|
||||||
|
begin
|
||||||
|
|
||||||
|
if (Application.MessageBox('¿Desea borrar esta empresa?', 'Atención', MB_YESNO) = IDYES) then
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
//Para que en el caso de no poderse realizar la operación se refresquen
|
||||||
|
//los datos y no nos permita eliminar un registro a la segunda
|
||||||
|
if not FController.Eliminar(Empresas) then
|
||||||
|
actRefrescar.Execute;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
constructor TfEditorEmpresas.Create(AOwner: TComponent);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
ViewGrid := frViewEmpresas1; //CreateView(TfrViewEmpresas) as IViewEmpresas;
|
||||||
|
end;
|
||||||
|
|
||||||
|
end.
|
||||||
|
|
||||||
@ -8,17 +8,19 @@ procedure UnregisterViews;
|
|||||||
implementation
|
implementation
|
||||||
|
|
||||||
uses
|
uses
|
||||||
uEditorRegistryUtils, uEditorEmpresa, uEditorDatosBancariosEmpresa;
|
uEditorRegistryUtils, uEditorEmpresa, uEditorEmpresas, uEditorDatosBancariosEmpresa;
|
||||||
|
|
||||||
procedure RegisterViews;
|
procedure RegisterViews;
|
||||||
begin
|
begin
|
||||||
EditorRegistry.RegisterClass(TfEditorEmpresa, 'EditorEmpresa');
|
EditorRegistry.RegisterClass(TfEditorEmpresa, 'EditorEmpresa');
|
||||||
EditorRegistry.RegisterClass(TfEditorDatosBancariosEmpresa, 'EditorDatosBancariosEmpresa');
|
EditorRegistry.RegisterClass(TfEditorEmpresas, 'EditorEmpresas');
|
||||||
|
EditorRegistry.RegisterClass(TfEditorDatosBancariosEmpresa, 'EditorDatosBancariosEmpresa');
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure UnregisterViews;
|
procedure UnregisterViews;
|
||||||
begin
|
begin
|
||||||
EditorRegistry.UnRegisterClass(TfEditorEmpresa);
|
EditorRegistry.UnRegisterClass(TfEditorEmpresa);
|
||||||
|
EditorRegistry.UnRegisterClass(TfEditorEmpresas);
|
||||||
EditorRegistry.UnRegisterClass(TfEditorDatosBancariosEmpresa);
|
EditorRegistry.UnRegisterClass(TfEditorDatosBancariosEmpresa);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
|||||||
94
Source/Modulos/Empresas/Views/uViewEmpresas.dfm
Normal file
94
Source/Modulos/Empresas/Views/uViewEmpresas.dfm
Normal file
@ -0,0 +1,94 @@
|
|||||||
|
inherited frViewEmpresas: TfrViewEmpresas
|
||||||
|
inherited cxGrid: TcxGrid
|
||||||
|
inherited cxGridView: TcxGridDBTableView
|
||||||
|
DataController.KeyFieldNames = 'ID'
|
||||||
|
DataController.Summary.FooterSummaryItems = <
|
||||||
|
item
|
||||||
|
Format = '0 almacenes'
|
||||||
|
Kind = skCount
|
||||||
|
Column = cxGridViewNOMBRE
|
||||||
|
end>
|
||||||
|
OptionsBehavior.PullFocusing = True
|
||||||
|
object cxGridViewID: TcxGridDBColumn
|
||||||
|
DataBinding.FieldName = 'ID'
|
||||||
|
OnCustomDrawCell = cxGridViewIDCustomDrawCell
|
||||||
|
BestFitMaxWidth = 22
|
||||||
|
MinWidth = 22
|
||||||
|
Options.HorzSizing = False
|
||||||
|
Width = 22
|
||||||
|
IsCaptionAssigned = True
|
||||||
|
end
|
||||||
|
object cxGridViewNIF_CIF: TcxGridDBColumn
|
||||||
|
DataBinding.FieldName = 'NIF_CIF'
|
||||||
|
Width = 118
|
||||||
|
end
|
||||||
|
object cxGridViewNOMBRE: TcxGridDBColumn
|
||||||
|
DataBinding.FieldName = 'NOMBRE'
|
||||||
|
SortIndex = 0
|
||||||
|
SortOrder = soAscending
|
||||||
|
Width = 304
|
||||||
|
end
|
||||||
|
object cxGridViewCALLE: TcxGridDBColumn
|
||||||
|
DataBinding.FieldName = 'CALLE'
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
object cxGridViewPROVINCIA: TcxGridDBColumn
|
||||||
|
DataBinding.FieldName = 'PROVINCIA'
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
object cxGridViewPOBLACION: TcxGridDBColumn
|
||||||
|
DataBinding.FieldName = 'POBLACION'
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
object cxGridViewCODIGO_POSTAL: TcxGridDBColumn
|
||||||
|
DataBinding.FieldName = 'CODIGO_POSTAL'
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
inherited pnlAgrupaciones: TTBXDockablePanel
|
||||||
|
ExplicitWidth = 554
|
||||||
|
end
|
||||||
|
inherited dxComponentPrinter: TdxComponentPrinter
|
||||||
|
inherited dxComponentPrinterLink: TdxGridReportLink
|
||||||
|
ReportDocument.CreationDate = 38673.842406053240000000
|
||||||
|
BuiltInReportLink = True
|
||||||
|
end
|
||||||
|
end
|
||||||
|
inherited dxPrintStyleManager1: TdxPrintStyleManager
|
||||||
|
inherited dxPrintStyleManager1Style1: TdxPSPrintStyle
|
||||||
|
BuiltInStyle = True
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object PngImageList: TPngImageList
|
||||||
|
PngImages = <
|
||||||
|
item
|
||||||
|
PngImage.Data = {
|
||||||
|
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
|
||||||
|
610000000970485973000017120000171201679FD2520000022E4944415478DA
|
||||||
|
8D93CF6BD36018C7BF6997A45DD376EA70CA18D31D44981741280C44119DA83D
|
||||||
|
C87619781A1EFD1BC49B2028B28353141111A43BE8CD934E65A8D4A1686B61B5
|
||||||
|
A31DD8CCBAFEDAACEDF226B389EFFB26CBCC54E6030FEFCB4B3E9FE79B9744B0
|
||||||
|
2C0B8220E0F7BA3AB2D75A282DE07F4AD82C60F0851B8F50530BF85EF98A6236
|
||||||
|
8DCCAB69B0B366BD8C95B24ACF4BB877FD226AFD635EC13A5CF99243A356869A
|
||||||
|
4D51F8398799EC476D09E5621E0F6F5EC6C8D938EE7C503604EB7055CDA34127
|
||||||
|
A8B90C3ECD3CE570A35AA2FD0DCB4B2AEE4F5CC29953C35094102667655B706D
|
||||||
|
7480C3F97412AD951AAAC502E6DEBCE47031974673B942BB8AA9DB57103F7D12
|
||||||
|
9D9D413ED4154C8C0BD6FCE7AD2F6C2816C3CE9E6E8862077C3E9F57307CE2FC
|
||||||
|
1F80655A308C35E844C7B3273318D8D78FE8B6282449A41211B7DE05FE2D304D
|
||||||
|
13866EC34433F0FAC55BF4EDE945A42B0C910A6459C6DD94F27781D936F964B2
|
||||||
|
AADB02DAEF9329ECEEED4138A240944548B2840773DBBD02B637596C6238205D
|
||||||
|
352AD175643E66B1A3BB0B0A15489204292061AAB0CB2B68D3C96B34367120BE
|
||||||
|
3AB2F96C01E1A8825028083920F35778BCD8B721387E6C9C42060788465C50A3
|
||||||
|
12B24AB0582C2110946907282C61BA3588442221B882C343E75C50A30093B104
|
||||||
|
84D849EAD53AFC1D7E0ECFFA631C76FF0526387470D4135977405B62A0D56CB2
|
||||||
|
C791891C71618FE0C0FEB873618623B2E33361FB679B4A340A1FF5C01E41928C
|
||||||
|
6DF9256E8659FD02D3B7960923D6946A0000000049454E44AE426082}
|
||||||
|
Name = 'PngImage0'
|
||||||
|
Background = clWindow
|
||||||
|
end>
|
||||||
|
Left = 160
|
||||||
|
Top = 32
|
||||||
|
Bitmap = {}
|
||||||
|
end
|
||||||
|
end
|
||||||
84
Source/Modulos/Empresas/Views/uViewEmpresas.pas
Normal file
84
Source/Modulos/Empresas/Views/uViewEmpresas.pas
Normal file
@ -0,0 +1,84 @@
|
|||||||
|
unit uViewEmpresas;
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||||
|
Dialogs, uViewGrid, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData,
|
||||||
|
cxDataStorage, cxEdit, DB, cxDBData, uDADataTable, cxGridLevel,
|
||||||
|
cxClasses, cxControls, cxGridCustomView, cxGridCustomTableView,
|
||||||
|
cxGridTableView, cxGridDBTableView, cxGrid, uBizEmpresas, ActnList, Menus,
|
||||||
|
cxGridBandedTableView, cxGridDBBandedTableView, JvComponent,
|
||||||
|
JvFormAutoSize, PngImageList, ImgList, dxPSGlbl, dxPSUtl, dxPSEngn,
|
||||||
|
dxPrnPg, dxBkgnd, dxWrap, dxPrnDev, dxPSCompsProvider, dxPSFillPatterns,
|
||||||
|
dxPSEdgePatterns, cxIntlPrintSys3, dxPSCore, dxPScxCommon, dxPScxGrid6Lnk,
|
||||||
|
cxGridCustomPopupMenu, cxGridPopupMenu, uViewFiltroBase, TB2Item, TBX,
|
||||||
|
TB2Toolbar, TBXDkPanels, TB2Dock, dxPgsDlg, uCustomView, uViewBase;
|
||||||
|
|
||||||
|
type
|
||||||
|
IViewEmpresas = interface(IViewGrid)
|
||||||
|
['{E5E5D85C-0E6F-4DEF-BB72-4AA327E4DA6A}']
|
||||||
|
function GetEmpresas: IBizEmpresa;
|
||||||
|
procedure SetEmpresas(const Value: IBizEmpresa);
|
||||||
|
property Empresas: IBizEmpresa read GetEmpresas write SetEmpresas;
|
||||||
|
end;
|
||||||
|
|
||||||
|
TfrViewEmpresas = class(TfrViewGrid, IViewEmpresas)
|
||||||
|
cxGridViewNIF_CIF: TcxGridDBColumn;
|
||||||
|
cxGridViewNOMBRE: TcxGridDBColumn;
|
||||||
|
cxGridViewID: TcxGridDBColumn;
|
||||||
|
PngImageList: TPngImageList;
|
||||||
|
cxGridViewCALLE: TcxGridDBColumn;
|
||||||
|
cxGridViewPROVINCIA: TcxGridDBColumn;
|
||||||
|
cxGridViewPOBLACION: TcxGridDBColumn;
|
||||||
|
cxGridViewCODIGO_POSTAL: TcxGridDBColumn;
|
||||||
|
procedure cxGridViewIDCustomDrawCell(
|
||||||
|
Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
|
||||||
|
AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
|
||||||
|
protected
|
||||||
|
FEmpresas: IBizEmpresa;
|
||||||
|
function GetEmpresas: IBizEmpresa; virtual;
|
||||||
|
procedure SetEmpresas(const Value: IBizEmpresa); virtual;
|
||||||
|
public
|
||||||
|
property Empresas: IBizEmpresa read GetEmpresas write SetEmpresas;
|
||||||
|
end;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
uses uDataModuleEmpresas;
|
||||||
|
|
||||||
|
|
||||||
|
{$R *.dfm}
|
||||||
|
|
||||||
|
{ TfrViewEmpresas }
|
||||||
|
|
||||||
|
{
|
||||||
|
******************************* TfrViewEmpresas *******************************
|
||||||
|
}
|
||||||
|
function TfrViewEmpresas.GetEmpresas: IBizEmpresa;
|
||||||
|
begin
|
||||||
|
Result := FEmpresas;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewEmpresas.SetEmpresas(const Value: IBizEmpresa);
|
||||||
|
begin
|
||||||
|
FEmpresas := Value;
|
||||||
|
if Assigned(FEmpresas) then
|
||||||
|
dsDataSource.DataTable := FEmpresas.DataTable;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
procedure TfrViewEmpresas.cxGridViewIDCustomDrawCell(
|
||||||
|
Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
|
||||||
|
AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
|
||||||
|
var
|
||||||
|
R : TRect;
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
R := AViewInfo.ContentBounds;
|
||||||
|
ACanvas.FillRect(R);
|
||||||
|
ACanvas.DrawImage(PngImageList, R.Left, R.Top, 0);
|
||||||
|
ADone := True;
|
||||||
|
end;
|
||||||
|
|
||||||
|
end.
|
||||||
@ -75,36 +75,23 @@ function TDataModuleFacturasCliente.GetRptPDFFacturas(
|
|||||||
const AID: Integer; const ShowLogotipo: Boolean = False): Binary;
|
const AID: Integer; const ShowLogotipo: Boolean = False): Binary;
|
||||||
var
|
var
|
||||||
AParam : TIntegerArray;
|
AParam : TIntegerArray;
|
||||||
Tipo: Integer;
|
|
||||||
begin
|
begin
|
||||||
//Si dice que no se imprimirá la factura como becoaching
|
|
||||||
Tipo := 1;
|
|
||||||
if (Application.MessageBox('¿Desea imprimir las facturas/abonos de cliente seleccionados, con el modelo por defecto?', 'Atención', MB_YESNO) = IDNO) then
|
|
||||||
Tipo := 2;
|
|
||||||
|
|
||||||
AParam := TIntegerArray.Create;
|
AParam := TIntegerArray.Create;
|
||||||
try
|
try
|
||||||
AParam.Add(AID);
|
AParam.Add(AID);
|
||||||
Result := (RORemoteService as IsrvFacturasCliente).GenerarInformeEnPDF(AParam, ShowLogotipo, Tipo)
|
Result := (RORemoteService as IsrvFacturasCliente).GenerarInformeEnPDF(AParam, ShowLogotipo)
|
||||||
finally
|
finally
|
||||||
FreeANDNIL(AParam)
|
FreeANDNIL(AParam)
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TDataModuleFacturasCliente.GetRptFacturas(
|
function TDataModuleFacturasCliente.GetRptFacturas(const AListaID: TIntegerList; const ShowLogotipo: Boolean = False): Binary;
|
||||||
const AListaID: TIntegerList; const ShowLogotipo: Boolean = False): Binary;
|
|
||||||
var
|
var
|
||||||
AParam : TIntegerArray;
|
AParam : TIntegerArray;
|
||||||
Tipo: Integer;
|
|
||||||
begin
|
begin
|
||||||
//Si dice que no se imprimirá la factura como becoaching
|
|
||||||
Tipo := 1;
|
|
||||||
if (Application.MessageBox('¿Desea imprimir las facturas/abonos de cliente seleccionados, con el modelo por defecto?', 'Atención', MB_YESNO) = IDNO) then
|
|
||||||
Tipo := 2;
|
|
||||||
|
|
||||||
AParam := AListaID.ToIntegerArray;
|
AParam := AListaID.ToIntegerArray;
|
||||||
try
|
try
|
||||||
Result := (RORemoteService as IsrvFacturasCliente).GenerarInforme(AParam, ShowLogotipo, Tipo)
|
Result := (RORemoteService as IsrvFacturasCliente).GenerarInforme(AParam, ShowLogotipo)
|
||||||
finally
|
finally
|
||||||
FreeANDNIL(AParam)
|
FreeANDNIL(AParam)
|
||||||
end;
|
end;
|
||||||
|
|||||||
@ -8,11 +8,7 @@
|
|||||||
<Option Name="GUID">{31F77077-B4B9-443C-9AA9-F13B4EB640B4}</Option>
|
<Option Name="GUID">{31F77077-B4B9-443C-9AA9-F13B4EB640B4}</Option>
|
||||||
</Option>
|
</Option>
|
||||||
</PersonalityInfo>
|
</PersonalityInfo>
|
||||||
<Default.Personality>
|
<Default.Personality> <Projects>
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
<Projects>
|
|
||||||
<Projects Name="Base.bpl">..\..\Base\Base.bdsproj</Projects>
|
<Projects Name="Base.bpl">..\..\Base\Base.bdsproj</Projects>
|
||||||
<Projects Name="ControllerBase.bpl">..\..\Base\ControllerBase\ControllerBase.bdsproj</Projects>
|
<Projects Name="ControllerBase.bpl">..\..\Base\ControllerBase\ControllerBase.bdsproj</Projects>
|
||||||
<Projects Name="GUIBase.bpl">..\..\Base\GUIBase\GUIBase.bdsproj</Projects>
|
<Projects Name="GUIBase.bpl">..\..\Base\GUIBase\GUIBase.bdsproj</Projects>
|
||||||
@ -42,7 +38,12 @@
|
|||||||
<Projects Name="RecibosProveedor_view.bpl">..\Recibos de proveedor\Views\RecibosProveedor_view.bdsproj</Projects>
|
<Projects Name="RecibosProveedor_view.bpl">..\Recibos de proveedor\Views\RecibosProveedor_view.bdsproj</Projects>
|
||||||
<Projects Name="RemesasCliente_view.bpl">..\Remesas de cliente\Views\RemesasCliente_view.bdsproj</Projects>
|
<Projects Name="RemesasCliente_view.bpl">..\Remesas de cliente\Views\RemesasCliente_view.bdsproj</Projects>
|
||||||
<Projects Name="RemesasProveedor_view.bpl">..\Remesas de proveedor\Views\RemesasProveedor_view.bdsproj</Projects>
|
<Projects Name="RemesasProveedor_view.bpl">..\Remesas de proveedor\Views\RemesasProveedor_view.bdsproj</Projects>
|
||||||
<Projects Name="Targets">Base.bpl ControllerBase.bpl GUIBase.bpl Contactos_model.bpl Contactos_data.bpl Contactos_controller.bpl Articulos_model.bpl Articulos_data.bpl Articulos_controller.bpl Contactos_view.bpl Articulos_view.bpl FacturasCliente_model.bpl FacturasCliente_data.bpl FacturasCliente_controller.bpl AlbCli_FacCli_relation.bpl FacturasCliente_view.bpl FactuGES.exe FactuGES_Server.exe AlbaranesCliente_controller.bpl FacturasProveedor_view.bpl PedidosCliente_view.bpl PedidosCliente_controller.bpl AlbaranesCliente_view.bpl AlbaranesProveedor_view.bpl PedidosProveedor_view.bpl RecibosCliente_view.bpl RecibosProveedor_view.bpl RemesasCliente_view.bpl RemesasProveedor_view.bpl</Projects>
|
<Projects Name="Referencias_model.bpl">..\Referencias\Model\Referencias_model.bdsproj</Projects>
|
||||||
|
<Projects Name="Referencias_data.bpl">..\Referencias\Data\Referencias_data.bdsproj</Projects>
|
||||||
|
<Projects Name="Referencias_controller.bpl">..\Referencias\Controller\Referencias_controller.bdsproj</Projects>
|
||||||
|
<Projects Name="Referencias_view.bpl">..\Referencias\Views\Referencias_view.bdsproj</Projects>
|
||||||
|
<Projects Name="Referencias_plugin.bpl">..\Referencias\Plugin\Referencias_plugin.bdsproj</Projects>
|
||||||
|
<Projects Name="Targets">Base.bpl ControllerBase.bpl GUIBase.bpl Contactos_model.bpl Contactos_data.bpl Contactos_controller.bpl Articulos_model.bpl Articulos_data.bpl Articulos_controller.bpl Contactos_view.bpl Articulos_view.bpl FacturasCliente_model.bpl FacturasCliente_data.bpl FacturasCliente_controller.bpl AlbCli_FacCli_relation.bpl FacturasCliente_view.bpl FactuGES.exe FactuGES_Server.exe AlbaranesCliente_controller.bpl FacturasProveedor_view.bpl PedidosCliente_view.bpl PedidosCliente_controller.bpl AlbaranesCliente_view.bpl AlbaranesProveedor_view.bpl PedidosProveedor_view.bpl RecibosCliente_view.bpl RecibosProveedor_view.bpl RemesasCliente_view.bpl RemesasProveedor_view.bpl Referencias_model.bpl Referencias_data.bpl Referencias_controller.bpl Referencias_view.bpl Referencias_plugin.bpl</Projects>
|
||||||
</Projects>
|
</Projects>
|
||||||
<Dependencies/>
|
<Dependencies/>
|
||||||
</Default.Personality>
|
</Default.Personality>
|
||||||
|
|||||||
@ -38,12 +38,12 @@ type
|
|||||||
FConnection: IDAConnection;
|
FConnection: IDAConnection;
|
||||||
FShowLogotipo: Boolean;
|
FShowLogotipo: Boolean;
|
||||||
//Genera cada uno de los albaranes a imprimir
|
//Genera cada uno de los albaranes a imprimir
|
||||||
procedure _GenerarFactura(const ID: Integer; const Tipo: Integer);
|
procedure _GenerarFactura(const ID: Integer);
|
||||||
public
|
public
|
||||||
function GenerarFactura(const ListaID : TIntegerArray;
|
function GenerarFactura(const ListaID : TIntegerArray;
|
||||||
const AConLogotipo: Boolean = False; const Tipo: Integer=1): Binary;
|
const AConLogotipo: Boolean = False): Binary;
|
||||||
function GenerarFacturaEnPDF(const ListaID : TIntegerArray;
|
function GenerarFacturaEnPDF(const ListaID : TIntegerArray;
|
||||||
const AConLogotipo: Boolean = False; const Tipo: Integer=1): Binary;
|
const AConLogotipo: Boolean = False): Binary;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
implementation
|
implementation
|
||||||
@ -51,11 +51,10 @@ implementation
|
|||||||
{$R *.dfm}
|
{$R *.dfm}
|
||||||
|
|
||||||
uses
|
uses
|
||||||
uDataModuleServer, schFacturasClienteClient_Intf, srvImpresiones_Impl;
|
uSistemaFunc, uDataModuleServer, schFacturasClienteClient_Intf, srvImpresiones_Impl;
|
||||||
|
|
||||||
const
|
const
|
||||||
rptFacturaClienteTipo1 = 'InfFacturaClienteTipo1.fr3';
|
rptInforme = 'InfFacturaCliente.fr3';
|
||||||
rptFacturaClienteTipo2 = 'InfFacturaClienteTipo2.fr3';
|
|
||||||
|
|
||||||
{ Dataset names for schReport }
|
{ Dataset names for schReport }
|
||||||
ds_InformeFacturasCliente = 'InformeFacturasCliente';
|
ds_InformeFacturasCliente = 'InformeFacturasCliente';
|
||||||
@ -98,12 +97,13 @@ begin
|
|||||||
end;
|
end;
|
||||||
end;}
|
end;}
|
||||||
|
|
||||||
procedure TRptFacturasCliente._GenerarFactura(const ID: Integer; const Tipo: Integer);
|
procedure TRptFacturasCliente._GenerarFactura(const ID: Integer);
|
||||||
var
|
var
|
||||||
AStream: TMemoryStream;
|
AStream: TMemoryStream;
|
||||||
dsMaster: IDADataset;
|
dsMaster: IDADataset;
|
||||||
dsDetail: IDADataset;
|
dsDetail: IDADataset;
|
||||||
dsVencimientos : IDADataset;
|
dsVencimientos : IDADataset;
|
||||||
|
AInforme: Variant;
|
||||||
begin
|
begin
|
||||||
AStream := TMemoryStream.Create;
|
AStream := TMemoryStream.Create;
|
||||||
FConnection.BeginTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO"
|
FConnection.BeginTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO"
|
||||||
@ -125,11 +125,11 @@ begin
|
|||||||
DABINAdapter.WriteDataset(AStream, dsVencimientos, [woRows, woSchema], -1);
|
DABINAdapter.WriteDataset(AStream, dsVencimientos, [woRows, woSchema], -1);
|
||||||
DABINAdapter.ReadDataset(AStream, tbl_Vencimientos, TRUE, '', TRUE, TRUE);
|
DABINAdapter.ReadDataset(AStream, tbl_Vencimientos, TRUE, '', TRUE, TRUE);
|
||||||
|
|
||||||
if (Tipo = 1) then
|
AInforme := DarRutaFichero(DarRutaInformes, rptInforme, tbl_FacturaCliente.FieldByName('ID_EMPRESA').AsString);
|
||||||
frxReport.LoadFromFile(DarRutaInformes + rptFacturaClienteTipo1, True)
|
if VarIsNull(AInforme) then
|
||||||
else
|
raise Exception.Create (('Error Servidor: _GenerarFactura, no encuentra informe ' + rptInforme));
|
||||||
frxReport.LoadFromFile(DarRutaInformes + rptFacturaClienteTipo2, True);
|
|
||||||
|
|
||||||
|
frxReport.LoadFromFile(AInforme, True);
|
||||||
frxReport.PrepareReport(False);
|
frxReport.PrepareReport(False);
|
||||||
|
|
||||||
finally
|
finally
|
||||||
@ -148,7 +148,7 @@ begin
|
|||||||
end;
|
end;
|
||||||
|
|
||||||
function TRptFacturasCliente.GenerarFactura(const ListaID: TIntegerArray;
|
function TRptFacturasCliente.GenerarFactura(const ListaID: TIntegerArray;
|
||||||
const AConLogotipo: Boolean = False; const Tipo: Integer=1): Binary;
|
const AConLogotipo: Boolean = False): Binary;
|
||||||
var
|
var
|
||||||
i: Integer;
|
i: Integer;
|
||||||
begin
|
begin
|
||||||
@ -157,7 +157,7 @@ begin
|
|||||||
try
|
try
|
||||||
//Vamos generando todos y cada uno de los presupuestos recibidos
|
//Vamos generando todos y cada uno de los presupuestos recibidos
|
||||||
for i := 0 to ListaID.Count - 1 do
|
for i := 0 to ListaID.Count - 1 do
|
||||||
_GenerarFactura(ListaID.Items[i], Tipo);
|
_GenerarFactura(ListaID.Items[i]);
|
||||||
|
|
||||||
frxReport.PreviewPages.SaveToStream(Result);
|
frxReport.PreviewPages.SaveToStream(Result);
|
||||||
finally
|
finally
|
||||||
@ -165,7 +165,7 @@ begin
|
|||||||
end;
|
end;
|
||||||
|
|
||||||
function TRptFacturasCliente.GenerarFacturaEnPDF(const ListaID: TIntegerArray;
|
function TRptFacturasCliente.GenerarFacturaEnPDF(const ListaID: TIntegerArray;
|
||||||
const AConLogotipo: Boolean = False; const Tipo: Integer=1): Binary;
|
const AConLogotipo: Boolean = False): Binary;
|
||||||
var
|
var
|
||||||
i: Integer;
|
i: Integer;
|
||||||
begin
|
begin
|
||||||
@ -174,7 +174,7 @@ begin
|
|||||||
try
|
try
|
||||||
//Vamos generando todos y cada uno de los presupuestos recibidos
|
//Vamos generando todos y cada uno de los presupuestos recibidos
|
||||||
for i := 0 to ListaID.Count - 1 do
|
for i := 0 to ListaID.Count - 1 do
|
||||||
_GenerarFactura(ListaID.Items[i], Tipo);
|
_GenerarFactura(ListaID.Items[i]);
|
||||||
|
|
||||||
frxPDFExport1.Stream := Result;
|
frxPDFExport1.Stream := Result;
|
||||||
frxReport.Export(frxPDFExport1)
|
frxReport.Export(frxPDFExport1)
|
||||||
|
|||||||
@ -36,8 +36,8 @@ type
|
|||||||
protected
|
protected
|
||||||
{ IsrvFacturasCliente methods }
|
{ IsrvFacturasCliente methods }
|
||||||
function GetNextAutoInc(const GeneratorName: String): Integer;
|
function GetNextAutoInc(const GeneratorName: String): Integer;
|
||||||
function GenerarInforme(const ListaID: TIntegerArray; const ShowLogotipo: Boolean; const Tipo: Integer): Binary;
|
function GenerarInforme(const ListaID: TIntegerArray; const ShowLogotipo: Boolean): Binary;
|
||||||
function GenerarInformeEnPDF(const ListaID: TIntegerArray; const ShowLogotipo: Boolean; const Tipo: Integer): Binary;
|
function GenerarInformeEnPDF(const ListaID: TIntegerArray; const ShowLogotipo: Boolean): Binary;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
implementation
|
implementation
|
||||||
@ -79,25 +79,25 @@ begin
|
|||||||
bpFacturasCliente.BusinessRulesID := BIZ_SERVER_FACTURAS_CLIENTE;
|
bpFacturasCliente.BusinessRulesID := BIZ_SERVER_FACTURAS_CLIENTE;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TsrvFacturasCliente.GenerarInforme(const ListaID: TIntegerArray; const ShowLogotipo: Boolean; const Tipo: Integer): Binary;
|
function TsrvFacturasCliente.GenerarInforme(const ListaID: TIntegerArray; const ShowLogotipo: Boolean): Binary;
|
||||||
var
|
var
|
||||||
AReportGenerator : TRptFacturasCliente;
|
AReportGenerator : TRptFacturasCliente;
|
||||||
begin
|
begin
|
||||||
AReportGenerator := TRptFacturasCliente.Create(nil);
|
AReportGenerator := TRptFacturasCliente.Create(nil);
|
||||||
try
|
try
|
||||||
Result := AReportGenerator.GenerarFactura(ListaID, ShowLogotipo, Tipo);
|
Result := AReportGenerator.GenerarFactura(ListaID, ShowLogotipo);
|
||||||
finally
|
finally
|
||||||
FreeAndNIL(AReportGenerator);
|
FreeAndNIL(AReportGenerator);
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TsrvFacturasCliente.GenerarInformeEnPDF(const ListaID: TIntegerArray; const ShowLogotipo: Boolean; const Tipo: Integer): Binary;
|
function TsrvFacturasCliente.GenerarInformeEnPDF(const ListaID: TIntegerArray; const ShowLogotipo: Boolean): Binary;
|
||||||
var
|
var
|
||||||
AReportGenerator : TRptFacturasCliente;
|
AReportGenerator : TRptFacturasCliente;
|
||||||
begin
|
begin
|
||||||
AReportGenerator := TRptFacturasCliente.Create(nil);
|
AReportGenerator := TRptFacturasCliente.Create(nil);
|
||||||
try
|
try
|
||||||
Result := AReportGenerator.GenerarFacturaEnPDF(ListaID, ShowLogotipo, Tipo);
|
Result := AReportGenerator.GenerarFacturaEnPDF(ListaID, ShowLogotipo);
|
||||||
finally
|
finally
|
||||||
FreeAndNIL(AReportGenerator);
|
FreeAndNIL(AReportGenerator);
|
||||||
end;
|
end;
|
||||||
|
|||||||
@ -47,7 +47,7 @@ implementation
|
|||||||
{$R *.dfm}
|
{$R *.dfm}
|
||||||
|
|
||||||
uses
|
uses
|
||||||
uDataModuleServer, schFacturasProveedorClient_Intf;
|
uSistemaFunc, uDataModuleServer, schFacturasProveedorClient_Intf;
|
||||||
|
|
||||||
const
|
const
|
||||||
rptFacturaProveedor = 'InfFacturaProveedor.fr3';
|
rptFacturaProveedor = 'InfFacturaProveedor.fr3';
|
||||||
@ -111,6 +111,7 @@ var
|
|||||||
dsMaster: IDADataset;
|
dsMaster: IDADataset;
|
||||||
dsDetail: IDADataset;
|
dsDetail: IDADataset;
|
||||||
dsVencimientos : IDADataset;
|
dsVencimientos : IDADataset;
|
||||||
|
Ainforme: Variant;
|
||||||
begin
|
begin
|
||||||
AStream := TMemoryStream.Create;
|
AStream := TMemoryStream.Create;
|
||||||
FConnection.BeginTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO"
|
FConnection.BeginTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO"
|
||||||
@ -132,8 +133,11 @@ begin
|
|||||||
DABINAdapter.WriteDataset(AStream, dsVencimientos, [woRows, woSchema], -1);
|
DABINAdapter.WriteDataset(AStream, dsVencimientos, [woRows, woSchema], -1);
|
||||||
DABINAdapter.ReadDataset(AStream, tbl_Vencimientos, TRUE, '', TRUE, TRUE);
|
DABINAdapter.ReadDataset(AStream, tbl_Vencimientos, TRUE, '', TRUE, TRUE);
|
||||||
|
|
||||||
|
AInforme := DarRutaFichero(DarRutaInformes, rptFacturaProveedor, tbl_FacturaProveedor.FieldByName('ID_EMPRESA').AsString);
|
||||||
|
if VarIsNull(AInforme) then
|
||||||
|
raise Exception.Create (('Error Servidor: _GenerarComision, no encuentra informe ' + rptFacturaProveedor));
|
||||||
|
|
||||||
frxReport.LoadFromFile(DarRutaInformes + rptFacturaProveedor, True);
|
frxReport.LoadFromFile(AInforme, True);
|
||||||
frxReport.PrepareReport(False);
|
frxReport.PrepareReport(False);
|
||||||
|
|
||||||
finally
|
finally
|
||||||
|
|||||||
@ -43,7 +43,7 @@ implementation
|
|||||||
{$R *.dfm}
|
{$R *.dfm}
|
||||||
|
|
||||||
uses
|
uses
|
||||||
uDataModuleServer, schPedidosProveedorClient_Intf;
|
uSistemaFunc, uDataModuleServer, schPedidosProveedorClient_Intf;
|
||||||
|
|
||||||
const
|
const
|
||||||
rptInforme = 'InfPedidoProveedor.fr3';
|
rptInforme = 'InfPedidoProveedor.fr3';
|
||||||
@ -105,6 +105,7 @@ var
|
|||||||
AStream: TMemoryStream;
|
AStream: TMemoryStream;
|
||||||
dsMaster: IDADataset;
|
dsMaster: IDADataset;
|
||||||
dsDetail: IDADataset;
|
dsDetail: IDADataset;
|
||||||
|
AInforme: Variant;
|
||||||
begin
|
begin
|
||||||
AStream := TMemoryStream.Create;
|
AStream := TMemoryStream.Create;
|
||||||
FConnection.BeginTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO"
|
FConnection.BeginTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO"
|
||||||
@ -121,7 +122,11 @@ begin
|
|||||||
DABINAdapter.WriteDataset(AStream, dsDetail, [woRows, woSchema], -1);
|
DABINAdapter.WriteDataset(AStream, dsDetail, [woRows, woSchema], -1);
|
||||||
DABINAdapter.ReadDataset(AStream, tbl_Detalles, TRUE, '', TRUE, TRUE);
|
DABINAdapter.ReadDataset(AStream, tbl_Detalles, TRUE, '', TRUE, TRUE);
|
||||||
|
|
||||||
frxReport.LoadFromFile(DarRutaInformes + rptInforme, True);
|
AInforme := DarRutaFichero(DarRutaInformes, rptInforme, tbl_Cabecera.FieldByName('ID_EMPRESA').AsString);
|
||||||
|
if VarIsNull(AInforme) then
|
||||||
|
raise Exception.Create (('Error Servidor: _GenerarComision, no encuentra informe ' + rptInforme));
|
||||||
|
|
||||||
|
frxReport.LoadFromFile(AInforme, True);
|
||||||
frxReport.PrepareReport(False);
|
frxReport.PrepareReport(False);
|
||||||
|
|
||||||
finally
|
finally
|
||||||
|
|||||||
@ -146,7 +146,7 @@ implementation
|
|||||||
uses
|
uses
|
||||||
uROTypes, Controls, cxControls, DB, uEditorRegistryUtils, uEditorPreview, DateUtils,
|
uROTypes, Controls, cxControls, DB, uEditorRegistryUtils, uEditorPreview, DateUtils,
|
||||||
uIEditorPedidosCliente, uDataModulePedidosCliente, Variants,
|
uIEditorPedidosCliente, uDataModulePedidosCliente, Variants,
|
||||||
uBizContactos, uDataTableUtils, uDataModuleUsuarios,
|
uBizContactos, uDataTableUtils, uDataModuleUsuarios,
|
||||||
schPedidosClienteClient_Intf, uDAInterfaces, uDateUtils, uIEditorPedidoCliente,
|
schPedidosClienteClient_Intf, uDAInterfaces, uDateUtils, uIEditorPedidoCliente,
|
||||||
uIEditorElegirPedidosCliente, uIEditorDireccionEntregaPedidoCliente,
|
uIEditorElegirPedidosCliente, uIEditorDireccionEntregaPedidoCliente,
|
||||||
schContactosClient_Intf, uPedidosClienteReportController, uDataModuleRegistroCorreos,
|
schContactosClient_Intf, uPedidosClienteReportController, uDataModuleRegistroCorreos,
|
||||||
|
|||||||
@ -861,7 +861,7 @@ object RptPedidosCliente: TRptPedidosCliente
|
|||||||
PrintOptions.Printer = 'Por defecto'
|
PrintOptions.Printer = 'Por defecto'
|
||||||
PrintOptions.PrintOnSheet = 0
|
PrintOptions.PrintOnSheet = 0
|
||||||
ReportOptions.CreateDate = 39065.872423495400000000
|
ReportOptions.CreateDate = 39065.872423495400000000
|
||||||
ReportOptions.LastChange = 39255.590290254630000000
|
ReportOptions.LastChange = 39701.872180266200000000
|
||||||
ScriptLanguage = 'PascalScript'
|
ScriptLanguage = 'PascalScript'
|
||||||
ScriptText.Strings = (
|
ScriptText.Strings = (
|
||||||
''
|
''
|
||||||
@ -917,12 +917,58 @@ object RptPedidosCliente: TRptPedidosCliente
|
|||||||
' DireccionEnvio.Lines.Add(<frxDBCabecera."TELEFONO">);'
|
' DireccionEnvio.Lines.Add(<frxDBCabecera."TELEFONO">);'
|
||||||
'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'
|
'begin'
|
||||||
''
|
''
|
||||||
'end.')
|
'end.')
|
||||||
ShowProgress = False
|
ShowProgress = False
|
||||||
StoreInDFM = False
|
StoreInDFM = False
|
||||||
OnGetValue = frxReportGetValue
|
OnGetValue = frxReportGetValue
|
||||||
|
OnStartReport = 'frxReportOnStartReport'
|
||||||
Left = 169
|
Left = 169
|
||||||
Top = 16
|
Top = 16
|
||||||
end
|
end
|
||||||
|
|||||||
@ -45,7 +45,7 @@ implementation
|
|||||||
{$R *.dfm}
|
{$R *.dfm}
|
||||||
|
|
||||||
uses
|
uses
|
||||||
uDataModuleServer, schPedidosClienteClient_Intf;
|
uSistemaFunc, uDataModuleServer, schPedidosClienteClient_Intf;
|
||||||
|
|
||||||
const
|
const
|
||||||
rptInforme = 'InfPedidoCliente.fr3';
|
rptInforme = 'InfPedidoCliente.fr3';
|
||||||
@ -116,6 +116,7 @@ var
|
|||||||
AStream: TMemoryStream;
|
AStream: TMemoryStream;
|
||||||
dsMaster: IDADataset;
|
dsMaster: IDADataset;
|
||||||
dsDetail: IDADataset;
|
dsDetail: IDADataset;
|
||||||
|
AInforme: Variant;
|
||||||
begin
|
begin
|
||||||
AStream := TMemoryStream.Create;
|
AStream := TMemoryStream.Create;
|
||||||
FConnection.BeginTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO"
|
FConnection.BeginTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO"
|
||||||
@ -132,7 +133,12 @@ begin
|
|||||||
DABINAdapter.WriteDataset(AStream, dsDetail, [woRows, woSchema], -1);
|
DABINAdapter.WriteDataset(AStream, dsDetail, [woRows, woSchema], -1);
|
||||||
DABINAdapter.ReadDataset(AStream, tbl_Detalles, TRUE, '', TRUE, TRUE);
|
DABINAdapter.ReadDataset(AStream, tbl_Detalles, TRUE, '', TRUE, TRUE);
|
||||||
|
|
||||||
frxReport.LoadFromFile(DarRutaInformes + rptInforme, True);
|
|
||||||
|
AInforme := DarRutaFichero(DarRutaInformes, rptInforme, tbl_Cabecera.FieldByName('ID_EMPRESA').AsString);
|
||||||
|
if VarIsNull(AInforme) then
|
||||||
|
raise Exception.Create (('Error Servidor: _GenerarPedido, no encuentra informe ' + rptInforme));
|
||||||
|
|
||||||
|
frxReport.LoadFromFile(AInforme, True);
|
||||||
frxReport.PrepareReport(False);
|
frxReport.PrepareReport(False);
|
||||||
|
|
||||||
finally
|
finally
|
||||||
|
|||||||
@ -93,6 +93,8 @@ type
|
|||||||
function ImporteTotalModificado(ARecibosCliente: IBizRecibosCliente; var ImporteRestante: Currency): Boolean;
|
function ImporteTotalModificado(ARecibosCliente: IBizRecibosCliente; var ImporteRestante: Currency): Boolean;
|
||||||
procedure _AnadirMarcaEnvioCorreo(ARecibo: IBizRecibosCliente);
|
procedure _AnadirMarcaEnvioCorreo(ARecibo: IBizRecibosCliente);
|
||||||
|
|
||||||
|
procedure FiltrarEmpresa(ARecibo: IBizRecibosCliente);
|
||||||
|
|
||||||
protected
|
protected
|
||||||
FDataModule : IDataModuleRecibosCliente;
|
FDataModule : IDataModuleRecibosCliente;
|
||||||
FPagosController : IPagosClienteController;
|
FPagosController : IPagosClienteController;
|
||||||
@ -293,6 +295,7 @@ end;
|
|||||||
function TRecibosClienteController.BuscarTodos: IBizRecibosCliente;
|
function TRecibosClienteController.BuscarTodos: IBizRecibosCliente;
|
||||||
begin
|
begin
|
||||||
Result := FDataModule.GetItems;
|
Result := FDataModule.GetItems;
|
||||||
|
FiltrarEmpresa(Result);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TRecibosClienteController.BuscarRecibosACompensar(const Recibo: IBizRecibosCliente): IBizRecibosCliente;
|
function TRecibosClienteController.BuscarRecibosACompensar(const Recibo: IBizRecibosCliente): IBizRecibosCliente;
|
||||||
@ -351,6 +354,7 @@ end;
|
|||||||
function TRecibosClienteController.Buscar(const ID: Integer): IBizRecibosCliente;
|
function TRecibosClienteController.Buscar(const ID: Integer): IBizRecibosCliente;
|
||||||
begin
|
begin
|
||||||
Result := (FDataModule as IDataModuleRecibosCliente).GetItem(ID);
|
Result := (FDataModule as IDataModuleRecibosCliente).GetItem(ID);
|
||||||
|
FiltrarEmpresa(Result);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TRecibosClienteController.BuscarRecibosFactura(const ID_FACTURA: Integer): IBizRecibosCliente;
|
function TRecibosClienteController.BuscarRecibosFactura(const ID_FACTURA: Integer): IBizRecibosCliente;
|
||||||
@ -929,22 +933,22 @@ end;
|
|||||||
procedure TRecibosClienteController.ModificarPago(ARecibosCliente: IBizRecibosCliente);
|
procedure TRecibosClienteController.ModificarPago(ARecibosCliente: IBizRecibosCliente);
|
||||||
var
|
var
|
||||||
AEditor : IEditorFechaPago;
|
AEditor : IEditorFechaPago;
|
||||||
FechaPago: String;
|
AFechaPago: String;
|
||||||
begin
|
begin
|
||||||
//Pedimos la fecha del pago
|
//Pedimos la fecha del pago
|
||||||
CreateEditor('EditorFechaPago', IEditorFechaPago, AEditor);
|
CreateEditor('EditorFechaPago', IEditorFechaPago, AEditor);
|
||||||
if Assigned(AEditor) then
|
if Assigned(AEditor) then
|
||||||
try
|
try
|
||||||
FechaPago:= '';
|
AEditor.FechaPago:= ARecibosCliente.Pagos.FECHA_PAGO;
|
||||||
if (AEditor.ShowModal = mrOk) then
|
if (AEditor.ShowModal = mrOk) then
|
||||||
FechaPago := DateToStr(AEditor.FechaPago);
|
AFechaPago := DateToStr(AEditor.FechaPago);
|
||||||
AEditor.Release;
|
AEditor.Release;
|
||||||
finally
|
finally
|
||||||
AEditor := NIL;
|
AEditor := NIL;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
if Length(FechaPago) > 0 then
|
if Length(AFechaPago) > 0 then
|
||||||
PagosController.Modificar(ARecibosCliente.Pagos, FechaPago);
|
PagosController.Modificar(ARecibosCliente.Pagos, AFechaPago);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TRecibosClienteController.Nuevo: IBizRecibosCliente;
|
function TRecibosClienteController.Nuevo: IBizRecibosCliente;
|
||||||
@ -952,6 +956,7 @@ var
|
|||||||
ARecibo : IBizRecibosCliente;
|
ARecibo : IBizRecibosCliente;
|
||||||
begin
|
begin
|
||||||
ARecibo := Buscar(ID_NULO);
|
ARecibo := Buscar(ID_NULO);
|
||||||
|
FiltrarEmpresa(Result);
|
||||||
ARecibo.DataTable.Active := True;
|
ARecibo.DataTable.Active := True;
|
||||||
Anadir(ARecibo);
|
Anadir(ARecibo);
|
||||||
Result := ARecibo;
|
Result := ARecibo;
|
||||||
@ -1035,6 +1040,20 @@ begin
|
|||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
procedure TRecibosClienteController.FiltrarEmpresa(ARecibo: IBizRecibosCliente);
|
||||||
|
begin
|
||||||
|
if ARecibo.DataTable.Active then
|
||||||
|
ARecibo.DataTable.Active := False;
|
||||||
|
|
||||||
|
// Filtrar los recibos actuales por empresa
|
||||||
|
with ARecibo.DataTable.Where do
|
||||||
|
begin
|
||||||
|
if NotEmpty then
|
||||||
|
AddOperator(opAND);
|
||||||
|
AddCondition(fld_RecibosClienteID_EMPRESA, cEqual, dmUsuarios.IDEmpresaActual);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
procedure TRecibosClienteController.Preview(ARecibosCliente: IBizRecibosCliente; AllItems: Boolean = false);
|
procedure TRecibosClienteController.Preview(ARecibosCliente: IBizRecibosCliente; AllItems: Boolean = false);
|
||||||
var
|
var
|
||||||
AReportController : IRecibosClienteReportController;
|
AReportController : IRecibosClienteReportController;
|
||||||
|
|||||||
@ -43,7 +43,7 @@ implementation
|
|||||||
{$R *.dfm}
|
{$R *.dfm}
|
||||||
|
|
||||||
uses
|
uses
|
||||||
uDataModuleServer;
|
uSistemaFunc, uDataModuleServer;
|
||||||
|
|
||||||
const
|
const
|
||||||
rptInforme = 'InfReciboCliente.fr3';
|
rptInforme = 'InfReciboCliente.fr3';
|
||||||
@ -105,7 +105,7 @@ var
|
|||||||
dsMaster: IDADataset;
|
dsMaster: IDADataset;
|
||||||
dsCompensados : IDADataset;
|
dsCompensados : IDADataset;
|
||||||
AStream: TMemoryStream;
|
AStream: TMemoryStream;
|
||||||
|
AInforme: Variant;
|
||||||
begin
|
begin
|
||||||
AStream := TMemoryStream.Create;
|
AStream := TMemoryStream.Create;
|
||||||
FConnection.BeginTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO"
|
FConnection.BeginTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO"
|
||||||
@ -122,7 +122,11 @@ begin
|
|||||||
DABINAdapter.WriteDataset(AStream, dsCompensados, [woRows, woSchema], -1);
|
DABINAdapter.WriteDataset(AStream, dsCompensados, [woRows, woSchema], -1);
|
||||||
DABINAdapter.ReadDataset(AStream, tbl_Compensados, TRUE, '', TRUE, TRUE);
|
DABINAdapter.ReadDataset(AStream, tbl_Compensados, TRUE, '', TRUE, TRUE);
|
||||||
|
|
||||||
frxReport.LoadFromFile(DarRutaInformes + rptInforme, True);
|
AInforme := DarRutaFichero(DarRutaInformes, rptInforme, tbl_Cabecera.FieldByName('ID_EMPRESA').AsString);
|
||||||
|
if VarIsNull(AInforme) then
|
||||||
|
raise Exception.Create (('Error Servidor: _GenerarRecibo, no encuentra informe ' + rptInforme));
|
||||||
|
|
||||||
|
frxReport.LoadFromFile(AInforme, True);
|
||||||
frxReport.PrepareReport(False);
|
frxReport.PrepareReport(False);
|
||||||
|
|
||||||
finally
|
finally
|
||||||
|
|||||||
@ -37,7 +37,7 @@ object fEditorFechaPago: TfEditorFechaPago
|
|||||||
object eFechaPago: TcxDateEdit
|
object eFechaPago: TcxDateEdit
|
||||||
Left = 77
|
Left = 77
|
||||||
Top = 64
|
Top = 64
|
||||||
Properties.OnChange = eFechaPagoPropertiesChange
|
Properties.OnEditValueChanged = eFechaPagoPropertiesEditValueChanged
|
||||||
Style.LookAndFeel.Kind = lfStandard
|
Style.LookAndFeel.Kind = lfStandard
|
||||||
Style.LookAndFeel.NativeStyle = True
|
Style.LookAndFeel.NativeStyle = True
|
||||||
StyleDisabled.LookAndFeel.Kind = lfStandard
|
StyleDisabled.LookAndFeel.Kind = lfStandard
|
||||||
|
|||||||
@ -16,7 +16,7 @@ type
|
|||||||
Label2: TLabel;
|
Label2: TLabel;
|
||||||
Panel1: TPanel;
|
Panel1: TPanel;
|
||||||
procedure FormShow(Sender: TObject);
|
procedure FormShow(Sender: TObject);
|
||||||
procedure eFechaPagoPropertiesChange(Sender: TObject);
|
procedure eFechaPagoPropertiesEditValueChanged(Sender: TObject);
|
||||||
private
|
private
|
||||||
FFechaPago : TDateTime;
|
FFechaPago : TDateTime;
|
||||||
function GetFechaPago: TDateTime;
|
function GetFechaPago: TDateTime;
|
||||||
@ -32,14 +32,15 @@ implementation
|
|||||||
|
|
||||||
{$R *.dfm}
|
{$R *.dfm}
|
||||||
|
|
||||||
procedure TfEditorFechaPago.eFechaPagoPropertiesChange(Sender: TObject);
|
procedure TfEditorFechaPago.eFechaPagoPropertiesEditValueChanged(Sender: TObject);
|
||||||
begin
|
begin
|
||||||
FechaPago := eFechaPago.Date;
|
FechaPago := eFechaPago.Date;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TfEditorFechaPago.FormShow(Sender: TObject);
|
procedure TfEditorFechaPago.FormShow(Sender: TObject);
|
||||||
begin
|
begin
|
||||||
eFechaPago.Date := Date;
|
if (length(eFechaPago.Text) = 0) then
|
||||||
|
eFechaPago.Date := Date;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TfEditorFechaPago.GetFechaPago: TDateTime;
|
function TfEditorFechaPago.GetFechaPago: TDateTime;
|
||||||
@ -50,6 +51,7 @@ end;
|
|||||||
procedure TfEditorFechaPago.SetFechaPago(const Value: TDateTime);
|
procedure TfEditorFechaPago.SetFechaPago(const Value: TDateTime);
|
||||||
begin
|
begin
|
||||||
FFechaPago := Value;
|
FFechaPago := Value;
|
||||||
|
eFechaPago.EditValue := FFechaPago;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
end.
|
end.
|
||||||
|
|||||||
@ -80,6 +80,9 @@ type
|
|||||||
private
|
private
|
||||||
function ImporteTotalModificado(ARecibosProveedor: IBizRecibosProveedor;
|
function ImporteTotalModificado(ARecibosProveedor: IBizRecibosProveedor;
|
||||||
var ImporteRestante: Currency): Boolean;
|
var ImporteRestante: Currency): Boolean;
|
||||||
|
|
||||||
|
procedure FiltrarEmpresa(ARecibo: IBizRecibosProveedor);
|
||||||
|
|
||||||
protected
|
protected
|
||||||
FDataModule : IDataModuleRecibosProveedor;
|
FDataModule : IDataModuleRecibosProveedor;
|
||||||
FPagosController : IPagosProveedorController;
|
FPagosController : IPagosProveedorController;
|
||||||
@ -258,6 +261,7 @@ end;
|
|||||||
function TRecibosProveedorController.BuscarTodos: IBizRecibosProveedor;
|
function TRecibosProveedorController.BuscarTodos: IBizRecibosProveedor;
|
||||||
begin
|
begin
|
||||||
Result := FDataModule.GetItems;
|
Result := FDataModule.GetItems;
|
||||||
|
FiltrarEmpresa(Result);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
constructor TRecibosProveedorController.Create;
|
constructor TRecibosProveedorController.Create;
|
||||||
@ -272,6 +276,7 @@ end;
|
|||||||
function TRecibosProveedorController.Buscar(const ID: Integer): IBizRecibosProveedor;
|
function TRecibosProveedorController.Buscar(const ID: Integer): IBizRecibosProveedor;
|
||||||
begin
|
begin
|
||||||
Result := (FDataModule as IDataModuleRecibosProveedor).GetItem(ID);
|
Result := (FDataModule as IDataModuleRecibosProveedor).GetItem(ID);
|
||||||
|
FiltrarEmpresa(Result);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TRecibosProveedorController.BuscarRecibosFactura(const ID_FACTURA: Integer): IBizRecibosProveedor;
|
function TRecibosProveedorController.BuscarRecibosFactura(const ID_FACTURA: Integer): IBizRecibosProveedor;
|
||||||
@ -756,22 +761,22 @@ end;
|
|||||||
procedure TRecibosProveedorController.ModificarPago(ARecibosProveedor: IBizRecibosProveedor);
|
procedure TRecibosProveedorController.ModificarPago(ARecibosProveedor: IBizRecibosProveedor);
|
||||||
var
|
var
|
||||||
AEditor : IEditorFechaPagoProveedor;
|
AEditor : IEditorFechaPagoProveedor;
|
||||||
FechaPago: String;
|
AFechaPago: String;
|
||||||
begin
|
begin
|
||||||
//Pedimos la fecha del pago
|
//Pedimos la fecha del pago
|
||||||
CreateEditor('EditorFechaPagoProveedor', IEditorFechaPagoProveedor, AEditor);
|
CreateEditor('EditorFechaPagoProveedor', IEditorFechaPagoProveedor, AEditor);
|
||||||
if Assigned(AEditor) then
|
if Assigned(AEditor) then
|
||||||
try
|
try
|
||||||
FechaPago:= '';
|
AEditor.FechaPago:= ARecibosProveedor.Pagos.FECHA_PAGO;
|
||||||
if (AEditor.ShowModal = mrOk) then
|
if (AEditor.ShowModal = mrOk) then
|
||||||
FechaPago := DateToStr(AEditor.FechaPago);
|
AFechaPago := DateToStr(AEditor.FechaPago);
|
||||||
AEditor.Release;
|
AEditor.Release;
|
||||||
finally
|
finally
|
||||||
AEditor := NIL;
|
AEditor := NIL;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
if Length(FechaPago) > 0 then
|
if Length(AFechaPago) > 0 then
|
||||||
PagosController.Modificar(ARecibosProveedor.Pagos, FechaPago);
|
PagosController.Modificar(ARecibosProveedor.Pagos, AFechaPago);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TRecibosProveedorController.Nuevo: IBizRecibosProveedor;
|
function TRecibosProveedorController.Nuevo: IBizRecibosProveedor;
|
||||||
@ -779,6 +784,7 @@ var
|
|||||||
ARecibo : IBizRecibosProveedor;
|
ARecibo : IBizRecibosProveedor;
|
||||||
begin
|
begin
|
||||||
ARecibo := Buscar(ID_NULO);
|
ARecibo := Buscar(ID_NULO);
|
||||||
|
FiltrarEmpresa(Result);
|
||||||
ARecibo.DataTable.Active := True;
|
ARecibo.DataTable.Active := True;
|
||||||
Anadir(ARecibo);
|
Anadir(ARecibo);
|
||||||
Result := ARecibo;
|
Result := ARecibo;
|
||||||
@ -831,6 +837,20 @@ begin
|
|||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
procedure TRecibosProveedorController.FiltrarEmpresa(ARecibo: IBizRecibosProveedor);
|
||||||
|
begin
|
||||||
|
if ARecibo.DataTable.Active then
|
||||||
|
ARecibo.DataTable.Active := False;
|
||||||
|
|
||||||
|
// Filtrar los recibos actuales por empresa
|
||||||
|
with ARecibo.DataTable.Where do
|
||||||
|
begin
|
||||||
|
if NotEmpty then
|
||||||
|
AddOperator(opAND);
|
||||||
|
AddCondition(fld_RecibosProveedorID_EMPRESA, cEqual, dmUsuarios.IDEmpresaActual);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
procedure TRecibosProveedorController.Preview(ARecibosProveedor: IBizRecibosProveedor);
|
procedure TRecibosProveedorController.Preview(ARecibosProveedor: IBizRecibosProveedor);
|
||||||
var
|
var
|
||||||
AReportController : IRecibosProveedorReportController;
|
AReportController : IRecibosProveedorReportController;
|
||||||
|
|||||||
@ -683,7 +683,7 @@ object RptRecibosCliente: TRptRecibosCliente
|
|||||||
Top = 158
|
Top = 158
|
||||||
end
|
end
|
||||||
object frxReport: TfrxReport
|
object frxReport: TfrxReport
|
||||||
Version = '3.23.7'
|
Version = '4.3'
|
||||||
DotMatrixReport = False
|
DotMatrixReport = False
|
||||||
EngineOptions.DoublePass = True
|
EngineOptions.DoublePass = True
|
||||||
IniFile = '\Software\Fast Reports'
|
IniFile = '\Software\Fast Reports'
|
||||||
@ -691,6 +691,7 @@ object RptRecibosCliente: TRptRecibosCliente
|
|||||||
PreviewOptions.OutlineWidth = 180
|
PreviewOptions.OutlineWidth = 180
|
||||||
PreviewOptions.Zoom = 1.000000000000000000
|
PreviewOptions.Zoom = 1.000000000000000000
|
||||||
PrintOptions.Printer = 'Default'
|
PrintOptions.Printer = 'Default'
|
||||||
|
PrintOptions.PrintOnSheet = 0
|
||||||
ReportOptions.CreateDate = 37871.995398692100000000
|
ReportOptions.CreateDate = 37871.995398692100000000
|
||||||
ReportOptions.Description.Strings = (
|
ReportOptions.Description.Strings = (
|
||||||
'Demonstrates how to create simple list report.')
|
'Demonstrates how to create simple list report.')
|
||||||
@ -737,13 +738,6 @@ object RptRecibosCliente: TRptRecibosCliente
|
|||||||
StoreInDFM = False
|
StoreInDFM = False
|
||||||
Left = 169
|
Left = 169
|
||||||
Top = 16
|
Top = 16
|
||||||
Datasets = <
|
|
||||||
item
|
|
||||||
DataSet = frxDBCabecera
|
|
||||||
DataSetName = 'frxDBCabecera'
|
|
||||||
end>
|
|
||||||
Variables = <>
|
|
||||||
Style = <>
|
|
||||||
end
|
end
|
||||||
object frxDBCabecera: TfrxDBDataset
|
object frxDBCabecera: TfrxDBDataset
|
||||||
UserName = 'frxDBCabecera'
|
UserName = 'frxDBCabecera'
|
||||||
|
|||||||
@ -37,7 +37,7 @@ implementation
|
|||||||
{$R *.dfm}
|
{$R *.dfm}
|
||||||
|
|
||||||
uses
|
uses
|
||||||
uDataModuleServer;
|
uSistemaFunc, uDataModuleServer;
|
||||||
|
|
||||||
const
|
const
|
||||||
rptInforme = 'InfReciboCliente.fr3';
|
rptInforme = 'InfReciboCliente.fr3';
|
||||||
@ -59,6 +59,7 @@ function TRptRecibosCliente.GenerarRecibo(const ID: Integer): Binary;
|
|||||||
var
|
var
|
||||||
dsMaster: IDADataset;
|
dsMaster: IDADataset;
|
||||||
AStream: TMemoryStream;
|
AStream: TMemoryStream;
|
||||||
|
AInforme: Variant;
|
||||||
begin
|
begin
|
||||||
AStream := TMemoryStream.Create;
|
AStream := TMemoryStream.Create;
|
||||||
Result := Binary.Create;
|
Result := Binary.Create;
|
||||||
@ -70,7 +71,11 @@ begin
|
|||||||
DABINAdapter.WriteDataset(AStream, dsMaster, [woRows, woSchema], -1);
|
DABINAdapter.WriteDataset(AStream, dsMaster, [woRows, woSchema], -1);
|
||||||
DABINAdapter.ReadDataset(AStream, tbl_Cabecera, TRUE, '', TRUE, TRUE);
|
DABINAdapter.ReadDataset(AStream, tbl_Cabecera, TRUE, '', TRUE, TRUE);
|
||||||
|
|
||||||
frxReport.LoadFromFile(DarRutaInformes + rptInforme, True);
|
AInforme := DarRutaFichero(DarRutaInformes, rptInforme, tbl_Comisiones.FieldByName('ID_EMPRESA').AsString);
|
||||||
|
if VarIsNull(AInforme) then
|
||||||
|
raise Exception.Create (('Error Servidor: _GenerarRecibo, no encuentra informe ' + rptInforme));
|
||||||
|
|
||||||
|
frxReport.LoadFromFile(AInforme, True);
|
||||||
frxReport.PrepareReport;
|
frxReport.PrepareReport;
|
||||||
frxReport.PreviewPages.SaveToStream(Result);
|
frxReport.PreviewPages.SaveToStream(Result);
|
||||||
finally
|
finally
|
||||||
|
|||||||
@ -683,7 +683,7 @@ object RptRecibosCliente: TRptRecibosCliente
|
|||||||
Top = 158
|
Top = 158
|
||||||
end
|
end
|
||||||
object frxReport: TfrxReport
|
object frxReport: TfrxReport
|
||||||
Version = '3.23.7'
|
Version = '4.3'
|
||||||
DotMatrixReport = False
|
DotMatrixReport = False
|
||||||
EngineOptions.DoublePass = True
|
EngineOptions.DoublePass = True
|
||||||
IniFile = '\Software\Fast Reports'
|
IniFile = '\Software\Fast Reports'
|
||||||
@ -691,6 +691,7 @@ object RptRecibosCliente: TRptRecibosCliente
|
|||||||
PreviewOptions.OutlineWidth = 180
|
PreviewOptions.OutlineWidth = 180
|
||||||
PreviewOptions.Zoom = 1.000000000000000000
|
PreviewOptions.Zoom = 1.000000000000000000
|
||||||
PrintOptions.Printer = 'Default'
|
PrintOptions.Printer = 'Default'
|
||||||
|
PrintOptions.PrintOnSheet = 0
|
||||||
ReportOptions.CreateDate = 37871.995398692100000000
|
ReportOptions.CreateDate = 37871.995398692100000000
|
||||||
ReportOptions.Description.Strings = (
|
ReportOptions.Description.Strings = (
|
||||||
'Demonstrates how to create simple list report.')
|
'Demonstrates how to create simple list report.')
|
||||||
@ -737,13 +738,6 @@ object RptRecibosCliente: TRptRecibosCliente
|
|||||||
StoreInDFM = False
|
StoreInDFM = False
|
||||||
Left = 169
|
Left = 169
|
||||||
Top = 16
|
Top = 16
|
||||||
Datasets = <
|
|
||||||
item
|
|
||||||
DataSet = frxDBCabecera
|
|
||||||
DataSetName = 'frxDBCabecera'
|
|
||||||
end>
|
|
||||||
Variables = <>
|
|
||||||
Style = <>
|
|
||||||
end
|
end
|
||||||
object frxDBCabecera: TfrxDBDataset
|
object frxDBCabecera: TfrxDBDataset
|
||||||
UserName = 'frxDBCabecera'
|
UserName = 'frxDBCabecera'
|
||||||
|
|||||||
@ -37,7 +37,7 @@ implementation
|
|||||||
{$R *.dfm}
|
{$R *.dfm}
|
||||||
|
|
||||||
uses
|
uses
|
||||||
uDataModuleServer;
|
uSistemaFunc, uDataModuleServer;
|
||||||
|
|
||||||
const
|
const
|
||||||
rptInforme = 'InfReciboCliente.fr3';
|
rptInforme = 'InfReciboCliente.fr3';
|
||||||
@ -59,6 +59,7 @@ function TRptRecibosCliente.GenerarRecibo(const ID: Integer): Binary;
|
|||||||
var
|
var
|
||||||
dsMaster: IDADataset;
|
dsMaster: IDADataset;
|
||||||
AStream: TMemoryStream;
|
AStream: TMemoryStream;
|
||||||
|
AInforme: Variant;
|
||||||
begin
|
begin
|
||||||
AStream := TMemoryStream.Create;
|
AStream := TMemoryStream.Create;
|
||||||
Result := Binary.Create;
|
Result := Binary.Create;
|
||||||
@ -70,7 +71,11 @@ begin
|
|||||||
DABINAdapter.WriteDataset(AStream, dsMaster, [woRows, woSchema], -1);
|
DABINAdapter.WriteDataset(AStream, dsMaster, [woRows, woSchema], -1);
|
||||||
DABINAdapter.ReadDataset(AStream, tbl_Cabecera, TRUE, '', TRUE, TRUE);
|
DABINAdapter.ReadDataset(AStream, tbl_Cabecera, TRUE, '', TRUE, TRUE);
|
||||||
|
|
||||||
frxReport.LoadFromFile(DarRutaInformes + rptInforme, True);
|
AInforme := DarRutaFichero(DarRutaInformes, rptInforme, tbl_Cabecera.FieldByName('ID_EMPRESA').AsString);
|
||||||
|
if VarIsNull(AInforme) then
|
||||||
|
raise Exception.Create (('Error Servidor: _GenerarRecibo, no encuentra informe ' + rptInforme));
|
||||||
|
|
||||||
|
frxReport.LoadFromFile(AInforme, True);
|
||||||
frxReport.PrepareReport;
|
frxReport.PrepareReport;
|
||||||
frxReport.PreviewPages.SaveToStream(Result);
|
frxReport.PreviewPages.SaveToStream(Result);
|
||||||
finally
|
finally
|
||||||
|
|||||||
@ -37,7 +37,7 @@ object fEditorFechaPagoProveedor: TfEditorFechaPagoProveedor
|
|||||||
object eFechaPago: TcxDateEdit
|
object eFechaPago: TcxDateEdit
|
||||||
Left = 77
|
Left = 77
|
||||||
Top = 64
|
Top = 64
|
||||||
Properties.OnChange = eFechaPagoPropertiesChange
|
Properties.OnEditValueChanged = eFechaPagoPropertiesEditValueChanged
|
||||||
Style.LookAndFeel.Kind = lfStandard
|
Style.LookAndFeel.Kind = lfStandard
|
||||||
Style.LookAndFeel.NativeStyle = True
|
Style.LookAndFeel.NativeStyle = True
|
||||||
StyleDisabled.LookAndFeel.Kind = lfStandard
|
StyleDisabled.LookAndFeel.Kind = lfStandard
|
||||||
|
|||||||
@ -16,7 +16,7 @@ type
|
|||||||
Label2: TLabel;
|
Label2: TLabel;
|
||||||
Panel1: TPanel;
|
Panel1: TPanel;
|
||||||
procedure FormShow(Sender: TObject);
|
procedure FormShow(Sender: TObject);
|
||||||
procedure eFechaPagoPropertiesChange(Sender: TObject);
|
procedure eFechaPagoPropertiesEditValueChanged(Sender: TObject);
|
||||||
private
|
private
|
||||||
FFechaPago : TDateTime;
|
FFechaPago : TDateTime;
|
||||||
function GetFechaPago: TDateTime;
|
function GetFechaPago: TDateTime;
|
||||||
@ -28,14 +28,15 @@ type
|
|||||||
implementation
|
implementation
|
||||||
{$R *.dfm}
|
{$R *.dfm}
|
||||||
|
|
||||||
procedure TfEditorFechaPagoProveedor.eFechaPagoPropertiesChange(Sender: TObject);
|
procedure TfEditorFechaPagoProveedor.eFechaPagoPropertiesEditValueChanged(Sender: TObject);
|
||||||
begin
|
begin
|
||||||
FechaPago := eFechaPago.Date;
|
FechaPago := eFechaPago.Date;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TfEditorFechaPagoProveedor.FormShow(Sender: TObject);
|
procedure TfEditorFechaPagoProveedor.FormShow(Sender: TObject);
|
||||||
begin
|
begin
|
||||||
eFechaPago.Date := Date;
|
if (length(eFechaPago.Text) = 0) then
|
||||||
|
eFechaPago.Date := Date;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TfEditorFechaPagoProveedor.GetFechaPago: TDateTime;
|
function TfEditorFechaPagoProveedor.GetFechaPago: TDateTime;
|
||||||
@ -46,6 +47,7 @@ end;
|
|||||||
procedure TfEditorFechaPagoProveedor.SetFechaPago(const Value: TDateTime);
|
procedure TfEditorFechaPagoProveedor.SetFechaPago(const Value: TDateTime);
|
||||||
begin
|
begin
|
||||||
FFechaPago := Value;
|
FFechaPago := Value;
|
||||||
|
eFechaPago.EditValue := FFechaPago;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
end.
|
end.
|
||||||
|
|||||||
@ -174,7 +174,7 @@
|
|||||||
</Delphi.Personality>
|
</Delphi.Personality>
|
||||||
<!-- EurekaLog First Line
|
<!-- EurekaLog First Line
|
||||||
[Exception Log]
|
[Exception Log]
|
||||||
EurekaLog Version=519
|
EurekaLog Version=6014
|
||||||
Activate=0
|
Activate=0
|
||||||
Activate Handle=1
|
Activate Handle=1
|
||||||
Save Log File=1
|
Save Log File=1
|
||||||
@ -488,5 +488,190 @@ Count mtSend_SuccessMsg=1
|
|||||||
mtSend_SuccessMsg0="The message was sent successfully."
|
mtSend_SuccessMsg0="The message was sent successfully."
|
||||||
Count mtSend_FailureMsg=1
|
Count mtSend_FailureMsg=1
|
||||||
mtSend_FailureMsg0="Sorry, sending the message didn't work."
|
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 -->
|
EurekaLog Last Line -->
|
||||||
</BorlandProject>
|
</BorlandProject>
|
||||||
|
|||||||
@ -43,7 +43,8 @@ requires
|
|||||||
dxPScxGrid6LnkD10,
|
dxPScxGrid6LnkD10,
|
||||||
dxPsPrVwAdvD10,
|
dxPsPrVwAdvD10,
|
||||||
Referencias_model,
|
Referencias_model,
|
||||||
Referencias_data;
|
Referencias_data,
|
||||||
|
Contactos_controller;
|
||||||
|
|
||||||
contains
|
contains
|
||||||
uReferenciasController in 'uReferenciasController.pas',
|
uReferenciasController in 'uReferenciasController.pas',
|
||||||
|
|||||||
Binary file not shown.
@ -24,6 +24,7 @@ type
|
|||||||
procedure RecibirAviso(ASujeto: ISujeto; ADataTable: IDAStronglyTypedDataTable); override;
|
procedure RecibirAviso(ASujeto: ISujeto; ADataTable: IDAStronglyTypedDataTable); override;
|
||||||
function CreateEditor(const AName : String; const IID: TGUID; out Intf): Boolean;
|
function CreateEditor(const AName : String; const IID: TGUID; out Intf): Boolean;
|
||||||
|
|
||||||
|
procedure FiltrarEmpresa(AReferencia: IBizReferencia);
|
||||||
function ValidarReferencia(AReferencia: IBizReferencia): Boolean;
|
function ValidarReferencia(AReferencia: IBizReferencia): Boolean;
|
||||||
procedure AsignarDataModule;
|
procedure AsignarDataModule;
|
||||||
procedure AsignarID(AReferencia: IBizReferencia; const IDNuevo: Integer);
|
procedure AsignarID(AReferencia: IBizReferencia; const IDNuevo: Integer);
|
||||||
@ -44,7 +45,7 @@ implementation
|
|||||||
uses
|
uses
|
||||||
cxControls, DB, uEditorRegistryUtils, schReferenciasClient_Intf,
|
cxControls, DB, uEditorRegistryUtils, schReferenciasClient_Intf,
|
||||||
uIEditorReferencias, uDataModuleReferencias,
|
uIEditorReferencias, uDataModuleReferencias,
|
||||||
uDAInterfaces, uDataTableUtils, uDialogUtils,
|
uDAInterfaces, uDataTableUtils, uDialogUtils, uDataModuleUsuarios,
|
||||||
uDateUtils, uROTypes, DateUtils, Controls, Windows;
|
uDateUtils, uROTypes, DateUtils, Controls, Windows;
|
||||||
|
|
||||||
{ TReferenciasController }
|
{ TReferenciasController }
|
||||||
@ -63,6 +64,7 @@ end;
|
|||||||
function TReferenciasController.BuscarTodos: IBizReferencia;
|
function TReferenciasController.BuscarTodos: IBizReferencia;
|
||||||
begin
|
begin
|
||||||
Result := FDataModule.GetItems;
|
Result := FDataModule.GetItems;
|
||||||
|
FiltrarEmpresa(Result);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
constructor TReferenciasController.Create;
|
constructor TReferenciasController.Create;
|
||||||
@ -97,6 +99,21 @@ begin
|
|||||||
inherited;
|
inherited;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
procedure TReferenciasController.FiltrarEmpresa(AReferencia: IBizReferencia);
|
||||||
|
begin
|
||||||
|
if AReferencia.DataTable.Active then
|
||||||
|
AReferencia.DataTable.Active := False;
|
||||||
|
|
||||||
|
// Filtrar los presupuestos actuales por empresa
|
||||||
|
with AReferencia.DataTable.Where do
|
||||||
|
begin
|
||||||
|
if NotEmpty then
|
||||||
|
AddOperator(opAND);
|
||||||
|
AddCondition(fld_ReferenciasID_EMPRESA, cEqual, dmUsuarios.IDEmpresaActual);
|
||||||
|
end;
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
function TReferenciasController.ValidarReferencia(AReferencia: IBizReferencia): Boolean;
|
function TReferenciasController.ValidarReferencia(AReferencia: IBizReferencia): Boolean;
|
||||||
begin
|
begin
|
||||||
Result := False;
|
Result := False;
|
||||||
|
|||||||
@ -41,7 +41,7 @@ implementation
|
|||||||
{$R *.dfm}
|
{$R *.dfm}
|
||||||
|
|
||||||
uses
|
uses
|
||||||
uDataModuleServer;
|
uSistemaFunc, uDataModuleServer;
|
||||||
|
|
||||||
const
|
const
|
||||||
rptInforme = 'InfRemesaCliente.fr3';
|
rptInforme = 'InfRemesaCliente.fr3';
|
||||||
@ -87,6 +87,7 @@ var
|
|||||||
AStream: TMemoryStream;
|
AStream: TMemoryStream;
|
||||||
dsMaster: IDADataset;
|
dsMaster: IDADataset;
|
||||||
dsDetail: IDADataset;
|
dsDetail: IDADataset;
|
||||||
|
AInforme: Variant;
|
||||||
begin
|
begin
|
||||||
AStream := TMemoryStream.Create;
|
AStream := TMemoryStream.Create;
|
||||||
FConnection.BeginTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO"
|
FConnection.BeginTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO"
|
||||||
@ -103,7 +104,11 @@ begin
|
|||||||
DABINAdapter.WriteDataset(AStream, dsDetail, [woRows, woSchema], -1);
|
DABINAdapter.WriteDataset(AStream, dsDetail, [woRows, woSchema], -1);
|
||||||
DABINAdapter.ReadDataset(AStream, tbl_Detalles, TRUE, '', TRUE, TRUE);
|
DABINAdapter.ReadDataset(AStream, tbl_Detalles, TRUE, '', TRUE, TRUE);
|
||||||
|
|
||||||
frxReport.LoadFromFile(DarRutaInformes + rptInforme, True);
|
AInforme := DarRutaFichero(DarRutaInformes, rptInforme, tbl_Cabecera.FieldByName('ID_EMPRESA').AsString);
|
||||||
|
if VarIsNull(AInforme) then
|
||||||
|
raise Exception.Create (('Error Servidor: _GenerarComision, no encuentra informe ' + rptInforme));
|
||||||
|
|
||||||
|
frxReport.LoadFromFile(AInforme, True);
|
||||||
frxReport.PrepareReport(False);
|
frxReport.PrepareReport(False);
|
||||||
|
|
||||||
finally
|
finally
|
||||||
|
|||||||
@ -41,7 +41,7 @@ implementation
|
|||||||
{$R *.dfm}
|
{$R *.dfm}
|
||||||
|
|
||||||
uses
|
uses
|
||||||
uDataModuleServer;
|
uSistemaFunc, uDataModuleServer;
|
||||||
|
|
||||||
const
|
const
|
||||||
rptInforme = 'InfRemesaProveedor.fr3';
|
rptInforme = 'InfRemesaProveedor.fr3';
|
||||||
@ -88,6 +88,7 @@ var
|
|||||||
AStream: TMemoryStream;
|
AStream: TMemoryStream;
|
||||||
dsMaster: IDADataset;
|
dsMaster: IDADataset;
|
||||||
dsDetail: IDADataset;
|
dsDetail: IDADataset;
|
||||||
|
AInforme: Variant;
|
||||||
begin
|
begin
|
||||||
AStream := TMemoryStream.Create;
|
AStream := TMemoryStream.Create;
|
||||||
FConnection.BeginTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO"
|
FConnection.BeginTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO"
|
||||||
@ -104,7 +105,11 @@ begin
|
|||||||
DABINAdapter.WriteDataset(AStream, dsDetail, [woRows, woSchema], -1);
|
DABINAdapter.WriteDataset(AStream, dsDetail, [woRows, woSchema], -1);
|
||||||
DABINAdapter.ReadDataset(AStream, tbl_Detalles, TRUE, '', TRUE, TRUE);
|
DABINAdapter.ReadDataset(AStream, tbl_Detalles, TRUE, '', TRUE, TRUE);
|
||||||
|
|
||||||
frxReport.LoadFromFile(DarRutaInformes + rptInforme, True);
|
AInforme := DarRutaFichero(DarRutaInformes, rptInforme, tbl_Cabecera.FieldByName('ID_EMPRESA').AsString);
|
||||||
|
if VarIsNull(AInforme) then
|
||||||
|
raise Exception.Create (('Error Servidor: _GenerarRemesa, no encuentra informe ' + rptInforme));
|
||||||
|
|
||||||
|
frxReport.LoadFromFile(AInforme, True);
|
||||||
frxReport.PrepareReport(False);
|
frxReport.PrepareReport(False);
|
||||||
|
|
||||||
finally
|
finally
|
||||||
|
|||||||
@ -26,16 +26,19 @@ object PluginTiendaWeb: TPluginTiendaWeb
|
|||||||
Caption = 'Recoger pedidos...'
|
Caption = 'Recoger pedidos...'
|
||||||
ImageIndex = 0
|
ImageIndex = 0
|
||||||
OnExecute = actRecogerPedidosExecute
|
OnExecute = actRecogerPedidosExecute
|
||||||
|
OnUpdate = actRecogerPedidosUpdate
|
||||||
end
|
end
|
||||||
object actActualizarTienda: TAction
|
object actActualizarTienda: TAction
|
||||||
Category = 'TiendaWeb'
|
Category = 'TiendaWeb'
|
||||||
Caption = 'Actualizar tienda...'
|
Caption = 'Actualizar tienda...'
|
||||||
OnExecute = actActualizarTiendaExecute
|
OnExecute = actActualizarTiendaExecute
|
||||||
|
OnUpdate = actActualizarTiendaUpdate
|
||||||
end
|
end
|
||||||
object actConfigurarTienda: TAction
|
object actConfigurarTienda: TAction
|
||||||
Category = 'TiendaWeb'
|
Category = 'TiendaWeb'
|
||||||
Caption = 'Configurar tienda'
|
Caption = 'Configurar tienda'
|
||||||
OnExecute = actConfigurarTiendaExecute
|
OnExecute = actConfigurarTiendaExecute
|
||||||
|
OnUpdate = actConfigurarTiendaUpdate
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
object MainMenu: TMainMenu
|
object MainMenu: TMainMenu
|
||||||
|
|||||||
@ -28,6 +28,9 @@ type
|
|||||||
procedure actRecogerPedidosExecute(Sender: TObject);
|
procedure actRecogerPedidosExecute(Sender: TObject);
|
||||||
procedure actConfigurarTiendaExecute(Sender: TObject);
|
procedure actConfigurarTiendaExecute(Sender: TObject);
|
||||||
procedure actActualizarTiendaExecute(Sender: TObject);
|
procedure actActualizarTiendaExecute(Sender: TObject);
|
||||||
|
procedure actRecogerPedidosUpdate(Sender: TObject);
|
||||||
|
procedure actActualizarTiendaUpdate(Sender: TObject);
|
||||||
|
procedure actConfigurarTiendaUpdate(Sender: TObject);
|
||||||
|
|
||||||
public
|
public
|
||||||
constructor Create(AOwner: TComponent); override;
|
constructor Create(AOwner: TComponent); override;
|
||||||
@ -60,6 +63,13 @@ begin
|
|||||||
ATiendaWebController.ActualizarTienda(ATiendaWeb);
|
ATiendaWebController.ActualizarTienda(ATiendaWeb);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
procedure TPluginTiendaWeb.actActualizarTiendaUpdate(Sender: TObject);
|
||||||
|
begin
|
||||||
|
//La tienda solo estará activa para la empresa Luis León Representaciones
|
||||||
|
if (Sender as TAction).Enabled then
|
||||||
|
(Sender as TAction).Enabled := (dmUsuarios.IDEmpresaActual = 1)
|
||||||
|
end;
|
||||||
|
|
||||||
procedure TPluginTiendaWeb.actConfigurarTiendaExecute(Sender: TObject);
|
procedure TPluginTiendaWeb.actConfigurarTiendaExecute(Sender: TObject);
|
||||||
var
|
var
|
||||||
ATiendaWebController : ITiendaWebController;
|
ATiendaWebController : ITiendaWebController;
|
||||||
@ -70,6 +80,13 @@ begin
|
|||||||
ATiendaWebController.Ver(ATiendaWeb);
|
ATiendaWebController.Ver(ATiendaWeb);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
procedure TPluginTiendaWeb.actConfigurarTiendaUpdate(Sender: TObject);
|
||||||
|
begin
|
||||||
|
//La tienda solo estará activa para la empresa Luis León Representaciones
|
||||||
|
if (Sender as TAction).Enabled then
|
||||||
|
(Sender as TAction).Enabled := (dmUsuarios.IDEmpresaActual = 1)
|
||||||
|
end;
|
||||||
|
|
||||||
procedure TPluginTiendaWeb.actRecogerPedidosExecute(Sender: TObject);
|
procedure TPluginTiendaWeb.actRecogerPedidosExecute(Sender: TObject);
|
||||||
var
|
var
|
||||||
ATiendaWebController : ITiendaWebController;
|
ATiendaWebController : ITiendaWebController;
|
||||||
@ -80,6 +97,14 @@ begin
|
|||||||
ATiendaWebController.DescargarPedidos(ATiendaWeb);
|
ATiendaWebController.DescargarPedidos(ATiendaWeb);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
procedure TPluginTiendaWeb.actRecogerPedidosUpdate(Sender: TObject);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
//La tienda solo estará activa para la empresa Luis León Representaciones
|
||||||
|
if (Sender as TAction).Enabled then
|
||||||
|
(Sender as TAction).Enabled := (dmUsuarios.IDEmpresaActual = 1)
|
||||||
|
end;
|
||||||
|
|
||||||
constructor TPluginTiendaWeb.Create(AOwner: TComponent);
|
constructor TPluginTiendaWeb.Create(AOwner: TComponent);
|
||||||
begin
|
begin
|
||||||
inherited;
|
inherited;
|
||||||
|
|||||||
@ -134,8 +134,6 @@
|
|||||||
</Parameter>
|
</Parameter>
|
||||||
<Parameter Name="ShowLogotipo" DataType="Boolean" Flag="In" >
|
<Parameter Name="ShowLogotipo" DataType="Boolean" Flag="In" >
|
||||||
</Parameter>
|
</Parameter>
|
||||||
<Parameter Name="Tipo" DataType="Integer" Flag="In" >
|
|
||||||
</Parameter>
|
|
||||||
</Parameters>
|
</Parameters>
|
||||||
</Operation>
|
</Operation>
|
||||||
<Operation Name="GenerarInformeEnPDF" UID="{D2C4E6D0-9D90-4C35-9C92-B9139493B849}">
|
<Operation Name="GenerarInformeEnPDF" UID="{D2C4E6D0-9D90-4C35-9C92-B9139493B849}">
|
||||||
@ -146,8 +144,6 @@
|
|||||||
</Parameter>
|
</Parameter>
|
||||||
<Parameter Name="ShowLogotipo" DataType="Boolean" Flag="In" >
|
<Parameter Name="ShowLogotipo" DataType="Boolean" Flag="In" >
|
||||||
</Parameter>
|
</Parameter>
|
||||||
<Parameter Name="Tipo" DataType="Integer" Flag="In" >
|
|
||||||
</Parameter>
|
|
||||||
</Parameters>
|
</Parameters>
|
||||||
</Operation>
|
</Operation>
|
||||||
</Operations>
|
</Operations>
|
||||||
|
|||||||
@ -264,8 +264,8 @@ type
|
|||||||
IsrvFacturasCliente = interface(IDARemoteService)
|
IsrvFacturasCliente = interface(IDARemoteService)
|
||||||
['{56B4FFF0-AB1B-46B2-BA16-ABD5360F6311}']
|
['{56B4FFF0-AB1B-46B2-BA16-ABD5360F6311}']
|
||||||
function GetNextAutoInc(const GeneratorName: String): Integer;
|
function GetNextAutoInc(const GeneratorName: String): Integer;
|
||||||
function GenerarInforme(const ListaID: TIntegerArray; const ShowLogotipo: Boolean; const Tipo: Integer): Binary;
|
function GenerarInforme(const ListaID: TIntegerArray; const ShowLogotipo: Boolean): Binary;
|
||||||
function GenerarInformeEnPDF(const ListaID: TIntegerArray; const ShowLogotipo: Boolean; const Tipo: Integer): Binary;
|
function GenerarInformeEnPDF(const ListaID: TIntegerArray; const ShowLogotipo: Boolean): Binary;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
{ CosrvFacturasCliente }
|
{ CosrvFacturasCliente }
|
||||||
@ -279,8 +279,8 @@ type
|
|||||||
function __GetInterfaceName:string; override;
|
function __GetInterfaceName:string; override;
|
||||||
|
|
||||||
function GetNextAutoInc(const GeneratorName: String): Integer;
|
function GetNextAutoInc(const GeneratorName: String): Integer;
|
||||||
function GenerarInforme(const ListaID: TIntegerArray; const ShowLogotipo: Boolean; const Tipo: Integer): Binary;
|
function GenerarInforme(const ListaID: TIntegerArray; const ShowLogotipo: Boolean): Binary;
|
||||||
function GenerarInformeEnPDF(const ListaID: TIntegerArray; const ShowLogotipo: Boolean; const Tipo: Integer): Binary;
|
function GenerarInformeEnPDF(const ListaID: TIntegerArray; const ShowLogotipo: Boolean): Binary;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
{ IsrvPedidosProveedor }
|
{ IsrvPedidosProveedor }
|
||||||
@ -1350,7 +1350,7 @@ begin
|
|||||||
end
|
end
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TsrvFacturasCliente_Proxy.GenerarInforme(const ListaID: TIntegerArray; const ShowLogotipo: Boolean; const Tipo: Integer): Binary;
|
function TsrvFacturasCliente_Proxy.GenerarInforme(const ListaID: TIntegerArray; const ShowLogotipo: Boolean): Binary;
|
||||||
var
|
var
|
||||||
__request, __response : TMemoryStream;
|
__request, __response : TMemoryStream;
|
||||||
begin
|
begin
|
||||||
@ -1362,7 +1362,6 @@ begin
|
|||||||
__Message.Initialize(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInforme');
|
__Message.Initialize(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInforme');
|
||||||
__Message.Write('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []);
|
__Message.Write('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []);
|
||||||
__Message.Write('ShowLogotipo', TypeInfo(Boolean), ShowLogotipo, []);
|
__Message.Write('ShowLogotipo', TypeInfo(Boolean), ShowLogotipo, []);
|
||||||
__Message.Write('Tipo', TypeInfo(Integer), Tipo, []);
|
|
||||||
__Message.Finalize;
|
__Message.Finalize;
|
||||||
|
|
||||||
__Message.WriteToStream(__request);
|
__Message.WriteToStream(__request);
|
||||||
@ -1376,7 +1375,7 @@ begin
|
|||||||
end
|
end
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TsrvFacturasCliente_Proxy.GenerarInformeEnPDF(const ListaID: TIntegerArray; const ShowLogotipo: Boolean; const Tipo: Integer): Binary;
|
function TsrvFacturasCliente_Proxy.GenerarInformeEnPDF(const ListaID: TIntegerArray; const ShowLogotipo: Boolean): Binary;
|
||||||
var
|
var
|
||||||
__request, __response : TMemoryStream;
|
__request, __response : TMemoryStream;
|
||||||
begin
|
begin
|
||||||
@ -1388,7 +1387,6 @@ begin
|
|||||||
__Message.Initialize(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInformeEnPDF');
|
__Message.Initialize(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInformeEnPDF');
|
||||||
__Message.Write('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []);
|
__Message.Write('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []);
|
||||||
__Message.Write('ShowLogotipo', TypeInfo(Boolean), ShowLogotipo, []);
|
__Message.Write('ShowLogotipo', TypeInfo(Boolean), ShowLogotipo, []);
|
||||||
__Message.Write('Tipo', TypeInfo(Integer), Tipo, []);
|
|
||||||
__Message.Finalize;
|
__Message.Finalize;
|
||||||
|
|
||||||
__Message.WriteToStream(__request);
|
__Message.WriteToStream(__request);
|
||||||
|
|||||||
@ -485,11 +485,10 @@ begin
|
|||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TsrvFacturasCliente_Invoker.Invoke_GenerarInforme(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
|
procedure TsrvFacturasCliente_Invoker.Invoke_GenerarInforme(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
|
||||||
{ function GenerarInforme(const ListaID: TIntegerArray; const ShowLogotipo: Boolean; const Tipo: Integer): Binary; }
|
{ function GenerarInforme(const ListaID: TIntegerArray; const ShowLogotipo: Boolean): Binary; }
|
||||||
var
|
var
|
||||||
ListaID: FactuGES_Intf.TIntegerArray;
|
ListaID: FactuGES_Intf.TIntegerArray;
|
||||||
ShowLogotipo: Boolean;
|
ShowLogotipo: Boolean;
|
||||||
Tipo: Integer;
|
|
||||||
lResult: Binary;
|
lResult: Binary;
|
||||||
__lObjectDisposer: TROObjectDisposer;
|
__lObjectDisposer: TROObjectDisposer;
|
||||||
begin
|
begin
|
||||||
@ -498,9 +497,8 @@ begin
|
|||||||
try
|
try
|
||||||
__Message.Read('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []);
|
__Message.Read('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []);
|
||||||
__Message.Read('ShowLogotipo', TypeInfo(Boolean), ShowLogotipo, []);
|
__Message.Read('ShowLogotipo', TypeInfo(Boolean), ShowLogotipo, []);
|
||||||
__Message.Read('Tipo', TypeInfo(Integer), Tipo, []);
|
|
||||||
|
|
||||||
lResult := (__Instance as IsrvFacturasCliente).GenerarInforme(ListaID, ShowLogotipo, Tipo);
|
lResult := (__Instance as IsrvFacturasCliente).GenerarInforme(ListaID, ShowLogotipo);
|
||||||
|
|
||||||
__Message.Initialize(__Transport, 'FactuGES', 'srvFacturasCliente', 'GenerarInformeResponse');
|
__Message.Initialize(__Transport, 'FactuGES', 'srvFacturasCliente', 'GenerarInformeResponse');
|
||||||
__Message.Write('Result', TypeInfo(Binary), lResult, []);
|
__Message.Write('Result', TypeInfo(Binary), lResult, []);
|
||||||
@ -518,11 +516,10 @@ begin
|
|||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TsrvFacturasCliente_Invoker.Invoke_GenerarInformeEnPDF(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
|
procedure TsrvFacturasCliente_Invoker.Invoke_GenerarInformeEnPDF(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
|
||||||
{ function GenerarInformeEnPDF(const ListaID: TIntegerArray; const ShowLogotipo: Boolean; const Tipo: Integer): Binary; }
|
{ function GenerarInformeEnPDF(const ListaID: TIntegerArray; const ShowLogotipo: Boolean): Binary; }
|
||||||
var
|
var
|
||||||
ListaID: FactuGES_Intf.TIntegerArray;
|
ListaID: FactuGES_Intf.TIntegerArray;
|
||||||
ShowLogotipo: Boolean;
|
ShowLogotipo: Boolean;
|
||||||
Tipo: Integer;
|
|
||||||
lResult: Binary;
|
lResult: Binary;
|
||||||
__lObjectDisposer: TROObjectDisposer;
|
__lObjectDisposer: TROObjectDisposer;
|
||||||
begin
|
begin
|
||||||
@ -531,9 +528,8 @@ begin
|
|||||||
try
|
try
|
||||||
__Message.Read('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []);
|
__Message.Read('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []);
|
||||||
__Message.Read('ShowLogotipo', TypeInfo(Boolean), ShowLogotipo, []);
|
__Message.Read('ShowLogotipo', TypeInfo(Boolean), ShowLogotipo, []);
|
||||||
__Message.Read('Tipo', TypeInfo(Integer), Tipo, []);
|
|
||||||
|
|
||||||
lResult := (__Instance as IsrvFacturasCliente).GenerarInformeEnPDF(ListaID, ShowLogotipo, Tipo);
|
lResult := (__Instance as IsrvFacturasCliente).GenerarInformeEnPDF(ListaID, ShowLogotipo);
|
||||||
|
|
||||||
__Message.Initialize(__Transport, 'FactuGES', 'srvFacturasCliente', 'GenerarInformeEnPDFResponse');
|
__Message.Initialize(__Transport, 'FactuGES', 'srvFacturasCliente', 'GenerarInformeEnPDFResponse');
|
||||||
__Message.Write('Result', TypeInfo(Binary), lResult, []);
|
__Message.Write('Result', TypeInfo(Binary), lResult, []);
|
||||||
|
|||||||
Binary file not shown.
Some files were not shown because too many files have changed in this diff Show More
Reference in New Issue
Block a user