Compare commits
No commits in common. "005ad1b6370171e18198ada11f5690797ee853d8" and "36497dc456c4ae1400a3d91c2bcff8b2bd6f89d6" have entirely different histories.
005ad1b637
...
36497dc456
BIN
Build/Build.fbl6
BIN
Build/Build.fbl6
Binary file not shown.
21002
Build/Build.fbp5
Normal file
21002
Build/Build.fbp5
Normal file
File diff suppressed because it is too large
Load Diff
1
Build/Build.fbv
Normal file
1
Build/Build.fbv
Normal file
@ -0,0 +1 @@
|
||||
<variables><DELPHI><![CDATA[C:\Archivos de programa\Borland\Delphi10\bin\dcc32.exe]]></DELPHI></variables>
|
||||
BIN
Build/Build.fbz6
BIN
Build/Build.fbz6
Binary file not shown.
Binary file not shown.
1758
Build/Installer.fbp5
Normal file
1758
Build/Installer.fbp5
Normal file
File diff suppressed because it is too large
Load Diff
1
Build/Installer.fbv
Normal file
1
Build/Installer.fbv
Normal file
@ -0,0 +1 @@
|
||||
<variables><project_path><![CDATA[C:\Codigo Luis Leon]]></project_path></variables>
|
||||
Binary file not shown.
Binary file not shown.
715
Build/UploadFTP.fbp5
Normal file
715
Build/UploadFTP.fbp5
Normal file
@ -0,0 +1,715 @@
|
||||
<?xml version="1.0" encoding="UTF-8"?>
|
||||
<VSXML>
|
||||
<Object Class="TFBProject" XMLID="{42C73C22-0B2E-4BF4-A080-75FD7692D722}"><Property MultiValue="0" name="EncryptedEditPassword" type="string"></Property>
|
||||
<Property MultiValue="0" name="GlobalJScript" type="string"></Property>
|
||||
<Property MultiValue="0" name="GlobalVBScript" type="string"></Property>
|
||||
<Property MultiValue="0" name="Name" type="string"></Property>
|
||||
<Property MultiValue="0" name="ProjectID" type="string"></Property>
|
||||
<Property MultiValue="0" name="SCCAuxPath" type="string"></Property>
|
||||
<Property name="SCCLocalPathHash" type="Cardinal">0</Property>
|
||||
<Property MultiValue="0" name="SCCProjectName" type="string"></Property>
|
||||
<Property MultiValue="0" name="SCCProviderBinding" type="string"></Property>
|
||||
<Property MultiValue="0" name="SCCUserName" type="string"></Property>
|
||||
<Object Class="TFBActionListCollection" XMLID="{BAE72659-63D2-4C01-A601-B501CEC2B991}"><Object Class="TFBActionList" XMLID="{DD2F2B92-2628-4DCC-9C1C-F4F93CB04440}"><Property name="IsFailure" type="Boolean">False</Property>
|
||||
<Property name="IsMain" type="Boolean">True</Property>
|
||||
<Property MultiValue="0" name="Name" type="string">Main</Property>
|
||||
<Property MultiValue="0" name="UniqueID" type="string">{1EC7CF5E-763A-459F-B4E5-B20F3B6C1D6D}</Property>
|
||||
<Object Class="TFBAction" XMLID="{336A813B-3AD4-4076-95CF-D8D23428BC98}"><Property MultiValue="0" name="ActionComment" type="string"></Property>
|
||||
<Property MultiValue="0" name="ActionDescription" type="string">FinalBuilderAction</Property>
|
||||
<Property name="ActionTextColor" type="Cardinal">0</Property>
|
||||
<Property MultiValue="0" name="ActionTypeID" type="string"></Property>
|
||||
<Property name="Enabled" type="WordBool">True</Property>
|
||||
<Property name="ExpandActionLogTitle" type="Boolean">True</Property>
|
||||
<Property name="IgnoreFailure" type="WordBool">False</Property>
|
||||
<Property name="IsAction" type="Boolean">True</Property>
|
||||
<Property name="IsBreakPoint" type="WordBool">False</Property>
|
||||
<Property MultiValue="0" name="LogToVariable" type="string"></Property>
|
||||
<Property name="MaxRetryAttempts" type="Cardinal">0</Property>
|
||||
<Property name="NodeCollapsed" type="Boolean">False</Property>
|
||||
<Property name="PauseInterval" type="Cardinal">0</Property>
|
||||
<Property name="RetryPauseInterval" type="Cardinal">1000</Property>
|
||||
<Property name="SuppressStatusMessages" type="Boolean">False</Property>
|
||||
<Object Class="TCommentAction" XMLID="{566A234E-C051-45E3-9484-4D761E819541}"><Property MultiValue="0" name="ActionComment" type="string"></Property>
|
||||
<Property MultiValue="0" name="ActionDescription" type="string">#</Property>
|
||||
<Property name="ActionTextColor" type="Cardinal">16711680</Property>
|
||||
<Property MultiValue="0" name="ActionTypeID" type="string"></Property>
|
||||
<Property MultiValue="0" name="Description" type="string">#</Property>
|
||||
<Property name="Enabled" type="WordBool">False</Property>
|
||||
<Property name="ExpandActionLogTitle" type="Boolean">True</Property>
|
||||
<Property name="IgnoreFailure" type="WordBool">False</Property>
|
||||
<Property name="IsAction" type="Boolean">True</Property>
|
||||
<Property name="IsBreakPoint" type="WordBool">False</Property>
|
||||
<Property MultiValue="0" name="LogToVariable" type="string"></Property>
|
||||
<Property name="MaxRetryAttempts" type="Cardinal">0</Property>
|
||||
<Property name="NodeCollapsed" type="Boolean">False</Property>
|
||||
<Property name="PauseInterval" type="Cardinal">0</Property>
|
||||
<Property name="RetryPauseInterval" type="Cardinal">1000</Property>
|
||||
<Property name="SuppressStatusMessages" type="Boolean">False</Property>
|
||||
</Object>
|
||||
<Object Class="TCommentAction" XMLID="{756852F0-CDF2-4A0E-9028-92720A502289}"><Property MultiValue="0" name="ActionComment" type="string"></Property>
|
||||
<Property MultiValue="0" name="ActionDescription" type="string">#</Property>
|
||||
<Property name="ActionTextColor" type="Cardinal">16711680</Property>
|
||||
<Property MultiValue="0" name="ActionTypeID" type="string"></Property>
|
||||
<Property MultiValue="0" name="Description" type="string">#</Property>
|
||||
<Property name="Enabled" type="WordBool">False</Property>
|
||||
<Property name="ExpandActionLogTitle" type="Boolean">True</Property>
|
||||
<Property name="IgnoreFailure" type="WordBool">False</Property>
|
||||
<Property name="IsAction" type="Boolean">True</Property>
|
||||
<Property name="IsBreakPoint" type="WordBool">False</Property>
|
||||
<Property MultiValue="0" name="LogToVariable" type="string"></Property>
|
||||
<Property name="MaxRetryAttempts" type="Cardinal">0</Property>
|
||||
<Property name="NodeCollapsed" type="Boolean">False</Property>
|
||||
<Property name="PauseInterval" type="Cardinal">0</Property>
|
||||
<Property name="RetryPauseInterval" type="Cardinal">1000</Property>
|
||||
<Property name="SuppressStatusMessages" type="Boolean">False</Property>
|
||||
</Object>
|
||||
<Object Class="TCommentAction" XMLID="{D5704B4B-79F2-47B5-8A4E-A71E7AC4887F}"><Property MultiValue="0" name="ActionComment" type="string"></Property>
|
||||
<Property MultiValue="1" name="ActionDescription" type="string"><![CDATA[Sacar directorio raíz del proyecto]]>
|
||||
</Property>
|
||||
<Property name="ActionTextColor" type="Cardinal">16711680</Property>
|
||||
<Property MultiValue="0" name="ActionTypeID" type="string"></Property>
|
||||
<Property MultiValue="1" name="Description" type="string"><![CDATA[Sacar directorio raíz del proyecto]]>
|
||||
</Property>
|
||||
<Property name="Enabled" type="WordBool">False</Property>
|
||||
<Property name="ExpandActionLogTitle" type="Boolean">True</Property>
|
||||
<Property name="IgnoreFailure" type="WordBool">False</Property>
|
||||
<Property name="IsAction" type="Boolean">True</Property>
|
||||
<Property name="IsBreakPoint" type="WordBool">False</Property>
|
||||
<Property MultiValue="0" name="LogToVariable" type="string"></Property>
|
||||
<Property name="MaxRetryAttempts" type="Cardinal">0</Property>
|
||||
<Property name="NodeCollapsed" type="Boolean">False</Property>
|
||||
<Property name="PauseInterval" type="Cardinal">0</Property>
|
||||
<Property name="RetryPauseInterval" type="Cardinal">1000</Property>
|
||||
<Property name="SuppressStatusMessages" type="Boolean">False</Property>
|
||||
</Object>
|
||||
<Object Class="TSetVariableAction" XMLID="{2DB13403-5AB2-4B0E-ADF8-6E1862A76BDA}"><Property MultiValue="0" name="ActionComment" type="string"></Property>
|
||||
<Property MultiValue="1" name="ActionDescription" type="string"><![CDATA[Ruta del proyecto [ %FBPROJECTDIR% ]]]>
|
||||
</Property>
|
||||
<Property name="ActionTextColor" type="Cardinal">0</Property>
|
||||
<Property MultiValue="0" name="ActionTypeID" type="string"></Property>
|
||||
<Property name="ApplyToExisting" type="Boolean">False</Property>
|
||||
<Property MultiValue="1" name="Description" type="string"><![CDATA[Ruta del proyecto [ %FBPROJECTDIR% ]]]>
|
||||
</Property>
|
||||
<Property name="DoExpandExpression" type="Boolean">True</Property>
|
||||
<Property name="Enabled" type="WordBool">True</Property>
|
||||
<Property name="ExpandActionLogTitle" type="Boolean">True</Property>
|
||||
<Property name="ForceType" type="TFBSetVariableForceType">ftString</Property>
|
||||
<Property name="IgnoreFailure" type="WordBool">False</Property>
|
||||
<Property name="IsAction" type="Boolean">True</Property>
|
||||
<Property name="IsBreakPoint" type="WordBool">False</Property>
|
||||
<Property MultiValue="0" name="LogToVariable" type="string"></Property>
|
||||
<Property name="MaxRetryAttempts" type="Cardinal">0</Property>
|
||||
<Property name="Modifier" type="TFBSetVariableModifier">smNone</Property>
|
||||
<Property MultiValue="0" name="NewValue" type="WideString">%FBPROJECTDIR%</Property>
|
||||
<Property name="NodeCollapsed" type="Boolean">False</Property>
|
||||
<Property name="PauseInterval" type="Cardinal">0</Property>
|
||||
<Property name="RetryPauseInterval" type="Cardinal">1000</Property>
|
||||
<Property name="SuppressStatusMessages" type="Boolean">False</Property>
|
||||
<Property MultiValue="0" name="VariableName" type="WideString">project_path</Property>
|
||||
</Object>
|
||||
<Object Class="TFBScriptBasedAction" XMLID="{3CE0EE7B-5284-4C6A-94ED-241CE53AD1DF}"><Property MultiValue="0" name="ActionComment" type="string"></Property>
|
||||
<Property MultiValue="1" name="ActionDescription" type="string"><![CDATA[Establecer ruta del proyecto]]>
|
||||
</Property>
|
||||
<Property name="ActionTextColor" type="Cardinal">0</Property>
|
||||
<Property MultiValue="0" name="ActionTypeID" type="string">{78526C82-A8E7-42B3-8C9D-1E229C79D915}</Property>
|
||||
<Property MultiValue="1" name="CustomActionName" type="string"><![CDATA[String Replace]]>
|
||||
</Property>
|
||||
<Property MultiValue="1" name="Description" type="string"><![CDATA[Establecer ruta del proyecto]]>
|
||||
</Property>
|
||||
<Property name="Enabled" type="WordBool">True</Property>
|
||||
<Property name="EnableTimeout" type="Boolean">False</Property>
|
||||
<Property name="ExpandActionLogTitle" type="Boolean">True</Property>
|
||||
<Property name="IgnoreFailure" type="WordBool">False</Property>
|
||||
<Property name="IsAction" type="Boolean">True</Property>
|
||||
<Property name="IsBreakPoint" type="WordBool">False</Property>
|
||||
<Property MultiValue="0" name="LogToVariable" type="string"></Property>
|
||||
<Property name="MaxRetryAttempts" type="Cardinal">0</Property>
|
||||
<Property name="NodeCollapsed" type="Boolean">False</Property>
|
||||
<Property name="PauseInterval" type="Cardinal">0</Property>
|
||||
<Property name="RetryPauseInterval" type="Cardinal">1000</Property>
|
||||
<Property name="SuppressStatusMessages" type="Boolean">True</Property>
|
||||
<Property name="TerminateOnTimeout" type="Boolean">True</Property>
|
||||
<Property name="TimeoutLength" type="Cardinal">2</Property>
|
||||
<CustomProperty MultiValue="0" name="InputString" type="ptString"></CustomProperty>
|
||||
<CustomProperty name="ApplyToInput" type="ptBoolean">True</CustomProperty>
|
||||
<CustomProperty name="UsingInputVariable" type="ptBoolean">True</CustomProperty>
|
||||
<CustomProperty MultiValue="0" name="OutputVariable" type="ptString"></CustomProperty>
|
||||
<CustomProperty MultiValue="0" name="InputVariable" type="ptString">project_path</CustomProperty>
|
||||
<CustomProperty MultiValue="0" name="SearchString" type="ptString">\Build</CustomProperty>
|
||||
<CustomProperty MultiValue="0" name="ReplacementString" type="ptString"></CustomProperty>
|
||||
<CustomProperty name="CaseSensitive" type="ptBoolean">False</CustomProperty>
|
||||
<CustomProperty name="ReplaceAll" type="ptBoolean">False</CustomProperty>
|
||||
<CustomProperty name="ExpandSourceVariable" type="ptBoolean">True</CustomProperty>
|
||||
</Object>
|
||||
<Object Class="TCommentAction" XMLID="{8B68908A-25D4-4D81-A4C9-1DA76CAE997B}"><Property MultiValue="0" name="ActionComment" type="string"></Property>
|
||||
<Property MultiValue="0" name="ActionDescription" type="string">#</Property>
|
||||
<Property name="ActionTextColor" type="Cardinal">16711680</Property>
|
||||
<Property MultiValue="0" name="ActionTypeID" type="string"></Property>
|
||||
<Property MultiValue="0" name="Description" type="string">#</Property>
|
||||
<Property name="Enabled" type="WordBool">False</Property>
|
||||
<Property name="ExpandActionLogTitle" type="Boolean">True</Property>
|
||||
<Property name="IgnoreFailure" type="WordBool">False</Property>
|
||||
<Property name="IsAction" type="Boolean">True</Property>
|
||||
<Property name="IsBreakPoint" type="WordBool">False</Property>
|
||||
<Property MultiValue="0" name="LogToVariable" type="string"></Property>
|
||||
<Property name="MaxRetryAttempts" type="Cardinal">0</Property>
|
||||
<Property name="NodeCollapsed" type="Boolean">False</Property>
|
||||
<Property name="PauseInterval" type="Cardinal">0</Property>
|
||||
<Property name="RetryPauseInterval" type="Cardinal">1000</Property>
|
||||
<Property name="SuppressStatusMessages" type="Boolean">False</Property>
|
||||
</Object>
|
||||
<Object Class="TSetVariableAction" XMLID="{C34712CE-A8B2-4CAE-B8CF-06F2B5568492}"><Property MultiValue="0" name="ActionComment" type="string"></Property>
|
||||
<Property MultiValue="1" name="ActionDescription" type="string"><![CDATA[Set Variable FTPAddress to [ luisleonrepresentaciones.com ]]]>
|
||||
</Property>
|
||||
<Property name="ActionTextColor" type="Cardinal">0</Property>
|
||||
<Property MultiValue="0" name="ActionTypeID" type="string"></Property>
|
||||
<Property name="ApplyToExisting" type="Boolean">False</Property>
|
||||
<Property name="DoExpandExpression" type="Boolean">True</Property>
|
||||
<Property name="Enabled" type="WordBool">True</Property>
|
||||
<Property name="ExpandActionLogTitle" type="Boolean">True</Property>
|
||||
<Property name="ForceType" type="TFBSetVariableForceType">ftDefault</Property>
|
||||
<Property name="IgnoreFailure" type="WordBool">False</Property>
|
||||
<Property name="IsAction" type="Boolean">True</Property>
|
||||
<Property name="IsBreakPoint" type="WordBool">False</Property>
|
||||
<Property MultiValue="0" name="LogToVariable" type="string"></Property>
|
||||
<Property name="MaxRetryAttempts" type="Cardinal">0</Property>
|
||||
<Property name="Modifier" type="TFBSetVariableModifier">smNone</Property>
|
||||
<Property MultiValue="0" name="NewValue" type="WideString">luisleonrepresentaciones.com</Property>
|
||||
<Property name="NodeCollapsed" type="Boolean">False</Property>
|
||||
<Property name="PauseInterval" type="Cardinal">0</Property>
|
||||
<Property name="RetryPauseInterval" type="Cardinal">1000</Property>
|
||||
<Property name="SuppressStatusMessages" type="Boolean">False</Property>
|
||||
<Property MultiValue="0" name="VariableName" type="WideString">FTPAddress</Property>
|
||||
</Object>
|
||||
<Object Class="TSetVariableAction" XMLID="{9E67B585-CECC-454B-B1C2-C167F9A0A624}"><Property MultiValue="0" name="ActionComment" type="string"></Property>
|
||||
<Property MultiValue="1" name="ActionDescription" type="string"><![CDATA[Set Variable FTPRemotePath to [ /update ]]]>
|
||||
</Property>
|
||||
<Property name="ActionTextColor" type="Cardinal">0</Property>
|
||||
<Property MultiValue="0" name="ActionTypeID" type="string"></Property>
|
||||
<Property name="ApplyToExisting" type="Boolean">False</Property>
|
||||
<Property name="DoExpandExpression" type="Boolean">True</Property>
|
||||
<Property name="Enabled" type="WordBool">True</Property>
|
||||
<Property name="ExpandActionLogTitle" type="Boolean">True</Property>
|
||||
<Property name="ForceType" type="TFBSetVariableForceType">ftDefault</Property>
|
||||
<Property name="IgnoreFailure" type="WordBool">False</Property>
|
||||
<Property name="IsAction" type="Boolean">True</Property>
|
||||
<Property name="IsBreakPoint" type="WordBool">False</Property>
|
||||
<Property MultiValue="0" name="LogToVariable" type="string"></Property>
|
||||
<Property name="MaxRetryAttempts" type="Cardinal">0</Property>
|
||||
<Property name="Modifier" type="TFBSetVariableModifier">smNone</Property>
|
||||
<Property MultiValue="0" name="NewValue" type="WideString">/update</Property>
|
||||
<Property name="NodeCollapsed" type="Boolean">False</Property>
|
||||
<Property name="PauseInterval" type="Cardinal">0</Property>
|
||||
<Property name="RetryPauseInterval" type="Cardinal">1000</Property>
|
||||
<Property name="SuppressStatusMessages" type="Boolean">False</Property>
|
||||
<Property MultiValue="0" name="VariableName" type="WideString">FTPRemotePath</Property>
|
||||
</Object>
|
||||
<Object Class="TSetVariableAction" XMLID="{4C41E5CB-E758-4D3E-8C87-D4EFED30F3F5}"><Property MultiValue="0" name="ActionComment" type="string"></Property>
|
||||
<Property MultiValue="1" name="ActionDescription" type="string"><![CDATA[Set Variable FTPUser to [ luisleon@rodax-software.com ]]]>
|
||||
</Property>
|
||||
<Property name="ActionTextColor" type="Cardinal">0</Property>
|
||||
<Property MultiValue="0" name="ActionTypeID" type="string"></Property>
|
||||
<Property name="ApplyToExisting" type="Boolean">False</Property>
|
||||
<Property name="DoExpandExpression" type="Boolean">True</Property>
|
||||
<Property name="Enabled" type="WordBool">True</Property>
|
||||
<Property name="ExpandActionLogTitle" type="Boolean">True</Property>
|
||||
<Property name="ForceType" type="TFBSetVariableForceType">ftDefault</Property>
|
||||
<Property name="IgnoreFailure" type="WordBool">False</Property>
|
||||
<Property name="IsAction" type="Boolean">True</Property>
|
||||
<Property name="IsBreakPoint" type="WordBool">False</Property>
|
||||
<Property MultiValue="0" name="LogToVariable" type="string"></Property>
|
||||
<Property name="MaxRetryAttempts" type="Cardinal">0</Property>
|
||||
<Property name="Modifier" type="TFBSetVariableModifier">smNone</Property>
|
||||
<Property MultiValue="0" name="NewValue" type="WideString">luisleon@rodax-software.com</Property>
|
||||
<Property name="NodeCollapsed" type="Boolean">False</Property>
|
||||
<Property name="PauseInterval" type="Cardinal">0</Property>
|
||||
<Property name="RetryPauseInterval" type="Cardinal">1000</Property>
|
||||
<Property name="SuppressStatusMessages" type="Boolean">False</Property>
|
||||
<Property MultiValue="0" name="VariableName" type="WideString">FTPUser</Property>
|
||||
</Object>
|
||||
<Object Class="TSetVariableAction" XMLID="{501B3A9C-3DB7-4E83-B1FA-8C8B07535437}"><Property MultiValue="0" name="ActionComment" type="string"></Property>
|
||||
<Property MultiValue="1" name="ActionDescription" type="string"><![CDATA[Set Variable FTPPassword to [ 9yyz4coj ]]]>
|
||||
</Property>
|
||||
<Property name="ActionTextColor" type="Cardinal">0</Property>
|
||||
<Property MultiValue="0" name="ActionTypeID" type="string"></Property>
|
||||
<Property name="ApplyToExisting" type="Boolean">False</Property>
|
||||
<Property name="DoExpandExpression" type="Boolean">True</Property>
|
||||
<Property name="Enabled" type="WordBool">True</Property>
|
||||
<Property name="ExpandActionLogTitle" type="Boolean">True</Property>
|
||||
<Property name="ForceType" type="TFBSetVariableForceType">ftDefault</Property>
|
||||
<Property name="IgnoreFailure" type="WordBool">False</Property>
|
||||
<Property name="IsAction" type="Boolean">True</Property>
|
||||
<Property name="IsBreakPoint" type="WordBool">False</Property>
|
||||
<Property MultiValue="0" name="LogToVariable" type="string"></Property>
|
||||
<Property name="MaxRetryAttempts" type="Cardinal">0</Property>
|
||||
<Property name="Modifier" type="TFBSetVariableModifier">smNone</Property>
|
||||
<Property MultiValue="0" name="NewValue" type="WideString">9yyz4coj</Property>
|
||||
<Property name="NodeCollapsed" type="Boolean">False</Property>
|
||||
<Property name="PauseInterval" type="Cardinal">0</Property>
|
||||
<Property name="RetryPauseInterval" type="Cardinal">1000</Property>
|
||||
<Property name="SuppressStatusMessages" type="Boolean">False</Property>
|
||||
<Property MultiValue="0" name="VariableName" type="WideString">FTPPassword</Property>
|
||||
</Object>
|
||||
<Object Class="TFTPConnectionAction" XMLID="{A210DCF4-65F7-481C-A3FB-A6E34E888794}"><Property MultiValue="0" name="ActionComment" type="string"></Property>
|
||||
<Property MultiValue="1" name="ActionDescription" type="string"><![CDATA[FTP Connect [ FTP Actualizaciones ]]]>
|
||||
</Property>
|
||||
<Property name="ActionTextColor" type="Cardinal">0</Property>
|
||||
<Property MultiValue="0" name="ActionTypeID" type="string"></Property>
|
||||
<Property name="ConnectTimeoutInSec" type="Integer">0</Property>
|
||||
<Property MultiValue="0" name="Cookie" type="string">q1BkPr51BZaAKZ+47Q==</Property>
|
||||
<Property name="DetailedLogging" type="WordBool">False</Property>
|
||||
<Property name="Enabled" type="WordBool">True</Property>
|
||||
<Property name="ExpandActionLogTitle" type="Boolean">True</Property>
|
||||
<Property MultiValue="1" name="FTPConnectionName" type="string"><![CDATA[FTP Actualizaciones]]>
|
||||
</Property>
|
||||
<Property MultiValue="0" name="FTPHost" type="string">%FTPAddress%</Property>
|
||||
<Property name="FTPPort" type="Integer">21</Property>
|
||||
<Property name="IgnoreFailure" type="WordBool">False</Property>
|
||||
<Property name="IsAction" type="Boolean">True</Property>
|
||||
<Property name="IsBreakPoint" type="WordBool">False</Property>
|
||||
<Property MultiValue="0" name="LogToVariable" type="string"></Property>
|
||||
<Property name="MaxRetryAttempts" type="Cardinal">0</Property>
|
||||
<Property name="NodeCollapsed" type="Boolean">False</Property>
|
||||
<Property name="Passive" type="WordBool">False</Property>
|
||||
<Property name="PauseInterval" type="Cardinal">0</Property>
|
||||
<Property MultiValue="0" name="ProxyCookie" type="string"></Property>
|
||||
<Property name="ProxyPort" type="Integer">0</Property>
|
||||
<Property MultiValue="0" name="ProxyServer" type="string"></Property>
|
||||
<Property name="ProxyType" type="TIdFtpProxyType">fpcmNone</Property>
|
||||
<Property MultiValue="0" name="ProxyUsername" type="string"></Property>
|
||||
<Property name="RetryPauseInterval" type="Cardinal">1000</Property>
|
||||
<Property name="SuppressStatusMessages" type="Boolean">False</Property>
|
||||
<Property name="TransferType" type="TIdFTPTransferType">ftBinary</Property>
|
||||
<Property name="UseGlobalOpt" type="Boolean">False</Property>
|
||||
<Property name="UseProxy" type="Boolean">False</Property>
|
||||
<Property MultiValue="0" name="UserID" type="string">%FTPUser%</Property>
|
||||
</Object>
|
||||
<Object Class="TFTPChangeDirAction" XMLID="{1B6106F3-4F16-4E3E-A620-95FBC383D8FC}"><Property MultiValue="0" name="ActionComment" type="string"></Property>
|
||||
<Property MultiValue="1" name="ActionDescription" type="string"><![CDATA[FTP Change Directory [ FTP Actualizaciones ] [ %FTPRemotePath% ]]]>
|
||||
</Property>
|
||||
<Property name="ActionTextColor" type="Cardinal">0</Property>
|
||||
<Property MultiValue="0" name="ActionTypeID" type="string"></Property>
|
||||
<Property MultiValue="1" name="ConnectionName" type="string"><![CDATA[FTP Actualizaciones]]>
|
||||
</Property>
|
||||
<Property name="DetailedLogging" type="Boolean">False</Property>
|
||||
<Property name="Enabled" type="WordBool">True</Property>
|
||||
<Property name="ExpandActionLogTitle" type="Boolean">True</Property>
|
||||
<Property name="IgnoreFailure" type="WordBool">False</Property>
|
||||
<Property name="IsAction" type="Boolean">True</Property>
|
||||
<Property name="IsBreakPoint" type="WordBool">False</Property>
|
||||
<Property MultiValue="0" name="LogToVariable" type="string"></Property>
|
||||
<Property name="MaxRetryAttempts" type="Cardinal">0</Property>
|
||||
<Property name="NodeCollapsed" type="Boolean">False</Property>
|
||||
<Property name="PauseInterval" type="Cardinal">0</Property>
|
||||
<Property MultiValue="0" name="RemoteDir" type="string">%FTPRemotePath%</Property>
|
||||
<Property name="RetryPauseInterval" type="Cardinal">1000</Property>
|
||||
<Property name="SuppressStatusMessages" type="Boolean">False</Property>
|
||||
</Object>
|
||||
<Object Class="TCommentAction" XMLID="{F845978E-CCD5-479D-A5A9-6A52A362E519}"><Property MultiValue="0" name="ActionComment" type="string"></Property>
|
||||
<Property MultiValue="0" name="ActionDescription" type="string">#</Property>
|
||||
<Property name="ActionTextColor" type="Cardinal">16711680</Property>
|
||||
<Property MultiValue="0" name="ActionTypeID" type="string"></Property>
|
||||
<Property MultiValue="0" name="Description" type="string">#</Property>
|
||||
<Property name="Enabled" type="WordBool">True</Property>
|
||||
<Property name="ExpandActionLogTitle" type="Boolean">True</Property>
|
||||
<Property name="IgnoreFailure" type="WordBool">False</Property>
|
||||
<Property name="IsAction" type="Boolean">True</Property>
|
||||
<Property name="IsBreakPoint" type="WordBool">False</Property>
|
||||
<Property MultiValue="0" name="LogToVariable" type="string"></Property>
|
||||
<Property name="MaxRetryAttempts" type="Cardinal">0</Property>
|
||||
<Property name="NodeCollapsed" type="Boolean">False</Property>
|
||||
<Property name="PauseInterval" type="Cardinal">0</Property>
|
||||
<Property name="RetryPauseInterval" type="Cardinal">1000</Property>
|
||||
<Property name="SuppressStatusMessages" type="Boolean">False</Property>
|
||||
</Object>
|
||||
<Object Class="TCommentAction" XMLID="{F40B093E-37D3-43B1-AEDA-3A94703F0114}"><Property MultiValue="0" name="ActionComment" type="string"></Property>
|
||||
<Property MultiValue="0" name="ActionDescription" type="string">#</Property>
|
||||
<Property name="ActionTextColor" type="Cardinal">16711680</Property>
|
||||
<Property MultiValue="0" name="ActionTypeID" type="string"></Property>
|
||||
<Property MultiValue="0" name="Description" type="string">#</Property>
|
||||
<Property name="Enabled" type="WordBool">True</Property>
|
||||
<Property name="ExpandActionLogTitle" type="Boolean">True</Property>
|
||||
<Property name="IgnoreFailure" type="WordBool">False</Property>
|
||||
<Property name="IsAction" type="Boolean">True</Property>
|
||||
<Property name="IsBreakPoint" type="WordBool">False</Property>
|
||||
<Property MultiValue="0" name="LogToVariable" type="string"></Property>
|
||||
<Property name="MaxRetryAttempts" type="Cardinal">0</Property>
|
||||
<Property name="NodeCollapsed" type="Boolean">False</Property>
|
||||
<Property name="PauseInterval" type="Cardinal">0</Property>
|
||||
<Property name="RetryPauseInterval" type="Cardinal">1000</Property>
|
||||
<Property name="SuppressStatusMessages" type="Boolean">False</Property>
|
||||
</Object>
|
||||
<Object Class="TCommentAction" XMLID="{B665F130-D9BC-4040-9899-BC9441D1D6E6}"><Property MultiValue="0" name="ActionComment" type="string"></Property>
|
||||
<Property MultiValue="1" name="ActionDescription" type="string"><![CDATA[# Limpiar el directorio]]>
|
||||
</Property>
|
||||
<Property name="ActionTextColor" type="Cardinal">16711680</Property>
|
||||
<Property MultiValue="0" name="ActionTypeID" type="string"></Property>
|
||||
<Property MultiValue="1" name="Description" type="string"><![CDATA[# Limpiar el directorio]]>
|
||||
</Property>
|
||||
<Property name="Enabled" type="WordBool">False</Property>
|
||||
<Property name="ExpandActionLogTitle" type="Boolean">True</Property>
|
||||
<Property name="IgnoreFailure" type="WordBool">False</Property>
|
||||
<Property name="IsAction" type="Boolean">True</Property>
|
||||
<Property name="IsBreakPoint" type="WordBool">False</Property>
|
||||
<Property MultiValue="0" name="LogToVariable" type="string"></Property>
|
||||
<Property name="MaxRetryAttempts" type="Cardinal">0</Property>
|
||||
<Property name="NodeCollapsed" type="Boolean">False</Property>
|
||||
<Property name="PauseInterval" type="Cardinal">0</Property>
|
||||
<Property name="RetryPauseInterval" type="Cardinal">1000</Property>
|
||||
<Property name="SuppressStatusMessages" type="Boolean">False</Property>
|
||||
</Object>
|
||||
<Object Class="TFTPListDirAction" XMLID="{29AAD606-DADC-4427-968E-E0C16F8ED493}"><Property MultiValue="0" name="ActionComment" type="string"></Property>
|
||||
<Property MultiValue="1" name="ActionDescription" type="string"><![CDATA[FTP List Directory [ FTP Actualizaciones ]]]>
|
||||
</Property>
|
||||
<Property name="ActionTextColor" type="Cardinal">0</Property>
|
||||
<Property MultiValue="0" name="ActionTypeID" type="string"></Property>
|
||||
<Property MultiValue="1" name="ConnectionName" type="string"><![CDATA[FTP Actualizaciones]]>
|
||||
</Property>
|
||||
<Property name="DetailedListing" type="Boolean">False</Property>
|
||||
<Property name="DetailedLogging" type="Boolean">False</Property>
|
||||
<Property name="Enabled" type="WordBool">False</Property>
|
||||
<Property name="ExpandActionLogTitle" type="Boolean">True</Property>
|
||||
<Property MultiValue="0" name="FBVariable" type="string">_aux_directoylist</Property>
|
||||
<Property MultiValue="0" name="FileSpec" type="string">*</Property>
|
||||
<Property name="IgnoreFailure" type="WordBool">False</Property>
|
||||
<Property name="IsAction" type="Boolean">True</Property>
|
||||
<Property name="IsBreakPoint" type="WordBool">False</Property>
|
||||
<Property name="ListToFBLog" type="Boolean">False</Property>
|
||||
<Property MultiValue="0" name="LogToVariable" type="string"></Property>
|
||||
<Property name="MaxRetryAttempts" type="Cardinal">0</Property>
|
||||
<Property name="NodeCollapsed" type="Boolean">False</Property>
|
||||
<Property name="PauseInterval" type="Cardinal">0</Property>
|
||||
<Property name="RetryPauseInterval" type="Cardinal">1000</Property>
|
||||
<Property name="SuppressStatusMessages" type="Boolean">False</Property>
|
||||
<Object Class="TFBListIterator" XMLID="{01B0AB32-B508-4FAD-B57F-16EAF366B23D}"><Property MultiValue="0" name="ActionComment" type="string"></Property>
|
||||
<Property MultiValue="1" name="ActionDescription" type="string"><![CDATA[List Iterator]]>
|
||||
</Property>
|
||||
<Property name="ActionTextColor" type="Cardinal">0</Property>
|
||||
<Property MultiValue="0" name="ActionTypeID" type="string"></Property>
|
||||
<Property name="Enabled" type="WordBool">True</Property>
|
||||
<Property name="ExpandActionLogTitle" type="Boolean">True</Property>
|
||||
<Property name="FailIfNoIterations" type="Boolean">False</Property>
|
||||
<Property MultiValue="0" name="FBVariable" type="string">_aux_filename</Property>
|
||||
<Property name="IgnoreFailure" type="WordBool">False</Property>
|
||||
<Property name="IsAction" type="Boolean">True</Property>
|
||||
<Property name="IsBreakPoint" type="WordBool">False</Property>
|
||||
<Property name="ListOfItems" type="TStrings"><![CDATA[%_aux_directoylist%
|
||||
]]>
|
||||
</Property>
|
||||
<Property name="ListSeparator" type="TFBListSeparator">lsCRLF</Property>
|
||||
<Property MultiValue="0" name="LogToVariable" type="string"></Property>
|
||||
<Property name="MaxRetryAttempts" type="Cardinal">0</Property>
|
||||
<Property name="NodeCollapsed" type="Boolean">False</Property>
|
||||
<Property name="PauseInterval" type="Cardinal">0</Property>
|
||||
<Property name="RetryPauseInterval" type="Cardinal">1000</Property>
|
||||
<Property MultiValue="0" name="SeparatorChar" type="string">,</Property>
|
||||
<Property name="SkipBlankLines" type="Boolean">True</Property>
|
||||
<Property name="SuppressStatusMessages" type="Boolean">False</Property>
|
||||
<Object Class="TFTPDeleteFileAction" XMLID="{D8AD14C3-7F40-44F5-B1FF-B51396E59619}"><Property MultiValue="0" name="ActionComment" type="string"></Property>
|
||||
<Property MultiValue="1" name="ActionDescription" type="string"><![CDATA[FTP Delete File [ FTP Actualizaciones ] [ %_aux_filename% ]]]>
|
||||
</Property>
|
||||
<Property name="ActionTextColor" type="Cardinal">0</Property>
|
||||
<Property MultiValue="0" name="ActionTypeID" type="string"></Property>
|
||||
<Property MultiValue="1" name="ConnectionName" type="string"><![CDATA[FTP Actualizaciones]]>
|
||||
</Property>
|
||||
<Property name="DetailedLogging" type="Boolean">False</Property>
|
||||
<Property name="Enabled" type="WordBool">True</Property>
|
||||
<Property name="ExpandActionLogTitle" type="Boolean">True</Property>
|
||||
<Property MultiValue="0" name="FileName" type="string">%_aux_filename%</Property>
|
||||
<Property name="IgnoreFailure" type="WordBool">False</Property>
|
||||
<Property name="IsAction" type="Boolean">True</Property>
|
||||
<Property name="IsBreakPoint" type="WordBool">False</Property>
|
||||
<Property MultiValue="0" name="LogToVariable" type="string"></Property>
|
||||
<Property name="MaxRetryAttempts" type="Cardinal">0</Property>
|
||||
<Property name="NodeCollapsed" type="Boolean">False</Property>
|
||||
<Property name="PauseInterval" type="Cardinal">0</Property>
|
||||
<Property name="RetryPauseInterval" type="Cardinal">1000</Property>
|
||||
<Property name="SuppressStatusMessages" type="Boolean">False</Property>
|
||||
</Object>
|
||||
</Object>
|
||||
</Object>
|
||||
<Object Class="TCommentAction" XMLID="{904A750C-DAD8-4D30-B962-3E4EA22EEF04}"><Property MultiValue="0" name="ActionComment" type="string"></Property>
|
||||
<Property MultiValue="0" name="ActionDescription" type="string">#</Property>
|
||||
<Property name="ActionTextColor" type="Cardinal">16711680</Property>
|
||||
<Property MultiValue="0" name="ActionTypeID" type="string"></Property>
|
||||
<Property MultiValue="0" name="Description" type="string">#</Property>
|
||||
<Property name="Enabled" type="WordBool">True</Property>
|
||||
<Property name="ExpandActionLogTitle" type="Boolean">True</Property>
|
||||
<Property name="IgnoreFailure" type="WordBool">False</Property>
|
||||
<Property name="IsAction" type="Boolean">True</Property>
|
||||
<Property name="IsBreakPoint" type="WordBool">False</Property>
|
||||
<Property MultiValue="0" name="LogToVariable" type="string"></Property>
|
||||
<Property name="MaxRetryAttempts" type="Cardinal">0</Property>
|
||||
<Property name="NodeCollapsed" type="Boolean">False</Property>
|
||||
<Property name="PauseInterval" type="Cardinal">0</Property>
|
||||
<Property name="RetryPauseInterval" type="Cardinal">1000</Property>
|
||||
<Property name="SuppressStatusMessages" type="Boolean">False</Property>
|
||||
</Object>
|
||||
<Object Class="TCommentAction" XMLID="{661E1F62-2241-45B2-BF2D-C6749ABC9F9C}"><Property MultiValue="0" name="ActionComment" type="string"></Property>
|
||||
<Property MultiValue="0" name="ActionDescription" type="string">#</Property>
|
||||
<Property name="ActionTextColor" type="Cardinal">16711680</Property>
|
||||
<Property MultiValue="0" name="ActionTypeID" type="string"></Property>
|
||||
<Property MultiValue="0" name="Description" type="string">#</Property>
|
||||
<Property name="Enabled" type="WordBool">True</Property>
|
||||
<Property name="ExpandActionLogTitle" type="Boolean">True</Property>
|
||||
<Property name="IgnoreFailure" type="WordBool">False</Property>
|
||||
<Property name="IsAction" type="Boolean">True</Property>
|
||||
<Property name="IsBreakPoint" type="WordBool">False</Property>
|
||||
<Property MultiValue="0" name="LogToVariable" type="string"></Property>
|
||||
<Property name="MaxRetryAttempts" type="Cardinal">0</Property>
|
||||
<Property name="NodeCollapsed" type="Boolean">False</Property>
|
||||
<Property name="PauseInterval" type="Cardinal">0</Property>
|
||||
<Property name="RetryPauseInterval" type="Cardinal">1000</Property>
|
||||
<Property name="SuppressStatusMessages" type="Boolean">False</Property>
|
||||
</Object>
|
||||
<Object Class="TCommentAction" XMLID="{FACC61F3-8D4B-4833-8441-DAFC08B31A20}"><Property MultiValue="0" name="ActionComment" type="string"></Property>
|
||||
<Property MultiValue="0" name="ActionDescription" type="string">#</Property>
|
||||
<Property name="ActionTextColor" type="Cardinal">16711680</Property>
|
||||
<Property MultiValue="0" name="ActionTypeID" type="string"></Property>
|
||||
<Property MultiValue="0" name="Description" type="string">#</Property>
|
||||
<Property name="Enabled" type="WordBool">True</Property>
|
||||
<Property name="ExpandActionLogTitle" type="Boolean">True</Property>
|
||||
<Property name="IgnoreFailure" type="WordBool">False</Property>
|
||||
<Property name="IsAction" type="Boolean">True</Property>
|
||||
<Property name="IsBreakPoint" type="WordBool">False</Property>
|
||||
<Property MultiValue="0" name="LogToVariable" type="string"></Property>
|
||||
<Property name="MaxRetryAttempts" type="Cardinal">0</Property>
|
||||
<Property name="NodeCollapsed" type="Boolean">False</Property>
|
||||
<Property name="PauseInterval" type="Cardinal">0</Property>
|
||||
<Property name="RetryPauseInterval" type="Cardinal">1000</Property>
|
||||
<Property name="SuppressStatusMessages" type="Boolean">False</Property>
|
||||
</Object>
|
||||
<Object Class="TFBFileSetDefineAction" XMLID="{1A87C032-9E3B-464E-8C6A-C841424A72A0}"><Property MultiValue="0" name="ActionComment" type="string"></Property>
|
||||
<Property MultiValue="1" name="ActionDescription" type="string"><![CDATA[FileSet define [ ListaFicherosUpdate ]]]>
|
||||
</Property>
|
||||
<Property name="ActionTextColor" type="Cardinal">0</Property>
|
||||
<Property MultiValue="0" name="ActionTypeID" type="string"></Property>
|
||||
<Property name="Enabled" type="WordBool">True</Property>
|
||||
<Property name="ExpandActionLogTitle" type="Boolean">True</Property>
|
||||
<Property name="FailIfNoFiles" type="Boolean">True</Property>
|
||||
<Property MultiValue="0" name="FileSetName" type="string">ListaFicherosUpdate</Property>
|
||||
<Property name="FileSetObject" type="IFBFileSet" XMLID="{4C96E19D-4C98-467F-809B-CB662FF2372D}"/>
|
||||
<Property name="IgnoreFailure" type="WordBool">False</Property>
|
||||
<Property name="IsAction" type="Boolean">True</Property>
|
||||
<Property name="IsBreakPoint" type="WordBool">False</Property>
|
||||
<Property MultiValue="0" name="LogToVariable" type="string"></Property>
|
||||
<Property name="MaxRetryAttempts" type="Cardinal">0</Property>
|
||||
<Property name="NodeCollapsed" type="Boolean">False</Property>
|
||||
<Property name="PauseInterval" type="Cardinal">0</Property>
|
||||
<Property name="RetryPauseInterval" type="Cardinal">1000</Property>
|
||||
<Property name="SuppressStatusMessages" type="Boolean">False</Property>
|
||||
<Object Class="TFTPUploadFileAction" XMLID="{F3282219-6353-42AB-BB8A-28C6DB4C1E78}"><Property MultiValue="0" name="ActionComment" type="string"></Property>
|
||||
<Property MultiValue="1" name="ActionDescription" type="string"><![CDATA[FTP Upload [ FTP Actualizaciones ] [ ListaFicherosUpdate ]]]>
|
||||
</Property>
|
||||
<Property name="ActionTextColor" type="Cardinal">0</Property>
|
||||
<Property MultiValue="0" name="ActionTypeID" type="string"></Property>
|
||||
<Property name="AllowGap" type="Boolean">True</Property>
|
||||
<Property name="AutoUpdateSkew" type="Boolean">False</Property>
|
||||
<Property name="CheckFileSizes" type="Boolean">True</Property>
|
||||
<Property MultiValue="1" name="ConnectionName" type="string"><![CDATA[FTP Actualizaciones]]>
|
||||
</Property>
|
||||
<Property name="DetailedLogging" type="Boolean">True</Property>
|
||||
<Property name="Enabled" type="WordBool">True</Property>
|
||||
<Property name="EnableTimeout" type="Boolean">False</Property>
|
||||
<Property name="ExpandActionLogTitle" type="Boolean">True</Property>
|
||||
<Property MultiValue="0" name="FileSetName" type="string">ListaFicherosUpdate</Property>
|
||||
<Property MultiValue="0" name="FileSpec" type="string"></Property>
|
||||
<Property name="ForceNextClockSkewUpdate" type="Boolean">False</Property>
|
||||
<Property name="GapLength" type="Integer">5</Property>
|
||||
<Property name="IgnoreFailure" type="WordBool">False</Property>
|
||||
<Property name="IsAction" type="Boolean">True</Property>
|
||||
<Property name="IsBreakPoint" type="WordBool">False</Property>
|
||||
<Property MultiValue="0" name="LocalDir" type="string"></Property>
|
||||
<Property MultiValue="0" name="LogToVariable" type="string"></Property>
|
||||
<Property name="MaxRetryAttempts" type="Cardinal">0</Property>
|
||||
<Property name="NodeCollapsed" type="Boolean">False</Property>
|
||||
<Property name="PauseInterval" type="Cardinal">0</Property>
|
||||
<Property name="Recursive" type="Boolean">False</Property>
|
||||
<Property MultiValue="0" name="RemoteFile" type="string"></Property>
|
||||
<Property name="RetryIfUploadFails" type="Boolean">True</Property>
|
||||
<Property name="RetryPauseInterval" type="Cardinal">1000</Property>
|
||||
<Property name="ServerClockSkew" type="Integer">0</Property>
|
||||
<Property name="SuppressStatusMessages" type="Boolean">False</Property>
|
||||
<Property name="ThrottleSpeed" type="Integer">128</Property>
|
||||
<Property name="ThrottleUpload" type="Boolean">False</Property>
|
||||
<Property name="TimeoutLength" type="Cardinal">10</Property>
|
||||
<Property name="UpdateOnly" type="Boolean">True</Property>
|
||||
<Property name="UseFileSpec" type="Boolean">False</Property>
|
||||
</Object>
|
||||
<Object Class="TFBFileSetObject" XMLID="{4C96E19D-4C98-467F-809B-CB662FF2372D}"><Property MultiValue="0" name="BaseDirectory" type="string">%project_path%\Installer\Output</Property>
|
||||
<Property name="ExcludePatternList" type="IFBFileSetPatternList" XMLID="{9C8884C4-AC87-4A06-9C76-F6FCF3C9E49A}"/>
|
||||
<Property name="FilterList" type="IFBFileSetFilterList" XMLID="{93191189-6FD7-4733-A59A-F4F2581CB00C}"/>
|
||||
<Property MultiValue="0" name="Name" type="string">ListaFicherosUpdate</Property>
|
||||
<Property name="OutputQuoting" type="TFileSetQuoteType">qtNone</Property>
|
||||
<Property name="OutputSeparator" type="TFileSetSepType">spNone</Property>
|
||||
<Property name="PatternList" type="IFBFileSetPatternList" XMLID="{2A9CF598-8D00-49FE-A651-B048E48A6EB5}"/>
|
||||
<Property name="RecurseHiddenSystem" type="Boolean">False</Property>
|
||||
<Object Class="TFBFileSetPatternList" XMLID="{2A9CF598-8D00-49FE-A651-B048E48A6EB5}"><Property MultiValue="0" name="Name" type="string">PATTERNLIST</Property>
|
||||
<Object Class="TFBFileSetPattern" XMLID="{B9A535A2-0090-4530-A298-1F2566525C68}"><Property MultiValue="0" name="Comment" type="string"></Property>
|
||||
<Property name="IsRegExpr" type="Boolean">False</Property>
|
||||
<Property MultiValue="0" name="Item" type="string">*.*</Property>
|
||||
<Property name="Recurse" type="Boolean">False</Property>
|
||||
</Object>
|
||||
</Object>
|
||||
<Object Class="TFBFileSetPatternList" XMLID="{9C8884C4-AC87-4A06-9C76-F6FCF3C9E49A}"><Property MultiValue="0" name="Name" type="string">EXCLUDEPATTERNLIST</Property>
|
||||
</Object>
|
||||
<Object Class="TFBFileSetFilterList" XMLID="{93191189-6FD7-4733-A59A-F4F2581CB00C}"/>
|
||||
</Object>
|
||||
</Object>
|
||||
<Object Class="TCommentAction" XMLID="{0C0BACA7-33E4-4C67-9DD8-BC1EDCF60346}"><Property MultiValue="0" name="ActionComment" type="string"></Property>
|
||||
<Property MultiValue="0" name="ActionDescription" type="string">#</Property>
|
||||
<Property name="ActionTextColor" type="Cardinal">16711680</Property>
|
||||
<Property MultiValue="0" name="ActionTypeID" type="string"></Property>
|
||||
<Property MultiValue="0" name="Description" type="string">#</Property>
|
||||
<Property name="Enabled" type="WordBool">True</Property>
|
||||
<Property name="ExpandActionLogTitle" type="Boolean">True</Property>
|
||||
<Property name="IgnoreFailure" type="WordBool">False</Property>
|
||||
<Property name="IsAction" type="Boolean">True</Property>
|
||||
<Property name="IsBreakPoint" type="WordBool">False</Property>
|
||||
<Property MultiValue="0" name="LogToVariable" type="string"></Property>
|
||||
<Property name="MaxRetryAttempts" type="Cardinal">0</Property>
|
||||
<Property name="NodeCollapsed" type="Boolean">False</Property>
|
||||
<Property name="PauseInterval" type="Cardinal">0</Property>
|
||||
<Property name="RetryPauseInterval" type="Cardinal">1000</Property>
|
||||
<Property name="SuppressStatusMessages" type="Boolean">False</Property>
|
||||
</Object>
|
||||
<Object Class="TCommentAction" XMLID="{0EE1EBCC-CBBC-423C-8A8B-C539E0AD3F1A}"><Property MultiValue="0" name="ActionComment" type="string"></Property>
|
||||
<Property MultiValue="0" name="ActionDescription" type="string">#</Property>
|
||||
<Property name="ActionTextColor" type="Cardinal">16711680</Property>
|
||||
<Property MultiValue="0" name="ActionTypeID" type="string"></Property>
|
||||
<Property MultiValue="0" name="Description" type="string">#</Property>
|
||||
<Property name="Enabled" type="WordBool">True</Property>
|
||||
<Property name="ExpandActionLogTitle" type="Boolean">True</Property>
|
||||
<Property name="IgnoreFailure" type="WordBool">False</Property>
|
||||
<Property name="IsAction" type="Boolean">True</Property>
|
||||
<Property name="IsBreakPoint" type="WordBool">False</Property>
|
||||
<Property MultiValue="0" name="LogToVariable" type="string"></Property>
|
||||
<Property name="MaxRetryAttempts" type="Cardinal">0</Property>
|
||||
<Property name="NodeCollapsed" type="Boolean">False</Property>
|
||||
<Property name="PauseInterval" type="Cardinal">0</Property>
|
||||
<Property name="RetryPauseInterval" type="Cardinal">1000</Property>
|
||||
<Property name="SuppressStatusMessages" type="Boolean">False</Property>
|
||||
</Object>
|
||||
<Object Class="TCommentAction" XMLID="{414785EC-5943-4162-A8E1-E74A8C7444AA}"><Property MultiValue="0" name="ActionComment" type="string"></Property>
|
||||
<Property MultiValue="0" name="ActionDescription" type="string">#</Property>
|
||||
<Property name="ActionTextColor" type="Cardinal">16711680</Property>
|
||||
<Property MultiValue="0" name="ActionTypeID" type="string"></Property>
|
||||
<Property MultiValue="0" name="Description" type="string">#</Property>
|
||||
<Property name="Enabled" type="WordBool">True</Property>
|
||||
<Property name="ExpandActionLogTitle" type="Boolean">True</Property>
|
||||
<Property name="IgnoreFailure" type="WordBool">False</Property>
|
||||
<Property name="IsAction" type="Boolean">True</Property>
|
||||
<Property name="IsBreakPoint" type="WordBool">False</Property>
|
||||
<Property MultiValue="0" name="LogToVariable" type="string"></Property>
|
||||
<Property name="MaxRetryAttempts" type="Cardinal">0</Property>
|
||||
<Property name="NodeCollapsed" type="Boolean">False</Property>
|
||||
<Property name="PauseInterval" type="Cardinal">0</Property>
|
||||
<Property name="RetryPauseInterval" type="Cardinal">1000</Property>
|
||||
<Property name="SuppressStatusMessages" type="Boolean">False</Property>
|
||||
</Object>
|
||||
<Object Class="TFTPDisconnectAction" XMLID="{A0067CDC-7F31-43A8-A938-A97C20D918D4}"><Property MultiValue="0" name="ActionComment" type="string"></Property>
|
||||
<Property MultiValue="1" name="ActionDescription" type="string"><![CDATA[FTP Disconnect [ FTP Actualizaciones ]]]>
|
||||
</Property>
|
||||
<Property name="ActionTextColor" type="Cardinal">0</Property>
|
||||
<Property MultiValue="0" name="ActionTypeID" type="string"></Property>
|
||||
<Property MultiValue="1" name="ConnectionName" type="string"><![CDATA[FTP Actualizaciones]]>
|
||||
</Property>
|
||||
<Property name="DetailedLogging" type="Boolean">False</Property>
|
||||
<Property name="Enabled" type="WordBool">True</Property>
|
||||
<Property name="ExpandActionLogTitle" type="Boolean">True</Property>
|
||||
<Property name="IgnoreFailure" type="WordBool">False</Property>
|
||||
<Property name="IsAction" type="Boolean">True</Property>
|
||||
<Property name="IsBreakPoint" type="WordBool">False</Property>
|
||||
<Property MultiValue="0" name="LogToVariable" type="string"></Property>
|
||||
<Property name="MaxRetryAttempts" type="Cardinal">0</Property>
|
||||
<Property name="NodeCollapsed" type="Boolean">False</Property>
|
||||
<Property name="PauseInterval" type="Cardinal">0</Property>
|
||||
<Property name="RetryPauseInterval" type="Cardinal">1000</Property>
|
||||
<Property name="SuppressStatusMessages" type="Boolean">False</Property>
|
||||
</Object>
|
||||
</Object>
|
||||
<Object Class="TFBActionListParametersCollection" XMLID="{B49D139C-E17C-41DB-BA6F-9E7BE6658A3F}"/>
|
||||
</Object>
|
||||
<Object Class="TFBActionList" XMLID="{6E64816C-A2E7-4975-BB38-6B7F97A9A2A0}"><Property name="IsFailure" type="Boolean">True</Property>
|
||||
<Property name="IsMain" type="Boolean">False</Property>
|
||||
<Property MultiValue="0" name="Name" type="string">OnFailure</Property>
|
||||
<Property MultiValue="0" name="UniqueID" type="string">{3825909B-D200-4593-9304-63A49FA84CA9}</Property>
|
||||
<Object Class="TFBAction" XMLID="{0F620111-B2BA-4349-A799-E868BAFB041F}"><Property MultiValue="0" name="ActionComment" type="string"></Property>
|
||||
<Property MultiValue="0" name="ActionDescription" type="string">FinalBuilderAction</Property>
|
||||
<Property name="ActionTextColor" type="Cardinal">0</Property>
|
||||
<Property MultiValue="0" name="ActionTypeID" type="string"></Property>
|
||||
<Property name="Enabled" type="WordBool">True</Property>
|
||||
<Property name="ExpandActionLogTitle" type="Boolean">True</Property>
|
||||
<Property name="IgnoreFailure" type="WordBool">False</Property>
|
||||
<Property name="IsAction" type="Boolean">True</Property>
|
||||
<Property name="IsBreakPoint" type="WordBool">False</Property>
|
||||
<Property MultiValue="0" name="LogToVariable" type="string"></Property>
|
||||
<Property name="MaxRetryAttempts" type="Cardinal">0</Property>
|
||||
<Property name="NodeCollapsed" type="Boolean">False</Property>
|
||||
<Property name="PauseInterval" type="Cardinal">0</Property>
|
||||
<Property name="RetryPauseInterval" type="Cardinal">1000</Property>
|
||||
<Property name="SuppressStatusMessages" type="Boolean">False</Property>
|
||||
</Object>
|
||||
<Object Class="TFBActionListParametersCollection" XMLID="{E15A5391-4DA5-47D3-ADDC-B6BC9AB70F7A}"/>
|
||||
</Object>
|
||||
</Object>
|
||||
<Object Class="TFBVariablesCollection" XMLID="{7255F19A-68E5-4C57-9854-E7C3E6E8F9CB}"><Property MultiValue="0" name="Name" type="string">Project</Property>
|
||||
<Object Class="TFBVariable" XMLID="{23BA1DA8-C505-471D-A53E-5811A50DAEA2}"><Property MultiValue="0" name="Comment" type="string"></Property>
|
||||
<Property MultiValue="0" name="DefaultValue" type="string"></Property>
|
||||
<Property name="IsMacro" type="Boolean">False</Property>
|
||||
<Property name="IsPersistent" type="Boolean">False</Property>
|
||||
<Property name="MakeEnv" type="Boolean">False</Property>
|
||||
<Property MultiValue="0" name="Name" type="string">FTPAddress</Property>
|
||||
<Property name="VariableType" type="TFBVariableType">vtProject</Property>
|
||||
</Object>
|
||||
<Object Class="TFBVariable" XMLID="{976221CE-22AE-41F2-807D-539435613FC4}"><Property MultiValue="0" name="Comment" type="string"></Property>
|
||||
<Property MultiValue="0" name="DefaultValue" type="string"></Property>
|
||||
<Property name="IsMacro" type="Boolean">False</Property>
|
||||
<Property name="IsPersistent" type="Boolean">False</Property>
|
||||
<Property name="MakeEnv" type="Boolean">False</Property>
|
||||
<Property MultiValue="0" name="Name" type="string">FTPRemotePath</Property>
|
||||
<Property name="VariableType" type="TFBVariableType">vtProject</Property>
|
||||
</Object>
|
||||
<Object Class="TFBVariable" XMLID="{FEDCC39B-1CF9-4510-B360-FB33B625CD51}"><Property MultiValue="0" name="Comment" type="string"></Property>
|
||||
<Property MultiValue="0" name="DefaultValue" type="string"></Property>
|
||||
<Property name="IsMacro" type="Boolean">False</Property>
|
||||
<Property name="IsPersistent" type="Boolean">False</Property>
|
||||
<Property name="MakeEnv" type="Boolean">False</Property>
|
||||
<Property MultiValue="0" name="Name" type="string">FTPUser</Property>
|
||||
<Property name="VariableType" type="TFBVariableType">vtProject</Property>
|
||||
</Object>
|
||||
<Object Class="TFBVariable" XMLID="{8578F671-4F91-4D84-85AF-BBEE59425ACF}"><Property MultiValue="0" name="Comment" type="string"></Property>
|
||||
<Property MultiValue="0" name="DefaultValue" type="string"></Property>
|
||||
<Property name="IsMacro" type="Boolean">False</Property>
|
||||
<Property name="IsPersistent" type="Boolean">False</Property>
|
||||
<Property name="MakeEnv" type="Boolean">False</Property>
|
||||
<Property MultiValue="0" name="Name" type="string">FTPPassword</Property>
|
||||
<Property name="VariableType" type="TFBVariableType">vtProject</Property>
|
||||
</Object>
|
||||
<Object Class="TFBVariable" XMLID="{02D50FCB-BC86-407E-B5D9-DA4F9C6E5F49}"><Property MultiValue="0" name="Comment" type="string"></Property>
|
||||
<Property MultiValue="0" name="DefaultValue" type="string"></Property>
|
||||
<Property name="IsMacro" type="Boolean">False</Property>
|
||||
<Property name="IsPersistent" type="Boolean">False</Property>
|
||||
<Property name="MakeEnv" type="Boolean">False</Property>
|
||||
<Property MultiValue="0" name="Name" type="string">_aux_directoylist</Property>
|
||||
<Property name="VariableType" type="TFBVariableType">vtProject</Property>
|
||||
</Object>
|
||||
<Object Class="TFBVariable" XMLID="{01B15C1E-1D63-4EC0-B7C9-0D3A1BE252A4}"><Property MultiValue="0" name="Comment" type="string"></Property>
|
||||
<Property MultiValue="0" name="DefaultValue" type="string"></Property>
|
||||
<Property name="IsMacro" type="Boolean">False</Property>
|
||||
<Property name="IsPersistent" type="Boolean">False</Property>
|
||||
<Property name="MakeEnv" type="Boolean">False</Property>
|
||||
<Property MultiValue="0" name="Name" type="string">_aux_filename</Property>
|
||||
<Property name="VariableType" type="TFBVariableType">vtProject</Property>
|
||||
</Object>
|
||||
<Object Class="TFBVariable" XMLID="{C9ED743F-AF5C-4FB5-9808-070B3F4E32A1}"><Property MultiValue="0" name="Comment" type="string"></Property>
|
||||
<Property MultiValue="0" name="DefaultValue" type="string"></Property>
|
||||
<Property name="IsMacro" type="Boolean">False</Property>
|
||||
<Property name="IsPersistent" type="Boolean">False</Property>
|
||||
<Property name="MakeEnv" type="Boolean">False</Property>
|
||||
<Property MultiValue="0" name="Name" type="string">project_path</Property>
|
||||
<Property name="VariableType" type="TFBVariableType">vtProject</Property>
|
||||
</Object>
|
||||
</Object>
|
||||
</Object>
|
||||
</VSXML>
|
||||
Binary file not shown.
@ -928,7 +928,6 @@ CREATE VIEW V_FACTURAS_CLIENTE(
|
||||
BASE_IMPONIBLE,
|
||||
DESCUENTO,
|
||||
IMPORTE_DESCUENTO,
|
||||
DESCRIPCION_DESCUENTO,
|
||||
IVA,
|
||||
IMPORTE_IVA,
|
||||
RE,
|
||||
@ -965,7 +964,6 @@ SELECT FACTURAS_CLIENTE.ID,
|
||||
FACTURAS_CLIENTE.BASE_IMPONIBLE,
|
||||
FACTURAS_CLIENTE.DESCUENTO,
|
||||
FACTURAS_CLIENTE.IMPORTE_DESCUENTO,
|
||||
FACTURAS_CLIENTE.DESCRIPCION_DESCUENTO,
|
||||
FACTURAS_CLIENTE.IVA,
|
||||
FACTURAS_CLIENTE.IMPORTE_IVA,
|
||||
FACTURAS_CLIENTE.RE,
|
||||
@ -1783,7 +1781,7 @@ SELECT
|
||||
PEDIDOS_CLIENTE.ID,
|
||||
PEDIDOS_CLIENTE.ID_EMPRESA,
|
||||
PEDIDOS_CLIENTE.ID_CLIENTE,
|
||||
CONTACTOS.NOMBRE,
|
||||
V_CLIENTES.NOMBRE,
|
||||
PEDIDOS_CLIENTE.REFERENCIA,
|
||||
PEDIDOS_CLIENTE.REFERENCIA_CLIENTE,
|
||||
V_PED_CLI_SITUACION.SITUACION,
|
||||
@ -1816,7 +1814,7 @@ SELECT
|
||||
FROM
|
||||
V_PED_CLI_SITUACION
|
||||
INNER JOIN PEDIDOS_CLIENTE ON (PEDIDOS_CLIENTE.ID = V_PED_CLI_SITUACION.ID_PEDIDO)
|
||||
INNER JOIN CONTACTOS ON (PEDIDOS_CLIENTE.ID_CLIENTE = CONTACTOS.ID)
|
||||
INNER JOIN V_CLIENTES ON (PEDIDOS_CLIENTE.ID_CLIENTE = V_CLIENTES.ID)
|
||||
LEFT JOIN IMPRESIONES
|
||||
ON ((IMPRESIONES.ID_TABLA = PEDIDOS_CLIENTE.ID) AND (IMPRESIONES.TABLA = 'PEDIDOSCLIENTE'))
|
||||
LEFT JOIN REGISTRO_CORREOS
|
||||
@ -1867,7 +1865,7 @@ SELECT
|
||||
PEDIDOS_PROVEEDOR.ID,
|
||||
PEDIDOS_PROVEEDOR.ID_EMPRESA,
|
||||
PEDIDOS_PROVEEDOR.ID_PROVEEDOR,
|
||||
CONTACTOS.NOMBRE,
|
||||
V_PROVEEDORES.NOMBRE,
|
||||
PEDIDOS_PROVEEDOR.REFERENCIA,
|
||||
V_PED_PROV_SITUACION.SITUACION,
|
||||
PEDIDOS_PROVEEDOR.FECHA_ENVIO,
|
||||
@ -1903,7 +1901,7 @@ SELECT
|
||||
REGISTRO_CORREOS.NUM_CORREOS
|
||||
FROM
|
||||
PEDIDOS_PROVEEDOR
|
||||
INNER JOIN COnTACTOS ON (PEDIDOS_PROVEEDOR.ID_PROVEEDOR = CONTACTOS.ID)
|
||||
INNER JOIN V_PROVEEDORES ON (PEDIDOS_PROVEEDOR.ID_PROVEEDOR = V_PROVEEDORES.ID)
|
||||
INNER JOIN V_PED_PROV_SITUACION ON (V_PED_PROV_SITUACION.ID_PEDIDO = PEDIDOS_PROVEEDOR.ID)
|
||||
LEFT OUTER JOIN ALMACENES ON (ALMACENES.ID = PEDIDOS_PROVEEDOR.ID_ALMACEN)
|
||||
LEFT OUTER JOIN PEDIDOS_CLIENTE ON (PEDIDOS_CLIENTE.ID = PEDIDOS_PROVEEDOR.ID_PEDIDO_CLIENTE)
|
||||
|
||||
@ -471,7 +471,6 @@ CREATE TABLE FACTURAS_CLIENTE (
|
||||
BASE_IMPONIBLE TIPO_IMPORTE,
|
||||
DESCUENTO TIPO_PORCENTAJE,
|
||||
IMPORTE_DESCUENTO TIPO_IMPORTE,
|
||||
DESCRIPCION_DESCUENTO VARCHAR(255) COLLATE ES_ES,
|
||||
IVA TIPO_PORCENTAJE,
|
||||
IMPORTE_IVA TIPO_IMPORTE,
|
||||
RE TIPO_PORCENTAJE,
|
||||
|
||||
@ -61,15 +61,8 @@ inherited frViewGrid: TfrViewGrid
|
||||
Width = 554
|
||||
Height = 102
|
||||
Align = alTop
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
TabOrder = 1
|
||||
Visible = False
|
||||
ReadOnly = False
|
||||
ExplicitWidth = 554
|
||||
inherited TBXDockablePanel1: TTBXDockablePanel
|
||||
ExplicitWidth = 554
|
||||
@ -114,7 +107,6 @@ inherited frViewGrid: TfrViewGrid
|
||||
SupportedDocks = [dkStandardDock, dkMultiDock]
|
||||
TabOrder = 2
|
||||
Visible = False
|
||||
ExplicitWidth = 128
|
||||
object TBXAlignmentPanel1: TTBXAlignmentPanel
|
||||
Left = 0
|
||||
Top = 0
|
||||
@ -162,7 +154,7 @@ inherited frViewGrid: TfrViewGrid
|
||||
PrinterPage.ScaleMode = smFit
|
||||
PrinterPage._dxMeasurementUnits_ = 0
|
||||
PrinterPage._dxLastMU_ = 2
|
||||
ReportDocument.CreationDate = 40259.515870208340000000
|
||||
ReportDocument.CreationDate = 39738.576001226850000000
|
||||
StyleManager = dxPrintStyleManager1
|
||||
OptionsCards.Shadow.Depth = 0
|
||||
OptionsExpanding.ExpandGroupRows = True
|
||||
|
||||
@ -21,7 +21,7 @@ uses
|
||||
dxPSEdgePatterns, dxPSCore, dxPScxCommon, dxPScxGrid6Lnk, dxPrnDlg,
|
||||
cxIntlPrintSys3, dxPSPrvwAdv, uViewGridBase, cxGridCustomPopupMenu,
|
||||
cxGridPopupMenu, uViewFiltroBase, ComCtrls, cxPC, ImgList, PngImageList,
|
||||
TB2Item, TBX, TB2Dock, TB2Toolbar, TBXDkPanels, dxPgsDlg, uCustomView;
|
||||
TB2Item, TBX, TB2Dock, TB2Toolbar, TBXDkPanels, dxPgsDlg;
|
||||
|
||||
type
|
||||
IViewGrid = interface(IViewGridBase)
|
||||
|
||||
@ -50,12 +50,11 @@ function PreguntarFicheroExcelExportar (var Fichero : String) : Boolean;
|
||||
function EscapeIllegalChars(AFileName: string): string;
|
||||
function FindFile(const filespec: TFileName; attributes: integer = faReadOnly Or faHidden Or faSysFile Or faArchive): TStringList;
|
||||
|
||||
function DarRutaFichero(const ARutaIni: String; const AFichero: String; const ADirectorio1: String = ''; const ADirectorio2: String = ''): Variant;
|
||||
|
||||
implementation
|
||||
|
||||
uses
|
||||
Windows, Variants, Dialogs, JclFileUtils,
|
||||
Windows, Dialogs, JclFileUtils,
|
||||
Messages, Graphics, Controls, Forms,
|
||||
StdCtrls, SHFolder, cxShellBrowserDialog,
|
||||
cxLookAndFeels, uStringsUtils;
|
||||
@ -436,28 +435,6 @@ begin
|
||||
Result := DarRutaTemporal + Cadena + '\';
|
||||
end;
|
||||
|
||||
function DarRutaFichero(const ARutaIni: String; const AFichero: String; const ADirectorio1: String = ''; const ADirectorio2: String = ''): Variant;
|
||||
var
|
||||
ARutaCompleta: String;
|
||||
begin
|
||||
Result := Null;
|
||||
|
||||
ARutaCompleta := ARutaIni + '\' + ADirectorio1 + '\' + ADirectorio2 + '\' + AFichero;
|
||||
if FileExists(ARutaCompleta) then
|
||||
Result := ARutaCompleta
|
||||
else
|
||||
begin
|
||||
ARutaCompleta := ARutaIni + '\' + ADirectorio1 + '\' + AFichero;
|
||||
if FileExists(ARutaCompleta) then
|
||||
Result := ARutaCompleta
|
||||
else
|
||||
begin
|
||||
ARutaCompleta := ARutaIni + '\' + AFichero;
|
||||
if FileExists(ARutaCompleta) then
|
||||
Result := ARutaCompleta
|
||||
end
|
||||
end
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
|
||||
|
||||
@ -149,7 +149,7 @@
|
||||
<VersionInfo Name="AutoIncBuild">False</VersionInfo>
|
||||
<VersionInfo Name="MajorVer">3</VersionInfo>
|
||||
<VersionInfo Name="MinorVer">3</VersionInfo>
|
||||
<VersionInfo Name="Release">7</VersionInfo>
|
||||
<VersionInfo Name="Release">5</VersionInfo>
|
||||
<VersionInfo Name="Build">0</VersionInfo>
|
||||
<VersionInfo Name="Debug">False</VersionInfo>
|
||||
<VersionInfo Name="PreRelease">False</VersionInfo>
|
||||
@ -162,13 +162,13 @@
|
||||
<VersionInfoKeys>
|
||||
<VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="FileVersion">3.3.7.0</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="FileVersion">3.3.5.0</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="ProductName"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="ProductVersion">3.3.7.0</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="ProductVersion">3.3.5.0</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="Comments"></VersionInfoKeys>
|
||||
</VersionInfoKeys> <Excluded_Packages>
|
||||
<Excluded_Packages Name="C:\Documents and Settings\Usuario\Mis documentos\Borland Studio Projects\Bpl\EasyListviewD10.bpl">Muststang Peak EasyListview Runtime Package</Excluded_Packages>
|
||||
|
||||
@ -13,6 +13,8 @@ uses
|
||||
uMainMenuController in 'uMainMenuController.pas',
|
||||
uClienteUtils in 'Utiles\uClienteUtils.pas';
|
||||
|
||||
|
||||
|
||||
{$R *.res}
|
||||
|
||||
var
|
||||
|
||||
@ -1,7 +1,7 @@
|
||||
MAINICON ICON "c:\Codigo Luis Leon\Source\Iconos\Factuges.ico"
|
||||
1 VERSIONINFO
|
||||
FILEVERSION 3,3,7,0
|
||||
PRODUCTVERSION 3,3,7,0
|
||||
FILEVERSION 3,3,5,0
|
||||
PRODUCTVERSION 3,3,5,0
|
||||
FILEFLAGSMASK 0x3FL
|
||||
FILEFLAGS 0x00L
|
||||
FILEOS 0x40004L
|
||||
@ -13,9 +13,9 @@ BEGIN
|
||||
BLOCK "0C0A04E4"
|
||||
BEGIN
|
||||
VALUE "CompanyName", "Rodax Software S.L.\0"
|
||||
VALUE "FileVersion", "3.3.7.0\0"
|
||||
VALUE "FileVersion", "3.3.5.0\0"
|
||||
VALUE "InternalName", "FactuGES\0"
|
||||
VALUE "ProductVersion", "3.3.7.0\0"
|
||||
VALUE "ProductVersion", "3.3.5.0\0"
|
||||
END
|
||||
END
|
||||
BLOCK "VarFileInfo"
|
||||
|
||||
Binary file not shown.
@ -2,7 +2,7 @@ object fPantallaPrincipal: TfPantallaPrincipal
|
||||
Left = 358
|
||||
Top = 250
|
||||
Caption = 'Pantalla principal'
|
||||
ClientHeight = 681
|
||||
ClientHeight = 662
|
||||
ClientWidth = 559
|
||||
Color = clWindow
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
@ -23,7 +23,7 @@ object fPantallaPrincipal: TfPantallaPrincipal
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 559
|
||||
Height = 659
|
||||
Height = 640
|
||||
Margins.Left = 5
|
||||
Margins.Top = 5
|
||||
Margins.Right = 5
|
||||
@ -31,12 +31,11 @@ object fPantallaPrincipal: TfPantallaPrincipal
|
||||
ParentColor = True
|
||||
Align = alClient
|
||||
TabOrder = 0
|
||||
ExplicitHeight = 640
|
||||
object JvSyncSplitter1: TJvSyncSplitter
|
||||
Left = 215
|
||||
Top = 5
|
||||
Width = 5
|
||||
Height = 649
|
||||
Height = 630
|
||||
ResizeStyle = rsPattern
|
||||
ExplicitLeft = 210
|
||||
ExplicitHeight = 570
|
||||
@ -45,7 +44,7 @@ object fPantallaPrincipal: TfPantallaPrincipal
|
||||
Left = 5
|
||||
Top = 5
|
||||
Width = 210
|
||||
Height = 649
|
||||
Height = 630
|
||||
ActivePage = pagInicio
|
||||
Align = alLeft
|
||||
AutoHeaders = True
|
||||
@ -86,12 +85,11 @@ object fPantallaPrincipal: TfPantallaPrincipal
|
||||
NavPanelHotTrackFont.Style = []
|
||||
SmallImages = ModulesSmallImageList
|
||||
OnChange = JvNavigationPaneChange
|
||||
ExplicitHeight = 630
|
||||
object pagInicio: TJvNavPanelPage
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 208
|
||||
Height = 576
|
||||
Height = 557
|
||||
Background.Stretch = False
|
||||
Background.Proportional = False
|
||||
Background.Center = False
|
||||
@ -99,17 +97,15 @@ object fPantallaPrincipal: TfPantallaPrincipal
|
||||
Background.Transparent = False
|
||||
Caption = 'Inicio'
|
||||
ImageIndex = 0
|
||||
ExplicitHeight = 557
|
||||
object Panel1: TPanel
|
||||
Left = 0
|
||||
Top = 490
|
||||
Top = 471
|
||||
Width = 208
|
||||
Height = 86
|
||||
Align = alBottom
|
||||
Color = clWindow
|
||||
ParentBackground = False
|
||||
TabOrder = 1
|
||||
ExplicitTop = 471
|
||||
object Label1: TLabel
|
||||
Left = 38
|
||||
Top = 29
|
||||
@ -157,21 +153,19 @@ object fPantallaPrincipal: TfPantallaPrincipal
|
||||
Left = 220
|
||||
Top = 5
|
||||
Width = 334
|
||||
Height = 649
|
||||
Height = 630
|
||||
BoundColor = clActiveCaption
|
||||
BoundLines = [blLeft, blTop, blRight, blBottom]
|
||||
Caption = 'pnlBorde'
|
||||
Align = alClient
|
||||
ExplicitHeight = 630
|
||||
object pnlMain: TTBXAlignmentPanel
|
||||
Left = 1
|
||||
Top = 1
|
||||
Width = 332
|
||||
Height = 647
|
||||
Height = 628
|
||||
Align = alClient
|
||||
Color = clWindow
|
||||
TabOrder = 0
|
||||
ExplicitHeight = 628
|
||||
object lblBienvenido: TLabel
|
||||
Left = 8
|
||||
Top = 8
|
||||
@ -208,7 +202,7 @@ object fPantallaPrincipal: TfPantallaPrincipal
|
||||
end
|
||||
object TBXStatusBar1: TTBXStatusBar
|
||||
Left = 0
|
||||
Top = 659
|
||||
Top = 640
|
||||
Width = 559
|
||||
Images = StatusPanelImageList
|
||||
Panels = <
|
||||
@ -230,7 +224,6 @@ object fPantallaPrincipal: TfPantallaPrincipal
|
||||
Tag = 0
|
||||
end>
|
||||
UseSystemFont = False
|
||||
ExplicitTop = 640
|
||||
end
|
||||
object XPManifest1: TXPManifest
|
||||
Left = 248
|
||||
|
||||
File diff suppressed because one or more lines are too long
@ -1,37 +0,0 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<TfrxReport Version="3.23.7" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" ReportOptions.CreateDate="39065,8724234954" ReportOptions.Description.Text="" ReportOptions.LastChange="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>
|
||||
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
@ -1,21 +0,0 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<TfrxReport Version="3.23.7" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" ReportOptions.CreateDate="39065,8724234954" ReportOptions.Description.Text="" ReportOptions.LastChange="39289,4026321875" ScriptLanguage="PascalScript" ScriptText.Text=" 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>
|
||||
@ -1,8 +0,0 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<TfrxReport Version="3.23.7" DotMatrixReport="False" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" ReportOptions.CreateDate="38330,7129042477" ReportOptions.Description.Text="" ReportOptions.LastChange="39363,8633537616" ScriptLanguage="PascalScript" ScriptText.Text="procedure Memo2OnBeforePrint(Sender: TfrxComponent); 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>
|
||||
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
@ -1,39 +0,0 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<TfrxReport Version="3.23.7" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" ReportOptions.CreateDate="39065,8724234954" ReportOptions.Description.Text="" ReportOptions.LastChange="39352,7840438657" ScriptLanguage="PascalScript" ScriptText.Text=" 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>
|
||||
File diff suppressed because one or more lines are too long
@ -1,55 +0,0 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<TfrxReport Version="3.23.7" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.OutlineWidth="180" PreviewOptions.Zoom="1" PrintOptions.Printer="Default" ReportOptions.CreateDate="37871,9953986921" ReportOptions.Description.Text="" ReportOptions.LastChange="39611,7728282292" ReportOptions.VersionBuild="1" ReportOptions.VersionMajor="12" ReportOptions.VersionMinor="13" ReportOptions.VersionRelease="1" ScriptLanguage="PascalScript" ScriptText.Text="procedure ReportSummary1OnBeforePrint(Sender: TfrxComponent); 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>
|
||||
@ -1,64 +0,0 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<TfrxReport Version="3.23.7" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.OutlineWidth="180" PreviewOptions.Zoom="1" PrintOptions.Printer="Default" ReportOptions.CreateDate="37871,9953986921" ReportOptions.Description.Text="" ReportOptions.LastChange="39611,7817196528" ReportOptions.VersionBuild="1" ReportOptions.VersionMajor="12" ReportOptions.VersionMinor="13" ReportOptions.VersionRelease="1" ScriptLanguage="PascalScript" ScriptText.Text=" 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>
|
||||
File diff suppressed because one or more lines are too long
@ -48,7 +48,7 @@ implementation
|
||||
{$R *.dfm}
|
||||
|
||||
uses
|
||||
uSistemaFunc, uDataModuleServer, schAlbaranesClienteClient_Intf;
|
||||
uDataModuleServer, schAlbaranesClienteClient_Intf;
|
||||
|
||||
const
|
||||
rptInfAlbaran = 'InfAlbaranCliente.fr3';
|
||||
@ -107,7 +107,6 @@ var
|
||||
AStream: TMemoryStream;
|
||||
dsMaster: IDADataset;
|
||||
dsDetail: IDADataset;
|
||||
AInforme: Variant;
|
||||
begin
|
||||
AStream := TMemoryStream.Create;
|
||||
FConnection.BeginTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO"
|
||||
@ -124,12 +123,7 @@ begin
|
||||
DABINAdapter.WriteDataset(AStream, dsDetail, [woRows, woSchema], -1);
|
||||
DABINAdapter.ReadDataset(AStream, tbl_Detalles, TRUE, '', TRUE, TRUE);
|
||||
|
||||
|
||||
AInforme := DarRutaFichero(DarRutaInformes, rptInfAlbaran, tbl_Cabecera.FieldByName('ID_EMPRESA').AsString);
|
||||
if VarIsNull(AInforme) then
|
||||
raise Exception.Create (('Error Servidor: _GenerarAlbaran, no encuentra informe ' + rptInfAlbaran));
|
||||
|
||||
frxReport.LoadFromFile(AInforme, True);
|
||||
frxReport.LoadFromFile(DarRutaInformes + rptInfAlbaran, True);
|
||||
frxReport.PrepareReport(False);
|
||||
|
||||
finally
|
||||
@ -145,7 +139,6 @@ var
|
||||
dsMaster: IDADataset;
|
||||
dsDetail: IDADataset;
|
||||
AStream: TMemoryStream;
|
||||
AInforme: Variant;
|
||||
begin
|
||||
AStream := TMemoryStream.Create;
|
||||
Result := Binary.Create;
|
||||
@ -162,12 +155,7 @@ begin
|
||||
DABINAdapter.WriteDataset(AStream, dsDetail, [woRows, woSchema], -1);
|
||||
DABINAdapter.ReadDataset(AStream, tbl_Detalles, TRUE, '', TRUE, TRUE);
|
||||
|
||||
|
||||
AInforme := DarRutaFichero(DarRutaInformes, rptInfEtiquetas, tbl_Cabecera.FieldByName('ID_EMPRESA').AsString);
|
||||
if VarIsNull(AInforme) then
|
||||
raise Exception.Create (('Error Servidor: _GenerarEtiquetas, no encuentra informe ' + rptInfEtiquetas));
|
||||
|
||||
frxReport.LoadFromFile(AInforme, True);
|
||||
frxReport.LoadFromFile(DarRutaInformes + rptInfEtiquetas, True);
|
||||
if withRefCliente then
|
||||
frxReport.Variables.Variables['withRefCliente'] := 1
|
||||
else
|
||||
|
||||
@ -44,7 +44,7 @@ implementation
|
||||
{$R *.dfm}
|
||||
|
||||
uses
|
||||
uSistemaFunc, uDataModuleServer, schAlbaranesProveedorClient_Intf;
|
||||
uDataModuleServer, schAlbaranesProveedorClient_Intf;
|
||||
|
||||
const
|
||||
rptInforme = 'InfAlbaranProveedor.fr3';
|
||||
@ -106,7 +106,6 @@ var
|
||||
AStream: TMemoryStream;
|
||||
dsMaster: IDADataset;
|
||||
dsDetail: IDADataset;
|
||||
AInforme: Variant;
|
||||
begin
|
||||
AStream := TMemoryStream.Create;
|
||||
FConnection.BeginTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO"
|
||||
@ -123,12 +122,7 @@ begin
|
||||
DABINAdapter.WriteDataset(AStream, dsDetail, [woRows, woSchema], -1);
|
||||
DABINAdapter.ReadDataset(AStream, tbl_Detalles, TRUE, '', TRUE, 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.LoadFromFile(DarRutaInformes + rptInforme, True);
|
||||
frxReport.PrepareReport(False);
|
||||
|
||||
finally
|
||||
|
||||
@ -150,7 +150,7 @@ begin
|
||||
else
|
||||
Result := (FDataModule as IDataModuleArticulos).GetItem(ID, AClienteID);
|
||||
|
||||
// FiltrarEmpresa(Result);
|
||||
FiltrarEmpresa(Result);
|
||||
end;
|
||||
|
||||
function TArticulosController.BuscarInventariables: IBizArticulo;
|
||||
@ -218,7 +218,7 @@ end;
|
||||
function TArticulosController.BuscarTodos(ACliente: Integer): IBizArticulo;
|
||||
begin
|
||||
Result := FDataModule.GetItems(ACliente);
|
||||
// FiltrarEmpresa(Result);
|
||||
FiltrarEmpresa(Result);
|
||||
end;
|
||||
|
||||
function TArticulosController.BuscarTodos(ACliente: IBizCliente): IBizArticulo;
|
||||
@ -253,7 +253,7 @@ end;
|
||||
function TArticulosController.BuscarTodos: IBizArticulo;
|
||||
begin
|
||||
Result := FDataModule.GetItems;
|
||||
// FiltrarEmpresa(Result);
|
||||
FiltrarEmpresa(Result);
|
||||
end;
|
||||
|
||||
procedure TArticulosController.CalcularPrecioNeto(AArticulos: IBizArticulo);
|
||||
@ -598,7 +598,7 @@ var
|
||||
AArticulo : IBizArticulo;
|
||||
begin
|
||||
AArticulo := FDataModule.NewItem;
|
||||
// FiltrarEmpresa(AArticulo);
|
||||
FiltrarEmpresa(AArticulo);
|
||||
AArticulo.DataTable.Active := True;
|
||||
AArticulo.Insert;
|
||||
Result := AArticulo;
|
||||
|
||||
@ -30,8 +30,6 @@ type
|
||||
function BuscarFacturasDesglosadas(AFacturas: IBizFacturaCliente): IBizFacturasComision;
|
||||
// procedure QuitarExistentes(AFacturas: IBizFacturaCliente; AFacturasComision: IBizFacturasComision);
|
||||
|
||||
procedure FiltrarEmpresa(AComision: IBizComisiones);
|
||||
|
||||
protected
|
||||
FDataModule : IDataModuleComisiones;
|
||||
FFacturasClienteController: IFacturasClienteController;
|
||||
@ -221,7 +219,6 @@ end;
|
||||
function TComisionesController.BuscarTodos: IBizComisiones;
|
||||
begin
|
||||
Result := FDataModule.GetItems;
|
||||
FiltrarEmpresa(Result);
|
||||
end;
|
||||
|
||||
constructor TComisionesController.Create;
|
||||
@ -432,20 +429,6 @@ begin
|
||||
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);
|
||||
begin
|
||||
inherited;
|
||||
|
||||
@ -1376,7 +1376,7 @@ object RptComisiones: TRptComisiones
|
||||
Top = 158
|
||||
end
|
||||
object frxReport: TfrxReport
|
||||
Version = '4.3'
|
||||
Version = '3.23.7'
|
||||
DotMatrixReport = False
|
||||
EngineOptions.DoublePass = True
|
||||
IniFile = '\Software\Fast Reports'
|
||||
@ -1384,7 +1384,6 @@ object RptComisiones: TRptComisiones
|
||||
PreviewOptions.OutlineWidth = 180
|
||||
PreviewOptions.Zoom = 1.000000000000000000
|
||||
PrintOptions.Printer = 'Default'
|
||||
PrintOptions.PrintOnSheet = 0
|
||||
ReportOptions.CreateDate = 37871.995398692100000000
|
||||
ReportOptions.LastChange = 39266.688905347220000000
|
||||
ReportOptions.VersionBuild = '1'
|
||||
@ -1437,6 +1436,62 @@ object RptComisiones: TRptComisiones
|
||||
StoreInDFM = False
|
||||
Left = 169
|
||||
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
|
||||
object frxDBCabecera: TfrxDBDataset
|
||||
UserName = 'frxDBCabecera'
|
||||
|
||||
@ -37,7 +37,7 @@ implementation
|
||||
{$R *.dfm}
|
||||
|
||||
uses
|
||||
uSistemaFunc, uDataModuleServer, schReportClient_Intf;
|
||||
uDataModuleServer, schReportClient_Intf;
|
||||
|
||||
const
|
||||
rptComision = 'InfComisiones.fr3';
|
||||
@ -61,7 +61,6 @@ function TRptComisiones.GenerarComision(const AComisionID : Variant; const Desgl
|
||||
var
|
||||
dsMaster: IDADataset;
|
||||
AStream: TMemoryStream;
|
||||
AInforme: Variant;
|
||||
begin
|
||||
AStream := TMemoryStream.Create;
|
||||
Result := Binary.Create;
|
||||
@ -108,21 +107,9 @@ begin
|
||||
DABINAdapter.ReadDataset(AStream, tbl_Comisiones, TRUE, '', TRUE, TRUE);
|
||||
|
||||
if DesglosadoProv then
|
||||
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
|
||||
frxReport.LoadFromFile(DarRutaInformes + rptComisionDesglosado, True)
|
||||
else
|
||||
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.LoadFromFile(DarRutaInformes + rptComision, True);
|
||||
|
||||
frxReport.Variables['FechaIni'] := QuotedStr(FechaIni);
|
||||
frxReport.Variables['FechaFin'] := QuotedStr(FechaFin);
|
||||
|
||||
@ -9,17 +9,17 @@ const
|
||||
{ Data table rules ids
|
||||
Feel free to change them to something more human readable
|
||||
but make sure they are unique in the context of your application }
|
||||
RID_Contactos = '{8CD2171A-3002-4130-9553-1A4F691BBCEE}';
|
||||
RID_GruposCliente = '{DFD26958-96EC-4899-929E-5E0AA4989FB8}';
|
||||
RID_ClienteEliminable = '{AF773B24-4F18-41F6-99FD-61EF39C4E15B}';
|
||||
RID_DatosBancarios = '{3B26C029-EB2B-44F0-9B16-577FCBB002F7}';
|
||||
RID_ContactosCategorias = '{14EA0534-43AB-4C2D-AD4E-8B2296D61FD1}';
|
||||
RID_Clientes = '{97E0D322-7374-4E50-BED3-6FC3EC2D909F}';
|
||||
RID_Proveedores = '{1BBB9786-6529-43FC-AE52-0BC27C116F30}';
|
||||
RID_Agentes = '{60C288E2-F28E-4C2B-9A18-B4B3C0C98BA7}';
|
||||
RID_DireccionesContacto = '{F30B2CD3-D508-4A44-928D-2724C45253E8}';
|
||||
RID_AgentesComisiones = '{0F8E7B45-4D69-4BB2-9788-55267E69C27A}';
|
||||
RID_ClientesDescuentos = '{D4DF5FA7-4CD6-497E-A658-1A4797BFFFCF}';
|
||||
RID_Contactos = '{8DB966AC-5E6E-45D2-985E-608DBF4431DC}';
|
||||
RID_GruposCliente = '{916430A0-9119-40A8-BD75-0D167170697B}';
|
||||
RID_ClienteEliminable = '{BDE7F021-7D40-442C-A60A-6BCE999B3E76}';
|
||||
RID_DatosBancarios = '{72E93F56-6CD9-4840-AC91-BC3619B6DBBA}';
|
||||
RID_ContactosCategorias = '{87F9603C-21B7-4A45-B2D1-D42C1BD24124}';
|
||||
RID_Clientes = '{FC2D5240-5CB5-473F-85BA-7C848198643E}';
|
||||
RID_Proveedores = '{8B6E18AE-B694-4D8F-A9AD-E00286BDA417}';
|
||||
RID_Agentes = '{E7B9B4D9-1DD9-45DC-AC1E-01EC9FDCD10A}';
|
||||
RID_DireccionesContacto = '{39EE7BEF-4CB2-48C4-9DBC-93913A30B200}';
|
||||
RID_AgentesComisiones = '{2202C71F-70D4-4EF3-87EF-62B1A4E64DCD}';
|
||||
RID_ClientesDescuentos = '{123A04B2-4B64-49C4-9A70-892C08CEBDF4}';
|
||||
|
||||
{ Data table names }
|
||||
nme_Contactos = 'Contactos';
|
||||
@ -379,7 +379,7 @@ const
|
||||
type
|
||||
{ IContactos }
|
||||
IContactos = interface(IDAStronglyTypedDataTable)
|
||||
['{787ADE80-F984-4B67-B4C0-A2B933210BF3}']
|
||||
['{129F3A9A-CAEE-422B-9962-ED37AA1B8DA1}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -534,7 +534,7 @@ type
|
||||
|
||||
{ IGruposCliente }
|
||||
IGruposCliente = interface(IDAStronglyTypedDataTable)
|
||||
['{30B50D38-F156-41A8-B360-E3E21A627F32}']
|
||||
['{E7D5EDB0-EEE7-433E-BD7D-A9B7B0E22231}']
|
||||
{ Property getters and setters }
|
||||
function GetDESCRIPCIONValue: String;
|
||||
procedure SetDESCRIPCIONValue(const aValue: String);
|
||||
@ -563,7 +563,7 @@ type
|
||||
|
||||
{ IClienteEliminable }
|
||||
IClienteEliminable = interface(IDAStronglyTypedDataTable)
|
||||
['{9B81F948-EF40-4D43-9B83-5492EF0148B2}']
|
||||
['{9A1C2E5A-6BEE-4C64-9E92-EE7AA70A0E00}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -598,7 +598,7 @@ type
|
||||
|
||||
{ IDatosBancarios }
|
||||
IDatosBancarios = interface(IDAStronglyTypedDataTable)
|
||||
['{BBFCFE93-B454-4BC0-ABB4-0E12C7F5CAC8}']
|
||||
['{FBA163E1-FB0B-48AB-A018-301A11A05078}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -663,7 +663,7 @@ type
|
||||
|
||||
{ IContactosCategorias }
|
||||
IContactosCategorias = interface(IDAStronglyTypedDataTable)
|
||||
['{012F1CA7-8AE0-4462-AEB2-4B1351EFD72B}']
|
||||
['{B51A66E8-B60F-498B-A578-E2C4C4C6DEA3}']
|
||||
{ Property getters and setters }
|
||||
function GetID_CONTACTOValue: Integer;
|
||||
procedure SetID_CONTACTOValue(const aValue: Integer);
|
||||
@ -698,7 +698,7 @@ type
|
||||
|
||||
{ IClientes }
|
||||
IClientes = interface(IDAStronglyTypedDataTable)
|
||||
['{357D6A95-C3E0-4889-B48C-9701694567E9}']
|
||||
['{5318AB05-B7DA-4083-83F3-C8601201C3A2}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -949,7 +949,7 @@ type
|
||||
|
||||
{ IProveedores }
|
||||
IProveedores = interface(IDAStronglyTypedDataTable)
|
||||
['{185A04AB-054D-475A-ACAF-3615F2FDDC18}']
|
||||
['{6B2547D0-73B9-4A4B-B799-4D37005F99F3}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -1158,7 +1158,7 @@ type
|
||||
|
||||
{ IAgentes }
|
||||
IAgentes = interface(IDAStronglyTypedDataTable)
|
||||
['{45138401-D00C-47C9-B545-81193C2A0799}']
|
||||
['{19AC98BF-4123-481B-995E-84962805FBA1}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -1313,7 +1313,7 @@ type
|
||||
|
||||
{ IDireccionesContacto }
|
||||
IDireccionesContacto = interface(IDAStronglyTypedDataTable)
|
||||
['{883C1ABB-363E-4AA3-B5DF-F8B072E0F729}']
|
||||
['{F54AA472-C5F9-4E24-8C87-D0B273FBD687}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -1420,7 +1420,7 @@ type
|
||||
|
||||
{ IAgentesComisiones }
|
||||
IAgentesComisiones = interface(IDAStronglyTypedDataTable)
|
||||
['{BF1D13A0-E79B-4458-B11F-EBD7F789F0C1}']
|
||||
['{5EE1C84D-093A-4A09-B2B9-E956F01E9ADC}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -1473,7 +1473,7 @@ type
|
||||
|
||||
{ IClientesDescuentos }
|
||||
IClientesDescuentos = interface(IDAStronglyTypedDataTable)
|
||||
['{27D77A4D-007A-4AD3-8781-E834A196285A}']
|
||||
['{1225583F-EBB3-4673-9C53-670AFBA01826}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
|
||||
@ -9,22 +9,22 @@ const
|
||||
{ Delta rules ids
|
||||
Feel free to change them to something more human readable
|
||||
but make sure they are unique in the context of your application }
|
||||
RID_ContactosDelta = '{ED3DC929-6DF8-44C9-A77A-8854F74F281C}';
|
||||
RID_GruposClienteDelta = '{E416320D-F8B9-4086-9DF5-B12DC21C37FE}';
|
||||
RID_ClienteEliminableDelta = '{D47AA51C-3F22-4185-94FC-D92E570749B5}';
|
||||
RID_DatosBancariosDelta = '{BA78D5CC-F08A-4C98-B891-33A4079D54A1}';
|
||||
RID_ContactosCategoriasDelta = '{F1C35B46-DC20-477E-B2CA-345807F1262D}';
|
||||
RID_ClientesDelta = '{B20D68B1-ABA7-409F-9B42-AD7A43A10DB5}';
|
||||
RID_ProveedoresDelta = '{6D5CDCC5-86ED-466E-B9B2-EA8B2B5203F3}';
|
||||
RID_AgentesDelta = '{25995918-FB9D-4E8D-972B-E52FE149A435}';
|
||||
RID_DireccionesContactoDelta = '{F0BD77F8-70C0-4B9E-AE8D-B2EF02350C1C}';
|
||||
RID_AgentesComisionesDelta = '{B1F1802F-E10B-4A50-9CC4-376DDA2961F7}';
|
||||
RID_ClientesDescuentosDelta = '{1CC3E306-6A9D-4951-94C1-54CDEC790F13}';
|
||||
RID_ContactosDelta = '{FBA19294-A947-41DA-9ABF-0F58B7AD3871}';
|
||||
RID_GruposClienteDelta = '{63CFD830-E148-4E4D-802B-B274275CC4A0}';
|
||||
RID_ClienteEliminableDelta = '{3ABFD442-48BB-451F-8923-EECB61A74980}';
|
||||
RID_DatosBancariosDelta = '{24737E5E-FF2A-49CA-82E6-CF01F6A4F1AD}';
|
||||
RID_ContactosCategoriasDelta = '{E9CCBC76-017F-49DA-8AC1-5D05D3F5BD58}';
|
||||
RID_ClientesDelta = '{D36C7B31-0994-4EDE-A0AF-AF7CF1AA5622}';
|
||||
RID_ProveedoresDelta = '{C5F98D58-4E55-4BCD-AEE1-4D15FCFCD402}';
|
||||
RID_AgentesDelta = '{FBAE47C9-5F62-4EEB-A61B-9DE8145AC3A3}';
|
||||
RID_DireccionesContactoDelta = '{EF9D18DF-D0EB-4433-A8D0-F22735A7F6A3}';
|
||||
RID_AgentesComisionesDelta = '{B296BBFC-AF34-4AB9-BB6F-4308BE188D15}';
|
||||
RID_ClientesDescuentosDelta = '{18D4AC51-8E27-42E7-8A75-A5E1E21EAB34}';
|
||||
|
||||
type
|
||||
{ IContactosDelta }
|
||||
IContactosDelta = interface(IContactos)
|
||||
['{ED3DC929-6DF8-44C9-A77A-8854F74F281C}']
|
||||
['{FBA19294-A947-41DA-9ABF-0F58B7AD3871}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_CATEGORIAValue : Integer;
|
||||
@ -200,7 +200,7 @@ type
|
||||
|
||||
{ IGruposClienteDelta }
|
||||
IGruposClienteDelta = interface(IGruposCliente)
|
||||
['{E416320D-F8B9-4086-9DF5-B12DC21C37FE}']
|
||||
['{63CFD830-E148-4E4D-802B-B274275CC4A0}']
|
||||
{ Property getters and setters }
|
||||
function GetOldDESCRIPCIONValue : String;
|
||||
|
||||
@ -229,7 +229,7 @@ type
|
||||
|
||||
{ IClienteEliminableDelta }
|
||||
IClienteEliminableDelta = interface(IClienteEliminable)
|
||||
['{D47AA51C-3F22-4185-94FC-D92E570749B5}']
|
||||
['{3ABFD442-48BB-451F-8923-EECB61A74980}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldNOMBREValue : String;
|
||||
@ -265,7 +265,7 @@ type
|
||||
|
||||
{ IDatosBancariosDelta }
|
||||
IDatosBancariosDelta = interface(IDatosBancarios)
|
||||
['{BA78D5CC-F08A-4C98-B891-33A4079D54A1}']
|
||||
['{24737E5E-FF2A-49CA-82E6-CF01F6A4F1AD}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_CONTACTOValue : Integer;
|
||||
@ -336,7 +336,7 @@ type
|
||||
|
||||
{ IContactosCategoriasDelta }
|
||||
IContactosCategoriasDelta = interface(IContactosCategorias)
|
||||
['{F1C35B46-DC20-477E-B2CA-345807F1262D}']
|
||||
['{E9CCBC76-017F-49DA-8AC1-5D05D3F5BD58}']
|
||||
{ Property getters and setters }
|
||||
function GetOldID_CONTACTOValue : Integer;
|
||||
function GetOldID_CATEGORIAValue : Integer;
|
||||
@ -372,7 +372,7 @@ type
|
||||
|
||||
{ IClientesDelta }
|
||||
IClientesDelta = interface(IClientes)
|
||||
['{B20D68B1-ABA7-409F-9B42-AD7A43A10DB5}']
|
||||
['{D36C7B31-0994-4EDE-A0AF-AF7CF1AA5622}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_CATEGORIAValue : Integer;
|
||||
@ -660,7 +660,7 @@ type
|
||||
|
||||
{ IProveedoresDelta }
|
||||
IProveedoresDelta = interface(IProveedores)
|
||||
['{6D5CDCC5-86ED-466E-B9B2-EA8B2B5203F3}']
|
||||
['{C5F98D58-4E55-4BCD-AEE1-4D15FCFCD402}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_CATEGORIAValue : Integer;
|
||||
@ -899,7 +899,7 @@ type
|
||||
|
||||
{ IAgentesDelta }
|
||||
IAgentesDelta = interface(IAgentes)
|
||||
['{25995918-FB9D-4E8D-972B-E52FE149A435}']
|
||||
['{FBAE47C9-5F62-4EEB-A61B-9DE8145AC3A3}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_CATEGORIAValue : Integer;
|
||||
@ -1075,7 +1075,7 @@ type
|
||||
|
||||
{ IDireccionesContactoDelta }
|
||||
IDireccionesContactoDelta = interface(IDireccionesContacto)
|
||||
['{F0BD77F8-70C0-4B9E-AE8D-B2EF02350C1C}']
|
||||
['{EF9D18DF-D0EB-4433-A8D0-F22735A7F6A3}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_CONTACTOValue : Integer;
|
||||
@ -1195,7 +1195,7 @@ type
|
||||
|
||||
{ IAgentesComisionesDelta }
|
||||
IAgentesComisionesDelta = interface(IAgentesComisiones)
|
||||
['{B1F1802F-E10B-4A50-9CC4-376DDA2961F7}']
|
||||
['{B296BBFC-AF34-4AB9-BB6F-4308BE188D15}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_AGENTEValue : Integer;
|
||||
@ -1252,7 +1252,7 @@ type
|
||||
|
||||
{ IClientesDescuentosDelta }
|
||||
IClientesDescuentosDelta = interface(IClientesDescuentos)
|
||||
['{1CC3E306-6A9D-4951-94C1-54CDEC790F13}']
|
||||
['{18D4AC51-8E27-42E7-8A75-A5E1E21EAB34}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_CLIENTEValue : Integer;
|
||||
|
||||
@ -64,7 +64,7 @@ begin
|
||||
with ACommand do
|
||||
begin
|
||||
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;
|
||||
end;
|
||||
finally
|
||||
@ -86,7 +86,7 @@ begin
|
||||
with ACommand do
|
||||
begin
|
||||
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;
|
||||
end;
|
||||
finally
|
||||
|
||||
@ -930,14 +930,13 @@ object RptEtiquetasContactos: TRptEtiquetasContactos
|
||||
Top = 158
|
||||
end
|
||||
object frxReport: TfrxReport
|
||||
Version = '4.3'
|
||||
Version = '3.23.7'
|
||||
DotMatrixReport = False
|
||||
IniFile = '\Software\Fast Reports'
|
||||
PreviewOptions.Buttons = [pbPrint, pbLoad, pbSave, pbExport, pbZoom, pbFind, pbOutline, pbPageSetup, pbTools, pbEdit, pbNavigator, pbExportQuick]
|
||||
PreviewOptions.Zoom = 1.000000000000000000
|
||||
PrintOptions.Printer = 'Por defecto'
|
||||
PrintOptions.PrintOnSheet = 0
|
||||
ReportOptions.CreateDate = 38330.712904247710000000
|
||||
ReportOptions.CreateDate = 38330.712904247700000000
|
||||
ReportOptions.LastChange = 39363.863353761580000000
|
||||
ScriptLanguage = 'PascalScript'
|
||||
ScriptText.Strings = (
|
||||
@ -973,6 +972,13 @@ object RptEtiquetasContactos: TRptEtiquetasContactos
|
||||
StoreInDFM = False
|
||||
Left = 169
|
||||
Top = 16
|
||||
Datasets = <
|
||||
item
|
||||
DataSet = frxDBCabecera
|
||||
DataSetName = 'frxDBCabecera'
|
||||
end>
|
||||
Variables = <>
|
||||
Style = <>
|
||||
end
|
||||
object frxDBCabecera: TfrxDBDataset
|
||||
UserName = 'frxDBCabecera'
|
||||
|
||||
@ -37,7 +37,7 @@ implementation
|
||||
{$R *.dfm}
|
||||
|
||||
uses
|
||||
uSistemaFunc, uDataModuleServer, schContactosClient_Intf;
|
||||
uDataModuleServer, schContactosClient_Intf;
|
||||
|
||||
const
|
||||
rptInfEtiquetas = 'InfEtiquetasContactos.fr3';
|
||||
@ -60,7 +60,7 @@ function TRptEtiquetasContactos.GenerarEtiquetas(const AID: String): Binary;
|
||||
var
|
||||
dsMaster: IDADataset;
|
||||
AStream: TMemoryStream;
|
||||
AInforme: Variant;
|
||||
|
||||
begin
|
||||
AStream := TMemoryStream.Create;
|
||||
Result := Binary.Create;
|
||||
@ -74,11 +74,7 @@ begin
|
||||
DABINAdapter.WriteDataset(AStream, dsMaster, [woRows, woSchema], -1);
|
||||
DABINAdapter.ReadDataset(AStream, tbl_Cabecera, TRUE, '', TRUE, TRUE);
|
||||
|
||||
AInforme := DarRutaFichero(DarRutaInformes, rptInfEtiquetas, tbl_Cabecera.FieldByName('ID_EMPRESA').AsString);
|
||||
if VarIsNull(AInforme) then
|
||||
raise Exception.Create (('Error Servidor: _GenerarEtiquetas, no encuentra informe ' + rptInfEtiquetas));
|
||||
|
||||
frxReport.LoadFromFile(AInforme, True);
|
||||
frxReport.LoadFromFile(DarRutaInformes + rptInfEtiquetas, True);
|
||||
frxReport.PrepareReport(False);
|
||||
frxReport.PreviewPages.SaveToStream(Result);
|
||||
finally
|
||||
|
||||
@ -3126,6 +3126,13 @@ object srvContactos: TsrvContactos
|
||||
end
|
||||
item
|
||||
Params = <
|
||||
item
|
||||
Name = 'ID_EMPRESA'
|
||||
DataType = datInteger
|
||||
BlobType = dabtUnknown
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end
|
||||
item
|
||||
Name = 'ID_CONTACTO'
|
||||
DataType = datInteger
|
||||
@ -3138,9 +3145,8 @@ object srvContactos: TsrvContactos
|
||||
Connection = 'IBX'
|
||||
TargetTable = 'EMPRESAS_CONTACTOS'
|
||||
SQL =
|
||||
'INSERT INTO EMPRESAS_CONTACTOS'#10' (ID, 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'
|
||||
'INSERT'#10' INTO EMPRESAS_CONTACTOS'#10' (ID_EMPRESA, ID_CONTACTO)'#10' ' +
|
||||
' VALUES'#10' (:ID_EMPRESA, :ID_CONTACTO)'
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <>
|
||||
end>
|
||||
@ -3148,6 +3154,13 @@ object srvContactos: TsrvContactos
|
||||
end
|
||||
item
|
||||
Params = <
|
||||
item
|
||||
Name = 'OLD_ID_EMPRESA'
|
||||
DataType = datInteger
|
||||
BlobType = dabtUnknown
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end
|
||||
item
|
||||
Name = 'OLD_ID_CONTACTO'
|
||||
DataType = datInteger
|
||||
@ -3160,8 +3173,8 @@ object srvContactos: TsrvContactos
|
||||
Connection = 'IBX'
|
||||
TargetTable = 'EMPRESAS_CONTACTOS'
|
||||
SQL =
|
||||
'DELETE'#10' FROM'#10' EMPRESAS_CONTACTOS'#10' WHERE'#10' (ID_CONTACTO = ' +
|
||||
':OLD_ID_CONTACTO)'
|
||||
'DELETE '#10' FROM'#10' EMPRESAS_CONTACTOS'#10' WHERE'#10' (ID_EMPRESA = ' +
|
||||
':OLD_ID_EMPRESA) AND '#10' (ID_CONTACTO = :OLD_ID_CONTACTO)'
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <>
|
||||
end>
|
||||
@ -4957,10 +4970,10 @@ object srvContactos: TsrvContactos
|
||||
Top = 82
|
||||
DiagramData =
|
||||
'<Diagrams>'#13#10' <Diagram Name="New Diagram" Left="200" Top="200" W' +
|
||||
'idth="400" Height="300">'#13#10' <Entity Name="ContactosCategorias"' +
|
||||
' Left="0,00" Top="26,50" />'#13#10' <Entity Name="DatosBancarios" L' +
|
||||
'eft="479,77" Top="0,00" />'#13#10' <Entity Name="Contactos" Left="2' +
|
||||
'23,77" Top="0,00" />'#13#10' </Diagram>'#13#10'</Diagrams>'#13#10
|
||||
'idth="400" Height="300">'#13#10' <Entity Name="Contactos" Left="223' +
|
||||
',77" Top="0,00" />'#13#10' <Entity Name="DatosBancarios" Left="479,' +
|
||||
'77" Top="0,00" />'#13#10' <Entity Name="ContactosCategorias" Left="' +
|
||||
'0,00" Top="26,50" />'#13#10' </Diagram>'#13#10'</Diagrams>'#13#10
|
||||
end
|
||||
object bpContactos: TDABusinessProcessor
|
||||
Schema = schContactos
|
||||
|
||||
@ -178,7 +178,7 @@
|
||||
</Delphi.Personality>
|
||||
<!-- EurekaLog First Line
|
||||
[Exception Log]
|
||||
EurekaLog Version=6014
|
||||
EurekaLog Version=519
|
||||
Activate=1
|
||||
Activate Handle=1
|
||||
Save Log File=1
|
||||
@ -492,191 +492,6 @@ Count mtSend_SuccessMsg=1
|
||||
mtSend_SuccessMsg0="The message was sent successfully."
|
||||
Count mtSend_FailureMsg=1
|
||||
mtSend_FailureMsg0="Sorry, sending the message didn't work."
|
||||
ProxyURL=
|
||||
ProxyUser=
|
||||
ProxyPassword=
|
||||
ProxyPort=8080
|
||||
TrakerUser=
|
||||
TrakerPassword=
|
||||
TrakerAssignTo=
|
||||
TrakerProject=
|
||||
TrakerCategory=
|
||||
TrakerTrialID=
|
||||
ZipPassword=
|
||||
PreBuildEvent=
|
||||
PostSuccessfulBuildEvent=
|
||||
PostFailureBuildEvent=
|
||||
ExceptionDialogType=2
|
||||
loSaveModulesAndProcessesSections=1
|
||||
loSaveAssemblerAndCPUSections=1
|
||||
soAppUpTime=1
|
||||
soExcModuleName=1
|
||||
soExcModuleVersion=1
|
||||
soExcID=1
|
||||
soExcCount=1
|
||||
soExcStatus=1
|
||||
soExcNote=1
|
||||
soUserID=1
|
||||
soUserName=1
|
||||
soUserEmail=1
|
||||
soUserPrivileges=1
|
||||
soUserCompany=1
|
||||
soCmpDisplayDPI=1
|
||||
soCmpVideoCard=1
|
||||
soCmpPrinter=1
|
||||
soOSCharset=1
|
||||
soCustomData=1
|
||||
sndAddComputerNameInFileName=0
|
||||
edoSendErrorReportChecked=1
|
||||
edoShowSendErrorReportOption=1
|
||||
edoShowAttachScreenshotOption=1
|
||||
edoShowCustomButton=0
|
||||
csoDoNotStoreProcNames=0
|
||||
boHandleSafeCallExceptions=1
|
||||
boCallRTLExceptionEvent=0
|
||||
boCatchHandledExceptions=0
|
||||
loCatchLeaks=0
|
||||
loGroupsSonLeaks=1
|
||||
loHideBorlandLeaks=1
|
||||
loFreeAllLeaks=1
|
||||
loCatchLeaksExceptions=1
|
||||
cfoReduceFileSize=1
|
||||
cfoCheckFileCorruption=0
|
||||
Count mtErrorMsgCaption=1
|
||||
mtErrorMsgCaption0="Error."
|
||||
Count mtDialog_ProcessesCaption=1
|
||||
mtDialog_ProcessesCaption0="Processes"
|
||||
Count mtDialog_ProcessesHeader=1
|
||||
mtDialog_ProcessesHeader0="Processes Information"
|
||||
Count mtDialog_AsmCaption=1
|
||||
mtDialog_AsmCaption0="Assembler"
|
||||
Count mtDialog_AsmHeader=1
|
||||
mtDialog_AsmHeader0="Assembler Information"
|
||||
Count mtDialog_CustomButtonCaption=1
|
||||
mtDialog_CustomButtonCaption0="%26Help"
|
||||
Count mtMSDialog_ErrorMsgCaption=1
|
||||
mtMSDialog_ErrorMsgCaption0="The application has encountered a problem. We are sorry for the inconvenience."
|
||||
Count mtMSDialog_RestartCaption=1
|
||||
mtMSDialog_RestartCaption0="Restart application."
|
||||
Count mtMSDialog_TerminateCaption=1
|
||||
mtMSDialog_TerminateCaption0="Terminate application."
|
||||
Count mtMSDialog_PleaseCaption=1
|
||||
mtMSDialog_PleaseCaption0="Please tell us about this problem."
|
||||
Count mtMSDialog_DescriptionCaption=1
|
||||
mtMSDialog_DescriptionCaption0="We have created an error report that you can send to us. We will treat this report as confidential and anonymous."
|
||||
Count mtMSDialog_SeeDetailsCaption=1
|
||||
mtMSDialog_SeeDetailsCaption0="To see what data the error report contains,"
|
||||
Count mtMSDialog_SeeClickCaption=1
|
||||
mtMSDialog_SeeClickCaption0="click here."
|
||||
Count mtMSDialog_HowToReproduceCaption=1
|
||||
mtMSDialog_HowToReproduceCaption0="What were you doing when the problem happened (optional)?"
|
||||
Count mtMSDialog_EmailCaption=1
|
||||
mtMSDialog_EmailCaption0="Email address (optional):"
|
||||
Count mtMSDialog_SendButtonCaption=1
|
||||
mtMSDialog_SendButtonCaption0="%26Send Error Report"
|
||||
Count mtMSDialog_NoSendButtonCaption=1
|
||||
mtMSDialog_NoSendButtonCaption0="%26Don't Send"
|
||||
Count mtLog_AppUpTime=1
|
||||
mtLog_AppUpTime0="Up Time"
|
||||
Count mtLog_ExcModuleName=1
|
||||
mtLog_ExcModuleName0="Module Name"
|
||||
Count mtLog_ExcModuleVersion=1
|
||||
mtLog_ExcModuleVersion0="Module Version"
|
||||
Count mtLog_ExcID=1
|
||||
mtLog_ExcID0="ID"
|
||||
Count mtLog_ExcCount=1
|
||||
mtLog_ExcCount0="Count"
|
||||
Count mtLog_ExcStatus=1
|
||||
mtLog_ExcStatus0="Status"
|
||||
Count mtLog_ExcNote=1
|
||||
mtLog_ExcNote0="Note"
|
||||
Count mtLog_UserHeader=1
|
||||
mtLog_UserHeader0="User"
|
||||
Count mtLog_UserID=1
|
||||
mtLog_UserID0="ID"
|
||||
Count mtLog_UserName=1
|
||||
mtLog_UserName0="Name"
|
||||
Count mtLog_UserEmail=1
|
||||
mtLog_UserEmail0="Email"
|
||||
Count mtLog_UserCompany=1
|
||||
mtLog_UserCompany0="Company"
|
||||
Count mtLog_UserPrivileges=1
|
||||
mtLog_UserPrivileges0="Privileges"
|
||||
Count mtLog_CmpDisplayDPI=1
|
||||
mtLog_CmpDisplayDPI0="Display DPI"
|
||||
Count mtLog_CmpVideoCard=1
|
||||
mtLog_CmpVideoCard0="Video Card"
|
||||
Count mtLog_CmpPrinter=1
|
||||
mtLog_CmpPrinter0="Printer"
|
||||
Count mtLog_OSCharset=1
|
||||
mtLog_OSCharset0="Charset"
|
||||
Count mtCallStack_LeakCaption=1
|
||||
mtCallStack_LeakCaption0="Memory Leak"
|
||||
Count mtCallStack_LeakData=1
|
||||
mtCallStack_LeakData0="Data"
|
||||
Count mtCallStack_LeakType=1
|
||||
mtCallStack_LeakType0="Type"
|
||||
Count mtCallStack_LeakSize=1
|
||||
mtCallStack_LeakSize0="Total size"
|
||||
Count mtCallStack_LeakCount=1
|
||||
mtCallStack_LeakCount0="Count"
|
||||
Count mtSendDialog_Login=1
|
||||
mtSendDialog_Login0="Login..."
|
||||
Count mtSendDialog_Sent=1
|
||||
mtSendDialog_Sent0="Message sent."
|
||||
Count mtSendDialog_SelectProject=1
|
||||
mtSendDialog_SelectProject0="Select project..."
|
||||
Count mtSendDialog_Searching=1
|
||||
mtSendDialog_Searching0="Searching..."
|
||||
Count mtSendDialog_Modifying=1
|
||||
mtSendDialog_Modifying0="Modifying..."
|
||||
Count mtSendDialog_Disconnecting=1
|
||||
mtSendDialog_Disconnecting0="Disconnecting..."
|
||||
Count mtSendDialog_Disconnected=1
|
||||
mtSendDialog_Disconnected0="Disconnected."
|
||||
Count mtProcesses_ID=1
|
||||
mtProcesses_ID0="ID"
|
||||
Count mtProcesses_Name=1
|
||||
mtProcesses_Name0="Name"
|
||||
Count mtProcesses_Description=1
|
||||
mtProcesses_Description0="Description"
|
||||
Count mtProcesses_Version=1
|
||||
mtProcesses_Version0="Version"
|
||||
Count mtProcesses_Memory=1
|
||||
mtProcesses_Memory0="Memory"
|
||||
Count mtProcesses_Priority=1
|
||||
mtProcesses_Priority0="Priority"
|
||||
Count mtProcesses_Threads=1
|
||||
mtProcesses_Threads0="Threads"
|
||||
Count mtProcesses_Path=1
|
||||
mtProcesses_Path0="Path"
|
||||
Count mtSend_BugClosedMsg=2
|
||||
mtSend_BugClosedMsg0="These BUG is just closed."
|
||||
mtSend_BugClosedMsg1="Contact the program support to obtain an update."
|
||||
Count mtSend_UnknownErrorMsg=1
|
||||
mtSend_UnknownErrorMsg0="Unknown error."
|
||||
Count mtSend_InvalidLoginMsg=1
|
||||
mtSend_InvalidLoginMsg0="Invalid login request."
|
||||
Count mtSend_InvalidSearchMsg=1
|
||||
mtSend_InvalidSearchMsg0="Invalid search request."
|
||||
Count mtSend_InvalidSelectionMsg=1
|
||||
mtSend_InvalidSelectionMsg0="Invalid selection request."
|
||||
Count mtSend_InvalidInsertMsg=1
|
||||
mtSend_InvalidInsertMsg0="Invalid insert request."
|
||||
Count mtSend_InvalidModifyMsg=1
|
||||
mtSend_InvalidModifyMsg0="Invalid modify request."
|
||||
Count mtFileCrackedMsg=2
|
||||
mtFileCrackedMsg0="This file is cracked."
|
||||
mtFileCrackedMsg1="The application will be closed."
|
||||
Count mtException_LeakMultiFree=1
|
||||
mtException_LeakMultiFree0="Multi Free memory leak."
|
||||
Count mtException_LeakMemoryOverrun=1
|
||||
mtException_LeakMemoryOverrun0="Memory Overrun leak."
|
||||
Count mtException_AntiFreeze=1
|
||||
mtException_AntiFreeze0="The application seems to be frozen."
|
||||
Count mtInvalidEmailMsg=1
|
||||
mtInvalidEmailMsg0="Invalid email."
|
||||
TextsCollection=English
|
||||
EurekaLog Last Line -->
|
||||
<ModelSupport>True</ModelSupport>
|
||||
</BorlandProject>
|
||||
|
||||
@ -54,8 +54,8 @@ type
|
||||
implementation
|
||||
|
||||
uses
|
||||
uEditorRegistryUtils, cxControls, DB,
|
||||
uDataModuleEmpresas, uIEditorEmpresa, uIEditorEmpresas;
|
||||
uEditorRegistryUtils, cxControls, DB,
|
||||
uDataModuleEmpresas, uIEditorEmpresa;
|
||||
|
||||
{ TEmpresasController }
|
||||
|
||||
@ -321,16 +321,16 @@ begin
|
||||
end;
|
||||
|
||||
procedure TEmpresasController.VerTodos(AEmpresas: IBizEmpresa);
|
||||
var
|
||||
AEditor : IEditorEmpresas;
|
||||
{var
|
||||
AEditor : IEditorClientes;}
|
||||
begin
|
||||
CreateEditor('EditorEmpresas', IEditorEmpresas, AEditor);
|
||||
{ CreateEditor('EditorEmpresas', IEditorClientes, AEditor);
|
||||
with AEditor do
|
||||
begin
|
||||
Empresas := AEmpresas;
|
||||
Contactos := AContactos;
|
||||
Controller := Self;
|
||||
ShowEmbedded;
|
||||
end;
|
||||
end;}
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
@ -178,7 +178,7 @@
|
||||
</Delphi.Personality>
|
||||
<!-- EurekaLog First Line
|
||||
[Exception Log]
|
||||
EurekaLog Version=6014
|
||||
EurekaLog Version=519
|
||||
Activate=1
|
||||
Activate Handle=1
|
||||
Save Log File=1
|
||||
@ -492,190 +492,5 @@ Count mtSend_SuccessMsg=1
|
||||
mtSend_SuccessMsg0="The message was sent successfully."
|
||||
Count mtSend_FailureMsg=1
|
||||
mtSend_FailureMsg0="Sorry, sending the message didn't work."
|
||||
ProxyURL=
|
||||
ProxyUser=
|
||||
ProxyPassword=
|
||||
ProxyPort=8080
|
||||
TrakerUser=
|
||||
TrakerPassword=
|
||||
TrakerAssignTo=
|
||||
TrakerProject=
|
||||
TrakerCategory=
|
||||
TrakerTrialID=
|
||||
ZipPassword=
|
||||
PreBuildEvent=
|
||||
PostSuccessfulBuildEvent=
|
||||
PostFailureBuildEvent=
|
||||
ExceptionDialogType=2
|
||||
loSaveModulesAndProcessesSections=1
|
||||
loSaveAssemblerAndCPUSections=1
|
||||
soAppUpTime=1
|
||||
soExcModuleName=1
|
||||
soExcModuleVersion=1
|
||||
soExcID=1
|
||||
soExcCount=1
|
||||
soExcStatus=1
|
||||
soExcNote=1
|
||||
soUserID=1
|
||||
soUserName=1
|
||||
soUserEmail=1
|
||||
soUserPrivileges=1
|
||||
soUserCompany=1
|
||||
soCmpDisplayDPI=1
|
||||
soCmpVideoCard=1
|
||||
soCmpPrinter=1
|
||||
soOSCharset=1
|
||||
soCustomData=1
|
||||
sndAddComputerNameInFileName=0
|
||||
edoSendErrorReportChecked=1
|
||||
edoShowSendErrorReportOption=1
|
||||
edoShowAttachScreenshotOption=1
|
||||
edoShowCustomButton=0
|
||||
csoDoNotStoreProcNames=0
|
||||
boHandleSafeCallExceptions=1
|
||||
boCallRTLExceptionEvent=0
|
||||
boCatchHandledExceptions=0
|
||||
loCatchLeaks=0
|
||||
loGroupsSonLeaks=1
|
||||
loHideBorlandLeaks=1
|
||||
loFreeAllLeaks=1
|
||||
loCatchLeaksExceptions=1
|
||||
cfoReduceFileSize=1
|
||||
cfoCheckFileCorruption=0
|
||||
Count mtErrorMsgCaption=1
|
||||
mtErrorMsgCaption0="Error."
|
||||
Count mtDialog_ProcessesCaption=1
|
||||
mtDialog_ProcessesCaption0="Processes"
|
||||
Count mtDialog_ProcessesHeader=1
|
||||
mtDialog_ProcessesHeader0="Processes Information"
|
||||
Count mtDialog_AsmCaption=1
|
||||
mtDialog_AsmCaption0="Assembler"
|
||||
Count mtDialog_AsmHeader=1
|
||||
mtDialog_AsmHeader0="Assembler Information"
|
||||
Count mtDialog_CustomButtonCaption=1
|
||||
mtDialog_CustomButtonCaption0="%26Help"
|
||||
Count mtMSDialog_ErrorMsgCaption=1
|
||||
mtMSDialog_ErrorMsgCaption0="The application has encountered a problem. We are sorry for the inconvenience."
|
||||
Count mtMSDialog_RestartCaption=1
|
||||
mtMSDialog_RestartCaption0="Restart application."
|
||||
Count mtMSDialog_TerminateCaption=1
|
||||
mtMSDialog_TerminateCaption0="Terminate application."
|
||||
Count mtMSDialog_PleaseCaption=1
|
||||
mtMSDialog_PleaseCaption0="Please tell us about this problem."
|
||||
Count mtMSDialog_DescriptionCaption=1
|
||||
mtMSDialog_DescriptionCaption0="We have created an error report that you can send to us. We will treat this report as confidential and anonymous."
|
||||
Count mtMSDialog_SeeDetailsCaption=1
|
||||
mtMSDialog_SeeDetailsCaption0="To see what data the error report contains,"
|
||||
Count mtMSDialog_SeeClickCaption=1
|
||||
mtMSDialog_SeeClickCaption0="click here."
|
||||
Count mtMSDialog_HowToReproduceCaption=1
|
||||
mtMSDialog_HowToReproduceCaption0="What were you doing when the problem happened (optional)?"
|
||||
Count mtMSDialog_EmailCaption=1
|
||||
mtMSDialog_EmailCaption0="Email address (optional):"
|
||||
Count mtMSDialog_SendButtonCaption=1
|
||||
mtMSDialog_SendButtonCaption0="%26Send Error Report"
|
||||
Count mtMSDialog_NoSendButtonCaption=1
|
||||
mtMSDialog_NoSendButtonCaption0="%26Don't Send"
|
||||
Count mtLog_AppUpTime=1
|
||||
mtLog_AppUpTime0="Up Time"
|
||||
Count mtLog_ExcModuleName=1
|
||||
mtLog_ExcModuleName0="Module Name"
|
||||
Count mtLog_ExcModuleVersion=1
|
||||
mtLog_ExcModuleVersion0="Module Version"
|
||||
Count mtLog_ExcID=1
|
||||
mtLog_ExcID0="ID"
|
||||
Count mtLog_ExcCount=1
|
||||
mtLog_ExcCount0="Count"
|
||||
Count mtLog_ExcStatus=1
|
||||
mtLog_ExcStatus0="Status"
|
||||
Count mtLog_ExcNote=1
|
||||
mtLog_ExcNote0="Note"
|
||||
Count mtLog_UserHeader=1
|
||||
mtLog_UserHeader0="User"
|
||||
Count mtLog_UserID=1
|
||||
mtLog_UserID0="ID"
|
||||
Count mtLog_UserName=1
|
||||
mtLog_UserName0="Name"
|
||||
Count mtLog_UserEmail=1
|
||||
mtLog_UserEmail0="Email"
|
||||
Count mtLog_UserCompany=1
|
||||
mtLog_UserCompany0="Company"
|
||||
Count mtLog_UserPrivileges=1
|
||||
mtLog_UserPrivileges0="Privileges"
|
||||
Count mtLog_CmpDisplayDPI=1
|
||||
mtLog_CmpDisplayDPI0="Display DPI"
|
||||
Count mtLog_CmpVideoCard=1
|
||||
mtLog_CmpVideoCard0="Video Card"
|
||||
Count mtLog_CmpPrinter=1
|
||||
mtLog_CmpPrinter0="Printer"
|
||||
Count mtLog_OSCharset=1
|
||||
mtLog_OSCharset0="Charset"
|
||||
Count mtCallStack_LeakCaption=1
|
||||
mtCallStack_LeakCaption0="Memory Leak"
|
||||
Count mtCallStack_LeakData=1
|
||||
mtCallStack_LeakData0="Data"
|
||||
Count mtCallStack_LeakType=1
|
||||
mtCallStack_LeakType0="Type"
|
||||
Count mtCallStack_LeakSize=1
|
||||
mtCallStack_LeakSize0="Total size"
|
||||
Count mtCallStack_LeakCount=1
|
||||
mtCallStack_LeakCount0="Count"
|
||||
Count mtSendDialog_Login=1
|
||||
mtSendDialog_Login0="Login..."
|
||||
Count mtSendDialog_Sent=1
|
||||
mtSendDialog_Sent0="Message sent."
|
||||
Count mtSendDialog_SelectProject=1
|
||||
mtSendDialog_SelectProject0="Select project..."
|
||||
Count mtSendDialog_Searching=1
|
||||
mtSendDialog_Searching0="Searching..."
|
||||
Count mtSendDialog_Modifying=1
|
||||
mtSendDialog_Modifying0="Modifying..."
|
||||
Count mtSendDialog_Disconnecting=1
|
||||
mtSendDialog_Disconnecting0="Disconnecting..."
|
||||
Count mtSendDialog_Disconnected=1
|
||||
mtSendDialog_Disconnected0="Disconnected."
|
||||
Count mtProcesses_ID=1
|
||||
mtProcesses_ID0="ID"
|
||||
Count mtProcesses_Name=1
|
||||
mtProcesses_Name0="Name"
|
||||
Count mtProcesses_Description=1
|
||||
mtProcesses_Description0="Description"
|
||||
Count mtProcesses_Version=1
|
||||
mtProcesses_Version0="Version"
|
||||
Count mtProcesses_Memory=1
|
||||
mtProcesses_Memory0="Memory"
|
||||
Count mtProcesses_Priority=1
|
||||
mtProcesses_Priority0="Priority"
|
||||
Count mtProcesses_Threads=1
|
||||
mtProcesses_Threads0="Threads"
|
||||
Count mtProcesses_Path=1
|
||||
mtProcesses_Path0="Path"
|
||||
Count mtSend_BugClosedMsg=2
|
||||
mtSend_BugClosedMsg0="These BUG is just closed."
|
||||
mtSend_BugClosedMsg1="Contact the program support to obtain an update."
|
||||
Count mtSend_UnknownErrorMsg=1
|
||||
mtSend_UnknownErrorMsg0="Unknown error."
|
||||
Count mtSend_InvalidLoginMsg=1
|
||||
mtSend_InvalidLoginMsg0="Invalid login request."
|
||||
Count mtSend_InvalidSearchMsg=1
|
||||
mtSend_InvalidSearchMsg0="Invalid search request."
|
||||
Count mtSend_InvalidSelectionMsg=1
|
||||
mtSend_InvalidSelectionMsg0="Invalid selection request."
|
||||
Count mtSend_InvalidInsertMsg=1
|
||||
mtSend_InvalidInsertMsg0="Invalid insert request."
|
||||
Count mtSend_InvalidModifyMsg=1
|
||||
mtSend_InvalidModifyMsg0="Invalid modify request."
|
||||
Count mtFileCrackedMsg=2
|
||||
mtFileCrackedMsg0="This file is cracked."
|
||||
mtFileCrackedMsg1="The application will be closed."
|
||||
Count mtException_LeakMultiFree=1
|
||||
mtException_LeakMultiFree0="Multi Free memory leak."
|
||||
Count mtException_LeakMemoryOverrun=1
|
||||
mtException_LeakMemoryOverrun0="Memory Overrun leak."
|
||||
Count mtException_AntiFreeze=1
|
||||
mtException_AntiFreeze0="The application seems to be frozen."
|
||||
Count mtInvalidEmailMsg=1
|
||||
mtInvalidEmailMsg0="Invalid email."
|
||||
TextsCollection=English
|
||||
EurekaLog Last Line -->
|
||||
</BorlandProject>
|
||||
|
||||
@ -342,8 +342,6 @@ object PluginEmpresas: TPluginEmpresas
|
||||
object actGestionEmpresas: TAction
|
||||
Category = 'Empresa'
|
||||
Caption = 'Gesti'#243'n de empresas'
|
||||
Enabled = False
|
||||
OnExecute = actGestionEmpresasExecute
|
||||
end
|
||||
object actSucursales: TAction
|
||||
Category = 'Empresa'
|
||||
|
||||
@ -36,7 +36,6 @@ type
|
||||
procedure actDatosDeUpdate(Sender: TObject);
|
||||
procedure actDatosDeExecute(Sender: TObject);
|
||||
procedure actNuevaEmpresaExecute(Sender: TObject);
|
||||
procedure actGestionEmpresasExecute(Sender: TObject);
|
||||
protected
|
||||
function Empresas : TStringList;
|
||||
function Controller : IEmpresasController;
|
||||
@ -88,17 +87,6 @@ begin
|
||||
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);
|
||||
var
|
||||
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>
|
||||
</Delphi.Personality>
|
||||
<!-- EurekaLog First Line
|
||||
<!-- EurekaLog First Line
|
||||
[Exception Log]
|
||||
EurekaLog Version=6014
|
||||
EurekaLog Version=519
|
||||
Activate=1
|
||||
Activate Handle=1
|
||||
Save Log File=1
|
||||
@ -539,190 +539,5 @@ Count mtSend_SuccessMsg=1
|
||||
mtSend_SuccessMsg0="The message was sent successfully."
|
||||
Count mtSend_FailureMsg=1
|
||||
mtSend_FailureMsg0="Sorry, sending the message didn't work."
|
||||
ProxyURL=
|
||||
ProxyUser=
|
||||
ProxyPassword=
|
||||
ProxyPort=8080
|
||||
TrakerUser=
|
||||
TrakerPassword=
|
||||
TrakerAssignTo=
|
||||
TrakerProject=
|
||||
TrakerCategory=
|
||||
TrakerTrialID=
|
||||
ZipPassword=
|
||||
PreBuildEvent=
|
||||
PostSuccessfulBuildEvent=
|
||||
PostFailureBuildEvent=
|
||||
ExceptionDialogType=2
|
||||
loSaveModulesAndProcessesSections=1
|
||||
loSaveAssemblerAndCPUSections=1
|
||||
soAppUpTime=1
|
||||
soExcModuleName=1
|
||||
soExcModuleVersion=1
|
||||
soExcID=1
|
||||
soExcCount=1
|
||||
soExcStatus=1
|
||||
soExcNote=1
|
||||
soUserID=1
|
||||
soUserName=1
|
||||
soUserEmail=1
|
||||
soUserPrivileges=1
|
||||
soUserCompany=1
|
||||
soCmpDisplayDPI=1
|
||||
soCmpVideoCard=1
|
||||
soCmpPrinter=1
|
||||
soOSCharset=1
|
||||
soCustomData=1
|
||||
sndAddComputerNameInFileName=0
|
||||
edoSendErrorReportChecked=1
|
||||
edoShowSendErrorReportOption=1
|
||||
edoShowAttachScreenshotOption=1
|
||||
edoShowCustomButton=0
|
||||
csoDoNotStoreProcNames=0
|
||||
boHandleSafeCallExceptions=1
|
||||
boCallRTLExceptionEvent=0
|
||||
boCatchHandledExceptions=0
|
||||
loCatchLeaks=0
|
||||
loGroupsSonLeaks=1
|
||||
loHideBorlandLeaks=1
|
||||
loFreeAllLeaks=1
|
||||
loCatchLeaksExceptions=1
|
||||
cfoReduceFileSize=1
|
||||
cfoCheckFileCorruption=0
|
||||
Count mtErrorMsgCaption=1
|
||||
mtErrorMsgCaption0="Error."
|
||||
Count mtDialog_ProcessesCaption=1
|
||||
mtDialog_ProcessesCaption0="Processes"
|
||||
Count mtDialog_ProcessesHeader=1
|
||||
mtDialog_ProcessesHeader0="Processes Information"
|
||||
Count mtDialog_AsmCaption=1
|
||||
mtDialog_AsmCaption0="Assembler"
|
||||
Count mtDialog_AsmHeader=1
|
||||
mtDialog_AsmHeader0="Assembler Information"
|
||||
Count mtDialog_CustomButtonCaption=1
|
||||
mtDialog_CustomButtonCaption0="%26Help"
|
||||
Count mtMSDialog_ErrorMsgCaption=1
|
||||
mtMSDialog_ErrorMsgCaption0="The application has encountered a problem. We are sorry for the inconvenience."
|
||||
Count mtMSDialog_RestartCaption=1
|
||||
mtMSDialog_RestartCaption0="Restart application."
|
||||
Count mtMSDialog_TerminateCaption=1
|
||||
mtMSDialog_TerminateCaption0="Terminate application."
|
||||
Count mtMSDialog_PleaseCaption=1
|
||||
mtMSDialog_PleaseCaption0="Please tell us about this problem."
|
||||
Count mtMSDialog_DescriptionCaption=1
|
||||
mtMSDialog_DescriptionCaption0="We have created an error report that you can send to us. We will treat this report as confidential and anonymous."
|
||||
Count mtMSDialog_SeeDetailsCaption=1
|
||||
mtMSDialog_SeeDetailsCaption0="To see what data the error report contains,"
|
||||
Count mtMSDialog_SeeClickCaption=1
|
||||
mtMSDialog_SeeClickCaption0="click here."
|
||||
Count mtMSDialog_HowToReproduceCaption=1
|
||||
mtMSDialog_HowToReproduceCaption0="What were you doing when the problem happened (optional)?"
|
||||
Count mtMSDialog_EmailCaption=1
|
||||
mtMSDialog_EmailCaption0="Email address (optional):"
|
||||
Count mtMSDialog_SendButtonCaption=1
|
||||
mtMSDialog_SendButtonCaption0="%26Send Error Report"
|
||||
Count mtMSDialog_NoSendButtonCaption=1
|
||||
mtMSDialog_NoSendButtonCaption0="%26Don't Send"
|
||||
Count mtLog_AppUpTime=1
|
||||
mtLog_AppUpTime0="Up Time"
|
||||
Count mtLog_ExcModuleName=1
|
||||
mtLog_ExcModuleName0="Module Name"
|
||||
Count mtLog_ExcModuleVersion=1
|
||||
mtLog_ExcModuleVersion0="Module Version"
|
||||
Count mtLog_ExcID=1
|
||||
mtLog_ExcID0="ID"
|
||||
Count mtLog_ExcCount=1
|
||||
mtLog_ExcCount0="Count"
|
||||
Count mtLog_ExcStatus=1
|
||||
mtLog_ExcStatus0="Status"
|
||||
Count mtLog_ExcNote=1
|
||||
mtLog_ExcNote0="Note"
|
||||
Count mtLog_UserHeader=1
|
||||
mtLog_UserHeader0="User"
|
||||
Count mtLog_UserID=1
|
||||
mtLog_UserID0="ID"
|
||||
Count mtLog_UserName=1
|
||||
mtLog_UserName0="Name"
|
||||
Count mtLog_UserEmail=1
|
||||
mtLog_UserEmail0="Email"
|
||||
Count mtLog_UserCompany=1
|
||||
mtLog_UserCompany0="Company"
|
||||
Count mtLog_UserPrivileges=1
|
||||
mtLog_UserPrivileges0="Privileges"
|
||||
Count mtLog_CmpDisplayDPI=1
|
||||
mtLog_CmpDisplayDPI0="Display DPI"
|
||||
Count mtLog_CmpVideoCard=1
|
||||
mtLog_CmpVideoCard0="Video Card"
|
||||
Count mtLog_CmpPrinter=1
|
||||
mtLog_CmpPrinter0="Printer"
|
||||
Count mtLog_OSCharset=1
|
||||
mtLog_OSCharset0="Charset"
|
||||
Count mtCallStack_LeakCaption=1
|
||||
mtCallStack_LeakCaption0="Memory Leak"
|
||||
Count mtCallStack_LeakData=1
|
||||
mtCallStack_LeakData0="Data"
|
||||
Count mtCallStack_LeakType=1
|
||||
mtCallStack_LeakType0="Type"
|
||||
Count mtCallStack_LeakSize=1
|
||||
mtCallStack_LeakSize0="Total size"
|
||||
Count mtCallStack_LeakCount=1
|
||||
mtCallStack_LeakCount0="Count"
|
||||
Count mtSendDialog_Login=1
|
||||
mtSendDialog_Login0="Login..."
|
||||
Count mtSendDialog_Sent=1
|
||||
mtSendDialog_Sent0="Message sent."
|
||||
Count mtSendDialog_SelectProject=1
|
||||
mtSendDialog_SelectProject0="Select project..."
|
||||
Count mtSendDialog_Searching=1
|
||||
mtSendDialog_Searching0="Searching..."
|
||||
Count mtSendDialog_Modifying=1
|
||||
mtSendDialog_Modifying0="Modifying..."
|
||||
Count mtSendDialog_Disconnecting=1
|
||||
mtSendDialog_Disconnecting0="Disconnecting..."
|
||||
Count mtSendDialog_Disconnected=1
|
||||
mtSendDialog_Disconnected0="Disconnected."
|
||||
Count mtProcesses_ID=1
|
||||
mtProcesses_ID0="ID"
|
||||
Count mtProcesses_Name=1
|
||||
mtProcesses_Name0="Name"
|
||||
Count mtProcesses_Description=1
|
||||
mtProcesses_Description0="Description"
|
||||
Count mtProcesses_Version=1
|
||||
mtProcesses_Version0="Version"
|
||||
Count mtProcesses_Memory=1
|
||||
mtProcesses_Memory0="Memory"
|
||||
Count mtProcesses_Priority=1
|
||||
mtProcesses_Priority0="Priority"
|
||||
Count mtProcesses_Threads=1
|
||||
mtProcesses_Threads0="Threads"
|
||||
Count mtProcesses_Path=1
|
||||
mtProcesses_Path0="Path"
|
||||
Count mtSend_BugClosedMsg=2
|
||||
mtSend_BugClosedMsg0="These BUG is just closed."
|
||||
mtSend_BugClosedMsg1="Contact the program support to obtain an update."
|
||||
Count mtSend_UnknownErrorMsg=1
|
||||
mtSend_UnknownErrorMsg0="Unknown error."
|
||||
Count mtSend_InvalidLoginMsg=1
|
||||
mtSend_InvalidLoginMsg0="Invalid login request."
|
||||
Count mtSend_InvalidSearchMsg=1
|
||||
mtSend_InvalidSearchMsg0="Invalid search request."
|
||||
Count mtSend_InvalidSelectionMsg=1
|
||||
mtSend_InvalidSelectionMsg0="Invalid selection request."
|
||||
Count mtSend_InvalidInsertMsg=1
|
||||
mtSend_InvalidInsertMsg0="Invalid insert request."
|
||||
Count mtSend_InvalidModifyMsg=1
|
||||
mtSend_InvalidModifyMsg0="Invalid modify request."
|
||||
Count mtFileCrackedMsg=2
|
||||
mtFileCrackedMsg0="This file is cracked."
|
||||
mtFileCrackedMsg1="The application will be closed."
|
||||
Count mtException_LeakMultiFree=1
|
||||
mtException_LeakMultiFree0="Multi Free memory leak."
|
||||
Count mtException_LeakMemoryOverrun=1
|
||||
mtException_LeakMemoryOverrun0="Memory Overrun leak."
|
||||
Count mtException_AntiFreeze=1
|
||||
mtException_AntiFreeze0="The application seems to be frozen."
|
||||
Count mtInvalidEmailMsg=1
|
||||
mtInvalidEmailMsg0="Invalid email."
|
||||
TextsCollection=English
|
||||
EurekaLog Last Line -->
|
||||
</BorlandProject>
|
||||
|
||||
@ -72,17 +72,13 @@ requires
|
||||
Empresas_model,
|
||||
Empresas_controller,
|
||||
JvCtrlsD10R,
|
||||
JvJansD10R,
|
||||
dxGDIPlusD10,
|
||||
cxIntlPrintSys3D10;
|
||||
JvJansD10R;
|
||||
|
||||
contains
|
||||
uEmpresasViewRegister in 'uEmpresasViewRegister.pas',
|
||||
uEditorEmpresa in 'uEditorEmpresa.pas' {fEditorEmpresa: TForm},
|
||||
uViewEmpresa in 'uViewEmpresa.pas' {frViewEmpresa: TFrame},
|
||||
uViewDatosBancarios in 'uViewDatosBancarios.pas' {frViewDatosBancarios: TFrame},
|
||||
uEditorDatosBancariosEmpresa in 'uEditorDatosBancariosEmpresa.pas' {fEditorDatosBancariosEmpresa},
|
||||
uViewEmpresas in 'uViewEmpresas.pas' {frViewEmpresas: TFrame},
|
||||
uEditorEmpresas in 'uEditorEmpresas.pas' {fEditorEmpresas};
|
||||
uEditorDatosBancariosEmpresa in 'uEditorDatosBancariosEmpresa.pas' {fEditorDatosBancariosEmpresa};
|
||||
|
||||
end.
|
||||
|
||||
File diff suppressed because it is too large
Load Diff
@ -1,139 +0,0 @@
|
||||
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,19 +8,17 @@ procedure UnregisterViews;
|
||||
implementation
|
||||
|
||||
uses
|
||||
uEditorRegistryUtils, uEditorEmpresa, uEditorEmpresas, uEditorDatosBancariosEmpresa;
|
||||
uEditorRegistryUtils, uEditorEmpresa, uEditorDatosBancariosEmpresa;
|
||||
|
||||
procedure RegisterViews;
|
||||
begin
|
||||
EditorRegistry.RegisterClass(TfEditorEmpresa, 'EditorEmpresa');
|
||||
EditorRegistry.RegisterClass(TfEditorEmpresas, 'EditorEmpresas');
|
||||
EditorRegistry.RegisterClass(TfEditorDatosBancariosEmpresa, 'EditorDatosBancariosEmpresa');
|
||||
EditorRegistry.RegisterClass(TfEditorDatosBancariosEmpresa, 'EditorDatosBancariosEmpresa');
|
||||
end;
|
||||
|
||||
procedure UnregisterViews;
|
||||
begin
|
||||
EditorRegistry.UnRegisterClass(TfEditorEmpresa);
|
||||
EditorRegistry.UnRegisterClass(TfEditorEmpresas);
|
||||
EditorRegistry.UnRegisterClass(TfEditorDatosBancariosEmpresa);
|
||||
end;
|
||||
|
||||
|
||||
@ -1,94 +0,0 @@
|
||||
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
|
||||
@ -1,84 +0,0 @@
|
||||
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.
|
||||
@ -1141,6 +1141,7 @@ procedure TFacturasClienteController.Preview(AFactura: IBizFacturaCliente; AllIt
|
||||
var
|
||||
AReportController : IFacturasClienteReportController;
|
||||
ID_Facturas: TIntegerList;
|
||||
|
||||
begin
|
||||
AReportController := TFacturasClienteReportController.Create;
|
||||
try
|
||||
@ -1163,7 +1164,7 @@ begin
|
||||
else
|
||||
ID_Facturas.Add(AFactura.ID);
|
||||
|
||||
AReportController.Preview(ID_Facturas);
|
||||
AReportController.Preview(ID_Facturas);
|
||||
finally
|
||||
AReportController := NIL;
|
||||
FreeANDNIL(ID_Facturas)
|
||||
|
||||
@ -88,7 +88,6 @@ procedure TFacturasClienteReportController.Preview(
|
||||
var
|
||||
AStream: Binary;
|
||||
AEditor : IEditorFacturasClientePreview;
|
||||
|
||||
begin
|
||||
AEditor := NIL;
|
||||
ShowHourglassCursor;
|
||||
|
||||
@ -145,18 +145,6 @@ object DataModuleFacturasCliente: TDataModuleFacturasCliente
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'DESCRIPCION_DESCUENTO'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
Alignment = taLeftJustify
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'IVA'
|
||||
DataType = datFloat
|
||||
|
||||
@ -47,8 +47,8 @@ implementation
|
||||
{$R *.DFM}
|
||||
|
||||
uses
|
||||
Forms, Windows, FactuGES_Intf, uDataModuleConexion, uDataTableUtils, cxControls,
|
||||
uDAInterfaces, schFacturasClienteClient_Intf, uBizContactos;
|
||||
FactuGES_Intf, uDataModuleConexion, uDataTableUtils, cxControls, uDAInterfaces,
|
||||
schFacturasClienteClient_Intf, uBizContactos;
|
||||
|
||||
{ TdmPresupuestos }
|
||||
|
||||
@ -85,7 +85,8 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
function TDataModuleFacturasCliente.GetRptFacturas(const AListaID: TIntegerList; const ShowLogotipo: Boolean = False): Binary;
|
||||
function TDataModuleFacturasCliente.GetRptFacturas(
|
||||
const AListaID: TIntegerList; const ShowLogotipo: Boolean = False): Binary;
|
||||
var
|
||||
AParam : TIntegerArray;
|
||||
begin
|
||||
|
||||
@ -8,7 +8,11 @@
|
||||
<Option Name="GUID">{31F77077-B4B9-443C-9AA9-F13B4EB640B4}</Option>
|
||||
</Option>
|
||||
</PersonalityInfo>
|
||||
<Default.Personality> <Projects>
|
||||
<Default.Personality>
|
||||
|
||||
|
||||
|
||||
<Projects>
|
||||
<Projects Name="Base.bpl">..\..\Base\Base.bdsproj</Projects>
|
||||
<Projects Name="ControllerBase.bpl">..\..\Base\ControllerBase\ControllerBase.bdsproj</Projects>
|
||||
<Projects Name="GUIBase.bpl">..\..\Base\GUIBase\GUIBase.bdsproj</Projects>
|
||||
@ -38,12 +42,7 @@
|
||||
<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="RemesasProveedor_view.bpl">..\Remesas de proveedor\Views\RemesasProveedor_view.bdsproj</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 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>
|
||||
<Dependencies/>
|
||||
</Default.Personality>
|
||||
|
||||
@ -9,12 +9,12 @@ const
|
||||
{ Data table rules ids
|
||||
Feel free to change them to something more human readable
|
||||
but make sure they are unique in the context of your application }
|
||||
RID_DarReferencia = '{01226CA6-8C1F-4C81-99BD-69D484975D2B}';
|
||||
RID_ListaAnosFacturas = '{4DC99931-20F9-4066-B3DD-F8C51BCFE9B6}';
|
||||
RID_FacturasCliente = '{2F18EAB0-8E58-430A-AC9C-0809354C7E27}';
|
||||
RID_FacturasCliente_Detalles = '{4C59D788-DAE0-4359-A266-0851D8711E67}';
|
||||
RID_FacturasCliente_Detalles_Refresh = '{58FC00E6-4F0C-4F06-89D2-48426F664F4A}';
|
||||
RID_FacturasCliente_Refresh = '{06C784AE-4E81-44D7-A1A6-22F30138B2D2}';
|
||||
RID_DarReferencia = '{A621C326-E4EC-467B-ADBC-3405D36E60EE}';
|
||||
RID_ListaAnosFacturas = '{4BE1F671-5EAA-439D-AFB9-0AD7989ADF34}';
|
||||
RID_FacturasCliente = '{428E1B81-D8A3-4C5E-B021-5E4BF418E6B7}';
|
||||
RID_FacturasCliente_Detalles = '{8FB6D423-E42F-4A10-8C35-736C711FFA32}';
|
||||
RID_FacturasCliente_Detalles_Refresh = '{3618523F-C786-4185-A189-80867AA103C0}';
|
||||
RID_FacturasCliente_Refresh = '{3DCA7D8A-2508-4E3A-BE11-B6E06C9EA8B6}';
|
||||
|
||||
{ Data table names }
|
||||
nme_DarReferencia = 'DarReferencia';
|
||||
@ -46,7 +46,6 @@ const
|
||||
fld_FacturasClienteBASE_IMPONIBLE = 'BASE_IMPONIBLE';
|
||||
fld_FacturasClienteDESCUENTO = 'DESCUENTO';
|
||||
fld_FacturasClienteIMPORTE_DESCUENTO = 'IMPORTE_DESCUENTO';
|
||||
fld_FacturasClienteDESCRIPCION_DESCUENTO = 'DESCRIPCION_DESCUENTO';
|
||||
fld_FacturasClienteIVA = 'IVA';
|
||||
fld_FacturasClienteIMPORTE_IVA = 'IMPORTE_IVA';
|
||||
fld_FacturasClienteRE = 'RE';
|
||||
@ -85,34 +84,33 @@ const
|
||||
idx_FacturasClienteBASE_IMPONIBLE = 6;
|
||||
idx_FacturasClienteDESCUENTO = 7;
|
||||
idx_FacturasClienteIMPORTE_DESCUENTO = 8;
|
||||
idx_FacturasClienteDESCRIPCION_DESCUENTO = 9;
|
||||
idx_FacturasClienteIVA = 10;
|
||||
idx_FacturasClienteIMPORTE_IVA = 11;
|
||||
idx_FacturasClienteRE = 12;
|
||||
idx_FacturasClienteIMPORTE_RE = 13;
|
||||
idx_FacturasClienteIMPORTE_TOTAL = 14;
|
||||
idx_FacturasClienteOBSERVACIONES = 15;
|
||||
idx_FacturasClienteID_CLIENTE = 16;
|
||||
idx_FacturasClienteNIF_CIF = 17;
|
||||
idx_FacturasClienteNOMBRE = 18;
|
||||
idx_FacturasClienteCALLE = 19;
|
||||
idx_FacturasClientePOBLACION = 20;
|
||||
idx_FacturasClientePROVINCIA = 21;
|
||||
idx_FacturasClienteCODIGO_POSTAL = 22;
|
||||
idx_FacturasClienteFECHA_ALTA = 23;
|
||||
idx_FacturasClienteFECHA_MODIFICACION = 24;
|
||||
idx_FacturasClienteUSUARIO = 25;
|
||||
idx_FacturasClienteID_FORMA_PAGO = 26;
|
||||
idx_FacturasClienteRECARGO_EQUIVALENCIA = 27;
|
||||
idx_FacturasClienteID_TIPO_IVA = 28;
|
||||
idx_FacturasClienteIMPORTE_NETO = 29;
|
||||
idx_FacturasClienteIMPORTE_PORTE = 30;
|
||||
idx_FacturasClienteID_COMISION_LIQUIDADA = 31;
|
||||
idx_FacturasClienteREFERENCIA_COMISION = 32;
|
||||
idx_FacturasClienteID_AGENTE = 33;
|
||||
idx_FacturasClienteNUM_COPIAS = 34;
|
||||
idx_FacturasClienteNUM_CORREOS = 35;
|
||||
idx_FacturasClienteFECHA_VENCIMIENTO = 36;
|
||||
idx_FacturasClienteIVA = 9;
|
||||
idx_FacturasClienteIMPORTE_IVA = 10;
|
||||
idx_FacturasClienteRE = 11;
|
||||
idx_FacturasClienteIMPORTE_RE = 12;
|
||||
idx_FacturasClienteIMPORTE_TOTAL = 13;
|
||||
idx_FacturasClienteOBSERVACIONES = 14;
|
||||
idx_FacturasClienteID_CLIENTE = 15;
|
||||
idx_FacturasClienteNIF_CIF = 16;
|
||||
idx_FacturasClienteNOMBRE = 17;
|
||||
idx_FacturasClienteCALLE = 18;
|
||||
idx_FacturasClientePOBLACION = 19;
|
||||
idx_FacturasClientePROVINCIA = 20;
|
||||
idx_FacturasClienteCODIGO_POSTAL = 21;
|
||||
idx_FacturasClienteFECHA_ALTA = 22;
|
||||
idx_FacturasClienteFECHA_MODIFICACION = 23;
|
||||
idx_FacturasClienteUSUARIO = 24;
|
||||
idx_FacturasClienteID_FORMA_PAGO = 25;
|
||||
idx_FacturasClienteRECARGO_EQUIVALENCIA = 26;
|
||||
idx_FacturasClienteID_TIPO_IVA = 27;
|
||||
idx_FacturasClienteIMPORTE_NETO = 28;
|
||||
idx_FacturasClienteIMPORTE_PORTE = 29;
|
||||
idx_FacturasClienteID_COMISION_LIQUIDADA = 30;
|
||||
idx_FacturasClienteREFERENCIA_COMISION = 31;
|
||||
idx_FacturasClienteID_AGENTE = 32;
|
||||
idx_FacturasClienteNUM_COPIAS = 33;
|
||||
idx_FacturasClienteNUM_CORREOS = 34;
|
||||
idx_FacturasClienteFECHA_VENCIMIENTO = 35;
|
||||
|
||||
{ FacturasCliente_Detalles fields }
|
||||
fld_FacturasCliente_DetallesID = 'ID';
|
||||
@ -188,7 +186,6 @@ const
|
||||
fld_FacturasCliente_RefreshBASE_IMPONIBLE = 'BASE_IMPONIBLE';
|
||||
fld_FacturasCliente_RefreshDESCUENTO = 'DESCUENTO';
|
||||
fld_FacturasCliente_RefreshIMPORTE_DESCUENTO = 'IMPORTE_DESCUENTO';
|
||||
fld_FacturasCliente_RefreshDESCRIPCION_DESCUENTO = 'DESCRIPCION_DESCUENTO';
|
||||
fld_FacturasCliente_RefreshIVA = 'IVA';
|
||||
fld_FacturasCliente_RefreshIMPORTE_IVA = 'IMPORTE_IVA';
|
||||
fld_FacturasCliente_RefreshRE = 'RE';
|
||||
@ -227,39 +224,38 @@ const
|
||||
idx_FacturasCliente_RefreshBASE_IMPONIBLE = 6;
|
||||
idx_FacturasCliente_RefreshDESCUENTO = 7;
|
||||
idx_FacturasCliente_RefreshIMPORTE_DESCUENTO = 8;
|
||||
idx_FacturasCliente_RefreshDESCRIPCION_DESCUENTO = 9;
|
||||
idx_FacturasCliente_RefreshIVA = 10;
|
||||
idx_FacturasCliente_RefreshIMPORTE_IVA = 11;
|
||||
idx_FacturasCliente_RefreshRE = 12;
|
||||
idx_FacturasCliente_RefreshIMPORTE_RE = 13;
|
||||
idx_FacturasCliente_RefreshIMPORTE_TOTAL = 14;
|
||||
idx_FacturasCliente_RefreshOBSERVACIONES = 15;
|
||||
idx_FacturasCliente_RefreshID_CLIENTE = 16;
|
||||
idx_FacturasCliente_RefreshNIF_CIF = 17;
|
||||
idx_FacturasCliente_RefreshNOMBRE = 18;
|
||||
idx_FacturasCliente_RefreshCALLE = 19;
|
||||
idx_FacturasCliente_RefreshPOBLACION = 20;
|
||||
idx_FacturasCliente_RefreshPROVINCIA = 21;
|
||||
idx_FacturasCliente_RefreshCODIGO_POSTAL = 22;
|
||||
idx_FacturasCliente_RefreshFECHA_ALTA = 23;
|
||||
idx_FacturasCliente_RefreshFECHA_MODIFICACION = 24;
|
||||
idx_FacturasCliente_RefreshUSUARIO = 25;
|
||||
idx_FacturasCliente_RefreshID_FORMA_PAGO = 26;
|
||||
idx_FacturasCliente_RefreshRECARGO_EQUIVALENCIA = 27;
|
||||
idx_FacturasCliente_RefreshID_TIPO_IVA = 28;
|
||||
idx_FacturasCliente_RefreshIMPORTE_NETO = 29;
|
||||
idx_FacturasCliente_RefreshIMPORTE_PORTE = 30;
|
||||
idx_FacturasCliente_RefreshID_COMISION_LIQUIDADA = 31;
|
||||
idx_FacturasCliente_RefreshREFERENCIA_COMISION = 32;
|
||||
idx_FacturasCliente_RefreshID_AGENTE = 33;
|
||||
idx_FacturasCliente_RefreshNUM_COPIAS = 34;
|
||||
idx_FacturasCliente_RefreshNUM_CORREOS = 35;
|
||||
idx_FacturasCliente_RefreshFECHA_VENCIMIENTO = 36;
|
||||
idx_FacturasCliente_RefreshIVA = 9;
|
||||
idx_FacturasCliente_RefreshIMPORTE_IVA = 10;
|
||||
idx_FacturasCliente_RefreshRE = 11;
|
||||
idx_FacturasCliente_RefreshIMPORTE_RE = 12;
|
||||
idx_FacturasCliente_RefreshIMPORTE_TOTAL = 13;
|
||||
idx_FacturasCliente_RefreshOBSERVACIONES = 14;
|
||||
idx_FacturasCliente_RefreshID_CLIENTE = 15;
|
||||
idx_FacturasCliente_RefreshNIF_CIF = 16;
|
||||
idx_FacturasCliente_RefreshNOMBRE = 17;
|
||||
idx_FacturasCliente_RefreshCALLE = 18;
|
||||
idx_FacturasCliente_RefreshPOBLACION = 19;
|
||||
idx_FacturasCliente_RefreshPROVINCIA = 20;
|
||||
idx_FacturasCliente_RefreshCODIGO_POSTAL = 21;
|
||||
idx_FacturasCliente_RefreshFECHA_ALTA = 22;
|
||||
idx_FacturasCliente_RefreshFECHA_MODIFICACION = 23;
|
||||
idx_FacturasCliente_RefreshUSUARIO = 24;
|
||||
idx_FacturasCliente_RefreshID_FORMA_PAGO = 25;
|
||||
idx_FacturasCliente_RefreshRECARGO_EQUIVALENCIA = 26;
|
||||
idx_FacturasCliente_RefreshID_TIPO_IVA = 27;
|
||||
idx_FacturasCliente_RefreshIMPORTE_NETO = 28;
|
||||
idx_FacturasCliente_RefreshIMPORTE_PORTE = 29;
|
||||
idx_FacturasCliente_RefreshID_COMISION_LIQUIDADA = 30;
|
||||
idx_FacturasCliente_RefreshREFERENCIA_COMISION = 31;
|
||||
idx_FacturasCliente_RefreshID_AGENTE = 32;
|
||||
idx_FacturasCliente_RefreshNUM_COPIAS = 33;
|
||||
idx_FacturasCliente_RefreshNUM_CORREOS = 34;
|
||||
idx_FacturasCliente_RefreshFECHA_VENCIMIENTO = 35;
|
||||
|
||||
type
|
||||
{ IDarReferencia }
|
||||
IDarReferencia = interface(IDAStronglyTypedDataTable)
|
||||
['{1036E778-513F-4719-9E73-C3CC3090D3B9}']
|
||||
['{DC6A031B-D148-478D-9BCA-101202CCC948}']
|
||||
{ Property getters and setters }
|
||||
function GetVALORValue: String;
|
||||
procedure SetVALORValue(const aValue: String);
|
||||
@ -288,7 +284,7 @@ type
|
||||
|
||||
{ IListaAnosFacturas }
|
||||
IListaAnosFacturas = interface(IDAStronglyTypedDataTable)
|
||||
['{BBAE1C42-C8C4-47A9-955E-41D90F595250}']
|
||||
['{FF89EDF2-3698-477F-B6DE-83A3FE03F68E}']
|
||||
{ Property getters and setters }
|
||||
function GetANOValue: String;
|
||||
procedure SetANOValue(const aValue: String);
|
||||
@ -317,7 +313,7 @@ type
|
||||
|
||||
{ IFacturasCliente }
|
||||
IFacturasCliente = interface(IDAStronglyTypedDataTable)
|
||||
['{9D3EEAA7-9311-44FF-BA47-3AE7A4B205B7}']
|
||||
['{AACD7C2D-E96C-430C-A07F-12AF77A42630}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -337,8 +333,6 @@ type
|
||||
procedure SetDESCUENTOValue(const aValue: Float);
|
||||
function GetIMPORTE_DESCUENTOValue: Currency;
|
||||
procedure SetIMPORTE_DESCUENTOValue(const aValue: Currency);
|
||||
function GetDESCRIPCION_DESCUENTOValue: String;
|
||||
procedure SetDESCRIPCION_DESCUENTOValue(const aValue: String);
|
||||
function GetIVAValue: Float;
|
||||
procedure SetIVAValue(const aValue: Float);
|
||||
function GetIMPORTE_IVAValue: Currency;
|
||||
@ -405,7 +399,6 @@ type
|
||||
property BASE_IMPONIBLE: Currency read GetBASE_IMPONIBLEValue write SetBASE_IMPONIBLEValue;
|
||||
property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue;
|
||||
property IMPORTE_DESCUENTO: Currency read GetIMPORTE_DESCUENTOValue write SetIMPORTE_DESCUENTOValue;
|
||||
property DESCRIPCION_DESCUENTO: String read GetDESCRIPCION_DESCUENTOValue write SetDESCRIPCION_DESCUENTOValue;
|
||||
property IVA: Float read GetIVAValue write SetIVAValue;
|
||||
property IMPORTE_IVA: Currency read GetIMPORTE_IVAValue write SetIMPORTE_IVAValue;
|
||||
property RE: Float read GetREValue write SetREValue;
|
||||
@ -458,8 +451,6 @@ type
|
||||
procedure SetDESCUENTOValue(const aValue: Float); virtual;
|
||||
function GetIMPORTE_DESCUENTOValue: Currency; virtual;
|
||||
procedure SetIMPORTE_DESCUENTOValue(const aValue: Currency); virtual;
|
||||
function GetDESCRIPCION_DESCUENTOValue: String; virtual;
|
||||
procedure SetDESCRIPCION_DESCUENTOValue(const aValue: String); virtual;
|
||||
function GetIVAValue: Float; virtual;
|
||||
procedure SetIVAValue(const aValue: Float); virtual;
|
||||
function GetIMPORTE_IVAValue: Currency; virtual;
|
||||
@ -525,7 +516,6 @@ type
|
||||
property BASE_IMPONIBLE: Currency read GetBASE_IMPONIBLEValue write SetBASE_IMPONIBLEValue;
|
||||
property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue;
|
||||
property IMPORTE_DESCUENTO: Currency read GetIMPORTE_DESCUENTOValue write SetIMPORTE_DESCUENTOValue;
|
||||
property DESCRIPCION_DESCUENTO: String read GetDESCRIPCION_DESCUENTOValue write SetDESCRIPCION_DESCUENTOValue;
|
||||
property IVA: Float read GetIVAValue write SetIVAValue;
|
||||
property IMPORTE_IVA: Currency read GetIMPORTE_IVAValue write SetIMPORTE_IVAValue;
|
||||
property RE: Float read GetREValue write SetREValue;
|
||||
@ -562,7 +552,7 @@ type
|
||||
|
||||
{ IFacturasCliente_Detalles }
|
||||
IFacturasCliente_Detalles = interface(IDAStronglyTypedDataTable)
|
||||
['{39D48144-0270-459D-BF4B-989E70E2C2F7}']
|
||||
['{B6A306E7-6C2F-46BC-A313-C6F68ED5C577}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -669,7 +659,7 @@ type
|
||||
|
||||
{ IFacturasCliente_Detalles_Refresh }
|
||||
IFacturasCliente_Detalles_Refresh = interface(IDAStronglyTypedDataTable)
|
||||
['{9604E930-78C1-445E-BB78-C444EC2B5FFF}']
|
||||
['{6C0D8072-B0E3-4774-A560-8336A4DFBF60}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -776,7 +766,7 @@ type
|
||||
|
||||
{ IFacturasCliente_Refresh }
|
||||
IFacturasCliente_Refresh = interface(IDAStronglyTypedDataTable)
|
||||
['{7233BE3E-E6CB-4FA8-9947-FEBACA722450}']
|
||||
['{C8BA494B-931B-4C73-8E06-1F3846B17070}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -796,8 +786,6 @@ type
|
||||
procedure SetDESCUENTOValue(const aValue: Float);
|
||||
function GetIMPORTE_DESCUENTOValue: Currency;
|
||||
procedure SetIMPORTE_DESCUENTOValue(const aValue: Currency);
|
||||
function GetDESCRIPCION_DESCUENTOValue: String;
|
||||
procedure SetDESCRIPCION_DESCUENTOValue(const aValue: String);
|
||||
function GetIVAValue: Float;
|
||||
procedure SetIVAValue(const aValue: Float);
|
||||
function GetIMPORTE_IVAValue: Currency;
|
||||
@ -864,7 +852,6 @@ type
|
||||
property BASE_IMPONIBLE: Currency read GetBASE_IMPONIBLEValue write SetBASE_IMPONIBLEValue;
|
||||
property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue;
|
||||
property IMPORTE_DESCUENTO: Currency read GetIMPORTE_DESCUENTOValue write SetIMPORTE_DESCUENTOValue;
|
||||
property DESCRIPCION_DESCUENTO: String read GetDESCRIPCION_DESCUENTOValue write SetDESCRIPCION_DESCUENTOValue;
|
||||
property IVA: Float read GetIVAValue write SetIVAValue;
|
||||
property IMPORTE_IVA: Currency read GetIMPORTE_IVAValue write SetIMPORTE_IVAValue;
|
||||
property RE: Float read GetREValue write SetREValue;
|
||||
@ -917,8 +904,6 @@ type
|
||||
procedure SetDESCUENTOValue(const aValue: Float); virtual;
|
||||
function GetIMPORTE_DESCUENTOValue: Currency; virtual;
|
||||
procedure SetIMPORTE_DESCUENTOValue(const aValue: Currency); virtual;
|
||||
function GetDESCRIPCION_DESCUENTOValue: String; virtual;
|
||||
procedure SetDESCRIPCION_DESCUENTOValue(const aValue: String); virtual;
|
||||
function GetIVAValue: Float; virtual;
|
||||
procedure SetIVAValue(const aValue: Float); virtual;
|
||||
function GetIMPORTE_IVAValue: Currency; virtual;
|
||||
@ -984,7 +969,6 @@ type
|
||||
property BASE_IMPONIBLE: Currency read GetBASE_IMPONIBLEValue write SetBASE_IMPONIBLEValue;
|
||||
property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue;
|
||||
property IMPORTE_DESCUENTO: Currency read GetIMPORTE_DESCUENTOValue write SetIMPORTE_DESCUENTOValue;
|
||||
property DESCRIPCION_DESCUENTO: String read GetDESCRIPCION_DESCUENTOValue write SetDESCRIPCION_DESCUENTOValue;
|
||||
property IVA: Float read GetIVAValue write SetIVAValue;
|
||||
property IMPORTE_IVA: Currency read GetIMPORTE_IVAValue write SetIMPORTE_IVAValue;
|
||||
property RE: Float read GetREValue write SetREValue;
|
||||
@ -1168,16 +1152,6 @@ begin
|
||||
DataTable.Fields[idx_FacturasClienteIMPORTE_DESCUENTO].AsCurrency := aValue;
|
||||
end;
|
||||
|
||||
function TFacturasClienteDataTableRules.GetDESCRIPCION_DESCUENTOValue: String;
|
||||
begin
|
||||
result := DataTable.Fields[idx_FacturasClienteDESCRIPCION_DESCUENTO].AsString;
|
||||
end;
|
||||
|
||||
procedure TFacturasClienteDataTableRules.SetDESCRIPCION_DESCUENTOValue(const aValue: String);
|
||||
begin
|
||||
DataTable.Fields[idx_FacturasClienteDESCRIPCION_DESCUENTO].AsString := aValue;
|
||||
end;
|
||||
|
||||
function TFacturasClienteDataTableRules.GetIVAValue: Float;
|
||||
begin
|
||||
result := DataTable.Fields[idx_FacturasClienteIVA].AsFloat;
|
||||
@ -1855,16 +1829,6 @@ begin
|
||||
DataTable.Fields[idx_FacturasCliente_RefreshIMPORTE_DESCUENTO].AsCurrency := aValue;
|
||||
end;
|
||||
|
||||
function TFacturasCliente_RefreshDataTableRules.GetDESCRIPCION_DESCUENTOValue: String;
|
||||
begin
|
||||
result := DataTable.Fields[idx_FacturasCliente_RefreshDESCRIPCION_DESCUENTO].AsString;
|
||||
end;
|
||||
|
||||
procedure TFacturasCliente_RefreshDataTableRules.SetDESCRIPCION_DESCUENTOValue(const aValue: String);
|
||||
begin
|
||||
DataTable.Fields[idx_FacturasCliente_RefreshDESCRIPCION_DESCUENTO].AsString := aValue;
|
||||
end;
|
||||
|
||||
function TFacturasCliente_RefreshDataTableRules.GetIVAValue: Float;
|
||||
begin
|
||||
result := DataTable.Fields[idx_FacturasCliente_RefreshIVA].AsFloat;
|
||||
|
||||
@ -9,17 +9,17 @@ const
|
||||
{ Delta rules ids
|
||||
Feel free to change them to something more human readable
|
||||
but make sure they are unique in the context of your application }
|
||||
RID_DarReferenciaDelta = '{254C7AC1-F65E-444E-9B90-6EB7785F4626}';
|
||||
RID_ListaAnosFacturasDelta = '{B39BA7C5-8427-4866-A863-2A939994969D}';
|
||||
RID_FacturasClienteDelta = '{7EEA294E-8B7C-4997-AF74-F6B3BD16472C}';
|
||||
RID_FacturasCliente_DetallesDelta = '{1DDF9134-3164-4E38-950B-63305DE9398B}';
|
||||
RID_FacturasCliente_Detalles_RefreshDelta = '{98C8D6ED-1DE6-4AD5-886C-13A4B9D9556F}';
|
||||
RID_FacturasCliente_RefreshDelta = '{07965967-879D-4386-9C9A-DD8C2950A6FC}';
|
||||
RID_DarReferenciaDelta = '{DCB4C31D-2825-4AED-A0D5-085D371E73FF}';
|
||||
RID_ListaAnosFacturasDelta = '{BE0BAF1D-C955-44C4-872C-6DD555772691}';
|
||||
RID_FacturasClienteDelta = '{91BB9203-1A6A-4FC1-AD02-41A181969867}';
|
||||
RID_FacturasCliente_DetallesDelta = '{7DCB2097-1E44-42CC-BA9E-9CF8645A18E3}';
|
||||
RID_FacturasCliente_Detalles_RefreshDelta = '{4C1BB5AD-9C14-47AC-8CB9-B298E9CBC9E4}';
|
||||
RID_FacturasCliente_RefreshDelta = '{94A51D8A-EC34-4716-8531-4CC62F89C1CD}';
|
||||
|
||||
type
|
||||
{ IDarReferenciaDelta }
|
||||
IDarReferenciaDelta = interface(IDarReferencia)
|
||||
['{254C7AC1-F65E-444E-9B90-6EB7785F4626}']
|
||||
['{DCB4C31D-2825-4AED-A0D5-085D371E73FF}']
|
||||
{ Property getters and setters }
|
||||
function GetOldVALORValue : String;
|
||||
|
||||
@ -48,7 +48,7 @@ type
|
||||
|
||||
{ IListaAnosFacturasDelta }
|
||||
IListaAnosFacturasDelta = interface(IListaAnosFacturas)
|
||||
['{B39BA7C5-8427-4866-A863-2A939994969D}']
|
||||
['{BE0BAF1D-C955-44C4-872C-6DD555772691}']
|
||||
{ Property getters and setters }
|
||||
function GetOldANOValue : String;
|
||||
|
||||
@ -77,7 +77,7 @@ type
|
||||
|
||||
{ IFacturasClienteDelta }
|
||||
IFacturasClienteDelta = interface(IFacturasCliente)
|
||||
['{7EEA294E-8B7C-4997-AF74-F6B3BD16472C}']
|
||||
['{91BB9203-1A6A-4FC1-AD02-41A181969867}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_EMPRESAValue : Integer;
|
||||
@ -88,7 +88,6 @@ type
|
||||
function GetOldBASE_IMPONIBLEValue : Currency;
|
||||
function GetOldDESCUENTOValue : Float;
|
||||
function GetOldIMPORTE_DESCUENTOValue : Currency;
|
||||
function GetOldDESCRIPCION_DESCUENTOValue : String;
|
||||
function GetOldIVAValue : Float;
|
||||
function GetOldIMPORTE_IVAValue : Currency;
|
||||
function GetOldREValue : Float;
|
||||
@ -127,7 +126,6 @@ type
|
||||
property OldBASE_IMPONIBLE : Currency read GetOldBASE_IMPONIBLEValue;
|
||||
property OldDESCUENTO : Float read GetOldDESCUENTOValue;
|
||||
property OldIMPORTE_DESCUENTO : Currency read GetOldIMPORTE_DESCUENTOValue;
|
||||
property OldDESCRIPCION_DESCUENTO : String read GetOldDESCRIPCION_DESCUENTOValue;
|
||||
property OldIVA : Float read GetOldIVAValue;
|
||||
property OldIMPORTE_IVA : Currency read GetOldIMPORTE_IVAValue;
|
||||
property OldRE : Float read GetOldREValue;
|
||||
@ -189,9 +187,6 @@ type
|
||||
function GetIMPORTE_DESCUENTOValue: Currency; virtual;
|
||||
function GetOldIMPORTE_DESCUENTOValue: Currency; virtual;
|
||||
procedure SetIMPORTE_DESCUENTOValue(const aValue: Currency); virtual;
|
||||
function GetDESCRIPCION_DESCUENTOValue: String; virtual;
|
||||
function GetOldDESCRIPCION_DESCUENTOValue: String; virtual;
|
||||
procedure SetDESCRIPCION_DESCUENTOValue(const aValue: String); virtual;
|
||||
function GetIVAValue: Float; virtual;
|
||||
function GetOldIVAValue: Float; virtual;
|
||||
procedure SetIVAValue(const aValue: Float); virtual;
|
||||
@ -293,8 +288,6 @@ type
|
||||
property OldDESCUENTO : Float read GetOldDESCUENTOValue;
|
||||
property IMPORTE_DESCUENTO : Currency read GetIMPORTE_DESCUENTOValue write SetIMPORTE_DESCUENTOValue;
|
||||
property OldIMPORTE_DESCUENTO : Currency read GetOldIMPORTE_DESCUENTOValue;
|
||||
property DESCRIPCION_DESCUENTO : String read GetDESCRIPCION_DESCUENTOValue write SetDESCRIPCION_DESCUENTOValue;
|
||||
property OldDESCRIPCION_DESCUENTO : String read GetOldDESCRIPCION_DESCUENTOValue;
|
||||
property IVA : Float read GetIVAValue write SetIVAValue;
|
||||
property OldIVA : Float read GetOldIVAValue;
|
||||
property IMPORTE_IVA : Currency read GetIMPORTE_IVAValue write SetIMPORTE_IVAValue;
|
||||
@ -358,7 +351,7 @@ type
|
||||
|
||||
{ IFacturasCliente_DetallesDelta }
|
||||
IFacturasCliente_DetallesDelta = interface(IFacturasCliente_Detalles)
|
||||
['{1DDF9134-3164-4E38-950B-63305DE9398B}']
|
||||
['{7DCB2097-1E44-42CC-BA9E-9CF8645A18E3}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_FACTURAValue : Integer;
|
||||
@ -478,7 +471,7 @@ type
|
||||
|
||||
{ IFacturasCliente_Detalles_RefreshDelta }
|
||||
IFacturasCliente_Detalles_RefreshDelta = interface(IFacturasCliente_Detalles_Refresh)
|
||||
['{98C8D6ED-1DE6-4AD5-886C-13A4B9D9556F}']
|
||||
['{4C1BB5AD-9C14-47AC-8CB9-B298E9CBC9E4}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_FACTURAValue : Integer;
|
||||
@ -598,7 +591,7 @@ type
|
||||
|
||||
{ IFacturasCliente_RefreshDelta }
|
||||
IFacturasCliente_RefreshDelta = interface(IFacturasCliente_Refresh)
|
||||
['{07965967-879D-4386-9C9A-DD8C2950A6FC}']
|
||||
['{94A51D8A-EC34-4716-8531-4CC62F89C1CD}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_EMPRESAValue : Integer;
|
||||
@ -609,7 +602,6 @@ type
|
||||
function GetOldBASE_IMPONIBLEValue : Currency;
|
||||
function GetOldDESCUENTOValue : Float;
|
||||
function GetOldIMPORTE_DESCUENTOValue : Currency;
|
||||
function GetOldDESCRIPCION_DESCUENTOValue : String;
|
||||
function GetOldIVAValue : Float;
|
||||
function GetOldIMPORTE_IVAValue : Currency;
|
||||
function GetOldREValue : Float;
|
||||
@ -648,7 +640,6 @@ type
|
||||
property OldBASE_IMPONIBLE : Currency read GetOldBASE_IMPONIBLEValue;
|
||||
property OldDESCUENTO : Float read GetOldDESCUENTOValue;
|
||||
property OldIMPORTE_DESCUENTO : Currency read GetOldIMPORTE_DESCUENTOValue;
|
||||
property OldDESCRIPCION_DESCUENTO : String read GetOldDESCRIPCION_DESCUENTOValue;
|
||||
property OldIVA : Float read GetOldIVAValue;
|
||||
property OldIMPORTE_IVA : Currency read GetOldIMPORTE_IVAValue;
|
||||
property OldRE : Float read GetOldREValue;
|
||||
@ -710,9 +701,6 @@ type
|
||||
function GetIMPORTE_DESCUENTOValue: Currency; virtual;
|
||||
function GetOldIMPORTE_DESCUENTOValue: Currency; virtual;
|
||||
procedure SetIMPORTE_DESCUENTOValue(const aValue: Currency); virtual;
|
||||
function GetDESCRIPCION_DESCUENTOValue: String; virtual;
|
||||
function GetOldDESCRIPCION_DESCUENTOValue: String; virtual;
|
||||
procedure SetDESCRIPCION_DESCUENTOValue(const aValue: String); virtual;
|
||||
function GetIVAValue: Float; virtual;
|
||||
function GetOldIVAValue: Float; virtual;
|
||||
procedure SetIVAValue(const aValue: Float); virtual;
|
||||
@ -814,8 +802,6 @@ type
|
||||
property OldDESCUENTO : Float read GetOldDESCUENTOValue;
|
||||
property IMPORTE_DESCUENTO : Currency read GetIMPORTE_DESCUENTOValue write SetIMPORTE_DESCUENTOValue;
|
||||
property OldIMPORTE_DESCUENTO : Currency read GetOldIMPORTE_DESCUENTOValue;
|
||||
property DESCRIPCION_DESCUENTO : String read GetDESCRIPCION_DESCUENTOValue write SetDESCRIPCION_DESCUENTOValue;
|
||||
property OldDESCRIPCION_DESCUENTO : String read GetOldDESCRIPCION_DESCUENTOValue;
|
||||
property IVA : Float read GetIVAValue write SetIVAValue;
|
||||
property OldIVA : Float read GetOldIVAValue;
|
||||
property IMPORTE_IVA : Currency read GetIMPORTE_IVAValue write SetIMPORTE_IVAValue;
|
||||
@ -1082,21 +1068,6 @@ begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteIMPORTE_DESCUENTO] := aValue;
|
||||
end;
|
||||
|
||||
function TFacturasClienteBusinessProcessorRules.GetDESCRIPCION_DESCUENTOValue: String;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDESCRIPCION_DESCUENTO];
|
||||
end;
|
||||
|
||||
function TFacturasClienteBusinessProcessorRules.GetOldDESCRIPCION_DESCUENTOValue: String;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteDESCRIPCION_DESCUENTO];
|
||||
end;
|
||||
|
||||
procedure TFacturasClienteBusinessProcessorRules.SetDESCRIPCION_DESCUENTOValue(const aValue: String);
|
||||
begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDESCRIPCION_DESCUENTO] := aValue;
|
||||
end;
|
||||
|
||||
function TFacturasClienteBusinessProcessorRules.GetIVAValue: Float;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteIVA];
|
||||
@ -2095,21 +2066,6 @@ begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasCliente_RefreshIMPORTE_DESCUENTO] := aValue;
|
||||
end;
|
||||
|
||||
function TFacturasCliente_RefreshBusinessProcessorRules.GetDESCRIPCION_DESCUENTOValue: String;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasCliente_RefreshDESCRIPCION_DESCUENTO];
|
||||
end;
|
||||
|
||||
function TFacturasCliente_RefreshBusinessProcessorRules.GetOldDESCRIPCION_DESCUENTOValue: String;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasCliente_RefreshDESCRIPCION_DESCUENTO];
|
||||
end;
|
||||
|
||||
procedure TFacturasCliente_RefreshBusinessProcessorRules.SetDESCRIPCION_DESCUENTOValue(const aValue: String);
|
||||
begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasCliente_RefreshDESCRIPCION_DESCUENTO] := aValue;
|
||||
end;
|
||||
|
||||
function TFacturasCliente_RefreshBusinessProcessorRules.GetIVAValue: Float;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasCliente_RefreshIVA];
|
||||
|
||||
@ -104,28 +104,27 @@ object RptFacturasCliente: TRptFacturasCliente
|
||||
'SELECT'#10' V_FACTURAS_CLIENTE.ID, V_FACTURAS_CLIENTE.REFERENCIA,' +
|
||||
' V_FACTURAS_CLIENTE.FECHA_FACTURA,'#10' V_FACTURAS_CLIENTE.BASE_I' +
|
||||
'MPONIBLE, V_FACTURAS_CLIENTE.DESCUENTO, V_FACTURAS_CLIENTE.IMPOR' +
|
||||
'TE_DESCUENTO,'#10' V_FACTURAS_CLIENTE.DESCRIPCION_DESCUENTO,'#10' ' +
|
||||
'V_FACTURAS_CLIENTE.IVA, V_FACTURAS_CLIENTE.IMPORTE_IVA,'#10' V_FA' +
|
||||
'CTURAS_CLIENTE.RE, V_FACTURAS_CLIENTE.IMPORTE_RE,'#10' V_FACTURAS' +
|
||||
'_CLIENTE.IMPORTE_TOTAL,'#10' V_FACTURAS_CLIENTE.OBSERVACIONES, FO' +
|
||||
'RMAS_PAGO.DESCRIPCION AS FORMA_PAGO, V_FACTURAS_CLIENTE.ID_CLIEN' +
|
||||
'TE,'#10' V_FACTURAS_CLIENTE.NIF_CIF, V_FACTURAS_CLIENTE.NOMBRE, V' +
|
||||
'_FACTURAS_CLIENTE.CALLE,'#10' V_FACTURAS_CLIENTE.PROVINCIA, V_FAC' +
|
||||
'TURAS_CLIENTE.CODIGO_POSTAL, V_FACTURAS_CLIENTE.POBLACION,'#10' C' +
|
||||
'ONTACTOS_DATOS_BANCO.TITULAR,'#10' CONTACTOS_DATOS_BANCO.ENTIDAD,' +
|
||||
#10' CONTACTOS_DATOS_BANCO.SUCURSAL,'#10' CONTACTOS_DATOS_BANCO.D' +
|
||||
'C,'#10' CONTACTOS_DATOS_BANCO.CUENTA,'#10' ID_EMPRESA, EMPRESAS.NI' +
|
||||
'F_CIF as NIF_CIF_EMPRESA, EMPRESAS.RAZON_SOCIAL,'#10' EMPRESAS.CA' +
|
||||
'LLE as CALLE_EMPRESA, EMPRESAS.POBLACION as POBLACION_EMPRESA,'#10' ' +
|
||||
' EMPRESAS.PROVINCIA as PROVINCIA_EMPRESA, EMPRESAS.CODIGO_POST' +
|
||||
'AL as CODIGO_POSTAL_EMPRESA,'#10' EMPRESAS.TELEFONO_1, EMPRESAS.F' +
|
||||
'AX, EMPRESAS.MOVIL_1, EMPRESAS.EMAIL_1,'#10' EMPRESAS.PAGINA_WEB,' +
|
||||
' EMPRESAS.REGISTRO_MERCANTIL, EMPRESAS.LOGOTIPO'#10'FROM V_FACTURAS_' +
|
||||
'CLIENTE'#10'LEFT JOIN EMPRESAS ON EMPRESAS.ID = ID_EMPRESA'#10'LEFT JOIN' +
|
||||
' FORMAS_PAGO ON (FORMAS_PAGO.ID = V_FACTURAS_CLIENTE.ID_FORMA_PA' +
|
||||
'GO)'#10'LEFT JOIN CONTACTOS_DATOS_BANCO ON (CONTACTOS_DATOS_BANCO.ID' +
|
||||
'_CONTACTO = V_FACTURAS_CLIENTE.ID_CLIENTE)'#10'WHERE V_FACTURAS_CLIE' +
|
||||
'NTE.ID = :ID'
|
||||
'TE_DESCUENTO,'#10' V_FACTURAS_CLIENTE.IVA, V_FACTURAS_CLIENTE.IMP' +
|
||||
'ORTE_IVA,'#10' V_FACTURAS_CLIENTE.RE, V_FACTURAS_CLIENTE.IMPORTE_' +
|
||||
'RE,'#10' V_FACTURAS_CLIENTE.IMPORTE_TOTAL,'#10' V_FACTURAS_CLIENTE' +
|
||||
'.OBSERVACIONES, FORMAS_PAGO.DESCRIPCION AS FORMA_PAGO, V_FACTURA' +
|
||||
'S_CLIENTE.ID_CLIENTE,'#10' V_FACTURAS_CLIENTE.NIF_CIF, V_FACTURAS' +
|
||||
'_CLIENTE.NOMBRE, V_FACTURAS_CLIENTE.CALLE,'#10' V_FACTURAS_CLIENT' +
|
||||
'E.PROVINCIA, V_FACTURAS_CLIENTE.CODIGO_POSTAL, V_FACTURAS_CLIENT' +
|
||||
'E.POBLACION,'#10' CONTACTOS_DATOS_BANCO.TITULAR,'#10' CONTACTOS_DA' +
|
||||
'TOS_BANCO.ENTIDAD,'#10' CONTACTOS_DATOS_BANCO.SUCURSAL,'#10' CONTA' +
|
||||
'CTOS_DATOS_BANCO.DC,'#10' CONTACTOS_DATOS_BANCO.CUENTA,'#10' ID_EM' +
|
||||
'PRESA, EMPRESAS.NIF_CIF as NIF_CIF_EMPRESA, EMPRESAS.RAZON_SOCIA' +
|
||||
'L,'#10' EMPRESAS.CALLE as CALLE_EMPRESA, EMPRESAS.POBLACION as PO' +
|
||||
'BLACION_EMPRESA,'#10' EMPRESAS.PROVINCIA as PROVINCIA_EMPRESA, EM' +
|
||||
'PRESAS.CODIGO_POSTAL as CODIGO_POSTAL_EMPRESA,'#10' EMPRESAS.TELE' +
|
||||
'FONO_1, EMPRESAS.FAX, EMPRESAS.MOVIL_1, EMPRESAS.EMAIL_1,'#10' EM' +
|
||||
'PRESAS.PAGINA_WEB, EMPRESAS.REGISTRO_MERCANTIL, EMPRESAS.LOGOTIP' +
|
||||
'O'#10'FROM V_FACTURAS_CLIENTE'#10'LEFT JOIN EMPRESAS ON EMPRESAS.ID = ID' +
|
||||
'_EMPRESA'#10'LEFT JOIN FORMAS_PAGO ON (FORMAS_PAGO.ID = V_FACTURAS_C' +
|
||||
'LIENTE.ID_FORMA_PAGO)'#10'LEFT JOIN CONTACTOS_DATOS_BANCO ON (CONTAC' +
|
||||
'TOS_DATOS_BANCO.ID_CONTACTO = V_FACTURAS_CLIENTE.ID_CLIENTE)'#10'WHE' +
|
||||
'RE V_FACTURAS_CLIENTE.ID = :ID'
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <
|
||||
item
|
||||
@ -283,10 +282,6 @@ object RptFacturasCliente: TRptFacturasCliente
|
||||
item
|
||||
DatasetField = 'CUENTA'
|
||||
TableField = 'CUENTA'
|
||||
end
|
||||
item
|
||||
DatasetField = 'DESCRIPCION_DESCUENTO'
|
||||
TableField = 'DESCRIPCION_DESCUENTO'
|
||||
end>
|
||||
end>
|
||||
Name = 'InformeFacturasCliente'
|
||||
@ -352,18 +347,6 @@ object RptFacturasCliente: TRptFacturasCliente
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'DESCRIPCION_DESCUENTO'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
Alignment = taLeftJustify
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'DESCUENTO'
|
||||
DataType = datFloat
|
||||
@ -1270,7 +1253,7 @@ object RptFacturasCliente: TRptFacturasCliente
|
||||
PrintOptions.Printer = 'Default'
|
||||
PrintOptions.PrintOnSheet = 0
|
||||
ReportOptions.CreateDate = 37871.995398692100000000
|
||||
ReportOptions.LastChange = 40259.487696377310000000
|
||||
ReportOptions.LastChange = 39701.539507187500000000
|
||||
ReportOptions.VersionBuild = '1'
|
||||
ReportOptions.VersionMajor = '12'
|
||||
ReportOptions.VersionMinor = '13'
|
||||
@ -1342,7 +1325,6 @@ object RptFacturasCliente: TRptFacturasCliente
|
||||
'var'
|
||||
' Cadena: String;'
|
||||
'begin'
|
||||
' { '
|
||||
' DatosEmpresa.Lines.Clear;'
|
||||
' DatosEmpresa.Lines.Add(<frxDBCabecera."RAZON_SOCIAL">);'
|
||||
' DatosEmpresa.Lines.Add(<frxDBCabecera."CALLE_EMPRESA">);'
|
||||
@ -1366,7 +1348,6 @@ object RptFacturasCliente: TRptFacturasCliente
|
||||
' Cadena := Cadena + '#39' - '#39' + <frxDBCabecera."PROVINCIA_EMPR' +
|
||||
'ESA">;'
|
||||
' DatosEmpresa.Lines.Add(Cadena);'
|
||||
' } '
|
||||
'end;'
|
||||
''
|
||||
'procedure Memo15OnBeforePrint(Sender: TfrxComponent);'
|
||||
@ -1382,6 +1363,8 @@ object RptFacturasCliente: TRptFacturasCliente
|
||||
'begin'
|
||||
' if (StrToFloat(<frxDBCabecera."RE">) = 0) then'
|
||||
' begin'
|
||||
' Memo20.Lines.Clear;'
|
||||
' Memo28.Lines.Clear;'
|
||||
' Memo21.Lines.Clear;'
|
||||
' Memo29.Lines.Clear;'
|
||||
' end;'
|
||||
@ -1418,33 +1401,10 @@ object RptFacturasCliente: TRptFacturasCliente
|
||||
''
|
||||
'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; '
|
||||
' Memo12.Visible := True;'
|
||||
|
||||
' Memo14.Visible := True; ' +
|
||||
' '
|
||||
' end'
|
||||
' if <ShowLogotipo> then'
|
||||
' Picture1.Visible := True'
|
||||
' else'
|
||||
' begin '
|
||||
' Picture1.Visible := False;'
|
||||
' Picture2.Visible := False;'
|
||||
' Picture3.Visible := False;'
|
||||
' Picture4.Visible := False;'
|
||||
' Picture5.Visible := False;'
|
||||
' Picture6.Visible := False;'
|
||||
' Memo12.Visible := False;'
|
||||
|
||||
' Memo14.Visible := False; ' +
|
||||
' '
|
||||
' end'
|
||||
'} '
|
||||
' Picture1.Visible := False; '
|
||||
'end;'
|
||||
''
|
||||
'begin'
|
||||
|
||||
@ -28,10 +28,10 @@ type
|
||||
DADataVencimientos: TDADataSource;
|
||||
tbl_Vencimientos: TDACDSDataTable;
|
||||
frxDBDataset1: TfrxDBDataset;
|
||||
frxReport: TfrxReport;
|
||||
frxPDFExport1: TfrxPDFExport;
|
||||
schReport: TDASchema;
|
||||
DataDictionary: TDADataDictionary;
|
||||
frxReport: TfrxReport;
|
||||
frxPDFExport1: TfrxPDFExport;
|
||||
procedure DataModuleCreate(Sender: TObject);
|
||||
procedure frxReportGetValue(const VarName: string; var Value: Variant);
|
||||
private
|
||||
@ -51,10 +51,10 @@ implementation
|
||||
{$R *.dfm}
|
||||
|
||||
uses
|
||||
uSistemaFunc, uDataModuleServer, schFacturasClienteClient_Intf, srvImpresiones_Impl;
|
||||
uDataModuleServer, schFacturasClienteClient_Intf, srvImpresiones_Impl;
|
||||
|
||||
const
|
||||
rptInforme = 'InfFacturaCliente.fr3';
|
||||
rptFacturaCliente = 'InfFacturaCliente.fr3';
|
||||
|
||||
{ Dataset names for schReport }
|
||||
ds_InformeFacturasCliente = 'InformeFacturasCliente';
|
||||
@ -70,7 +70,7 @@ begin
|
||||
schReport.ConnectionManager := dmServer.ConnectionManager;
|
||||
FConnection := dmServer.DarNuevaConexion;
|
||||
FShowLogotipo := False;
|
||||
frxReport.EngineOptions.NewSilentMode := simReThrow;
|
||||
frxReport.EngineOptions.NewSilentMode := simReThrow;
|
||||
end;
|
||||
|
||||
{function TRptFacturasCliente.GenerarFactura(const AFacturaID: String): Binary;
|
||||
@ -103,7 +103,6 @@ var
|
||||
dsMaster: IDADataset;
|
||||
dsDetail: IDADataset;
|
||||
dsVencimientos : IDADataset;
|
||||
AInforme: Variant;
|
||||
begin
|
||||
AStream := TMemoryStream.Create;
|
||||
FConnection.BeginTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO"
|
||||
@ -125,11 +124,8 @@ begin
|
||||
DABINAdapter.WriteDataset(AStream, dsVencimientos, [woRows, woSchema], -1);
|
||||
DABINAdapter.ReadDataset(AStream, tbl_Vencimientos, TRUE, '', TRUE, TRUE);
|
||||
|
||||
AInforme := DarRutaFichero(DarRutaInformes, rptInforme, tbl_FacturaCliente.FieldByName('ID_EMPRESA').AsString);
|
||||
if VarIsNull(AInforme) then
|
||||
raise Exception.Create (('Error Servidor: _GenerarFactura, no encuentra informe ' + rptInforme));
|
||||
|
||||
frxReport.LoadFromFile(AInforme, True);
|
||||
frxReport.LoadFromFile(DarRutaInformes + rptFacturaCliente, True);
|
||||
frxReport.PrepareReport(False);
|
||||
|
||||
finally
|
||||
@ -147,8 +143,8 @@ begin
|
||||
Value := FShowLogotipo;
|
||||
end;
|
||||
|
||||
function TRptFacturasCliente.GenerarFactura(const ListaID: TIntegerArray;
|
||||
const AConLogotipo: Boolean = False): Binary;
|
||||
function TRptFacturasCliente.GenerarFactura(
|
||||
const ListaID: TIntegerArray; const AConLogotipo: Boolean = False): Binary;
|
||||
var
|
||||
i: Integer;
|
||||
begin
|
||||
@ -164,8 +160,8 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
function TRptFacturasCliente.GenerarFacturaEnPDF(const ListaID: TIntegerArray;
|
||||
const AConLogotipo: Boolean = False): Binary;
|
||||
function TRptFacturasCliente.GenerarFacturaEnPDF(
|
||||
const ListaID: TIntegerArray; const AConLogotipo: Boolean = False): Binary;
|
||||
var
|
||||
i: Integer;
|
||||
begin
|
||||
|
||||
@ -104,14 +104,13 @@ object srvFacturasCliente: TsrvFacturasCliente
|
||||
TargetTable = 'V_FACTURAS_CLIENTE'
|
||||
SQL =
|
||||
'SELECT '#10' ID, ID_EMPRESA, REFERENCIA, TIPO, FECHA_FACTURA, SIT' +
|
||||
'UACION, BASE_IMPONIBLE,'#10' DESCUENTO, IMPORTE_DESCUENTO, DESCRI' +
|
||||
'PCION_DESCUENTO, IVA, IMPORTE_IVA, RE, IMPORTE_RE,'#10' IMPORTE_T' +
|
||||
'OTAL, OBSERVACIONES, ID_CLIENTE, NIF_CIF, NOMBRE, CALLE,'#10' POB' +
|
||||
'LACION, PROVINCIA, CODIGO_POSTAL, FECHA_ALTA, FECHA_MODIFICACION' +
|
||||
','#10' USUARIO, ID_FORMA_PAGO, RECARGO_EQUIVALENCIA, ID_TIPO_IVA,' +
|
||||
#10' IMPORTE_NETO, IMPORTE_PORTE, ID_COMISION_LIQUIDADA, REFEREN' +
|
||||
'CIA_COMISION,'#10' ID_AGENTE, NUM_COPIAS, NUM_CORREOS'#10' FROM'#10' ' +
|
||||
'V_FACTURAS_CLIENTE'
|
||||
'UACION, BASE_IMPONIBLE,'#10' DESCUENTO, IMPORTE_DESCUENTO, IVA, I' +
|
||||
'MPORTE_IVA, RE, IMPORTE_RE,'#10' IMPORTE_TOTAL, OBSERVACIONES, ID' +
|
||||
'_CLIENTE, NIF_CIF, NOMBRE, CALLE,'#10' POBLACION, PROVINCIA, CODI' +
|
||||
'GO_POSTAL, FECHA_ALTA, FECHA_MODIFICACION,'#10' USUARIO, ID_FORMA' +
|
||||
'_PAGO, RECARGO_EQUIVALENCIA, ID_TIPO_IVA,'#10' IMPORTE_NETO, IMPO' +
|
||||
'RTE_PORTE, ID_COMISION_LIQUIDADA, REFERENCIA_COMISION,'#10' ID_AG' +
|
||||
'ENTE, NUM_COPIAS, NUM_CORREOS'#10' FROM'#10' V_FACTURAS_CLIENTE'
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <
|
||||
item
|
||||
@ -253,10 +252,6 @@ object srvFacturasCliente: TsrvFacturasCliente
|
||||
item
|
||||
DatasetField = 'NUM_CORREOS'
|
||||
TableField = 'NUM_CORREOS'
|
||||
end
|
||||
item
|
||||
DatasetField = 'DESCRIPCION_DESCUENTO'
|
||||
TableField = 'DESCRIPCION_DESCUENTO'
|
||||
end>
|
||||
end>
|
||||
Name = 'FacturasCliente'
|
||||
@ -354,18 +349,6 @@ object srvFacturasCliente: TsrvFacturasCliente
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'DESCRIPCION_DESCUENTO'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
Alignment = taLeftJustify
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'IVA'
|
||||
DataType = datFloat
|
||||
@ -1150,14 +1133,14 @@ object srvFacturasCliente: TsrvFacturasCliente
|
||||
TargetTable = 'V_FACTURAS_CLIENTE'
|
||||
SQL =
|
||||
'SELECT '#10' ID, ID_EMPRESA, REFERENCIA, TIPO, FECHA_FACTURA, SIT' +
|
||||
'UACION, BASE_IMPONIBLE,'#10' DESCUENTO, IMPORTE_DESCUENTO, DESCRI' +
|
||||
'PCION_DESCUENTO, IVA, IMPORTE_IVA, RE,'#10' IMPORTE_RE, IMPORTE_T' +
|
||||
'OTAL, OBSERVACIONES, ID_CLIENTE, '#10' NIF_CIF, NOMBRE, CALLE, PO' +
|
||||
'BLACION, PROVINCIA, CODIGO_POSTAL, '#10' FECHA_ALTA, FECHA_MODIFI' +
|
||||
'CACION, USUARIO, ID_FORMA_PAGO, '#10' RECARGO_EQUIVALENCIA, ID_TI' +
|
||||
'PO_IVA, IMPORTE_NETO, IMPORTE_PORTE, ID_COMISION_LIQUIDADA,'#10' ' +
|
||||
'REFERENCIA_COMISION, ID_AGENTE, NUM_COPIAS, NUM_CORREOS'#10' FROM'#10' ' +
|
||||
' V_FACTURAS_CLIENTE'#10' WHERE ID = :ID'
|
||||
'UACION, BASE_IMPONIBLE,'#10' DESCUENTO, IMPORTE_DESCUENTO, IVA, I' +
|
||||
'MPORTE_IVA, RE, '#10' IMPORTE_RE, IMPORTE_TOTAL, OBSERVACIONES, I' +
|
||||
'D_CLIENTE, '#10' NIF_CIF, NOMBRE, CALLE, POBLACION, PROVINCIA, CO' +
|
||||
'DIGO_POSTAL, '#10' FECHA_ALTA, FECHA_MODIFICACION, USUARIO, ID_FO' +
|
||||
'RMA_PAGO, '#10' RECARGO_EQUIVALENCIA, ID_TIPO_IVA, IMPORTE_NETO, ' +
|
||||
'IMPORTE_PORTE, ID_COMISION_LIQUIDADA,'#10' REFERENCIA_COMISION, I' +
|
||||
'D_AGENTE, NUM_COPIAS, NUM_CORREOS'#10' FROM'#10' V_FACTURAS_CLIENTE'#10 +
|
||||
' WHERE ID = :ID'
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <
|
||||
item
|
||||
@ -1299,10 +1282,6 @@ object srvFacturasCliente: TsrvFacturasCliente
|
||||
item
|
||||
DatasetField = 'NUM_CORREOS'
|
||||
TableField = 'NUM_CORREOS'
|
||||
end
|
||||
item
|
||||
DatasetField = 'DESCRIPCION_DESCUENTO'
|
||||
TableField = 'DESCRIPCION_DESCUENTO'
|
||||
end>
|
||||
end>
|
||||
Name = 'FacturasCliente_Refresh'
|
||||
@ -1400,18 +1379,6 @@ object srvFacturasCliente: TsrvFacturasCliente
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'DESCRIPCION_DESCUENTO'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
Alignment = taLeftJustify
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'IVA'
|
||||
DataType = datFloat
|
||||
@ -2032,14 +1999,6 @@ object srvFacturasCliente: TsrvFacturasCliente
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end
|
||||
item
|
||||
Name = 'DESCRIPCION_DESCUENTO'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
BlobType = dabtUnknown
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end
|
||||
item
|
||||
Name = 'IVA'
|
||||
DataType = datFloat
|
||||
@ -2201,21 +2160,20 @@ object srvFacturasCliente: TsrvFacturasCliente
|
||||
SQL =
|
||||
'INSERT INTO FACTURAS_CLIENTE ('#10' ID,'#10' ID_EMPRESA,'#10' REFER' +
|
||||
'ENCIA,'#10' FECHA_FACTURA,'#10' BASE_IMPONIBLE,'#10' DESCUENTO,'#10' ' +
|
||||
' IMPORTE_DESCUENTO,'#10' DESCRIPCION_DESCUENTO,'#10' IVA,'#10' IMPO' +
|
||||
'RTE_IVA,'#10' RE,'#10' IMPORTE_RE,'#10' IMPORTE_TOTAL,'#10' OBSERVAC' +
|
||||
'IONES,'#10' ID_CLIENTE,'#10' NIF_CIF,'#10' NOMBRE,'#10' CALLE,'#10' P' +
|
||||
'OBLACION,'#10' PROVINCIA,'#10' CODIGO_POSTAL,'#10' FECHA_ALTA,'#10' ' +
|
||||
'FECHA_MODIFICACION,'#10' USUARIO,'#10' ID_FORMA_PAGO,'#10' RECARGO_' +
|
||||
'EQUIVALENCIA,'#10' ID_TIPO_IVA,'#10' IMPORTE_NETO,'#10' IMPORTE_POR' +
|
||||
'TE)'#10' VALUES ('#10' :ID,'#10' :ID_EMPRESA,'#10' :REFERENCIA,'#10' :F' +
|
||||
'ECHA_FACTURA,'#10' :BASE_IMPONIBLE,'#10' :DESCUENTO,'#10' :IMPORTE_' +
|
||||
'DESCUENTO,'#10' :DESCRIPCION_DESCUENTO,'#10' :IVA,'#10' :IMPORTE_IV' +
|
||||
'A,'#10' :RE,'#10' :IMPORTE_RE,'#10' :IMPORTE_TOTAL,'#10' :OBSERVACIO' +
|
||||
'NES,'#10' :ID_CLIENTE,'#10' :NIF_CIF,'#10' :NOMBRE,'#10' :CALLE,'#10' ' +
|
||||
' :POBLACION,'#10' :PROVINCIA,'#10' :CODIGO_POSTAL,'#10' :FECHA_ALTA' +
|
||||
','#10' :FECHA_MODIFICACION,'#10' :USUARIO,'#10' :ID_FORMA_PAGO,'#10' ' +
|
||||
' :RECARGO_EQUIVALENCIA,'#10' :ID_TIPO_IVA,'#10' :IMPORTE_NETO,'#10' ' +
|
||||
' :IMPORTE_PORTE);'
|
||||
' IMPORTE_DESCUENTO,'#10' IVA,'#10' IMPORTE_IVA,'#10' RE,'#10' IMPORT' +
|
||||
'E_RE,'#10' IMPORTE_TOTAL,'#10' OBSERVACIONES,'#10' ID_CLIENTE,'#10' ' +
|
||||
'NIF_CIF,'#10' NOMBRE,'#10' CALLE,'#10' POBLACION,'#10' PROVINCIA,'#10' ' +
|
||||
' CODIGO_POSTAL,'#10' FECHA_ALTA,'#10' FECHA_MODIFICACION,'#10' USU' +
|
||||
'ARIO,'#10' ID_FORMA_PAGO,'#10' RECARGO_EQUIVALENCIA,'#10' ID_TIPO_I' +
|
||||
'VA,'#10' IMPORTE_NETO,'#10' IMPORTE_PORTE)'#10' VALUES ('#10' :ID,'#10' ' +
|
||||
' :ID_EMPRESA,'#10' :REFERENCIA,'#10' :FECHA_FACTURA,'#10' :BASE_IMP' +
|
||||
'ONIBLE,'#10' :DESCUENTO,'#10' :IMPORTE_DESCUENTO,'#10' :IVA,'#10' :I' +
|
||||
'MPORTE_IVA,'#10' :RE,'#10' :IMPORTE_RE,'#10' :IMPORTE_TOTAL,'#10' :O' +
|
||||
'BSERVACIONES,'#10' :ID_CLIENTE,'#10' :NIF_CIF,'#10' :NOMBRE,'#10' :C' +
|
||||
'ALLE,'#10' :POBLACION,'#10' :PROVINCIA,'#10' :CODIGO_POSTAL,'#10' :F' +
|
||||
'ECHA_ALTA,'#10' :FECHA_MODIFICACION,'#10' :USUARIO,'#10' :ID_FORMA_' +
|
||||
'PAGO,'#10' :RECARGO_EQUIVALENCIA,'#10' :ID_TIPO_IVA,'#10' :IMPORTE_' +
|
||||
'NETO,'#10' :IMPORTE_PORTE);'
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <>
|
||||
end>
|
||||
@ -2266,14 +2224,6 @@ object srvFacturasCliente: TsrvFacturasCliente
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end
|
||||
item
|
||||
Name = 'DESCRIPCION_DESCUENTO'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
BlobType = dabtUnknown
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end
|
||||
item
|
||||
Name = 'IVA'
|
||||
DataType = datFloat
|
||||
@ -2443,18 +2393,18 @@ object srvFacturasCliente: TsrvFacturasCliente
|
||||
'UPDATE FACTURAS_CLIENTE'#10' SET'#10' ID_EMPRESA = :ID_EMPRESA,'#10' ' +
|
||||
'REFERENCIA = :REFERENCIA,'#10' FECHA_FACTURA = :FECHA_FACTURA,'#10' ' +
|
||||
' BASE_IMPONIBLE = :BASE_IMPONIBLE,'#10' DESCUENTO = :DESCUENTO,'#10 +
|
||||
' IMPORTE_DESCUENTO = :IMPORTE_DESCUENTO,'#10' DESCRIPCION_DESC' +
|
||||
'UENTO = :DESCRIPCION_DESCUENTO,'#10' IVA = :IVA,'#10' IMPORTE_IVA ' +
|
||||
'= :IMPORTE_IVA,'#10' RE = :RE,'#10' IMPORTE_RE = :IMPORTE_RE,'#10' ' +
|
||||
'IMPORTE_TOTAL = :IMPORTE_TOTAL,'#10' OBSERVACIONES = :OBSERVACION' +
|
||||
'ES,'#10' ID_CLIENTE = :ID_CLIENTE,'#10' NIF_CIF = :NIF_CIF,'#10' NO' +
|
||||
'MBRE = :NOMBRE,'#10' CALLE = :CALLE,'#10' POBLACION = :POBLACION,'#10 +
|
||||
' PROVINCIA = :PROVINCIA,'#10' CODIGO_POSTAL = :CODIGO_POSTAL,'#10 +
|
||||
' FECHA_ALTA = :FECHA_ALTA,'#10' FECHA_MODIFICACION = :FECHA_MO' +
|
||||
'DIFICACION,'#10' USUARIO = :USUARIO,'#10' ID_FORMA_PAGO = :ID_FORM' +
|
||||
'A_PAGO,'#10' RECARGO_EQUIVALENCIA = :RECARGO_EQUIVALENCIA,'#10' ID' +
|
||||
'_TIPO_IVA = :ID_TIPO_IVA,'#10' IMPORTE_NETO = :IMPORTE_NETO,'#10' ' +
|
||||
'IMPORTE_PORTE = :IMPORTE_PORTE'#10' WHERE'#10' (ID = :OLD_ID);'
|
||||
' IMPORTE_DESCUENTO = :IMPORTE_DESCUENTO,'#10' IVA = :IVA,'#10' ' +
|
||||
'IMPORTE_IVA = :IMPORTE_IVA,'#10' RE = :RE,'#10' IMPORTE_RE = :IMPO' +
|
||||
'RTE_RE,'#10' IMPORTE_TOTAL = :IMPORTE_TOTAL,'#10' OBSERVACIONES = ' +
|
||||
':OBSERVACIONES,'#10' ID_CLIENTE = :ID_CLIENTE,'#10' NIF_CIF = :NIF' +
|
||||
'_CIF,'#10' NOMBRE = :NOMBRE,'#10' CALLE = :CALLE,'#10' POBLACION = ' +
|
||||
':POBLACION,'#10' PROVINCIA = :PROVINCIA,'#10' CODIGO_POSTAL = :COD' +
|
||||
'IGO_POSTAL,'#10' FECHA_ALTA = :FECHA_ALTA,'#10' FECHA_MODIFICACION' +
|
||||
' = :FECHA_MODIFICACION,'#10' USUARIO = :USUARIO,'#10' ID_FORMA_PAG' +
|
||||
'O = :ID_FORMA_PAGO,'#10' RECARGO_EQUIVALENCIA = :RECARGO_EQUIVALE' +
|
||||
'NCIA,'#10' ID_TIPO_IVA = :ID_TIPO_IVA,'#10' IMPORTE_NETO = :IMPORT' +
|
||||
'E_NETO,'#10' IMPORTE_PORTE = :IMPORTE_PORTE'#10' WHERE'#10' (ID = :OLD_' +
|
||||
'ID);'
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <>
|
||||
end>
|
||||
|
||||
@ -79,7 +79,8 @@ begin
|
||||
bpFacturasCliente.BusinessRulesID := BIZ_SERVER_FACTURAS_CLIENTE;
|
||||
end;
|
||||
|
||||
function TsrvFacturasCliente.GenerarInforme(const ListaID: TIntegerArray; const ShowLogotipo: Boolean): Binary;
|
||||
function TsrvFacturasCliente.GenerarInforme(
|
||||
const ListaID: TIntegerArray; const ShowLogotipo: Boolean): Binary;
|
||||
var
|
||||
AReportGenerator : TRptFacturasCliente;
|
||||
begin
|
||||
@ -91,7 +92,8 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
function TsrvFacturasCliente.GenerarInformeEnPDF(const ListaID: TIntegerArray; const ShowLogotipo: Boolean): Binary;
|
||||
function TsrvFacturasCliente.GenerarInformeEnPDF(const ListaID: TIntegerArray;
|
||||
const ShowLogotipo: Boolean): Binary;
|
||||
var
|
||||
AReportGenerator : TRptFacturasCliente;
|
||||
begin
|
||||
|
||||
@ -89,9 +89,7 @@ requires
|
||||
Articulos_view,
|
||||
FormasPago_model,
|
||||
FormasPago_controller,
|
||||
AlbCli_FacCli_relation,
|
||||
dxGDIPlusD10,
|
||||
dxLayoutControlD10;
|
||||
AlbCli_FacCli_relation;
|
||||
|
||||
contains
|
||||
uFacturasClienteViewRegister in 'uFacturasClienteViewRegister.pas',
|
||||
@ -104,7 +102,6 @@ contains
|
||||
uEditorElegirArticulosFacturaCliente in 'uEditorElegirArticulosFacturaCliente.pas' {fEditorElegirArticulosFacturaCliente: TForm},
|
||||
uViewElegirArticulosFacturasCliente in 'uViewElegirArticulosFacturasCliente.pas' {frViewElegirArticulosFacturasCliente: TFrame},
|
||||
uEditorElegirFacturasCliente in 'uEditorElegirFacturasCliente.pas' {fEditorElegirFacturasCliente: TfEditorElegirFacturasCliente},
|
||||
uDialogListaFacturasEnvioEMail in 'uDialogListaFacturasEnvioEMail.pas' {fDialogListaFacturasEnvioEMail},
|
||||
uViewTotalesFacturaCliente in 'uViewTotalesFacturaCliente.pas' {frViewTotalesFacturaCliente: TFrame};
|
||||
uDialogListaFacturasEnvioEMail in 'uDialogListaFacturasEnvioEMail.pas' {fDialogListaFacturasEnvioEMail};
|
||||
|
||||
end.
|
||||
|
||||
@ -2,20 +2,20 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
|
||||
Left = 454
|
||||
Top = 208
|
||||
Caption = 'Nueva factura de cliente'
|
||||
ClientHeight = 718
|
||||
ClientWidth = 891
|
||||
ClientHeight = 575
|
||||
ClientWidth = 788
|
||||
Position = poScreenCenter
|
||||
OnClose = CustomEditorClose
|
||||
ExplicitWidth = 899
|
||||
ExplicitHeight = 745
|
||||
ExplicitWidth = 796
|
||||
ExplicitHeight = 602
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
inherited JvNavPanelHeader: TJvNavPanelHeader
|
||||
Width = 891
|
||||
Width = 788
|
||||
Caption = 'Nueva factura de cliente'
|
||||
ExplicitWidth = 789
|
||||
ExplicitWidth = 788
|
||||
inherited Image1: TImage
|
||||
Left = 864
|
||||
Left = 761
|
||||
Picture.Data = {
|
||||
0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001800
|
||||
0000180806000000E0773DF80000000970485973000017120000171201679FD2
|
||||
@ -39,8 +39,8 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
|
||||
end
|
||||
end
|
||||
inherited TBXDock: TTBXDock
|
||||
Width = 891
|
||||
ExplicitWidth = 789
|
||||
Width = 788
|
||||
ExplicitWidth = 788
|
||||
inherited tbxMain: TTBXToolbar
|
||||
ExplicitWidth = 613
|
||||
inherited TBXItem2: TTBXItem
|
||||
@ -60,7 +60,7 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
|
||||
end
|
||||
end
|
||||
inherited tbxMenu: TTBXToolbar
|
||||
ExplicitWidth = 891
|
||||
ExplicitWidth = 788
|
||||
inherited TBXSubmenuItem4: TTBXSubmenuItem
|
||||
inherited TBXItem8: TTBXItem
|
||||
Visible = False
|
||||
@ -82,21 +82,21 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
|
||||
end
|
||||
end
|
||||
inherited pgPaginas: TPageControl
|
||||
Width = 891
|
||||
Height = 434
|
||||
Width = 788
|
||||
Height = 317
|
||||
OnChanging = pgPaginasChanging
|
||||
ExplicitWidth = 789
|
||||
ExplicitHeight = 308
|
||||
ExplicitWidth = 788
|
||||
ExplicitHeight = 317
|
||||
inherited pagGeneral: TTabSheet
|
||||
ExplicitLeft = 4
|
||||
ExplicitTop = 24
|
||||
ExplicitWidth = 781
|
||||
ExplicitHeight = 280
|
||||
ExplicitWidth = 780
|
||||
ExplicitHeight = 289
|
||||
inline frViewFacturaCliente1: TfrViewFacturaCliente
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 883
|
||||
Height = 406
|
||||
Width = 780
|
||||
Height = 289
|
||||
Align = alClient
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
@ -106,16 +106,16 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
|
||||
ParentFont = False
|
||||
TabOrder = 0
|
||||
ReadOnly = False
|
||||
ExplicitWidth = 781
|
||||
ExplicitHeight = 280
|
||||
ExplicitWidth = 780
|
||||
ExplicitHeight = 289
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
Width = 883
|
||||
Height = 406
|
||||
ExplicitWidth = 781
|
||||
ExplicitHeight = 280
|
||||
Width = 780
|
||||
Height = 289
|
||||
ExplicitWidth = 780
|
||||
ExplicitHeight = 289
|
||||
DesignSize = (
|
||||
883
|
||||
406)
|
||||
780
|
||||
289)
|
||||
inherited eReferencia: TcxDBTextEdit
|
||||
ExplicitWidth = 393
|
||||
Width = 393
|
||||
@ -131,9 +131,9 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
|
||||
Width = 473
|
||||
end
|
||||
inherited frViewClienteFactura: TfrViewDatosYSeleccionCliente
|
||||
Left = 536
|
||||
Left = 474
|
||||
Width = 332
|
||||
ExplicitLeft = 536
|
||||
ExplicitLeft = 474
|
||||
ExplicitWidth = 332
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
Width = 332
|
||||
@ -165,13 +165,7 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
|
||||
Width = 327
|
||||
end
|
||||
inherited edtCodigoPostal: TcxDBTextEdit
|
||||
Left = 233
|
||||
DataBinding.DataSource = frViewFacturaCliente1.DADataSource
|
||||
ExplicitLeft = 233
|
||||
end
|
||||
inherited Button3: TBitBtn
|
||||
Left = 123
|
||||
ExplicitLeft = 123
|
||||
end
|
||||
end
|
||||
end
|
||||
@ -180,8 +174,8 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
|
||||
Width = 255
|
||||
end
|
||||
inherited bFormasPago: TButton
|
||||
Left = 376
|
||||
ExplicitLeft = 376
|
||||
Left = 314
|
||||
ExplicitLeft = 314
|
||||
end
|
||||
end
|
||||
end
|
||||
@ -189,13 +183,11 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
|
||||
object pagContenido: TTabSheet
|
||||
Caption = 'Contenido'
|
||||
ImageIndex = 1
|
||||
ExplicitWidth = 781
|
||||
ExplicitHeight = 280
|
||||
inline frViewDetallesFacturaCliente1: TfrViewDetallesFacturaCliente
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 883
|
||||
Height = 406
|
||||
Width = 780
|
||||
Height = 289
|
||||
Align = alClient
|
||||
BiDiMode = bdLeftToRight
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
@ -207,108 +199,61 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
|
||||
ParentFont = False
|
||||
TabOrder = 0
|
||||
ReadOnly = False
|
||||
ExplicitWidth = 781
|
||||
ExplicitHeight = 280
|
||||
ExplicitWidth = 780
|
||||
ExplicitHeight = 289
|
||||
inherited ToolBar1: TToolBar
|
||||
Width = 883
|
||||
Height = 24
|
||||
ExplicitWidth = 883
|
||||
inherited ToolButton14: TToolButton [1]
|
||||
Left = 109
|
||||
Top = 2
|
||||
ExplicitLeft = 109
|
||||
ExplicitTop = 2
|
||||
end
|
||||
inherited ToolButton2: TToolButton [2]
|
||||
Left = 143
|
||||
end
|
||||
inherited ToolButton3: TToolButton [3]
|
||||
Left = 257
|
||||
end
|
||||
inherited ToolButton4: TToolButton [4]
|
||||
Left = 312
|
||||
Wrap = False
|
||||
end
|
||||
inherited FontName: TJvFontComboBox
|
||||
Left = 368
|
||||
Top = 2
|
||||
ExplicitLeft = 368
|
||||
ExplicitTop = 2
|
||||
end
|
||||
Width = 780
|
||||
ExplicitWidth = 780
|
||||
inherited FontSize: TEdit
|
||||
Left = 513
|
||||
Top = 2
|
||||
Width = 73
|
||||
ExplicitLeft = 513
|
||||
ExplicitTop = 2
|
||||
ExplicitWidth = 73
|
||||
Width = 58
|
||||
ExplicitWidth = 58
|
||||
end
|
||||
inherited UpDown1: TUpDown
|
||||
Left = 586
|
||||
Top = 2
|
||||
ExplicitLeft = 586
|
||||
ExplicitTop = 2
|
||||
Left = 252
|
||||
ExplicitLeft = 252
|
||||
end
|
||||
inherited ToolButton13: TToolButton
|
||||
Left = 603
|
||||
Top = 2
|
||||
ExplicitLeft = 603
|
||||
ExplicitTop = 2
|
||||
Left = 269
|
||||
ExplicitLeft = 269
|
||||
end
|
||||
inherited ToolButton6: TToolButton
|
||||
Left = 611
|
||||
Top = 2
|
||||
ExplicitLeft = 611
|
||||
ExplicitTop = 2
|
||||
Left = 277
|
||||
ExplicitLeft = 277
|
||||
end
|
||||
inherited ToolButton7: TToolButton
|
||||
Left = 645
|
||||
Top = 2
|
||||
ExplicitLeft = 645
|
||||
ExplicitTop = 2
|
||||
Left = 311
|
||||
ExplicitLeft = 311
|
||||
end
|
||||
inherited ToolButton8: TToolButton
|
||||
Left = 679
|
||||
Top = 2
|
||||
ExplicitLeft = 679
|
||||
ExplicitTop = 2
|
||||
Left = 345
|
||||
ExplicitLeft = 345
|
||||
end
|
||||
inherited ToolButton12: TToolButton
|
||||
Left = 713
|
||||
Top = 2
|
||||
ExplicitLeft = 713
|
||||
ExplicitTop = 2
|
||||
Left = 379
|
||||
ExplicitLeft = 379
|
||||
end
|
||||
inherited ToolButton9: TToolButton
|
||||
Left = 721
|
||||
Top = 2
|
||||
ExplicitLeft = 721
|
||||
ExplicitTop = 2
|
||||
Left = 387
|
||||
ExplicitLeft = 387
|
||||
end
|
||||
inherited ToolButton10: TToolButton
|
||||
Left = 755
|
||||
Top = 2
|
||||
ExplicitLeft = 755
|
||||
ExplicitTop = 2
|
||||
Left = 421
|
||||
ExplicitLeft = 421
|
||||
end
|
||||
inherited ToolButton11: TToolButton
|
||||
Left = 789
|
||||
Top = 2
|
||||
ExplicitLeft = 789
|
||||
ExplicitTop = 2
|
||||
Left = 455
|
||||
ExplicitLeft = 455
|
||||
end
|
||||
end
|
||||
inherited cxGrid: TcxGrid
|
||||
Top = 50
|
||||
Width = 883
|
||||
Height = 356
|
||||
ExplicitWidth = 781
|
||||
ExplicitHeight = 208
|
||||
Width = 780
|
||||
Height = 217
|
||||
ExplicitWidth = 780
|
||||
ExplicitHeight = 217
|
||||
end
|
||||
inherited TBXDock1: TTBXDock
|
||||
Top = 24
|
||||
Width = 883
|
||||
ExplicitWidth = 781
|
||||
Width = 780
|
||||
ExplicitWidth = 780
|
||||
inherited TBXToolbar1: TTBXToolbar
|
||||
ExplicitWidth = 548
|
||||
end
|
||||
@ -317,20 +262,20 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
|
||||
end
|
||||
end
|
||||
inherited StatusBar: TJvStatusBar
|
||||
Top = 699
|
||||
Width = 891
|
||||
Top = 556
|
||||
Width = 788
|
||||
Panels = <
|
||||
item
|
||||
Width = 200
|
||||
end>
|
||||
ExplicitTop = 573
|
||||
ExplicitWidth = 789
|
||||
ExplicitTop = 556
|
||||
ExplicitWidth = 788
|
||||
end
|
||||
inline frViewTotales1: TfrViewTotalesFacturaCliente [4]
|
||||
inline frViewTotales1: TfrViewTotales [4]
|
||||
Left = 0
|
||||
Top = 510
|
||||
Width = 891
|
||||
Height = 189
|
||||
Top = 393
|
||||
Width = 788
|
||||
Height = 163
|
||||
Align = alBottom
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
@ -340,15 +285,13 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
|
||||
ParentFont = False
|
||||
TabOrder = 4
|
||||
ReadOnly = False
|
||||
ExplicitTop = 384
|
||||
ExplicitWidth = 789
|
||||
ExplicitHeight = 189
|
||||
ExplicitTop = 393
|
||||
ExplicitWidth = 788
|
||||
ExplicitHeight = 163
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
Width = 891
|
||||
Height = 218
|
||||
Width = 788
|
||||
LookAndFeel = frViewFacturaCliente1.dxLayoutOfficeLookAndFeel1
|
||||
ExplicitWidth = 789
|
||||
ExplicitHeight = 218
|
||||
ExplicitWidth = 788
|
||||
inherited Bevel1: TBevel
|
||||
Top = 111
|
||||
Width = 73
|
||||
@ -356,18 +299,18 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
|
||||
ExplicitWidth = 73
|
||||
end
|
||||
inherited Bevel3: TBevel
|
||||
Left = 495
|
||||
Left = 441
|
||||
Top = 30
|
||||
Height = 122
|
||||
ExplicitLeft = 495
|
||||
ExplicitLeft = 441
|
||||
ExplicitTop = 30
|
||||
ExplicitHeight = 122
|
||||
end
|
||||
inherited Bevel4: TBevel
|
||||
Left = 607
|
||||
Left = 553
|
||||
Top = 111
|
||||
Width = 186
|
||||
ExplicitLeft = 607
|
||||
ExplicitLeft = 553
|
||||
ExplicitTop = 111
|
||||
ExplicitWidth = 186
|
||||
end
|
||||
@ -379,19 +322,19 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
|
||||
Width = 93
|
||||
end
|
||||
inherited ImporteIVA: TcxDBCurrencyEdit
|
||||
Left = 678
|
||||
Left = 624
|
||||
Top = 57
|
||||
Style.IsFontAssigned = True
|
||||
ExplicitLeft = 678
|
||||
ExplicitLeft = 624
|
||||
ExplicitTop = 57
|
||||
ExplicitWidth = 137
|
||||
Width = 137
|
||||
end
|
||||
inherited ImporteTotal: TcxDBCurrencyEdit
|
||||
Left = 608
|
||||
Left = 554
|
||||
Top = 131
|
||||
Style.IsFontAssigned = True
|
||||
ExplicitLeft = 608
|
||||
ExplicitLeft = 554
|
||||
ExplicitTop = 131
|
||||
ExplicitWidth = 137
|
||||
Width = 137
|
||||
@ -403,34 +346,34 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
|
||||
ExplicitTop = 131
|
||||
end
|
||||
inherited edtIVA: TcxDBSpinEdit
|
||||
Left = 607
|
||||
Left = 553
|
||||
Top = 57
|
||||
Style.IsFontAssigned = True
|
||||
ExplicitLeft = 607
|
||||
ExplicitLeft = 553
|
||||
ExplicitTop = 57
|
||||
end
|
||||
inherited ImporteBase: TcxDBCurrencyEdit
|
||||
Left = 607
|
||||
Left = 553
|
||||
Top = 30
|
||||
Style.IsFontAssigned = True
|
||||
ExplicitLeft = 607
|
||||
ExplicitLeft = 553
|
||||
ExplicitTop = 30
|
||||
ExplicitWidth = 92
|
||||
Width = 92
|
||||
end
|
||||
inherited edtRE: TcxDBSpinEdit
|
||||
Left = 607
|
||||
Left = 553
|
||||
Top = 84
|
||||
Properties.AssignedValues.MinValue = True
|
||||
Style.IsFontAssigned = True
|
||||
ExplicitLeft = 607
|
||||
ExplicitLeft = 553
|
||||
ExplicitTop = 84
|
||||
end
|
||||
inherited ImporteRE: TcxDBCurrencyEdit
|
||||
Left = 678
|
||||
Left = 624
|
||||
Top = 84
|
||||
Style.IsFontAssigned = True
|
||||
ExplicitLeft = 678
|
||||
ExplicitLeft = 624
|
||||
ExplicitTop = 84
|
||||
ExplicitWidth = 56
|
||||
Width = 56
|
||||
@ -443,14 +386,14 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
|
||||
Width = 147
|
||||
end
|
||||
inherited ePorte: TcxDBCurrencyEdit
|
||||
Top = 185
|
||||
Top = 158
|
||||
DataBinding.DataSource = dsDataTable
|
||||
Properties.OnValidate = frViewTotales1ePortePropertiesValidate
|
||||
Style.IsFontAssigned = True
|
||||
OnEditing = frViewTotales1ePorteEditing
|
||||
ExplicitTop = 185
|
||||
ExplicitWidth = 327
|
||||
Width = 327
|
||||
ExplicitTop = 158
|
||||
ExplicitWidth = 147
|
||||
Width = 147
|
||||
end
|
||||
inherited eIVA: TcxDBLookupComboBox
|
||||
Top = 57
|
||||
@ -461,10 +404,10 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
|
||||
Width = 134
|
||||
end
|
||||
inherited bTiposIVA: TButton
|
||||
Left = 347
|
||||
Left = 293
|
||||
Top = 57
|
||||
OnClick = frViewTotales1bTiposIVAClick
|
||||
ExplicitLeft = 347
|
||||
ExplicitLeft = 293
|
||||
ExplicitTop = 57
|
||||
end
|
||||
inherited cbRecargoEquivalencia: TcxDBCheckBox
|
||||
@ -473,19 +416,24 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
|
||||
ExplicitWidth = 314
|
||||
Width = 314
|
||||
end
|
||||
inherited eDescripciondescuento: TcxDBTextEdit
|
||||
Top = 158
|
||||
Style.IsFontAssigned = True
|
||||
ExplicitTop = 158
|
||||
ExplicitWidth = 327
|
||||
Width = 327
|
||||
end
|
||||
inherited dxLayoutControl1Group_Root: TdxLayoutGroup
|
||||
inherited dxLayoutControl1Group1: TdxLayoutGroup
|
||||
inherited dxLayoutControl1Group2: TdxLayoutGroup
|
||||
inherited dxLayoutControl1Item8: TdxLayoutItem
|
||||
Visible = False
|
||||
end
|
||||
inherited dxLayoutControl1Item10: TdxLayoutItem
|
||||
Visible = False
|
||||
end
|
||||
inherited dxLayoutControl1Group7: TdxLayoutGroup
|
||||
Visible = False
|
||||
inherited dxLayoutControl1Item4: TdxLayoutItem
|
||||
Visible = False
|
||||
end
|
||||
inherited dxLayoutControl1Item1: TdxLayoutItem
|
||||
Visible = False
|
||||
end
|
||||
end
|
||||
inherited dxLayoutControl1Item9: TdxLayoutItem
|
||||
Visible = False
|
||||
end
|
||||
|
||||
@ -8,21 +8,21 @@ uses
|
||||
JvAppRegistryStorage, JvComponent, JvFormPlacement, ImgList,
|
||||
PngImageList, StdActns, ActnList, ComCtrls, TBX, TB2Item, TB2Dock,
|
||||
TB2Toolbar, ExtCtrls, JvExControls, JvNavigationPane,
|
||||
uViewFacturaCliente, uCustomView, uViewBase, uViewTotalesFacturaCliente,
|
||||
uViewFacturaCliente, uCustomView, uViewBase, uViewTotales,
|
||||
StdCtrls, pngimage, AppEvnts, JvComponentBase,
|
||||
uBizFacturasCliente,
|
||||
|
||||
|
||||
uIEditorFacturaCliente, uFacturasClienteController, uViewDetallesBase,
|
||||
uViewDetallesFacturaCliente, dxLayoutLookAndFeels, JvExComCtrls, JvStatusBar,
|
||||
uViewDetallesDTO, uViewDetallesArticulos, uTiposIVAController, uViewTotales;
|
||||
uViewDetallesDTO, uViewDetallesArticulos, uTiposIVAController;
|
||||
|
||||
|
||||
type
|
||||
TfEditorFacturaCliente = class(TfEditorDBItem, IEditorFacturaCliente)
|
||||
frViewDetallesFacturaCliente1: TfrViewDetallesFacturaCliente;
|
||||
frViewFacturaCliente1: TfrViewFacturaCliente;
|
||||
frViewTotales1: TfrViewTotalesFacturaCliente;
|
||||
frViewTotales1: TfrViewTotales;
|
||||
actEnviarEMail: TAction;
|
||||
TBXSubmenuItem2: TTBXSubmenuItem;
|
||||
TBXItem7: TTBXItem;
|
||||
|
||||
@ -276,7 +276,6 @@ var
|
||||
Respuesta : Integer;
|
||||
AFacturas: IBizFacturaCliente;
|
||||
AllItems: Boolean;
|
||||
|
||||
begin
|
||||
AFacturas := Nil;
|
||||
AllItems := False;
|
||||
@ -294,7 +293,7 @@ begin
|
||||
begin
|
||||
case JsImprimirDialog.CustomButtonResult of
|
||||
200 : begin // Lista de elementos visibles
|
||||
inherited
|
||||
inherited;
|
||||
end;
|
||||
100 : begin // Elemento Seleccionado
|
||||
if AllItems then
|
||||
@ -395,7 +394,7 @@ begin
|
||||
begin
|
||||
case JsPrevisualizarDialog.CustomButtonResult of
|
||||
200 : begin // Lista de elementos visibles
|
||||
inherited
|
||||
inherited;
|
||||
end;
|
||||
100 : begin // Elemento Seleccionado
|
||||
if AllItems then
|
||||
|
||||
@ -13,7 +13,7 @@ uses
|
||||
cxGridLevel, cxClasses, cxControls, cxGridCustomView, cxGrid,
|
||||
cxImage, Grids, DBGrids, uBizFacturasCliente, cxGridCustomPopupMenu,
|
||||
cxGridPopupMenu, cxCalendar, cxCurrencyEdit, uViewFiltroBase, TB2Item, TBX,
|
||||
TB2Toolbar, TBXDkPanels, TB2Dock, dxPgsDlg, uCustomView, uViewBase;
|
||||
TB2Toolbar, TBXDkPanels, TB2Dock, dxPgsDlg;
|
||||
|
||||
type
|
||||
IViewFacturasCliente = interface(IViewGrid)
|
||||
|
||||
@ -1,139 +0,0 @@
|
||||
inherited frViewTotalesFacturaCliente: TfrViewTotalesFacturaCliente
|
||||
Width = 853
|
||||
Height = 231
|
||||
ExplicitHeight = 231
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
Width = 853
|
||||
inherited Bevel1: TBevel
|
||||
Width = 73
|
||||
ExplicitWidth = 73
|
||||
end
|
||||
inherited Bevel3: TBevel
|
||||
Left = 413
|
||||
Height = 122
|
||||
ExplicitLeft = 413
|
||||
ExplicitHeight = 122
|
||||
end
|
||||
inherited Bevel4: TBevel
|
||||
Left = 525
|
||||
Width = 192
|
||||
ExplicitLeft = 525
|
||||
ExplicitWidth = 192
|
||||
end
|
||||
inherited ImporteDto: TcxDBCurrencyEdit
|
||||
Style.IsFontAssigned = True
|
||||
ExplicitWidth = 93
|
||||
Width = 93
|
||||
end
|
||||
inherited ImporteIVA: TcxDBCurrencyEdit
|
||||
Left = 596
|
||||
Style.IsFontAssigned = True
|
||||
TabOrder = 10
|
||||
ExplicitLeft = 596
|
||||
ExplicitWidth = 137
|
||||
Width = 137
|
||||
end
|
||||
inherited ImporteTotal: TcxDBCurrencyEdit
|
||||
Left = 526
|
||||
Style.IsFontAssigned = True
|
||||
TabOrder = 13
|
||||
ExplicitLeft = 526
|
||||
ExplicitWidth = 137
|
||||
Width = 137
|
||||
end
|
||||
inherited edtDescuento: TcxDBSpinEdit
|
||||
Style.IsFontAssigned = True
|
||||
end
|
||||
inherited edtIVA: TcxDBSpinEdit
|
||||
Left = 525
|
||||
Style.IsFontAssigned = True
|
||||
TabOrder = 9
|
||||
ExplicitLeft = 525
|
||||
end
|
||||
inherited ImporteBase: TcxDBCurrencyEdit
|
||||
Left = 525
|
||||
Style.IsFontAssigned = True
|
||||
TabOrder = 8
|
||||
ExplicitLeft = 525
|
||||
ExplicitWidth = 92
|
||||
Width = 92
|
||||
end
|
||||
inherited edtRE: TcxDBSpinEdit
|
||||
Left = 525
|
||||
Style.IsFontAssigned = True
|
||||
TabOrder = 11
|
||||
ExplicitLeft = 525
|
||||
end
|
||||
inherited ImporteRE: TcxDBCurrencyEdit
|
||||
Left = 596
|
||||
Style.IsFontAssigned = True
|
||||
TabOrder = 12
|
||||
ExplicitLeft = 596
|
||||
ExplicitWidth = 56
|
||||
Width = 56
|
||||
end
|
||||
inherited eImporteNeto: TcxDBCurrencyEdit
|
||||
Style.IsFontAssigned = True
|
||||
ExplicitWidth = 147
|
||||
Width = 147
|
||||
end
|
||||
inherited ePorte: TcxDBCurrencyEdit
|
||||
Top = 183
|
||||
Style.IsFontAssigned = True
|
||||
TabOrder = 7
|
||||
ExplicitTop = 183
|
||||
end
|
||||
inherited eIVA: TcxDBLookupComboBox
|
||||
ExplicitWidth = 81
|
||||
Width = 81
|
||||
end
|
||||
inherited bTiposIVA: TButton
|
||||
Left = 265
|
||||
ExplicitLeft = 265
|
||||
end
|
||||
inherited cbRecargoEquivalencia: TcxDBCheckBox
|
||||
ExplicitWidth = 219
|
||||
Width = 219
|
||||
end
|
||||
object eDescripciondescuento: TcxDBTextEdit [16]
|
||||
Left = 104
|
||||
Top = 156
|
||||
AutoSize = False
|
||||
DataBinding.DataField = 'DESCRIPCION_DESCUENTO'
|
||||
DataBinding.DataSource = DADataSource
|
||||
ParentFont = False
|
||||
Properties.Alignment.Horz = taRightJustify
|
||||
Properties.ReadOnly = False
|
||||
Properties.UseLeftAlignmentOnEditing = False
|
||||
Style.BorderColor = clWindowFrame
|
||||
Style.BorderStyle = ebs3D
|
||||
Style.Font.Charset = DEFAULT_CHARSET
|
||||
Style.Font.Color = clWindowText
|
||||
Style.Font.Height = -11
|
||||
Style.Font.Name = 'Tahoma'
|
||||
Style.Font.Style = []
|
||||
Style.HotTrack = False
|
||||
Style.LookAndFeel.NativeStyle = True
|
||||
Style.TextColor = clWindowText
|
||||
Style.IsFontAssigned = True
|
||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||
StyleDisabled.TextColor = clWindowText
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 6
|
||||
Height = 21
|
||||
Width = 158
|
||||
end
|
||||
inherited dxLayoutControl1Group_Root: TdxLayoutGroup
|
||||
inherited dxLayoutControl1Group1: TdxLayoutGroup
|
||||
inherited dxLayoutControl1Group2: TdxLayoutGroup
|
||||
object dxLayoutControl1Item17: TdxLayoutItem [5]
|
||||
Caption = 'Descripci'#243'n:'
|
||||
Control = eDescripciondescuento
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
@ -1,29 +0,0 @@
|
||||
unit uViewTotalesFacturaCliente;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||
Dialogs, uViewTotales, cxGraphics, dxLayoutLookAndFeels, DB, uDADataTable,
|
||||
dxLayoutControl, cxCheckBox, cxDBEdit, StdCtrls, cxDropDownEdit, cxLookupEdit,
|
||||
cxDBLookupEdit, cxDBLookupComboBox, cxMaskEdit, cxSpinEdit, cxContainer,
|
||||
cxEdit, cxTextEdit, cxCurrencyEdit, ExtCtrls, cxControls;
|
||||
|
||||
type
|
||||
TfrViewTotalesFacturaCliente = class(TfrViewTotales)
|
||||
dxLayoutControl1Item17: TdxLayoutItem;
|
||||
eDescripciondescuento: TcxDBTextEdit;
|
||||
private
|
||||
{ Private declarations }
|
||||
public
|
||||
{ Public declarations }
|
||||
end;
|
||||
|
||||
var
|
||||
frViewTotalesFacturaCliente: TfrViewTotalesFacturaCliente;
|
||||
|
||||
implementation
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
end.
|
||||
@ -47,7 +47,7 @@ implementation
|
||||
{$R *.dfm}
|
||||
|
||||
uses
|
||||
uSistemaFunc, uDataModuleServer, schFacturasProveedorClient_Intf;
|
||||
uDataModuleServer, schFacturasProveedorClient_Intf;
|
||||
|
||||
const
|
||||
rptFacturaProveedor = 'InfFacturaProveedor.fr3';
|
||||
@ -111,7 +111,6 @@ var
|
||||
dsMaster: IDADataset;
|
||||
dsDetail: IDADataset;
|
||||
dsVencimientos : IDADataset;
|
||||
Ainforme: Variant;
|
||||
begin
|
||||
AStream := TMemoryStream.Create;
|
||||
FConnection.BeginTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO"
|
||||
@ -133,11 +132,8 @@ begin
|
||||
DABINAdapter.WriteDataset(AStream, dsVencimientos, [woRows, woSchema], -1);
|
||||
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(AInforme, True);
|
||||
frxReport.LoadFromFile(DarRutaInformes + rptFacturaProveedor, True);
|
||||
frxReport.PrepareReport(False);
|
||||
|
||||
finally
|
||||
|
||||
@ -43,7 +43,7 @@ implementation
|
||||
{$R *.dfm}
|
||||
|
||||
uses
|
||||
uSistemaFunc, uDataModuleServer, schPedidosProveedorClient_Intf;
|
||||
uDataModuleServer, schPedidosProveedorClient_Intf;
|
||||
|
||||
const
|
||||
rptInforme = 'InfPedidoProveedor.fr3';
|
||||
@ -105,7 +105,6 @@ var
|
||||
AStream: TMemoryStream;
|
||||
dsMaster: IDADataset;
|
||||
dsDetail: IDADataset;
|
||||
AInforme: Variant;
|
||||
begin
|
||||
AStream := TMemoryStream.Create;
|
||||
FConnection.BeginTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO"
|
||||
@ -122,11 +121,7 @@ begin
|
||||
DABINAdapter.WriteDataset(AStream, dsDetail, [woRows, woSchema], -1);
|
||||
DABINAdapter.ReadDataset(AStream, tbl_Detalles, TRUE, '', TRUE, 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.LoadFromFile(DarRutaInformes + rptInforme, True);
|
||||
frxReport.PrepareReport(False);
|
||||
|
||||
finally
|
||||
|
||||
@ -146,7 +146,7 @@ implementation
|
||||
uses
|
||||
uROTypes, Controls, cxControls, DB, uEditorRegistryUtils, uEditorPreview, DateUtils,
|
||||
uIEditorPedidosCliente, uDataModulePedidosCliente, Variants,
|
||||
uBizContactos, uDataTableUtils, uDataModuleUsuarios,
|
||||
uBizContactos, uDataTableUtils, uDataModuleUsuarios,
|
||||
schPedidosClienteClient_Intf, uDAInterfaces, uDateUtils, uIEditorPedidoCliente,
|
||||
uIEditorElegirPedidosCliente, uIEditorDireccionEntregaPedidoCliente,
|
||||
schContactosClient_Intf, uPedidosClienteReportController, uDataModuleRegistroCorreos,
|
||||
|
||||
@ -861,7 +861,7 @@ object RptPedidosCliente: TRptPedidosCliente
|
||||
PrintOptions.Printer = 'Por defecto'
|
||||
PrintOptions.PrintOnSheet = 0
|
||||
ReportOptions.CreateDate = 39065.872423495400000000
|
||||
ReportOptions.LastChange = 39701.872180266200000000
|
||||
ReportOptions.LastChange = 39255.590290254630000000
|
||||
ScriptLanguage = 'PascalScript'
|
||||
ScriptText.Strings = (
|
||||
''
|
||||
@ -917,58 +917,12 @@ object RptPedidosCliente: TRptPedidosCliente
|
||||
' DireccionEnvio.Lines.Add(<frxDBCabecera."TELEFONO">);'
|
||||
'end;'
|
||||
''
|
||||
'procedure PageHeader1OnBeforePrint(Sender: TfrxComponent);'
|
||||
'begin'
|
||||
' if not Engine.FinalPass then'
|
||||
' Set('#39'TotalPaginas'#39', (<TotalPaginas> + 1));'
|
||||
''
|
||||
' if Engine.FinalPass then'
|
||||
' Set('#39'Pagina'#39', (<Pagina> + 1));'
|
||||
'end;'
|
||||
''
|
||||
'procedure frxReportOnStartReport(Sender: TfrxComponent);'
|
||||
'begin'
|
||||
' Set('#39'Pagina'#39', 0);'
|
||||
' Set('#39'TotalPaginas'#39', 0);'
|
||||
'end;'
|
||||
''
|
||||
'procedure Picture1OnBeforePrint(Sender: TfrxComponent);'
|
||||
'begin'
|
||||
' if <ShowLogotipo> then'
|
||||
' begin '
|
||||
' Picture1.Visible := True; '
|
||||
' Picture2.Visible := True; '
|
||||
' Picture3.Visible := True; '
|
||||
' Picture4.Visible := True; '
|
||||
' Picture5.Visible := True; '
|
||||
' Picture6.Visible := True; '
|
||||
' Memo25.Visible := True;'
|
||||
' NombreEmpresa.Visible := False;'
|
||||
|
||||
' DatosEmpresa.Visible := False; ' +
|
||||
' '
|
||||
' end'
|
||||
' else'
|
||||
' begin '
|
||||
' Picture1.Visible := False;'
|
||||
' Picture2.Visible := False;'
|
||||
' Picture3.Visible := False;'
|
||||
' Picture4.Visible := False;'
|
||||
' Picture5.Visible := False;'
|
||||
' Picture6.Visible := False;'
|
||||
' Memo25.Visible := False;'
|
||||
' NombreEmpresa.Visible := True;'
|
||||
' DatosEmpresa.Visible := True; '
|
||||
' end '
|
||||
'end;'
|
||||
''
|
||||
'begin'
|
||||
''
|
||||
'end.')
|
||||
ShowProgress = False
|
||||
StoreInDFM = False
|
||||
OnGetValue = frxReportGetValue
|
||||
OnStartReport = 'frxReportOnStartReport'
|
||||
Left = 169
|
||||
Top = 16
|
||||
end
|
||||
|
||||
@ -45,7 +45,7 @@ implementation
|
||||
{$R *.dfm}
|
||||
|
||||
uses
|
||||
uSistemaFunc, uDataModuleServer, schPedidosClienteClient_Intf;
|
||||
uDataModuleServer, schPedidosClienteClient_Intf;
|
||||
|
||||
const
|
||||
rptInforme = 'InfPedidoCliente.fr3';
|
||||
@ -116,7 +116,6 @@ var
|
||||
AStream: TMemoryStream;
|
||||
dsMaster: IDADataset;
|
||||
dsDetail: IDADataset;
|
||||
AInforme: Variant;
|
||||
begin
|
||||
AStream := TMemoryStream.Create;
|
||||
FConnection.BeginTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO"
|
||||
@ -133,12 +132,7 @@ begin
|
||||
DABINAdapter.WriteDataset(AStream, dsDetail, [woRows, woSchema], -1);
|
||||
DABINAdapter.ReadDataset(AStream, tbl_Detalles, TRUE, '', TRUE, 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.LoadFromFile(DarRutaInformes + rptInforme, True);
|
||||
frxReport.PrepareReport(False);
|
||||
|
||||
finally
|
||||
|
||||
@ -93,8 +93,6 @@ type
|
||||
function ImporteTotalModificado(ARecibosCliente: IBizRecibosCliente; var ImporteRestante: Currency): Boolean;
|
||||
procedure _AnadirMarcaEnvioCorreo(ARecibo: IBizRecibosCliente);
|
||||
|
||||
procedure FiltrarEmpresa(ARecibo: IBizRecibosCliente);
|
||||
|
||||
protected
|
||||
FDataModule : IDataModuleRecibosCliente;
|
||||
FPagosController : IPagosClienteController;
|
||||
@ -295,7 +293,6 @@ end;
|
||||
function TRecibosClienteController.BuscarTodos: IBizRecibosCliente;
|
||||
begin
|
||||
Result := FDataModule.GetItems;
|
||||
FiltrarEmpresa(Result);
|
||||
end;
|
||||
|
||||
function TRecibosClienteController.BuscarRecibosACompensar(const Recibo: IBizRecibosCliente): IBizRecibosCliente;
|
||||
@ -354,7 +351,6 @@ end;
|
||||
function TRecibosClienteController.Buscar(const ID: Integer): IBizRecibosCliente;
|
||||
begin
|
||||
Result := (FDataModule as IDataModuleRecibosCliente).GetItem(ID);
|
||||
FiltrarEmpresa(Result);
|
||||
end;
|
||||
|
||||
function TRecibosClienteController.BuscarRecibosFactura(const ID_FACTURA: Integer): IBizRecibosCliente;
|
||||
@ -933,22 +929,22 @@ end;
|
||||
procedure TRecibosClienteController.ModificarPago(ARecibosCliente: IBizRecibosCliente);
|
||||
var
|
||||
AEditor : IEditorFechaPago;
|
||||
AFechaPago: String;
|
||||
FechaPago: String;
|
||||
begin
|
||||
//Pedimos la fecha del pago
|
||||
CreateEditor('EditorFechaPago', IEditorFechaPago, AEditor);
|
||||
if Assigned(AEditor) then
|
||||
try
|
||||
AEditor.FechaPago:= ARecibosCliente.Pagos.FECHA_PAGO;
|
||||
FechaPago:= '';
|
||||
if (AEditor.ShowModal = mrOk) then
|
||||
AFechaPago := DateToStr(AEditor.FechaPago);
|
||||
FechaPago := DateToStr(AEditor.FechaPago);
|
||||
AEditor.Release;
|
||||
finally
|
||||
AEditor := NIL;
|
||||
end;
|
||||
|
||||
if Length(AFechaPago) > 0 then
|
||||
PagosController.Modificar(ARecibosCliente.Pagos, AFechaPago);
|
||||
if Length(FechaPago) > 0 then
|
||||
PagosController.Modificar(ARecibosCliente.Pagos, FechaPago);
|
||||
end;
|
||||
|
||||
function TRecibosClienteController.Nuevo: IBizRecibosCliente;
|
||||
@ -956,7 +952,6 @@ var
|
||||
ARecibo : IBizRecibosCliente;
|
||||
begin
|
||||
ARecibo := Buscar(ID_NULO);
|
||||
FiltrarEmpresa(Result);
|
||||
ARecibo.DataTable.Active := True;
|
||||
Anadir(ARecibo);
|
||||
Result := ARecibo;
|
||||
@ -1040,20 +1035,6 @@ begin
|
||||
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);
|
||||
var
|
||||
AReportController : IRecibosClienteReportController;
|
||||
|
||||
@ -43,7 +43,7 @@ implementation
|
||||
{$R *.dfm}
|
||||
|
||||
uses
|
||||
uSistemaFunc, uDataModuleServer;
|
||||
uDataModuleServer;
|
||||
|
||||
const
|
||||
rptInforme = 'InfReciboCliente.fr3';
|
||||
@ -105,7 +105,7 @@ var
|
||||
dsMaster: IDADataset;
|
||||
dsCompensados : IDADataset;
|
||||
AStream: TMemoryStream;
|
||||
AInforme: Variant;
|
||||
|
||||
begin
|
||||
AStream := TMemoryStream.Create;
|
||||
FConnection.BeginTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO"
|
||||
@ -122,11 +122,7 @@ begin
|
||||
DABINAdapter.WriteDataset(AStream, dsCompensados, [woRows, woSchema], -1);
|
||||
DABINAdapter.ReadDataset(AStream, tbl_Compensados, TRUE, '', TRUE, 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.LoadFromFile(DarRutaInformes + rptInforme, True);
|
||||
frxReport.PrepareReport(False);
|
||||
|
||||
finally
|
||||
|
||||
@ -37,7 +37,7 @@ object fEditorFechaPago: TfEditorFechaPago
|
||||
object eFechaPago: TcxDateEdit
|
||||
Left = 77
|
||||
Top = 64
|
||||
Properties.OnEditValueChanged = eFechaPagoPropertiesEditValueChanged
|
||||
Properties.OnChange = eFechaPagoPropertiesChange
|
||||
Style.LookAndFeel.Kind = lfStandard
|
||||
Style.LookAndFeel.NativeStyle = True
|
||||
StyleDisabled.LookAndFeel.Kind = lfStandard
|
||||
|
||||
@ -16,7 +16,7 @@ type
|
||||
Label2: TLabel;
|
||||
Panel1: TPanel;
|
||||
procedure FormShow(Sender: TObject);
|
||||
procedure eFechaPagoPropertiesEditValueChanged(Sender: TObject);
|
||||
procedure eFechaPagoPropertiesChange(Sender: TObject);
|
||||
private
|
||||
FFechaPago : TDateTime;
|
||||
function GetFechaPago: TDateTime;
|
||||
@ -32,15 +32,14 @@ implementation
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
procedure TfEditorFechaPago.eFechaPagoPropertiesEditValueChanged(Sender: TObject);
|
||||
procedure TfEditorFechaPago.eFechaPagoPropertiesChange(Sender: TObject);
|
||||
begin
|
||||
FechaPago := eFechaPago.Date;
|
||||
end;
|
||||
|
||||
procedure TfEditorFechaPago.FormShow(Sender: TObject);
|
||||
begin
|
||||
if (length(eFechaPago.Text) = 0) then
|
||||
eFechaPago.Date := Date;
|
||||
eFechaPago.Date := Date;
|
||||
end;
|
||||
|
||||
function TfEditorFechaPago.GetFechaPago: TDateTime;
|
||||
@ -51,7 +50,6 @@ end;
|
||||
procedure TfEditorFechaPago.SetFechaPago(const Value: TDateTime);
|
||||
begin
|
||||
FFechaPago := Value;
|
||||
eFechaPago.EditValue := FFechaPago;
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
@ -80,9 +80,6 @@ type
|
||||
private
|
||||
function ImporteTotalModificado(ARecibosProveedor: IBizRecibosProveedor;
|
||||
var ImporteRestante: Currency): Boolean;
|
||||
|
||||
procedure FiltrarEmpresa(ARecibo: IBizRecibosProveedor);
|
||||
|
||||
protected
|
||||
FDataModule : IDataModuleRecibosProveedor;
|
||||
FPagosController : IPagosProveedorController;
|
||||
@ -261,7 +258,6 @@ end;
|
||||
function TRecibosProveedorController.BuscarTodos: IBizRecibosProveedor;
|
||||
begin
|
||||
Result := FDataModule.GetItems;
|
||||
FiltrarEmpresa(Result);
|
||||
end;
|
||||
|
||||
constructor TRecibosProveedorController.Create;
|
||||
@ -276,7 +272,6 @@ end;
|
||||
function TRecibosProveedorController.Buscar(const ID: Integer): IBizRecibosProveedor;
|
||||
begin
|
||||
Result := (FDataModule as IDataModuleRecibosProveedor).GetItem(ID);
|
||||
FiltrarEmpresa(Result);
|
||||
end;
|
||||
|
||||
function TRecibosProveedorController.BuscarRecibosFactura(const ID_FACTURA: Integer): IBizRecibosProveedor;
|
||||
@ -761,22 +756,22 @@ end;
|
||||
procedure TRecibosProveedorController.ModificarPago(ARecibosProveedor: IBizRecibosProveedor);
|
||||
var
|
||||
AEditor : IEditorFechaPagoProveedor;
|
||||
AFechaPago: String;
|
||||
FechaPago: String;
|
||||
begin
|
||||
//Pedimos la fecha del pago
|
||||
CreateEditor('EditorFechaPagoProveedor', IEditorFechaPagoProveedor, AEditor);
|
||||
if Assigned(AEditor) then
|
||||
try
|
||||
AEditor.FechaPago:= ARecibosProveedor.Pagos.FECHA_PAGO;
|
||||
FechaPago:= '';
|
||||
if (AEditor.ShowModal = mrOk) then
|
||||
AFechaPago := DateToStr(AEditor.FechaPago);
|
||||
FechaPago := DateToStr(AEditor.FechaPago);
|
||||
AEditor.Release;
|
||||
finally
|
||||
AEditor := NIL;
|
||||
end;
|
||||
|
||||
if Length(AFechaPago) > 0 then
|
||||
PagosController.Modificar(ARecibosProveedor.Pagos, AFechaPago);
|
||||
if Length(FechaPago) > 0 then
|
||||
PagosController.Modificar(ARecibosProveedor.Pagos, FechaPago);
|
||||
end;
|
||||
|
||||
function TRecibosProveedorController.Nuevo: IBizRecibosProveedor;
|
||||
@ -784,7 +779,6 @@ var
|
||||
ARecibo : IBizRecibosProveedor;
|
||||
begin
|
||||
ARecibo := Buscar(ID_NULO);
|
||||
FiltrarEmpresa(Result);
|
||||
ARecibo.DataTable.Active := True;
|
||||
Anadir(ARecibo);
|
||||
Result := ARecibo;
|
||||
@ -837,20 +831,6 @@ begin
|
||||
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);
|
||||
var
|
||||
AReportController : IRecibosProveedorReportController;
|
||||
|
||||
@ -683,7 +683,7 @@ object RptRecibosCliente: TRptRecibosCliente
|
||||
Top = 158
|
||||
end
|
||||
object frxReport: TfrxReport
|
||||
Version = '4.3'
|
||||
Version = '3.23.7'
|
||||
DotMatrixReport = False
|
||||
EngineOptions.DoublePass = True
|
||||
IniFile = '\Software\Fast Reports'
|
||||
@ -691,7 +691,6 @@ object RptRecibosCliente: TRptRecibosCliente
|
||||
PreviewOptions.OutlineWidth = 180
|
||||
PreviewOptions.Zoom = 1.000000000000000000
|
||||
PrintOptions.Printer = 'Default'
|
||||
PrintOptions.PrintOnSheet = 0
|
||||
ReportOptions.CreateDate = 37871.995398692100000000
|
||||
ReportOptions.Description.Strings = (
|
||||
'Demonstrates how to create simple list report.')
|
||||
@ -738,6 +737,13 @@ object RptRecibosCliente: TRptRecibosCliente
|
||||
StoreInDFM = False
|
||||
Left = 169
|
||||
Top = 16
|
||||
Datasets = <
|
||||
item
|
||||
DataSet = frxDBCabecera
|
||||
DataSetName = 'frxDBCabecera'
|
||||
end>
|
||||
Variables = <>
|
||||
Style = <>
|
||||
end
|
||||
object frxDBCabecera: TfrxDBDataset
|
||||
UserName = 'frxDBCabecera'
|
||||
|
||||
Some files were not shown because too many files have changed in this diff Show More
Reference in New Issue
Block a user