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

Compare commits

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

41 Commits
3.0.8 ... master

Author SHA1 Message Date
roberto
005ad1b637 Se adapata a multiempresa sin migrar repaso total 
git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES/trunk@335 c93665c3-c93d-084d-9b98-7d5f4a9c3376
 2010-07-16 10:33:00 +00:00
roberto
a94bd81b86 Se adapata a multiempresa sin migrar 
git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES/trunk@334 c93665c3-c93d-084d-9b98-7d5f4a9c3376
 2010-07-15 16:51:21 +00:00
roberto
3faefc433d Se actualiza finalbuilder 
git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES/trunk@333 c93665c3-c93d-084d-9b98-7d5f4a9c3376
 2010-07-14 09:18:04 +00:00
roberto
faae54253c Se actualiza finalbuilder 
git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES/trunk@332 c93665c3-c93d-084d-9b98-7d5f4a9c3376
 2010-07-14 09:17:28 +00:00
roberto
025b5ad823 No recupera la fecha del pago de los recibos si la modificamos y no coge bien la fecha cuendo la metemos manualmente 
git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES/trunk@331 c93665c3-c93d-084d-9b98-7d5f4a9c3376
 2010-06-22 17:58:46 +00:00
roberto
a1d83665c2 git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES/trunk@330 c93665c3-c93d-084d-9b98-7d5f4a9c3376 2010-03-22 15:57:08 +00:00
roberto
db942ffa79 se prepara version 3.6.7 
git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES/trunk@328 c93665c3-c93d-084d-9b98-7d5f4a9c3376
 2010-03-22 12:16:54 +00:00
roberto
fde328f775 Se adapta para que se puedan imprimir facturas con formato bcoaching 
git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES/trunk@327 c93665c3-c93d-084d-9b98-7d5f4a9c3376
 2010-03-22 12:14:47 +00:00
roberto
773bb811d3 Se adaptan las facturas de cliente para que se pueda añadir un descuento general a parte del de la linea de detalle 
git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES/trunk@325 c93665c3-c93d-084d-9b98-7d5f4a9c3376
 2009-10-06 16:26:25 +00:00
roberto
a5db1dab14 Se adaptan las facturas de cliente para que se pueda añadir un descuento general a parte del de la linea de detalle 
git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES/trunk@324 c93665c3-c93d-084d-9b98-7d5f4a9c3376
 2009-10-06 15:35:16 +00:00
roberto
36497dc456 Se arregla el informe de facturas de cliente para que la ultima linea salga entera y no sea tapada por el pie del informe 
git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES/trunk@323 c93665c3-c93d-084d-9b98-7d5f4a9c3376
 2009-09-16 15:02:19 +00:00
roberto
98685a8e1d Se arregla informe para que no se monte logo elica con el logo de luisleon 
git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES/trunk@322 c93665c3-c93d-084d-9b98-7d5f4a9c3376
 2009-08-06 09:24:49 +00:00
roberto
ca4e178ab5 Subida para la versión 3.3.5 (Se pone logotipo elica en facturas y albaranes de cliente 
git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES/trunk@320 c93665c3-c93d-084d-9b98-7d5f4a9c3376
 2009-08-05 16:21:32 +00:00
david
b1b8def6eb Informes de facturas y albaranes con el logo de Elika. 
git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES/trunk@319 c93665c3-c93d-084d-9b98-7d5f4a9c3376
 2009-08-05 11:33:22 +00:00
roberto
8c42ef1f80 Se cambia log del serviro para dejar constancia de el todos los dias 
git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES/trunk@317 c93665c3-c93d-084d-9b98-7d5f4a9c3376
 2009-07-14 09:11:28 +00:00
roberto
2df919ad37 Se arregla la base para que en los editores de grid nunca pregunte si se desea guardar los cambios 
git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES/trunk@316 c93665c3-c93d-084d-9b98-7d5f4a9c3376
 2009-07-09 11:07:03 +00:00
roberto
3d656d4e2b Se arreglan las remesas para que cuando añadimos recibos, la lista de recibos a seleccionar no aparezcan los que tenemos ya asignadoe en la remesa 
git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES/trunk@315 c93665c3-c93d-084d-9b98-7d5f4a9c3376
 2009-07-08 11:39:18 +00:00
roberto
72c7795cb3 git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES/trunk@314 c93665c3-c93d-084d-9b98-7d5f4a9c3376 2009-06-19 10:19:52 +00:00
roberto
347c202cb3 Arreglo en factura para que cuando añadimos una nueva y cerramos sin hacer nada no de error 
git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES/trunk@313 c93665c3-c93d-084d-9b98-7d5f4a9c3376
 2009-03-03 18:52:06 +00:00
roberto
0c1b87a136 Arreglo de la seleccion de recibos de proveedor y cliente para que el filtro del año salga y se puedan seleccionar recibos de otros años 
git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES/trunk@312 c93665c3-c93d-084d-9b98-7d5f4a9c3376
 2009-03-02 16:29:52 +00:00
david
f053b73d66 Lib. GUISDK -> Cambio de la ruta. 
git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES/trunk@311 c93665c3-c93d-084d-9b98-7d5f4a9c3376
 2009-02-27 10:38:50 +00:00
roberto
babfd1fe48 Se suben versiones para la subida a produccion 
git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES/trunk@310 c93665c3-c93d-084d-9b98-7d5f4a9c3376
 2009-02-26 15:22:22 +00:00
roberto
c83756255b Poder filtrar información de los grid por años 
git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES/trunk@309 c93665c3-c93d-084d-9b98-7d5f4a9c3376
 2009-02-26 10:44:16 +00:00
roberto
96c436f1d9 SE arregla la logica de asignar fechas de vencimiento a los recibos de la factura segun los dias de pago asignados al cliente (por ejemplo si se le asigna el dia 31 no debe fallar cuando el mes solo tenga 30 días , en tal caso hemos optado por no tener en cuenta los días de pago para establecer la fecha de vencimiento del recibo 
git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES/trunk@308 c93665c3-c93d-084d-9b98-7d5f4a9c3376
 2009-01-12 18:58:14 +00:00
roberto
d018b53431 Se quita una asignación a capón(111) del valor del pordentaje de grupo calculado, el porcentaje de grupo del informe de margen de ventasse calcula a partir de los totales de grupo de los importes de venta e importe promedio por lo tanto no coincidirá nunca con la media de los valores de la columna 
git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES/trunk@307 c93665c3-c93d-084d-9b98-7d5f4a9c3376
 2009-01-07 17:26:31 +00:00
david
1a50e8079c Informe ventas por articulo - El campo IMPORTE_NETO_VENTA se ha puesto como campo para media (AVG) 
git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES/trunk@306 c93665c3-c93d-084d-9b98-7d5f4a9c3376
 2008-12-31 09:25:05 +00:00
david
0bd6255af8 Informe margen por artículo - En el grid se han quitado los sumatorios que estaban metidos a capón. 
git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES/trunk@305 c93665c3-c93d-084d-9b98-7d5f4a9c3376
 2008-12-31 09:12:59 +00:00
david
ab106540f3 Informes base -> en la generación de los sumarios se aplica el formato que tenga la columna de ese sumario (en vez de comprobar los tipos) 
git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES/trunk@304 c93665c3-c93d-084d-9b98-7d5f4a9c3376
 2008-12-31 09:01:54 +00:00
roberto
d1cc146bae Se arregla la vista de situacion de los recibos para que los recibos compensados salga la situacion del recibo donde se compensa y sea visible en las facturas para su situación 
git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES/trunk@303 c93665c3-c93d-084d-9b98-7d5f4a9c3376
 2008-11-27 18:49:31 +00:00
roberto
2c68928503 Subida a produccion de envio automatico de documentos por correo electronico, y cambio en albaranes de cliente para detectar los bloqueados, y que se puedan imprimir o no las observaciones e incidencias de los albaranes de cliente 
git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES/trunk@302 c93665c3-c93d-084d-9b98-7d5f4a9c3376
 2008-10-31 19:32:21 +00:00
roberto
61996caa03 Se adaptan los albaranes para que si el cliente se bloquea se vean como bloqueados tambien sus albaranes 
git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES/trunk@300 c93665c3-c93d-084d-9b98-7d5f4a9c3376
 2008-10-31 16:04:07 +00:00
roberto
c7e8b89e41 Se adapta el envio de correos automático a todos los módulos 
git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES/trunk@299 c93665c3-c93d-084d-9b98-7d5f4a9c3376
 2008-10-31 12:59:36 +00:00
roberto
0844f2cb7d Se adaptan pedidos de proveedor, albaranes de proveedor a poder enviarlos por correo electronico. 
git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES/trunk@298 c93665c3-c93d-084d-9b98-7d5f4a9c3376
 2008-10-29 18:15:55 +00:00
roberto
5d1ba11799 Se adaptan pedidos de cliente, albaranes de cliente a poder enviarlos por correo electronico, se arreglan la logica al generar todos y cada uno de los informes de pedido, albaranes, facturas, etc, para que se haga un begintransaction y un rollbacktransaction porque sino llegaba un momento en el que generar informes no se podia porque daba un error de transaccion activa 
git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES/trunk@297 c93665c3-c93d-084d-9b98-7d5f4a9c3376
 2008-10-27 19:00:23 +00:00
david
073d29872a Repaso a los anchos de columnas de los grids. Ahora se colocan mejor los anchos y se guardan los tamaños. 
git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES/trunk@296 c93665c3-c93d-084d-9b98-7d5f4a9c3376
 2008-10-17 15:23:22 +00:00
roberto
73fc0f45a2 Corregidos errores con los vencimientos de los clientes. 
git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES/trunk@294 c93665c3-c93d-084d-9b98-7d5f4a9c3376
 2008-10-16 18:07:10 +00:00
roberto
5d716410f0 Ignorar ficheros *.cbk en el directorio de fuentes. 
git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES/trunk@293 c93665c3-c93d-084d-9b98-7d5f4a9c3376
 2008-10-16 18:05:54 +00:00
roberto
c41fa8eb0f git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES/trunk@292 c93665c3-c93d-084d-9b98-7d5f4a9c3376 2008-09-30 17:43:12 +00:00
roberto
8c8efb17fb git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES/trunk@291 c93665c3-c93d-084d-9b98-7d5f4a9c3376 2008-09-30 17:42:18 +00:00
roberto
c25908891b Se adaptan las fichas de cliente y proveedor para que se puedan establecer 3 dias de pago en clientes y proveedores para la generacion automática de los recibos 
git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES/trunk@290 c93665c3-c93d-084d-9b98-7d5f4a9c3376
 2008-09-30 16:03:14 +00:00
david
bcf82f8833 Arreglado un error: al generar una factura en PDF ésta salía sin el logotipo. 
git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES/trunk@289 c93665c3-c93d-084d-9b98-7d5f4a9c3376
 2008-09-23 18:26:13 +00:00
348 changed files with 17131 additions and 26242 deletions
Show Stats Expand all files Collapse all files

BIN
Build/Build.fbl6 Normal file
View File

Binary file not shown.

21002
Build/Build.fbp5
View File

File diff suppressed because it is too large Load Diff

1
Build/Build.fbv
View File

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

BIN
Build/Build.fbz6 Normal file
View File

Binary file not shown.

BIN
Build/Installer.fbl6 Normal file
View File

Binary file not shown.

1758
Build/Installer.fbp5
View File

File diff suppressed because it is too large Load Diff

1
Build/Installer.fbv
View File

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

BIN
Build/Installer.fbz6 Normal file
View File

Binary file not shown.

BIN
Build/UploadFTP.fbl6 Normal file
View File

Binary file not shown.

715
Build/UploadFTP.fbp5
View File

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

BIN
Build/UploadFTP.fbz6 Normal file
View File

Binary file not shown.

BIN
Database/FACTUGES.FDB
View File

Binary file not shown.

215
Database/Script.txt
View File

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

424
Database/VISTAS.SQL
View File

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

8
Database/factuges.sql
View File

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

189
Source/Base/Base.bdsproj
View File

@ -214,9 +214,9 @@
<Excluded_Packages Name="C:\Documents and Settings\David\Mis documentos\Borland Studio Projects\Bpl\dxGDIPlusD10.bpl">ExpressGDI+ Library by Developer Express Inc.</Excluded_Packages>
</Excluded_Packages>
</Delphi.Personality>
<!-- EurekaLog First Line
<!-- EurekaLog First Line
[Exception Log]
EurekaLog Version=519
EurekaLog Version=6014
Activate=1
Activate Handle=1
Save Log File=1
@ -530,5 +530,190 @@ Count mtSend_SuccessMsg=1
mtSend_SuccessMsg0="The message was sent successfully."
Count mtSend_FailureMsg=1
mtSend_FailureMsg0="Sorry, sending the message didn't work."
ProxyURL=
ProxyUser=
ProxyPassword=
ProxyPort=8080
TrakerUser=
TrakerPassword=
TrakerAssignTo=
TrakerProject=
TrakerCategory=
TrakerTrialID=
ZipPassword=
PreBuildEvent=
PostSuccessfulBuildEvent=
PostFailureBuildEvent=
ExceptionDialogType=2
loSaveModulesAndProcessesSections=1
loSaveAssemblerAndCPUSections=1
soAppUpTime=1
soExcModuleName=1
soExcModuleVersion=1
soExcID=1
soExcCount=1
soExcStatus=1
soExcNote=1
soUserID=1
soUserName=1
soUserEmail=1
soUserPrivileges=1
soUserCompany=1
soCmpDisplayDPI=1
soCmpVideoCard=1
soCmpPrinter=1
soOSCharset=1
soCustomData=1
sndAddComputerNameInFileName=0
edoSendErrorReportChecked=1
edoShowSendErrorReportOption=1
edoShowAttachScreenshotOption=1
edoShowCustomButton=0
csoDoNotStoreProcNames=0
boHandleSafeCallExceptions=1
boCallRTLExceptionEvent=0
boCatchHandledExceptions=0
loCatchLeaks=0
loGroupsSonLeaks=1
loHideBorlandLeaks=1
loFreeAllLeaks=1
loCatchLeaksExceptions=1
cfoReduceFileSize=1
cfoCheckFileCorruption=0
Count mtErrorMsgCaption=1
mtErrorMsgCaption0="Error."
Count mtDialog_ProcessesCaption=1
mtDialog_ProcessesCaption0="Processes"
Count mtDialog_ProcessesHeader=1
mtDialog_ProcessesHeader0="Processes Information"
Count mtDialog_AsmCaption=1
mtDialog_AsmCaption0="Assembler"
Count mtDialog_AsmHeader=1
mtDialog_AsmHeader0="Assembler Information"
Count mtDialog_CustomButtonCaption=1
mtDialog_CustomButtonCaption0="%26Help"
Count mtMSDialog_ErrorMsgCaption=1
mtMSDialog_ErrorMsgCaption0="The application has encountered a problem. We are sorry for the inconvenience."
Count mtMSDialog_RestartCaption=1
mtMSDialog_RestartCaption0="Restart application."
Count mtMSDialog_TerminateCaption=1
mtMSDialog_TerminateCaption0="Terminate application."
Count mtMSDialog_PleaseCaption=1
mtMSDialog_PleaseCaption0="Please tell us about this problem."
Count mtMSDialog_DescriptionCaption=1
mtMSDialog_DescriptionCaption0="We have created an error report that you can send to us. We will treat this report as confidential and anonymous."
Count mtMSDialog_SeeDetailsCaption=1
mtMSDialog_SeeDetailsCaption0="To see what data the error report contains,"
Count mtMSDialog_SeeClickCaption=1
mtMSDialog_SeeClickCaption0="click here."
Count mtMSDialog_HowToReproduceCaption=1
mtMSDialog_HowToReproduceCaption0="What were you doing when the problem happened (optional)?"
Count mtMSDialog_EmailCaption=1
mtMSDialog_EmailCaption0="Email address (optional):"
Count mtMSDialog_SendButtonCaption=1
mtMSDialog_SendButtonCaption0="%26Send Error Report"
Count mtMSDialog_NoSendButtonCaption=1
mtMSDialog_NoSendButtonCaption0="%26Don't Send"
Count mtLog_AppUpTime=1
mtLog_AppUpTime0="Up Time"
Count mtLog_ExcModuleName=1
mtLog_ExcModuleName0="Module Name"
Count mtLog_ExcModuleVersion=1
mtLog_ExcModuleVersion0="Module Version"
Count mtLog_ExcID=1
mtLog_ExcID0="ID"
Count mtLog_ExcCount=1
mtLog_ExcCount0="Count"
Count mtLog_ExcStatus=1
mtLog_ExcStatus0="Status"
Count mtLog_ExcNote=1
mtLog_ExcNote0="Note"
Count mtLog_UserHeader=1
mtLog_UserHeader0="User"
Count mtLog_UserID=1
mtLog_UserID0="ID"
Count mtLog_UserName=1
mtLog_UserName0="Name"
Count mtLog_UserEmail=1
mtLog_UserEmail0="Email"
Count mtLog_UserCompany=1
mtLog_UserCompany0="Company"
Count mtLog_UserPrivileges=1
mtLog_UserPrivileges0="Privileges"
Count mtLog_CmpDisplayDPI=1
mtLog_CmpDisplayDPI0="Display DPI"
Count mtLog_CmpVideoCard=1
mtLog_CmpVideoCard0="Video Card"
Count mtLog_CmpPrinter=1
mtLog_CmpPrinter0="Printer"
Count mtLog_OSCharset=1
mtLog_OSCharset0="Charset"
Count mtCallStack_LeakCaption=1
mtCallStack_LeakCaption0="Memory Leak"
Count mtCallStack_LeakData=1
mtCallStack_LeakData0="Data"
Count mtCallStack_LeakType=1
mtCallStack_LeakType0="Type"
Count mtCallStack_LeakSize=1
mtCallStack_LeakSize0="Total size"
Count mtCallStack_LeakCount=1
mtCallStack_LeakCount0="Count"
Count mtSendDialog_Login=1
mtSendDialog_Login0="Login..."
Count mtSendDialog_Sent=1
mtSendDialog_Sent0="Message sent."
Count mtSendDialog_SelectProject=1
mtSendDialog_SelectProject0="Select project..."
Count mtSendDialog_Searching=1
mtSendDialog_Searching0="Searching..."
Count mtSendDialog_Modifying=1
mtSendDialog_Modifying0="Modifying..."
Count mtSendDialog_Disconnecting=1
mtSendDialog_Disconnecting0="Disconnecting..."
Count mtSendDialog_Disconnected=1
mtSendDialog_Disconnected0="Disconnected."
Count mtProcesses_ID=1
mtProcesses_ID0="ID"
Count mtProcesses_Name=1
mtProcesses_Name0="Name"
Count mtProcesses_Description=1
mtProcesses_Description0="Description"
Count mtProcesses_Version=1
mtProcesses_Version0="Version"
Count mtProcesses_Memory=1
mtProcesses_Memory0="Memory"
Count mtProcesses_Priority=1
mtProcesses_Priority0="Priority"
Count mtProcesses_Threads=1
mtProcesses_Threads0="Threads"
Count mtProcesses_Path=1
mtProcesses_Path0="Path"
Count mtSend_BugClosedMsg=2
mtSend_BugClosedMsg0="These BUG is just closed."
mtSend_BugClosedMsg1="Contact the program support to obtain an update."
Count mtSend_UnknownErrorMsg=1
mtSend_UnknownErrorMsg0="Unknown error."
Count mtSend_InvalidLoginMsg=1
mtSend_InvalidLoginMsg0="Invalid login request."
Count mtSend_InvalidSearchMsg=1
mtSend_InvalidSearchMsg0="Invalid search request."
Count mtSend_InvalidSelectionMsg=1
mtSend_InvalidSelectionMsg0="Invalid selection request."
Count mtSend_InvalidInsertMsg=1
mtSend_InvalidInsertMsg0="Invalid insert request."
Count mtSend_InvalidModifyMsg=1
mtSend_InvalidModifyMsg0="Invalid modify request."
Count mtFileCrackedMsg=2
mtFileCrackedMsg0="This file is cracked."
mtFileCrackedMsg1="The application will be closed."
Count mtException_LeakMultiFree=1
mtException_LeakMultiFree0="Multi Free memory leak."
Count mtException_LeakMemoryOverrun=1
mtException_LeakMemoryOverrun0="Memory Overrun leak."
Count mtException_AntiFreeze=1
mtException_AntiFreeze0="The application seems to be frozen."
Count mtInvalidEmailMsg=1
mtInvalidEmailMsg0="Invalid email."
TextsCollection=English
EurekaLog Last Line -->
</BorlandProject>

BIN
Source/Base/Base.res
View File

Binary file not shown.

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

@ -50,11 +50,12 @@ 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, Dialogs, JclFileUtils,
Windows, Variants, Dialogs, JclFileUtils,
Messages, Graphics, Controls, Forms,
StdCtrls, SHFolder, cxShellBrowserDialog,
cxLookAndFeels, uStringsUtils;
@ -435,6 +436,28 @@ begin
Result := DarRutaTemporal + Cadena + '\';
end;
function DarRutaFichero(const ARutaIni: String; const AFichero: String; const ADirectorio1: String = ''; const ADirectorio2: String = ''): Variant;
var
ARutaCompleta: String;
begin
Result := Null;
ARutaCompleta := ARutaIni + '\' + ADirectorio1 + '\' + ADirectorio2 + '\' + AFichero;
if FileExists(ARutaCompleta) then
Result := ARutaCompleta
else
begin
ARutaCompleta := ARutaIni + '\' + ADirectorio1 + '\' + AFichero;
if FileExists(ARutaCompleta) then
Result := ARutaCompleta
else
begin
ARutaCompleta := ARutaIni + '\' + AFichero;
if FileExists(ARutaCompleta) then
Result := ARutaCompleta
end
end
end;
end.

197
Source/Cliente/FactuGES.bdsproj
View File

@ -148,8 +148,8 @@
<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
<VersionInfo Name="AutoIncBuild">False</VersionInfo>
<VersionInfo Name="MajorVer">3</VersionInfo>
<VersionInfo Name="MinorVer">0</VersionInfo>
<VersionInfo Name="Release">8</VersionInfo>
<VersionInfo Name="MinorVer">3</VersionInfo>
<VersionInfo Name="Release">7</VersionInfo>
<VersionInfo Name="Build">0</VersionInfo>
<VersionInfo Name="Debug">False</VersionInfo>
<VersionInfo Name="PreRelease">False</VersionInfo>
@ -162,22 +162,22 @@
<VersionInfoKeys>
<VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys>
<VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
<VersionInfoKeys Name="FileVersion">3.0.8.0</VersionInfoKeys>
<VersionInfoKeys Name="FileVersion">3.3.7.0</VersionInfoKeys>
<VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys>
<VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
<VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
<VersionInfoKeys Name="ProductName"></VersionInfoKeys>
<VersionInfoKeys Name="ProductVersion">3.0.8.0</VersionInfoKeys>
<VersionInfoKeys Name="ProductVersion">3.3.7.0</VersionInfoKeys>
<VersionInfoKeys Name="Comments"></VersionInfoKeys>
</VersionInfoKeys> <Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\Usuario\Mis documentos\Borland Studio Projects\Bpl\EasyListviewD10.bpl">Muststang Peak EasyListview Runtime Package</Excluded_Packages>
<Excluded_Packages Name="C:\Archivos de programa\RemObjects Software\Pascal Script\Dcu\D10\PascalScript_RO_D10.bpl">RemObjects Pascal Script - RemObjects SDK 3.0 Integration</Excluded_Packages>
</Excluded_Packages>
</Delphi.Personality>
<!-- EurekaLog First Line
<!-- EurekaLog First Line
[Exception Log]
EurekaLog Version=519
EurekaLog Version=6014
Activate=0
Activate Handle=1
Save Log File=1
@ -491,5 +491,190 @@ Count mtSend_SuccessMsg=1
mtSend_SuccessMsg0="The message was sent successfully."
Count mtSend_FailureMsg=1
mtSend_FailureMsg0="Sorry, sending the message didn't work."
ProxyURL=
ProxyUser=
ProxyPassword=
ProxyPort=8080
TrakerUser=
TrakerPassword=
TrakerAssignTo=
TrakerProject=
TrakerCategory=
TrakerTrialID=
ZipPassword=
PreBuildEvent=
PostSuccessfulBuildEvent=
PostFailureBuildEvent=
ExceptionDialogType=2
loSaveModulesAndProcessesSections=1
loSaveAssemblerAndCPUSections=1
soAppUpTime=1
soExcModuleName=1
soExcModuleVersion=1
soExcID=1
soExcCount=1
soExcStatus=1
soExcNote=1
soUserID=1
soUserName=1
soUserEmail=1
soUserPrivileges=1
soUserCompany=1
soCmpDisplayDPI=1
soCmpVideoCard=1
soCmpPrinter=1
soOSCharset=1
soCustomData=1
sndAddComputerNameInFileName=0
edoSendErrorReportChecked=1
edoShowSendErrorReportOption=1
edoShowAttachScreenshotOption=1
edoShowCustomButton=0
csoDoNotStoreProcNames=0
boHandleSafeCallExceptions=1
boCallRTLExceptionEvent=0
boCatchHandledExceptions=0
loCatchLeaks=0
loGroupsSonLeaks=1
loHideBorlandLeaks=1
loFreeAllLeaks=1
loCatchLeaksExceptions=1
cfoReduceFileSize=1
cfoCheckFileCorruption=0
Count mtErrorMsgCaption=1
mtErrorMsgCaption0="Error."
Count mtDialog_ProcessesCaption=1
mtDialog_ProcessesCaption0="Processes"
Count mtDialog_ProcessesHeader=1
mtDialog_ProcessesHeader0="Processes Information"
Count mtDialog_AsmCaption=1
mtDialog_AsmCaption0="Assembler"
Count mtDialog_AsmHeader=1
mtDialog_AsmHeader0="Assembler Information"
Count mtDialog_CustomButtonCaption=1
mtDialog_CustomButtonCaption0="%26Help"
Count mtMSDialog_ErrorMsgCaption=1
mtMSDialog_ErrorMsgCaption0="The application has encountered a problem. We are sorry for the inconvenience."
Count mtMSDialog_RestartCaption=1
mtMSDialog_RestartCaption0="Restart application."
Count mtMSDialog_TerminateCaption=1
mtMSDialog_TerminateCaption0="Terminate application."
Count mtMSDialog_PleaseCaption=1
mtMSDialog_PleaseCaption0="Please tell us about this problem."
Count mtMSDialog_DescriptionCaption=1
mtMSDialog_DescriptionCaption0="We have created an error report that you can send to us. We will treat this report as confidential and anonymous."
Count mtMSDialog_SeeDetailsCaption=1
mtMSDialog_SeeDetailsCaption0="To see what data the error report contains,"
Count mtMSDialog_SeeClickCaption=1
mtMSDialog_SeeClickCaption0="click here."
Count mtMSDialog_HowToReproduceCaption=1
mtMSDialog_HowToReproduceCaption0="What were you doing when the problem happened (optional)?"
Count mtMSDialog_EmailCaption=1
mtMSDialog_EmailCaption0="Email address (optional):"
Count mtMSDialog_SendButtonCaption=1
mtMSDialog_SendButtonCaption0="%26Send Error Report"
Count mtMSDialog_NoSendButtonCaption=1
mtMSDialog_NoSendButtonCaption0="%26Don't Send"
Count mtLog_AppUpTime=1
mtLog_AppUpTime0="Up Time"
Count mtLog_ExcModuleName=1
mtLog_ExcModuleName0="Module Name"
Count mtLog_ExcModuleVersion=1
mtLog_ExcModuleVersion0="Module Version"
Count mtLog_ExcID=1
mtLog_ExcID0="ID"
Count mtLog_ExcCount=1
mtLog_ExcCount0="Count"
Count mtLog_ExcStatus=1
mtLog_ExcStatus0="Status"
Count mtLog_ExcNote=1
mtLog_ExcNote0="Note"
Count mtLog_UserHeader=1
mtLog_UserHeader0="User"
Count mtLog_UserID=1
mtLog_UserID0="ID"
Count mtLog_UserName=1
mtLog_UserName0="Name"
Count mtLog_UserEmail=1
mtLog_UserEmail0="Email"
Count mtLog_UserCompany=1
mtLog_UserCompany0="Company"
Count mtLog_UserPrivileges=1
mtLog_UserPrivileges0="Privileges"
Count mtLog_CmpDisplayDPI=1
mtLog_CmpDisplayDPI0="Display DPI"
Count mtLog_CmpVideoCard=1
mtLog_CmpVideoCard0="Video Card"
Count mtLog_CmpPrinter=1
mtLog_CmpPrinter0="Printer"
Count mtLog_OSCharset=1
mtLog_OSCharset0="Charset"
Count mtCallStack_LeakCaption=1
mtCallStack_LeakCaption0="Memory Leak"
Count mtCallStack_LeakData=1
mtCallStack_LeakData0="Data"
Count mtCallStack_LeakType=1
mtCallStack_LeakType0="Type"
Count mtCallStack_LeakSize=1
mtCallStack_LeakSize0="Total size"
Count mtCallStack_LeakCount=1
mtCallStack_LeakCount0="Count"
Count mtSendDialog_Login=1
mtSendDialog_Login0="Login..."
Count mtSendDialog_Sent=1
mtSendDialog_Sent0="Message sent."
Count mtSendDialog_SelectProject=1
mtSendDialog_SelectProject0="Select project..."
Count mtSendDialog_Searching=1
mtSendDialog_Searching0="Searching..."
Count mtSendDialog_Modifying=1
mtSendDialog_Modifying0="Modifying..."
Count mtSendDialog_Disconnecting=1
mtSendDialog_Disconnecting0="Disconnecting..."
Count mtSendDialog_Disconnected=1
mtSendDialog_Disconnected0="Disconnected."
Count mtProcesses_ID=1
mtProcesses_ID0="ID"
Count mtProcesses_Name=1
mtProcesses_Name0="Name"
Count mtProcesses_Description=1
mtProcesses_Description0="Description"
Count mtProcesses_Version=1
mtProcesses_Version0="Version"
Count mtProcesses_Memory=1
mtProcesses_Memory0="Memory"
Count mtProcesses_Priority=1
mtProcesses_Priority0="Priority"
Count mtProcesses_Threads=1
mtProcesses_Threads0="Threads"
Count mtProcesses_Path=1
mtProcesses_Path0="Path"
Count mtSend_BugClosedMsg=2
mtSend_BugClosedMsg0="These BUG is just closed."
mtSend_BugClosedMsg1="Contact the program support to obtain an update."
Count mtSend_UnknownErrorMsg=1
mtSend_UnknownErrorMsg0="Unknown error."
Count mtSend_InvalidLoginMsg=1
mtSend_InvalidLoginMsg0="Invalid login request."
Count mtSend_InvalidSearchMsg=1
mtSend_InvalidSearchMsg0="Invalid search request."
Count mtSend_InvalidSelectionMsg=1
mtSend_InvalidSelectionMsg0="Invalid selection request."
Count mtSend_InvalidInsertMsg=1
mtSend_InvalidInsertMsg0="Invalid insert request."
Count mtSend_InvalidModifyMsg=1
mtSend_InvalidModifyMsg0="Invalid modify request."
Count mtFileCrackedMsg=2
mtFileCrackedMsg0="This file is cracked."
mtFileCrackedMsg1="The application will be closed."
Count mtException_LeakMultiFree=1
mtException_LeakMultiFree0="Multi Free memory leak."
Count mtException_LeakMemoryOverrun=1
mtException_LeakMemoryOverrun0="Memory Overrun leak."
Count mtException_AntiFreeze=1
mtException_AntiFreeze0="The application seems to be frozen."
Count mtInvalidEmailMsg=1
mtInvalidEmailMsg0="Invalid email."
TextsCollection=English
EurekaLog Last Line -->
</BorlandProject>

2
Source/Cliente/FactuGES.dpr
View File

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

8
Source/Cliente/FactuGES.rc
View File

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

BIN
Source/Cliente/FactuGES.res
View File

Binary file not shown.

25
Source/Cliente/uPantallaPrincipal.dfm
View File

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

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

Binary file not shown.

BIN
Source/Iconos/fondo.jpg Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 7.2 KiB

BIN
Source/Iconos/logo.jpg Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 9.3 KiB

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

File diff suppressed because one or more lines are too long

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

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

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

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

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

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

File diff suppressed because one or more lines are too long

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

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

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

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

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

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

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

File diff suppressed because one or more lines are too long

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

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

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

File diff suppressed because one or more lines are too long

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

File diff suppressed because one or more lines are too long

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

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

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

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

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

File diff suppressed because one or more lines are too long

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

File diff suppressed because one or more lines are too long

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

File diff suppressed because one or more lines are too long

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

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

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

File diff suppressed because one or more lines are too long

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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