Archivado/Varela_PuntosVenta
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Cambios para contemplar tallas nuevas en ajustes

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Varela_PuntosVenta/trunk@87 1c943782-d109-9647-9548-93b3ac332352
This commit is contained in:
David Arranz 2007-10-05 18:43:32 +00:00
parent e8e2ae53c7
commit b32185c030
24 changed files with 812 additions and 1581 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
Database/3 - procedimientos.sql
View File

@ -258,6 +258,16 @@ BEGIN
END END
GO GO
CREATE PROCEDURE dbo.RDX_P_TIPO_TALLAJE
@PRODUCTO VARCHAR(12)
AS
BEGIN
SELECT DISTINCT RDX_TALLAS.TIPO_TALLAJE
FROM PRODUTOS_BARRA
LEFT JOIN RDX_TALLAS ON (PRODUTOS_BARRA.GRADE = RDX_TALLAS.TALLA)
WHERE PRODUTOS_BARRA.PRODUTO = @PRODUCTO
END
GO
/* EOF */ /* EOF */

11
Database/SCRIPT MEJORAS TABLAS.SQL
View File

@ -70,6 +70,17 @@ ALTER TABLE [dbo].[RDX_DEVOLUCION_AJUSTES]
ADD [CANT_XL] numeric(15, 0) NULL ADD [CANT_XL] numeric(15, 0) NULL
GO GO
CREATE PROCEDURE dbo.RDX_P_TIPO_TALLAJE
@PRODUCTO VARCHAR(12)
AS
BEGIN
SELECT DISTINCT RDX_TALLAS.TIPO_TALLAJE
FROM PRODUTOS_BARRA
LEFT JOIN RDX_TALLAS ON (PRODUTOS_BARRA.GRADE = RDX_TALLAS.TALLA)
WHERE PRODUTOS_BARRA.PRODUTO = @PRODUCTO
END
GO
/*--------------- SQL ---------------*/ /*--------------- SQL ---------------*/
IF EXISTS (SELECT * FROM sysobjects WHERE id = OBJECT_ID(N'[RDX_INVENTARIOEDI]') AND OBJECTPROPERTY(id, N'IsUserTable') = 1) IF EXISTS (SELECT * FROM sysobjects WHERE id = OBJECT_ID(N'[RDX_INVENTARIOEDI]') AND OBJECTPROPERTY(id, N'IsUserTable') = 1)

4
Source/Base/BaseD10.drc
View File

@ -13,7 +13,7 @@ BEGIN
END END
/* C:\Varela_D2007\Source\Base\uConfigurarConexion.dfm */ /* C:\Varela_D2007\Source\Base\uConfigurarConexion.dfm */
/* C:\Varela_D2007\Source\Base\uDataModuleBase.dfm */ /* C:\Varela_D2007\Source\Base\uDataModuleBase.DFM */
/* C:\Varela_D2007\Source\Base\uViewBase.dfm */ /* C:\Varela_D2007\Source\Base\uViewBase.dfm */
/* C:\Varela_D2007\Source\Base\uEditorBase.dfm */ /* C:\Varela_D2007\Source\Base\uEditorBase.dfm */
/* C:\Varela_D2007\Source\Base\uViewGridBase.dfm */ /* C:\Varela_D2007\Source\Base\uViewGridBase.dfm */
@ -26,4 +26,4 @@ END
/* C:\Varela_D2007\Source\Base\uViewBarraSeleccion.dfm */ /* C:\Varela_D2007\Source\Base\uViewBarraSeleccion.dfm */
/* C:\Varela_D2007\Source\Base\uViewGrid.dfm */ /* C:\Varela_D2007\Source\Base\uViewGrid.dfm */
/* C:\Varela_D2007\Source\Base\BaseD10.res */ /* C:\Varela_D2007\Source\Base\BaseD10.res */
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf1A.tmp */ /* C:\Varela_D2007\Source\Base\BaseD10.drf */

4
Source/CargaEDI/CargaEDI.drc
View File

@ -12,7 +12,7 @@ STRINGTABLE
BEGIN BEGIN
END END
/* C:\Archivos de programa\CodeGear\RAD Studio\5.0\Lib\WindowsXP.res */ /* c:\archivos de programa\codegear\rad studio\5.0\lib\WindowsXP.res */
/* C:\Varela_D2007\Source\CargaEDI\uCargaEDI.dfm */ /* C:\Varela_D2007\Source\CargaEDI\uCargaEDI.dfm */
/* C:\Varela_D2007\Source\CargaEDI\CargaEDI.res */ /* C:\Varela_D2007\Source\CargaEDI\CargaEDI.res */
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf36.tmp */ /* C:\Varela_D2007\Source\CargaEDI\CargaEDI.drf */

8
Source/Cliente/AdminPV.drc
View File

@ -12,11 +12,11 @@ STRINGTABLE
BEGIN BEGIN
END END
/* C:\Archivos de programa\CodeGear\RAD Studio\5.0\Lib\WindowsXP.res */ /* c:\archivos de programa\codegear\rad studio\5.0\lib\WindowsXP.res */
/* C:\Varela_D2007\Lib\JVCL\JvXPCore.res */ /* c:\varela_d2007\lib\jvcl\JvXPCore.res */
/* C:\Varela_D2007\Lib\JVCL\JvXPBar.res */ /* c:\varela_d2007\lib\jvcl\JvXPBar.res */
/* C:\Varela_D2007\Source\Cliente\uSplash.dfm */ /* C:\Varela_D2007\Source\Cliente\uSplash.dfm */
/* C:\Varela_D2007\Source\Cliente\uAcercaDe.dfm */ /* C:\Varela_D2007\Source\Cliente\uAcercaDe.dfm */
/* C:\Varela_D2007\Source\Cliente\uPantallaPrincipal.dfm */ /* C:\Varela_D2007\Source\Cliente\uPantallaPrincipal.dfm */
/* C:\Varela_D2007\Source\Cliente\AdminPV.res */ /* C:\Varela_D2007\Source\Cliente\AdminPV.res */
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf34.tmp */ /* C:\Varela_D2007\Source\Cliente\AdminPV.drf */

2
Source/Configuracion/Configuracion.drc
View File

@ -14,4 +14,4 @@ END
/* C:\Varela_D2007\Source\Configuracion\uPanelControl.dfm */ /* C:\Varela_D2007\Source\Configuracion\uPanelControl.dfm */
/* C:\Varela_D2007\Source\Configuracion\Configuracion.res */ /* C:\Varela_D2007\Source\Configuracion\Configuracion.res */
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf22.tmp */ /* C:\Varela_D2007\Source\Configuracion\Configuracion.drf */

4
Source/ControlesBase/ControlesBaseD10.drc
View File

@ -15,7 +15,7 @@ END
/* C:\Varela_D2007\Source\ControlesBase\Cliente\uFormPropiedadesControl.dfm */ /* C:\Varela_D2007\Source\ControlesBase\Cliente\uFormPropiedadesControl.dfm */
/* C:\Varela_D2007\Source\ControlesBase\Cliente\uViewControlesBase.dfm */ /* C:\Varela_D2007\Source\ControlesBase\Cliente\uViewControlesBase.dfm */
/* C:\Varela_D2007\Source\ControlesBase\Cliente\uEditorControlesBase.dfm */ /* C:\Varela_D2007\Source\ControlesBase\Cliente\uEditorControlesBase.dfm */
/* C:\Varela_D2007\Source\ControlesBase\Cliente\uDataModuleControles.dfm */ /* C:\Varela_D2007\Source\ControlesBase\Cliente\uDataModuleControles.DFM */
/* C:\Varela_D2007\Source\ControlesBase\Cliente\uViewControlGrid.dfm */ /* C:\Varela_D2007\Source\ControlesBase\Cliente\uViewControlGrid.dfm */
/* C:\Varela_D2007\Source\ControlesBase\Cliente\uViewParametrosControlGrid.dfm */ /* C:\Varela_D2007\Source\ControlesBase\Cliente\uViewParametrosControlGrid.dfm */
/* C:\Varela_D2007\Source\ControlesBase\Cliente\uViewAgrupaciones.dfm */ /* C:\Varela_D2007\Source\ControlesBase\Cliente\uViewAgrupaciones.dfm */
@ -26,4 +26,4 @@ END
/* C:\Varela_D2007\Source\ControlesBase\Cliente\uEditorControlBase.dfm */ /* C:\Varela_D2007\Source\ControlesBase\Cliente\uEditorControlBase.dfm */
/* C:\Varela_D2007\Source\ControlesBase\Cliente\uViewPeriodoFechas.dfm */ /* C:\Varela_D2007\Source\ControlesBase\Cliente\uViewPeriodoFechas.dfm */
/* C:\Varela_D2007\Source\ControlesBase\ControlesBaseD10.res */ /* C:\Varela_D2007\Source\ControlesBase\ControlesBaseD10.res */
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf1C.tmp */ /* C:\Varela_D2007\Source\ControlesBase\ControlesBaseD10.drf */

4
Source/Modulos/Devoluciones/Cliente/Devoluciones.drc
View File

@ -12,10 +12,10 @@ STRINGTABLE
BEGIN BEGIN
END END
/* C:\Varela_D2007\Source\Modulos\Devoluciones\Cliente\uDataModuleDevoluciones.dfm */ /* C:\Varela_D2007\Source\Modulos\Devoluciones\Cliente\uDataModuleDevoluciones.DFM */
/* C:\Varela_D2007\Source\Modulos\Devoluciones\Cliente\uViewListaDevoluciones.dfm */ /* C:\Varela_D2007\Source\Modulos\Devoluciones\Cliente\uViewListaDevoluciones.dfm */
/* C:\Varela_D2007\Source\Modulos\Devoluciones\Cliente\uEditorListaDevoluciones.dfm */ /* C:\Varela_D2007\Source\Modulos\Devoluciones\Cliente\uEditorListaDevoluciones.dfm */
/* C:\Varela_D2007\Source\Modulos\Devoluciones\Cliente\uPluginControllerDevoluciones.dfm */ /* C:\Varela_D2007\Source\Modulos\Devoluciones\Cliente\uPluginControllerDevoluciones.dfm */
/* C:\Varela_D2007\Source\Modulos\Devoluciones\Cliente\uEditorAjustarDevoluciones.dfm */ /* C:\Varela_D2007\Source\Modulos\Devoluciones\Cliente\uEditorAjustarDevoluciones.dfm */
/* C:\Varela_D2007\Source\Modulos\Devoluciones\Cliente\Devoluciones.res */ /* C:\Varela_D2007\Source\Modulos\Devoluciones\Cliente\Devoluciones.res */
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf2E.tmp */ /* C:\Varela_D2007\Source\Modulos\Devoluciones\Cliente\Devoluciones.drf */

85
Source/Modulos/Devoluciones/Servidor/srvDevoluciones_Impl.dfm
View File

@ -1190,42 +1190,55 @@ object srvDevoluciones: TsrvDevoluciones
'OJA varchar(255)'#10' declare @CONTABILIZAR_HOJA char(1)'#10#10' dec' + 'OJA varchar(255)'#10' declare @CONTABILIZAR_HOJA char(1)'#10#10' dec' +
'lare @ER38 numeric(15,0)'#10' declare @ER40 numeric(15,0)'#10' dec' + 'lare @ER38 numeric(15,0)'#10' declare @ER40 numeric(15,0)'#10' dec' +
'lare @ER42 numeric(15,0)'#10' declare @ER44 numeric(15,0)'#10' dec' + 'lare @ER42 numeric(15,0)'#10' declare @ER44 numeric(15,0)'#10' dec' +
'lare @ER46 numeric(15,0)'#10' declare @ER48 numeric(15,0)'#10#10' de' + 'lare @ER46 numeric(15,0)'#10' declare @ER48 numeric(15,0)'#10' dec' +
'clare @APROBADO char(1)'#10' declare @FECHA datetime'#10' declare ' + 'lare @ER_S numeric(15,0)'#10' declare @ER_M numeric(15,0)'#10' dec' +
'@CENTRO varchar(17)'#10' declare @CODIGO varchar(12)'#10' declare ' + 'lare @ER_L numeric(15,0)'#10' declare @ER_XL numeric(15,0)'#10#10#10' ' +
'@COLOR varchar(10)'#10#10' set @NUMHOJA = :NUMHOJA'#10' set @ESTADO_' + 'declare @APROBADO char(1)'#10' declare @FECHA datetime'#10' declar' +
'HOJA = :ESTADO_HOJA'#10' set @OBSERVACIONES_HOJA = :OBSERVACIONES' + 'e @CENTRO varchar(17)'#10' declare @CODIGO varchar(12)'#10' declar' +
'_HOJA'#10' set @CONTABILIZAR_HOJA = :CONTABILIZAR_HOJA'#10#10' set @' + 'e @COLOR varchar(10)'#10#10' declare @TIPO_TALLAJE smallint'#10#10' se' +
'ER38 = :ER38'#10' set @ER40 = :ER40'#10' set @ER42 = :ER42'#10' set' + 't @NUMHOJA = :NUMHOJA'#10' set @ESTADO_HOJA = :ESTADO_HOJA'#10' se' +
' @ER44 = :ER44'#10' set @ER46 = :ER46'#10' set @ER48 = :ER48'#10#10' ' + 't @OBSERVACIONES_HOJA = :OBSERVACIONES_HOJA'#10' set @CONTABILIZA' +
'set @APROBADO = :APROBADO'#10' set @FECHA = :FECHA'#10' set @CENTR' + 'R_HOJA = :CONTABILIZAR_HOJA'#10#10' set @ER38 = :ER38'#10' set @ER40' +
'O = :CENTRO'#10' set @CODIGO = :CODIGO'#10' set @COLOR = :COLOR'#10#10' ' + ' = :ER40'#10' set @ER42 = :ER42'#10' set @ER44 = :ER44'#10' set @ER' +
' /* *********************************** */'#10' if @NUMHOJA <> ' + '46 = :ER46'#10' set @ER48 = :ER48'#10' set @ER_S = :ER38'#10' set @' +
#39#39#10' begin'#10#9' update RDX_AJUSTES_HOJA_DEVOLUCIONES set'#10#9' ' + 'ER_M = :ER40'#10' set @ER_L = :ER42'#10' set @ER_XL = :ER44'#10#10' s' +
' ESTADO = @ESTADO_HOJA,'#10#9#9' OBSERVACIONES = @OBSERVA' + 'et @APROBADO = :APROBADO'#10' set @FECHA = :FECHA'#10' set @CENTRO' +
'CIONES_HOJA,'#10#9#9' CONTABILIZAR = @CONTABILIZAR_HOJA'#10#9' wh' + ' = :CENTRO'#10' set @CODIGO = :CODIGO'#10' set @COLOR = :COLOR'#10#10' ' +
'ere RDX_AJUSTES_HOJA_DEVOLUCIONES.NUMHOJA = @NUMHOJA'#10#10#9#9' select ' + ' /* *********************************** */'#10' if @NUMHOJA <> '#39 +
'@ROWCOUNT_VAR = @@ROWCOUNT'#10#10#9' if @ROWCOUNT_VAR = 0'#10#9#9' begin'#10 + #39#10' begin'#10#9' update RDX_AJUSTES_HOJA_DEVOLUCIONES set'#10#9' ' +
#9' insert into RDX_AJUSTES_HOJA_DEVOLUCIONES'#10#9' ' + ' ESTADO = @ESTADO_HOJA,'#10#9#9' OBSERVACIONES = @OBSERVAC' +
' (NUMHOJA, ESTADO, OBSERVACIONES, CONTABILIZAR)'#10#9#9' va' + 'IONES_HOJA,'#10#9#9' CONTABILIZAR = @CONTABILIZAR_HOJA'#10#9' whe' +
'lues (@NUMHOJA, @ESTADO_HOJA,'#10#9' @OBSERVACIONES_' + 're RDX_AJUSTES_HOJA_DEVOLUCIONES.NUMHOJA = @NUMHOJA'#10#10#9#9' select @' +
'HOJA, @CONTABILIZAR_HOJA)'#10#9' end'#10' end'#10#10#10' /* ***********' + 'ROWCOUNT_VAR = @@ROWCOUNT'#10#10#9' if @ROWCOUNT_VAR = 0'#10#9#9' begin'#10#9 +
'************************ */'#10#9'update RDX_DEVOLUCION_AJUSTES set'#10#9 + ' insert into RDX_AJUSTES_HOJA_DEVOLUCIONES'#10#9' ' +
' CANT38 = @ER38,'#10#9' CANT40 = @ER40,'#10#9' ' + ' (NUMHOJA, ESTADO, OBSERVACIONES, CONTABILIZAR)'#10#9#9' val' +
' CANT42 = @ER42,'#10#9' CANT44 = @ER44,'#10#9' CANT4' + 'ues (@NUMHOJA, @ESTADO_HOJA,'#10#9' @OBSERVACIONES_H' +
'6 = @ER46,'#10#9' CANT48 = @ER48,'#10' APROBADO =' + 'OJA, @CONTABILIZAR_HOJA)'#10#9' end'#10' end'#10#10' /* ARREGLO PARA ' +
' @APROBADO,'#10' FECHACAMBIO = CURRENT_TIMESTAMP'#10#9'wher' + 'QUE SOPORTE LOS NUEVOS TALLAJES*** */'#10#10' execute @TIPO_TALLAJE' +
'e'#10' (RDX_DEVOLUCION_AJUSTES.CENTRO = @CENTRO and'#10#9' ' + ' = RDX_P_TIPO_TALLAJE @CODIGO'#10#10' if @TIPO_TALLAJE = 1'#10' begi' +
' RDX_DEVOLUCION_AJUSTES.CODIGO = @CODIGO and'#10#9' RDX_DEVOLU' + 'n'#10' set @ER_S = 0'#10' set @ER_M = 0'#10' set @ER_L = 0' +
'CION_AJUSTES.COLOR = @COLOR and'#10#9' RDX_DEVOLUCION_AJUSTES.FE' + #10' set @ER_XL = 0'#10' end'#10' else'#10' begin'#10' set @ER' +
'CHA = @FECHA)'#10#10#9'select @ROWCOUNT_VAR = @@ROWCOUNT'#10#10#9'if @ROWCOUNT' + '38 = 0'#10' set @ER40 = 0'#10' set @ER42 = 0'#10' set @ER4' +
'_VAR = 0'#10' begin'#10' insert into RDX_DEVOLUCION_AJUSTES'#10' ' + '4 = 0'#10' end'#10#10' /* *********************************** */'#10#9'up' +
' (FECHA, CENTRO, CODIGO, COLOR,'#10' A' + 'date RDX_DEVOLUCION_AJUSTES set'#10#9' CANT38 = @ER38,'#10#9' ' +
'PROBADO, FECHACAMBIO,'#10' CANT38, CANT40, CANT42,'#10' ' + ' CANT40 = @ER40,'#10#9' CANT42 = @ER42,'#10#9' ' +
' CANT44, CANT46, CANT48)'#10' values ('#10' ' + 'CANT44 = @ER44,'#10#9' CANT46 = @ER46,'#10#9' CANT48 =' +
' @FECHA, @CENTRO, @CODIGO,'#10' @COLOR, @A' + ' @ER48,'#10#9' CANT_S = @ER_S,'#10#9' CANT_M = @ER_M,'#10 +
'PROBADO, CURRENT_TIMESTAMP,'#10' @ER38, @ER40, @ER42' + #9' CANT_L = @ER_L,'#10#9' CANT_XL = @ER_XL,'#10' ' +
','#10' @ER44, @ER46, @ER48)'#10' end'#10'end' ' APROBADO = @APROBADO,'#10' FECHACAMBIO = CURR' +
'ENT_TIMESTAMP'#10#9'where'#10' (RDX_DEVOLUCION_AJUSTES.CENTRO' +
' = @CENTRO and'#10#9' RDX_DEVOLUCION_AJUSTES.CODIGO = @CODIGO an' +
'd'#10#9' RDX_DEVOLUCION_AJUSTES.COLOR = @COLOR and'#10#9' RDX_DE' +
'VOLUCION_AJUSTES.FECHA = @FECHA)'#10#10#9'select @ROWCOUNT_VAR = @@ROWC' +
'OUNT'#10#10#9'if @ROWCOUNT_VAR = 0'#10' begin'#10' insert into RDX_D' +
'EVOLUCION_AJUSTES'#10' (FECHA, CENTRO, CODIGO, COLOR,' +
#10' APROBADO, FECHACAMBIO,'#10' CANT38' +
', CANT40, CANT42,'#10' CANT44, CANT46, CANT48,'#10' ' +
' CANT_S, CANT_M, CANT_L, CANT_XL)'#10' values ('#10' ' +
' @FECHA, @CENTRO, @CODIGO,'#10' @COLO' +
'R, @APROBADO, CURRENT_TIMESTAMP,'#10' @ER38, @ER40, ' +
'@ER42,'#10' @ER44, @ER46, @ER48,'#10' @E' +
'R_S, @ER_M, @ER_L, @ER_XL)'#10' end'#10'end'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>

4
Source/Modulos/FicherosEDI/Cliente/FicherosEDI.drc
View File

@ -13,9 +13,9 @@ BEGIN
END END
/* C:\Varela_D2007\Source\Modulos\FicherosEDI\Cliente\uAsistenteCargaFicheros.dfm */ /* C:\Varela_D2007\Source\Modulos\FicherosEDI\Cliente\uAsistenteCargaFicheros.dfm */
/* C:\Varela_D2007\Source\Modulos\FicherosEDI\Cliente\uDataModuleFicherosEDI.dfm */ /* C:\Varela_D2007\Source\Modulos\FicherosEDI\Cliente\uDataModuleFicherosEDI.DFM */
/* C:\Varela_D2007\Source\Modulos\FicherosEDI\Cliente\uViewHistorialCargasEDI.dfm */ /* C:\Varela_D2007\Source\Modulos\FicherosEDI\Cliente\uViewHistorialCargasEDI.dfm */
/* C:\Varela_D2007\Source\Modulos\FicherosEDI\Cliente\uEditorHistorialCargasEDI.dfm */ /* C:\Varela_D2007\Source\Modulos\FicherosEDI\Cliente\uEditorHistorialCargasEDI.dfm */
/* C:\Varela_D2007\Source\Modulos\FicherosEDI\Cliente\uPluginControllerFicherosEDI.dfm */ /* C:\Varela_D2007\Source\Modulos\FicherosEDI\Cliente\uPluginControllerFicherosEDI.dfm */
/* C:\Varela_D2007\Source\Modulos\FicherosEDI\Cliente\FicherosEDI.res */ /* C:\Varela_D2007\Source\Modulos\FicherosEDI\Cliente\FicherosEDI.res */
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf24.tmp */ /* C:\Varela_D2007\Source\Modulos\FicherosEDI\Cliente\FicherosEDI.drf */

4
Source/Modulos/Parametros/Cliente/Parametros.drc
View File

@ -12,8 +12,8 @@ STRINGTABLE
BEGIN BEGIN
END END
/* C:\Varela_D2007\Source\Modulos\Parametros\Cliente\uDataModuleParametros.dfm */ /* C:\Varela_D2007\Source\Modulos\Parametros\Cliente\uDataModuleParametros.DFM */
/* C:\Varela_D2007\Source\Modulos\Parametros\Cliente\uViewParametrosCentro.dfm */ /* C:\Varela_D2007\Source\Modulos\Parametros\Cliente\uViewParametrosCentro.dfm */
/* C:\Varela_D2007\Source\Modulos\Parametros\Cliente\uViewParametrosColeccion.dfm */ /* C:\Varela_D2007\Source\Modulos\Parametros\Cliente\uViewParametrosColeccion.dfm */
/* C:\Varela_D2007\Source\Modulos\Parametros\Cliente\Parametros.res */ /* C:\Varela_D2007\Source\Modulos\Parametros\Cliente\Parametros.res */
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf1E.tmp */ /* C:\Varela_D2007\Source\Modulos\Parametros\Cliente\Parametros.drf */

4
Source/Modulos/Recepciones/Cliente/Recepciones.drc
View File

@ -12,7 +12,7 @@ STRINGTABLE
BEGIN BEGIN
END END
/* C:\Varela_D2007\Source\Modulos\Recepciones\Cliente\uDataModuleRecepciones.dfm */ /* C:\Varela_D2007\Source\Modulos\Recepciones\Cliente\uDataModuleRecepciones.DFM */
/* C:\Varela_D2007\Source\Modulos\Recepciones\Cliente\uViewListaRecepciones.dfm */ /* C:\Varela_D2007\Source\Modulos\Recepciones\Cliente\uViewListaRecepciones.dfm */
/* C:\Varela_D2007\Source\Modulos\Recepciones\Cliente\uEditorListaRecepciones.dfm */ /* C:\Varela_D2007\Source\Modulos\Recepciones\Cliente\uEditorListaRecepciones.dfm */
/* C:\Varela_D2007\Source\Modulos\Recepciones\Cliente\uViewListaRecepcionesAlbaran.dfm */ /* C:\Varela_D2007\Source\Modulos\Recepciones\Cliente\uViewListaRecepcionesAlbaran.dfm */
@ -20,4 +20,4 @@ END
/* C:\Varela_D2007\Source\Modulos\Recepciones\Cliente\uPluginControllerRecepciones.dfm */ /* C:\Varela_D2007\Source\Modulos\Recepciones\Cliente\uPluginControllerRecepciones.dfm */
/* C:\Varela_D2007\Source\Modulos\Recepciones\Cliente\uEditorAjustarRecepciones.dfm */ /* C:\Varela_D2007\Source\Modulos\Recepciones\Cliente\uEditorAjustarRecepciones.dfm */
/* C:\Varela_D2007\Source\Modulos\Recepciones\Cliente\Recepciones.res */ /* C:\Varela_D2007\Source\Modulos\Recepciones\Cliente\Recepciones.res */
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf2C.tmp */ /* C:\Varela_D2007\Source\Modulos\Recepciones\Cliente\Recepciones.drf */

7
Source/Modulos/Recepciones/Cliente/uEditorAjustarRecepciones.pas
View File

@ -19,7 +19,7 @@ uses
cxGridTableView, cxGridBandedTableView, cxGridDBBandedTableView, cxGridTableView, cxGridBandedTableView, cxGridDBBandedTableView,
cxClasses, cxControls, cxGridCustomView, cxGrid, dxLayoutControl, cxClasses, cxControls, cxGridCustomView, cxGrid, dxLayoutControl,
cxContainer, cxTextEdit, cxDBEdit, cxMemo, cxMaskEdit, cxDropDownEdit, cxContainer, cxTextEdit, cxDBEdit, cxMemo, cxMaskEdit, cxDropDownEdit,
cxCheckBox, cxCalendar, cxLabel, cxDBLabel; cxCheckBox, cxCalendar, cxLabel, cxDBLabel, uDAInterfaces;
type type
IEditorAjustarRecepciones = interface IEditorAjustarRecepciones = interface
@ -121,7 +121,7 @@ type
private private
FItems : IBizRecepciones; FItems : IBizRecepciones;
FHayErrores : Boolean; FHayErrores : Boolean;
FAlbaranModificado : Boolean; FAlbaranModificado : Boolean;
procedure CargarValores; procedure CargarValores;
procedure SalvarValores; procedure SalvarValores;
procedure ModificarAlbaran; procedure ModificarAlbaran;
@ -174,8 +174,7 @@ begin
Result := FItems; Result := FItems;
end; end;
procedure TfEditorAjustarRecepciones.SetItems( procedure TfEditorAjustarRecepciones.SetItems(const AValue: IBizRecepciones);
const AValue: IBizRecepciones);
begin begin
FItems := AValue; FItems := AValue;
if Assigned(FItems) then if Assigned(FItems) then

34
Source/Modulos/Recepciones/Cliente/uViewListaRecepciones.dfm
View File

@ -4,11 +4,12 @@ inherited frViewListaRecepciones: TfrViewListaRecepciones
ExplicitWidth = 695 ExplicitWidth = 695
ExplicitHeight = 477 ExplicitHeight = 477
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Top = 61 Top = 128
Width = 695 Width = 695
Height = 416 Height = 349
ExplicitTop = 128
ExplicitWidth = 695 ExplicitWidth = 695
ExplicitHeight = 477 ExplicitHeight = 349
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
OnMouseDown = cxGridViewMouseDown OnMouseDown = cxGridViewMouseDown
FilterBox.Visible = fvNever FilterBox.Visible = fvNever
@ -118,6 +119,7 @@ inherited frViewListaRecepciones: TfrViewListaRecepciones
Width = 20 Width = 20
end end
object cxGridBandedViewE38: TcxGridDBColumn object cxGridBandedViewE38: TcxGridDBColumn
Caption = 'E38/S'
DataBinding.FieldName = 'E38' DataBinding.FieldName = 'E38'
PropertiesClassName = 'TcxTextEditProperties' PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taCenter Properties.Alignment.Horz = taCenter
@ -127,6 +129,7 @@ inherited frViewListaRecepciones: TfrViewListaRecepciones
Width = 36 Width = 36
end end
object cxGridBandedViewE40: TcxGridDBColumn object cxGridBandedViewE40: TcxGridDBColumn
Caption = 'E40/M'
DataBinding.FieldName = 'E40' DataBinding.FieldName = 'E40'
PropertiesClassName = 'TcxTextEditProperties' PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taCenter Properties.Alignment.Horz = taCenter
@ -136,6 +139,7 @@ inherited frViewListaRecepciones: TfrViewListaRecepciones
Width = 35 Width = 35
end end
object cxGridBandedViewE42: TcxGridDBColumn object cxGridBandedViewE42: TcxGridDBColumn
Caption = 'E42/L'
DataBinding.FieldName = 'E42' DataBinding.FieldName = 'E42'
PropertiesClassName = 'TcxTextEditProperties' PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taCenter Properties.Alignment.Horz = taCenter
@ -145,6 +149,7 @@ inherited frViewListaRecepciones: TfrViewListaRecepciones
Width = 34 Width = 34
end end
object cxGridBandedViewE44: TcxGridDBColumn object cxGridBandedViewE44: TcxGridDBColumn
Caption = 'E44/XL'
DataBinding.FieldName = 'E44' DataBinding.FieldName = 'E44'
PropertiesClassName = 'TcxTextEditProperties' PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taCenter Properties.Alignment.Horz = taCenter
@ -181,6 +186,7 @@ inherited frViewListaRecepciones: TfrViewListaRecepciones
Width = 36 Width = 36
end end
object cxGridBandedViewR38: TcxGridDBColumn object cxGridBandedViewR38: TcxGridDBColumn
Caption = 'R38/S'
DataBinding.FieldName = 'R38' DataBinding.FieldName = 'R38'
PropertiesClassName = 'TcxTextEditProperties' PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taCenter Properties.Alignment.Horz = taCenter
@ -189,6 +195,7 @@ inherited frViewListaRecepciones: TfrViewListaRecepciones
Width = 25 Width = 25
end end
object cxGridBandedViewR40: TcxGridDBColumn object cxGridBandedViewR40: TcxGridDBColumn
Caption = 'R40/M'
DataBinding.FieldName = 'R40' DataBinding.FieldName = 'R40'
PropertiesClassName = 'TcxTextEditProperties' PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taCenter Properties.Alignment.Horz = taCenter
@ -197,6 +204,7 @@ inherited frViewListaRecepciones: TfrViewListaRecepciones
Width = 25 Width = 25
end end
object cxGridBandedViewR42: TcxGridDBColumn object cxGridBandedViewR42: TcxGridDBColumn
Caption = 'R42/L'
DataBinding.FieldName = 'R42' DataBinding.FieldName = 'R42'
PropertiesClassName = 'TcxTextEditProperties' PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taCenter Properties.Alignment.Horz = taCenter
@ -205,6 +213,7 @@ inherited frViewListaRecepciones: TfrViewListaRecepciones
Width = 25 Width = 25
end end
object cxGridBandedViewR44: TcxGridDBColumn object cxGridBandedViewR44: TcxGridDBColumn
Caption = 'R44/XL'
DataBinding.FieldName = 'R44' DataBinding.FieldName = 'R44'
PropertiesClassName = 'TcxTextEditProperties' PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taCenter Properties.Alignment.Horz = taCenter
@ -237,7 +246,7 @@ inherited frViewListaRecepciones: TfrViewListaRecepciones
Width = 25 Width = 25
end end
object cxGridBandedViewRR38: TcxGridDBColumn object cxGridBandedViewRR38: TcxGridDBColumn
Caption = 'R38' Caption = 'R38/S'
DataBinding.FieldName = 'RR38' DataBinding.FieldName = 'RR38'
PropertiesClassName = 'TcxTextEditProperties' PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taCenter Properties.Alignment.Horz = taCenter
@ -248,7 +257,7 @@ inherited frViewListaRecepciones: TfrViewListaRecepciones
Width = 34 Width = 34
end end
object cxGridBandedViewRR40: TcxGridDBColumn object cxGridBandedViewRR40: TcxGridDBColumn
Caption = 'R40' Caption = 'R40/M'
DataBinding.FieldName = 'RR40' DataBinding.FieldName = 'RR40'
PropertiesClassName = 'TcxTextEditProperties' PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taCenter Properties.Alignment.Horz = taCenter
@ -259,7 +268,7 @@ inherited frViewListaRecepciones: TfrViewListaRecepciones
Width = 35 Width = 35
end end
object cxGridBandedViewRR42: TcxGridDBColumn object cxGridBandedViewRR42: TcxGridDBColumn
Caption = 'R42' Caption = 'R42/L'
DataBinding.FieldName = 'RR42' DataBinding.FieldName = 'RR42'
PropertiesClassName = 'TcxTextEditProperties' PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taCenter Properties.Alignment.Horz = taCenter
@ -270,7 +279,7 @@ inherited frViewListaRecepciones: TfrViewListaRecepciones
Width = 35 Width = 35
end end
object cxGridBandedViewRR44: TcxGridDBColumn object cxGridBandedViewRR44: TcxGridDBColumn
Caption = 'R44' Caption = 'R44/XL'
DataBinding.FieldName = 'RR44' DataBinding.FieldName = 'RR44'
PropertiesClassName = 'TcxTextEditProperties' PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taCenter Properties.Alignment.Horz = taCenter
@ -339,14 +348,11 @@ inherited frViewListaRecepciones: TfrViewListaRecepciones
FloatingHeight = 128 FloatingHeight = 128
SupportedDocks = [dkStandardDock, dkMultiDock] SupportedDocks = [dkStandardDock, dkMultiDock]
TabOrder = 1 TabOrder = 1
ExplicitTop = 76
ExplicitWidth = 128
ExplicitHeight = 128
inline frViewParametrosCentro1: TfrViewParametrosCentro inline frViewParametrosCentro1: TfrViewParametrosCentro
Left = 0 Left = 0
Top = 19 Top = 19
Width = 425 Width = 425
Height = 42 Height = 109
Align = alLeft Align = alLeft
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
@ -379,19 +385,15 @@ inherited frViewListaRecepciones: TfrViewListaRecepciones
ParentColor = True ParentColor = True
ParentFont = False ParentFont = False
Underline = True Underline = True
ExplicitWidth = 128
ExplicitHeight = 32
end end
object pnlAgrupaciones: TTBXAlignmentPanel object pnlAgrupaciones: TTBXAlignmentPanel
Left = 425 Left = 425
Top = 19 Top = 19
Width = 270 Width = 270
Height = 42 Height = 109
Align = alClient Align = alClient
AutoSize = True AutoSize = True
TabOrder = 2 TabOrder = 2
ExplicitWidth = 391
ExplicitHeight = 109
object TBXButton3: TTBXButton object TBXButton3: TTBXButton
Tag = 3 Tag = 3
Left = 8 Left = 8

12
Source/Modulos/Recepciones/Cliente/uViewListaRecepcionesAlbaran.dfm
View File

@ -7,8 +7,9 @@ inherited frViewListaRecepcionesAlbaran: TfrViewListaRecepcionesAlbaran
Top = 60 Top = 60
Width = 695 Width = 695
Height = 417 Height = 417
ExplicitTop = 60
ExplicitWidth = 695 ExplicitWidth = 695
ExplicitHeight = 477 ExplicitHeight = 417
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
FilterBox.Visible = fvNever FilterBox.Visible = fvNever
DataController.KeyFieldNames = 'Albaran;Codigo;Color' DataController.KeyFieldNames = 'Albaran;Codigo;Color'
@ -57,18 +58,22 @@ inherited frViewListaRecepcionesAlbaran: TfrViewListaRecepcionesAlbaran
Width = 35 Width = 35
end end
object cxGridViewE38: TcxGridDBColumn object cxGridViewE38: TcxGridDBColumn
Caption = 'E38/S'
DataBinding.FieldName = 'E38' DataBinding.FieldName = 'E38'
Width = 38 Width = 38
end end
object cxGridViewE40: TcxGridDBColumn object cxGridViewE40: TcxGridDBColumn
Caption = 'E40/M'
DataBinding.FieldName = 'E40' DataBinding.FieldName = 'E40'
Width = 38 Width = 38
end end
object cxGridViewE42: TcxGridDBColumn object cxGridViewE42: TcxGridDBColumn
Caption = 'E42/L'
DataBinding.FieldName = 'E42' DataBinding.FieldName = 'E42'
Width = 36 Width = 36
end end
object cxGridViewE44: TcxGridDBColumn object cxGridViewE44: TcxGridDBColumn
Caption = 'E44/XL'
DataBinding.FieldName = 'E44' DataBinding.FieldName = 'E44'
Width = 39 Width = 39
end end
@ -104,7 +109,7 @@ inherited frViewListaRecepcionesAlbaran: TfrViewListaRecepcionesAlbaran
ReadOnly = False ReadOnly = False
ExplicitTop = 19 ExplicitTop = 19
ExplicitWidth = 425 ExplicitWidth = 425
ExplicitHeight = 109 ExplicitHeight = 41
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 425 Width = 425
ExplicitWidth = 425 ExplicitWidth = 425
@ -131,8 +136,6 @@ inherited frViewListaRecepcionesAlbaran: TfrViewListaRecepcionesAlbaran
ParentColor = True ParentColor = True
ParentFont = False ParentFont = False
Underline = True Underline = True
ExplicitWidth = 128
ExplicitHeight = 32
end end
object pnlAgrupaciones: TTBXAlignmentPanel object pnlAgrupaciones: TTBXAlignmentPanel
Left = 425 Left = 425
@ -142,7 +145,6 @@ inherited frViewListaRecepcionesAlbaran: TfrViewListaRecepcionesAlbaran
Align = alClient Align = alClient
AutoSize = True AutoSize = True
TabOrder = 2 TabOrder = 2
ExplicitHeight = 109
object TBXButton3: TTBXButton object TBXButton3: TTBXButton
Tag = 3 Tag = 3
Left = 8 Left = 8

926
Source/Modulos/Recepciones/Servidor/srvRecepciones_Impl.dfm
View File

File diff suppressed because it is too large Load Diff

4
Source/Modulos/ReferenciaGenerica/Cliente/ReferenciaGenerica.drc
View File

@ -12,10 +12,10 @@ STRINGTABLE
BEGIN BEGIN
END END
/* C:\Varela_D2007\Source\Modulos\ReferenciaGenerica\Cliente\uDataModuleReferenciaGenerica.dfm */ /* C:\Varela_D2007\Source\Modulos\ReferenciaGenerica\Cliente\uDataModuleReferenciaGenerica.DFM */
/* C:\Varela_D2007\Source\Modulos\ReferenciaGenerica\Cliente\uViewListaReferenciaGenerica.dfm */ /* C:\Varela_D2007\Source\Modulos\ReferenciaGenerica\Cliente\uViewListaReferenciaGenerica.dfm */
/* C:\Varela_D2007\Source\Modulos\ReferenciaGenerica\Cliente\uEditorListaReferenciaGenerica.dfm */ /* C:\Varela_D2007\Source\Modulos\ReferenciaGenerica\Cliente\uEditorListaReferenciaGenerica.dfm */
/* C:\Varela_D2007\Source\Modulos\ReferenciaGenerica\Cliente\uPluginControllerReferenciaGenerica.dfm */ /* C:\Varela_D2007\Source\Modulos\ReferenciaGenerica\Cliente\uPluginControllerReferenciaGenerica.dfm */
/* C:\Varela_D2007\Source\Modulos\ReferenciaGenerica\Cliente\uEditorCambioReferenciaGenerica.dfm */ /* C:\Varela_D2007\Source\Modulos\ReferenciaGenerica\Cliente\uEditorCambioReferenciaGenerica.dfm */
/* C:\Varela_D2007\Source\Modulos\ReferenciaGenerica\Cliente\ReferenciaGenerica.res */ /* C:\Varela_D2007\Source\Modulos\ReferenciaGenerica\Cliente\ReferenciaGenerica.res */
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf2A.tmp */ /* C:\Varela_D2007\Source\Modulos\ReferenciaGenerica\Cliente\ReferenciaGenerica.drf */

4
Source/Modulos/Stock/Cliente/Stock.drc
View File

@ -12,7 +12,7 @@ STRINGTABLE
BEGIN BEGIN
END END
/* C:\Varela_D2007\Source\Modulos\Stock\Cliente\uDataModuleStock.dfm */ /* C:\Varela_D2007\Source\Modulos\Stock\Cliente\uDataModuleStock.DFM */
/* C:\Varela_D2007\Source\Modulos\Stock\Cliente\uViewControGridStockEDI.dfm */ /* C:\Varela_D2007\Source\Modulos\Stock\Cliente\uViewControGridStockEDI.dfm */
/* C:\Varela_D2007\Source\Modulos\Stock\Cliente\uViewControGridStockPrendasCentros.dfm */ /* C:\Varela_D2007\Source\Modulos\Stock\Cliente\uViewControGridStockPrendasCentros.dfm */
/* C:\Varela_D2007\Source\Modulos\Stock\Cliente\uViewControGridStockEDIInventario.dfm */ /* C:\Varela_D2007\Source\Modulos\Stock\Cliente\uViewControGridStockEDIInventario.dfm */
@ -21,4 +21,4 @@ END
/* C:\Varela_D2007\Source\Modulos\Stock\Cliente\uEditorControlStockVARELA.dfm */ /* C:\Varela_D2007\Source\Modulos\Stock\Cliente\uEditorControlStockVARELA.dfm */
/* C:\Varela_D2007\Source\Modulos\Stock\Cliente\uPluginControllerStock.dfm */ /* C:\Varela_D2007\Source\Modulos\Stock\Cliente\uPluginControllerStock.dfm */
/* C:\Varela_D2007\Source\Modulos\Stock\Cliente\Stock.res */ /* C:\Varela_D2007\Source\Modulos\Stock\Cliente\Stock.res */
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf32.tmp */ /* C:\Varela_D2007\Source\Modulos\Stock\Cliente\Stock.drf */

4
Source/Modulos/Traspasos/Cliente/Traspasos.drc
View File

@ -12,10 +12,10 @@ STRINGTABLE
BEGIN BEGIN
END END
/* C:\Varela_D2007\Source\Modulos\Traspasos\Cliente\uDataModuleTraspasos.dfm */ /* C:\Varela_D2007\Source\Modulos\Traspasos\Cliente\uDataModuleTraspasos.DFM */
/* C:\Varela_D2007\Source\Modulos\Traspasos\Cliente\uViewListaTraspasos.dfm */ /* C:\Varela_D2007\Source\Modulos\Traspasos\Cliente\uViewListaTraspasos.dfm */
/* C:\Varela_D2007\Source\Modulos\Traspasos\Cliente\uEditorListaTraspasos.dfm */ /* C:\Varela_D2007\Source\Modulos\Traspasos\Cliente\uEditorListaTraspasos.dfm */
/* C:\Varela_D2007\Source\Modulos\Traspasos\Cliente\uPluginControllerTraspasos.dfm */ /* C:\Varela_D2007\Source\Modulos\Traspasos\Cliente\uPluginControllerTraspasos.dfm */
/* C:\Varela_D2007\Source\Modulos\Traspasos\Cliente\uEditorAjustarTraspasos.dfm */ /* C:\Varela_D2007\Source\Modulos\Traspasos\Cliente\uEditorAjustarTraspasos.dfm */
/* C:\Varela_D2007\Source\Modulos\Traspasos\Cliente\Traspasos.res */ /* C:\Varela_D2007\Source\Modulos\Traspasos\Cliente\Traspasos.res */
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf30.tmp */ /* C:\Varela_D2007\Source\Modulos\Traspasos\Cliente\Traspasos.drf */

78
Source/Modulos/Traspasos/Servidor/srvTraspasos_Impl.dfm
View File

@ -1040,39 +1040,51 @@ object srvTraspasos: TsrvTraspasos
'LIZAR char(1)'#10#10' declare @TR38 numeric(15,0)'#10' declare @TR40' + 'LIZAR char(1)'#10#10' declare @TR38 numeric(15,0)'#10' declare @TR40' +
' numeric(15,0)'#10' declare @TR42 numeric(15,0)'#10' declare @TR44' + ' numeric(15,0)'#10' declare @TR42 numeric(15,0)'#10' declare @TR44' +
' numeric(15,0)'#10' declare @TR46 numeric(15,0)'#10' declare @TR48' + ' numeric(15,0)'#10' declare @TR46 numeric(15,0)'#10' declare @TR48' +
' numeric(15,0)'#10#10' declare @APROBADO char(1)'#10' declare @FECHA' + ' numeric(15,0)'#10' declare @TR_S numeric(15,0)'#10' declare @TR_M' +
' datetime'#10' declare @CENTRO varchar(17)'#10' declare @CENTRO2 v' + ' numeric(15,0)'#10' declare @TR_L numeric(15,0)'#10' declare @TR_X' +
'archar(17)'#10' declare @CODIGO varchar(12)'#10' declare @COLOR va' + 'L numeric(15,0)'#10#10' declare @APROBADO char(1)'#10' declare @FECH' +
'rchar(10)'#10' declare @TIPOCANT varchar(3)'#10#10' set @ESTADO = :E' + 'A datetime'#10' declare @CENTRO varchar(17)'#10' declare @CENTRO2 ' +
'STADO'#10' set @OBSERVACIONES = :OBSERVACIONES'#10' set @CONTABILI' + 'varchar(17)'#10' declare @CODIGO varchar(12)'#10' declare @COLOR v' +
'ZAR = :CONTABILIZAR'#10#10' set @TR38 = :TR38'#10' set @TR40 = :TR40' + 'archar(10)'#10' declare @TIPOCANT varchar(3)'#10' declare @TIPO_TA' +
#10' set @TR42 = :TR42'#10' set @TR44 = :TR44'#10' set @TR46 = :TR' + 'LLAJE smallint'#10' '#10' set @ESTADO = :ESTADO'#10' set @OBSERVACI' +
'46'#10' set @TR48 = :TR48'#10#10' set @APROBADO = :APROBADO'#10' set ' + 'ONES = :OBSERVACIONES'#10' set @CONTABILIZAR = :CONTABILIZAR'#10#10' ' +
'@FECHA = :FECHA'#10' set @CENTRO = :CENTRO'#10' set @CENTRO2 = :CE' + ' set @TR38 = :TR38'#10' set @TR40 = :TR40'#10' set @TR42 = :TR42'#10' ' +
'NTRO2'#10' set @CODIGO = :CODIGO'#10' set @COLOR = :COLOR'#10' set ' + ' set @TR44 = :TR44'#10' set @TR46 = :TR46'#10' set @TR48 = :TR48' +
'@TIPOCANT = :TIPO'#10#10' /* *********************************** */' + #10' set @TR_S = :TR38'#10' set @TR_M = :TR40'#10' set @TR_L = :TR' +
#10#9'update RDX_TRASPASOS_AJUSTES set'#10#9' CANT38 = @TR38,'#10#9 + '42'#10' set @TR_XL = :TR44'#10#10' set @APROBADO = :APROBADO'#10' set' +
' CANT40 = @TR40,'#10#9' CANT42 = @TR42,'#10#9' ' + ' @FECHA = :FECHA'#10' set @CENTRO = :CENTRO'#10' set @CENTRO2 = :C' +
' CANT44 = @TR44,'#10#9' CANT46 = @TR46,'#10#9' CANT4' + 'ENTRO2'#10' set @CODIGO = :CODIGO'#10' set @COLOR = :COLOR'#10' set' +
'8 = @TR48,'#10' APROBADO = @APROBADO,'#10' E' + ' @TIPOCANT = :TIPO'#10#10' /* ARREGLO PARA QUE SOPORTE LOS NUEVOS T' +
'STADO = @ESTADO,'#10' TIPOCANT = @TIPOCANT,'#10' ' + 'ALLAJES*** */'#10#10' execute @TIPO_TALLAJE = RDX_P_TIPO_TALLAJE @C' +
' OBSERVACIONES = @OBSERVACIONES,'#10' CONTABILIZAR' + 'ODIGO'#10#10' if @TIPO_TALLAJE = 1'#10' begin'#10' set @TR_S = 0'#10' ' +
' = @CONTABILIZAR,'#10' FECHACAMBIO = CURRENT_TIMESTAMP' + ' set @TR_M = 0'#10' set @TR_L = 0'#10' set @TR_XL = 0'#10' ' +
#10#9'where'#10' (RDX_TRASPASOS_AJUSTES.CENTRO = @CENTRO and' + ' end'#10' else'#10' begin'#10' set @TR38 = 0'#10' set @TR40 ' +
#10' RDX_TRASPASOS_AJUSTES.CENTRO2 = @CENTRO2 and'#10#9' ' + '= 0'#10' set @TR42 = 0'#10' set @TR44 = 0'#10' end'#10#10' /* **' +
' RDX_TRASPASOS_AJUSTES.CODIGO = @CODIGO and'#10#9' RDX_TRASPAS' + '********************************* */'#10#9'update RDX_TRASPASOS_AJUST' +
'OS_AJUSTES.COLOR = @COLOR and'#10#9' RDX_TRASPASOS_AJUSTES.FECHA' + 'ES set'#10#9' CANT38 = @TR38,'#10#9' CANT40 = @TR40,'#10#9 +
' = @FECHA)'#10#10#9'select @ROWCOUNT_VAR = @@ROWCOUNT'#10#10#9'if @ROWCOUNT_VA' + ' CANT42 = @TR42,'#10#9' CANT44 = @TR44,'#10#9' ' +
'R = 0'#10' begin'#10' insert into RDX_TRASPASOS_AJUSTES'#10' ' + ' CANT46 = @TR46,'#10#9' CANT48 = @TR48,'#10#9' CANT_' +
' (FECHA, CENTRO, CENTRO2, CODIGO, COLOR,'#10' ' + 'S = @TR_S,'#10#9' CANT_M = @TR_M,'#10#9' CANT_L = @TR_' +
' APROBADO, FECHACAMBIO, TIPOCANT,'#10' ESTADO, OB' + 'L,'#10#9' CANT_XL = @TR_XL,'#10' APROBADO = @APRO' +
'SERVACIONES, CONTABILIZAR,'#10' CANT38, CANT40, CANT' + 'BADO,'#10' ESTADO = @ESTADO,'#10' TIPOCANT =' +
'42,'#10' CANT44, CANT46, CANT48)'#10' values ('#10' ' + ' @TIPOCANT,'#10' OBSERVACIONES = @OBSERVACIONES,'#10' ' +
' @FECHA, @CENTRO, @CENTRO2, @CODIGO,'#10' ' + ' CONTABILIZAR = @CONTABILIZAR,'#10' FECHACAMB' +
' @COLOR, @APROBADO, CURRENT_TIMESTAMP, @TIPOCANT,'#10' ' + 'IO = CURRENT_TIMESTAMP'#10#9'where'#10' (RDX_TRASPASOS_AJUSTE' +
' @ESTADO, @OBSERVACIONES, @CONTABILIZAR,'#10' ' + 'S.CENTRO = @CENTRO and'#10' RDX_TRASPASOS_AJUSTES.CENTR' +
'@TR38, @TR40, @TR42,'#10' @TR44, @TR46, @TR48)'#10' e' + 'O2 = @CENTRO2 and'#10#9' RDX_TRASPASOS_AJUSTES.CODIGO = @CODIGO ' +
'nd'#10'end' 'and'#10#9' RDX_TRASPASOS_AJUSTES.COLOR = @COLOR and'#10#9' RDX_T' +
'RASPASOS_AJUSTES.FECHA = @FECHA)'#10#10#9'select @ROWCOUNT_VAR = @@ROWC' +
'OUNT'#10#10#9'if @ROWCOUNT_VAR = 0'#10' begin'#10' insert into RDX_T' +
'RASPASOS_AJUSTES'#10' (FECHA, CENTRO, CENTRO2, CODIGO' +
', COLOR,'#10' APROBADO, FECHACAMBIO, TIPOCANT,'#10' ' +
' ESTADO, OBSERVACIONES, CONTABILIZAR,'#10' ' +
' CANT38, CANT40, CANT42,'#10' CANT44, CANT46, CANT4' +
'8,'#10' CANT_S, CANT_M, CANT_L, CANT_XL)'#10' va' +
'lues ('#10' @FECHA, @CENTRO, @CENTRO2, @CODIGO,'#10' ' +
' @COLOR, @APROBADO, CURRENT_TIMESTAMP, @TIPOCANT,'#10' ' +
' @ESTADO, @OBSERVACIONES, @CONTABILIZAR,'#10' ' +
' @TR38, @TR40, @TR42,'#10' @TR44, @TR46, @TR4' +
'8,'#10' @TR_S, @TR_M, @TR_L, @TR_XL)'#10' end'#10'end'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>

4
Source/Modulos/VentasProceso/Cliente/VentasProceso.drc
View File

@ -12,7 +12,7 @@ STRINGTABLE
BEGIN BEGIN
END END
/* C:\Varela_D2007\Source\Modulos\VentasProceso\Cliente\uDataModuleVentasProceso.dfm */ /* C:\Varela_D2007\Source\Modulos\VentasProceso\Cliente\uDataModuleVentasProceso.DFM */
/* C:\Varela_D2007\Source\Modulos\VentasProceso\Cliente\uViewControlesVentaProceso.dfm */ /* C:\Varela_D2007\Source\Modulos\VentasProceso\Cliente\uViewControlesVentaProceso.dfm */
/* C:\Varela_D2007\Source\Modulos\VentasProceso\Cliente\uEditorControlesVentaProceso.dfm */ /* C:\Varela_D2007\Source\Modulos\VentasProceso\Cliente\uEditorControlesVentaProceso.dfm */
/* C:\Varela_D2007\Source\Modulos\VentasProceso\Cliente\uPluginControllerVentasProceso.dfm */ /* C:\Varela_D2007\Source\Modulos\VentasProceso\Cliente\uPluginControllerVentasProceso.dfm */
@ -20,4 +20,4 @@ END
/* C:\Varela_D2007\Source\Modulos\VentasProceso\Cliente\uViewControlVentaProceso.dfm */ /* C:\Varela_D2007\Source\Modulos\VentasProceso\Cliente\uViewControlVentaProceso.dfm */
/* C:\Varela_D2007\Source\Modulos\VentasProceso\Cliente\uEditorControlVentaProceso.dfm */ /* C:\Varela_D2007\Source\Modulos\VentasProceso\Cliente\uEditorControlVentaProceso.dfm */
/* C:\Varela_D2007\Source\Modulos\VentasProceso\Cliente\VentasProceso.res */ /* C:\Varela_D2007\Source\Modulos\VentasProceso\Cliente\VentasProceso.res */
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf28.tmp */ /* C:\Varela_D2007\Source\Modulos\VentasProceso\Cliente\VentasProceso.drf */

4
Source/Modulos/VentasTerminadas/Cliente/VentasTerminadas.drc
View File

@ -12,7 +12,7 @@ STRINGTABLE
BEGIN BEGIN
END END
/* C:\Varela_D2007\Source\Modulos\VentasTerminadas\Cliente\uDataModuleVentasTerminadas.dfm */ /* C:\Varela_D2007\Source\Modulos\VentasTerminadas\Cliente\uDataModuleVentasTerminadas.DFM */
/* C:\Varela_D2007\Source\Modulos\VentasTerminadas\Cliente\uViewControlesVentasTerminadas.dfm */ /* C:\Varela_D2007\Source\Modulos\VentasTerminadas\Cliente\uViewControlesVentasTerminadas.dfm */
/* C:\Varela_D2007\Source\Modulos\VentasTerminadas\Cliente\uEditorControlesVentasTerminadas.dfm */ /* C:\Varela_D2007\Source\Modulos\VentasTerminadas\Cliente\uEditorControlesVentasTerminadas.dfm */
/* C:\Varela_D2007\Source\Modulos\VentasTerminadas\Cliente\uViewControGridlVentasTerminadas.dfm */ /* C:\Varela_D2007\Source\Modulos\VentasTerminadas\Cliente\uViewControGridlVentasTerminadas.dfm */
@ -22,4 +22,4 @@ END
/* C:\Varela_D2007\Source\Modulos\VentasTerminadas\Cliente\uPluginControllerVentasTerminadas.dfm */ /* C:\Varela_D2007\Source\Modulos\VentasTerminadas\Cliente\uPluginControllerVentasTerminadas.dfm */
/* C:\Varela_D2007\Source\Modulos\VentasTerminadas\Cliente\uEditorControlVentasTerminadas.dfm */ /* C:\Varela_D2007\Source\Modulos\VentasTerminadas\Cliente\uEditorControlVentasTerminadas.dfm */
/* C:\Varela_D2007\Source\Modulos\VentasTerminadas\Cliente\VentasTerminadas.res */ /* C:\Varela_D2007\Source\Modulos\VentasTerminadas\Cliente\VentasTerminadas.res */
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf26.tmp */ /* C:\Varela_D2007\Source\Modulos\VentasTerminadas\Cliente\VentasTerminadas.drf */

1168
Source/Servidor/AdminPV_Server.drc
View File

File diff suppressed because it is too large Load Diff

4
Source/Usuarios/Usuarios.drc
View File

@ -14,8 +14,8 @@ END
/* C:\Varela_D2007\Source\Usuarios\uLoginForm.dfm */ /* C:\Varela_D2007\Source\Usuarios\uLoginForm.dfm */
/* C:\Varela_D2007\Source\Usuarios\uCambiarPassword.dfm */ /* C:\Varela_D2007\Source\Usuarios\uCambiarPassword.dfm */
/* C:\Varela_D2007\Source\Usuarios\uDataModuleUsuarios.dfm */ /* C:\Varela_D2007\Source\Usuarios\uDataModuleUsuarios.DFM */
/* C:\Varela_D2007\Source\Usuarios\uUsuarios.dfm */ /* C:\Varela_D2007\Source\Usuarios\uUsuarios.dfm */
/* C:\Varela_D2007\Source\Usuarios\uUsuario.dfm */ /* C:\Varela_D2007\Source\Usuarios\uUsuario.dfm */
/* C:\Varela_D2007\Source\Usuarios\Usuarios.res */ /* C:\Varela_D2007\Source\Usuarios\Usuarios.res */
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf20.tmp */ /* C:\Varela_D2007\Source\Usuarios\Usuarios.drf */