version 4.0.5
* Errores #461: Poner función de validación de CIF en la aplicación * Errores #488: En albaranes de cliente cuando vamos a elegir almacen da un error. * Errores #489: En pedidos de proveedor cuando elijo una direccion de entrega en lugar de almacen me da un error que no es claro si no relleno la calle git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES2/trunk@92 b2cfbe5a-eba1-4a0c-8b32-7feea0a119f2
This commit is contained in:
parent
599cf1bd13
commit
5360c2af50
Binary file not shown.
@ -117,6 +117,7 @@ contains
|
||||
uSaveClipboard in 'Utiles\uSaveClipboard.pas',
|
||||
MidasSpeedFix in 'Utiles\MidasSpeedFix.pas',
|
||||
uDataModuleImpresiones in '..\Modulos\Impresiones\Data\uDataModuleImpresiones.pas' {DataModuleImpresiones: TDataModule},
|
||||
uDataModuleRegistroCorreos in '..\Modulos\Registro de correos\Data\uDataModuleRegistroCorreos.pas' {DataModuleRegistroCorreos: TDataModule};
|
||||
uDataModuleRegistroCorreos in '..\Modulos\Registro de correos\Data\uDataModuleRegistroCorreos.pas' {DataModuleRegistroCorreos: TDataModule},
|
||||
uValidacionUtils in 'Utiles\uValidacionUtils.pas';
|
||||
|
||||
end.
|
||||
|
||||
@ -58,58 +58,6 @@
|
||||
<Form>DataModuleImpresiones</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\adortl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\cxDataD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\cxEditorsD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\cxExportD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\cxExtEditorsD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\cxGridD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\cxIntl6D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\cxIntlPrintSys3D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\cxLibraryD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\cxPageControlD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\dbrtl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\dclIndyCore.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\designide.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\dsnap.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\dxCoreD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\dxPSCoreD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\dxThemeD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\GUISDK_D11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\IndyCore.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\IndyProtocols.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\IndySystem.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\Jcl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\JclVcl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\JSDialog100.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\JvCmpD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\JvCoreD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\JvCtrlsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\JvDlgsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\JvMMD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\JvNetD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\JvPageCompsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\JvStdCtrlsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\JvSystemD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\pckMD5.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\pckUCDataConnector.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\pckUserControl_RT.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\PngComponentsD10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\PNG_D10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\RemObjects_Indy_D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\rtl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\TB2k_D10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\tbx_d10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\vcl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\vclactnband.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\vcldb.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\vcljpg.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\VclSmp.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\vclx.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\xmlrtl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Registro de correos\Data\uDataModuleRegistroCorreos.pas">
|
||||
<Form>DataModuleRegistroCorreos</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
@ -138,13 +86,58 @@
|
||||
<Form>dmBase</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Utiles\adortl.dcp" />
|
||||
<DCCReference Include="Utiles\ClassRegistry\uClassRegistryUtils.pas" />
|
||||
<DCCReference Include="Utiles\ClassRegistry\uEditorRegistryUtils.pas" />
|
||||
<DCCReference Include="Utiles\ClassRegistry\uInformeRegistryUtils.pas" />
|
||||
<DCCReference Include="Utiles\ClassRegistry\uViewRegistryUtils.pas" />
|
||||
<DCCReference Include="Utiles\ClipboardUtils.pas" />
|
||||
<DCCReference Include="Utiles\Ctltortf.pas" />
|
||||
<DCCReference Include="Utiles\cxDataD11.dcp" />
|
||||
<DCCReference Include="Utiles\cxEditorsD11.dcp" />
|
||||
<DCCReference Include="Utiles\cxExportD11.dcp" />
|
||||
<DCCReference Include="Utiles\cxExtEditorsD11.dcp" />
|
||||
<DCCReference Include="Utiles\cxGridD11.dcp" />
|
||||
<DCCReference Include="Utiles\cxIntl6D11.dcp" />
|
||||
<DCCReference Include="Utiles\cxIntlPrintSys3D11.dcp" />
|
||||
<DCCReference Include="Utiles\cxLibraryD11.dcp" />
|
||||
<DCCReference Include="Utiles\cxPageControlD11.dcp" />
|
||||
<DCCReference Include="Utiles\DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="Utiles\dbrtl.dcp" />
|
||||
<DCCReference Include="Utiles\dclIndyCore.dcp" />
|
||||
<DCCReference Include="Utiles\designide.dcp" />
|
||||
<DCCReference Include="Utiles\dsnap.dcp" />
|
||||
<DCCReference Include="Utiles\dxCoreD11.dcp" />
|
||||
<DCCReference Include="Utiles\dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="Utiles\dxPSCoreD11.dcp" />
|
||||
<DCCReference Include="Utiles\dxThemeD11.dcp" />
|
||||
<DCCReference Include="Utiles\GUISDK_D11R.dcp" />
|
||||
<DCCReference Include="Utiles\IndyCore.dcp" />
|
||||
<DCCReference Include="Utiles\IndyProtocols.dcp" />
|
||||
<DCCReference Include="Utiles\IndySystem.dcp" />
|
||||
<DCCReference Include="Utiles\Jcl.dcp" />
|
||||
<DCCReference Include="Utiles\JclVcl.dcp" />
|
||||
<DCCReference Include="Utiles\JSDialog100.dcp" />
|
||||
<DCCReference Include="Utiles\JvCmpD11R.dcp" />
|
||||
<DCCReference Include="Utiles\JvCoreD11R.dcp" />
|
||||
<DCCReference Include="Utiles\JvCtrlsD11R.dcp" />
|
||||
<DCCReference Include="Utiles\JvDlgsD11R.dcp" />
|
||||
<DCCReference Include="Utiles\JvMMD11R.dcp" />
|
||||
<DCCReference Include="Utiles\JvNetD11R.dcp" />
|
||||
<DCCReference Include="Utiles\JvPageCompsD11R.dcp" />
|
||||
<DCCReference Include="Utiles\JvStdCtrlsD11R.dcp" />
|
||||
<DCCReference Include="Utiles\JvSystemD11R.dcp" />
|
||||
<DCCReference Include="Utiles\MidasSpeedFix.pas" />
|
||||
<DCCReference Include="Utiles\pckMD5.dcp" />
|
||||
<DCCReference Include="Utiles\pckUCDataConnector.dcp" />
|
||||
<DCCReference Include="Utiles\pckUserControl_RT.dcp" />
|
||||
<DCCReference Include="Utiles\PngComponentsD10.dcp" />
|
||||
<DCCReference Include="Utiles\PNG_D10.dcp" />
|
||||
<DCCReference Include="Utiles\RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="Utiles\RemObjects_Indy_D11.dcp" />
|
||||
<DCCReference Include="Utiles\rtl.dcp" />
|
||||
<DCCReference Include="Utiles\TB2k_D10.dcp" />
|
||||
<DCCReference Include="Utiles\tbx_d10.dcp" />
|
||||
<DCCReference Include="Utiles\uAppInfoUtils.pas" />
|
||||
<DCCReference Include="Utiles\uCalculosUtils.pas" />
|
||||
<DCCReference Include="Utiles\uDataTableUtils.pas" />
|
||||
@ -164,6 +157,14 @@
|
||||
<DCCReference Include="Utiles\uSaveClipboard.pas" />
|
||||
<DCCReference Include="Utiles\uSistemaFunc.pas" />
|
||||
<DCCReference Include="Utiles\uStringsUtils.pas" />
|
||||
<DCCReference Include="Utiles\uValidacionUtils.pas" />
|
||||
<DCCReference Include="Utiles\vcl.dcp" />
|
||||
<DCCReference Include="Utiles\vclactnband.dcp" />
|
||||
<DCCReference Include="Utiles\vcldb.dcp" />
|
||||
<DCCReference Include="Utiles\vcljpg.dcp" />
|
||||
<DCCReference Include="Utiles\VclSmp.dcp" />
|
||||
<DCCReference Include="Utiles\vclx.dcp" />
|
||||
<DCCReference Include="Utiles\xmlrtl.dcp" />
|
||||
</ItemGroup>
|
||||
</Project>
|
||||
<!-- EurekaLog First Line
|
||||
|
||||
147
Source/Base/Utiles/uValidacionUtils.pas
Normal file
147
Source/Base/Utiles/uValidacionUtils.pas
Normal file
@ -0,0 +1,147 @@
|
||||
unit uValidacionUtils;
|
||||
|
||||
interface
|
||||
|
||||
function EsNIFCIF(Cif : String) : Boolean;
|
||||
function DarDC(const Entidad,Sucursal,Cuenta: Variant): String;
|
||||
|
||||
implementation
|
||||
|
||||
uses
|
||||
SysUtils, Variants;
|
||||
|
||||
function Letra(Numero: Integer): string;
|
||||
begin
|
||||
Result:= copy('TRWAGMYFPDXBNJZSQVHLCKET',1 + numero mod 23,1);
|
||||
end;
|
||||
|
||||
function EsNif(NIF: String): Boolean;
|
||||
var
|
||||
Numero: Integer;
|
||||
begin
|
||||
Result:= FALSE;
|
||||
if TryStrToInt(Copy(NIF,1,Length(NIF)-1),Numero) then
|
||||
Result:= Uppercase(Copy(NIF,Length(NIF),1)) = Letra(Numero);
|
||||
end;
|
||||
|
||||
function EsNumero(Num: Char): Boolean;
|
||||
begin
|
||||
try
|
||||
StrToInt(Num);
|
||||
Result:=True;
|
||||
Except
|
||||
result:=False;
|
||||
end;
|
||||
end;
|
||||
|
||||
{Cambiar un carácter por otro en una cadena.}
|
||||
function CadCambioCar(Cadena, CarOrig, CarCambio : String) : String;
|
||||
var
|
||||
i : Integer;
|
||||
Temp : String;
|
||||
begin
|
||||
Temp := '';
|
||||
for i := 1 to Length(Cadena) do
|
||||
if Copy(Cadena, i, 1) = CarOrig then
|
||||
Temp := Temp + CarCambio
|
||||
else
|
||||
Temp := Temp + Copy(Cadena, i, 1);
|
||||
Result := Temp;
|
||||
end;
|
||||
|
||||
|
||||
{ Validar si un CIF introducido es correcto}
|
||||
function EsNIFCIF(Cif : String) : Boolean;
|
||||
var
|
||||
Suma, Control : Integer;
|
||||
n : Byte;
|
||||
begin
|
||||
Result := False;
|
||||
|
||||
{Se pasa todo a mayúsculas limpio de espacios y de caracteres especiales}
|
||||
Cif := UpperCase(Trim(Cif));
|
||||
|
||||
{Se limpia de los caracteres '-' y '/'. }
|
||||
Cif := CadCambioCar(Cif,'-','');
|
||||
Cif := CadCambioCar(Cif,'/','');
|
||||
|
||||
{El cif debe ser de 9 cifras}
|
||||
if Length(Cif) = 9 then
|
||||
begin
|
||||
{Comprobamos que sea un NIF}
|
||||
if EsNumero(Cif[1]) then
|
||||
Result := EsNif(Cif)
|
||||
else
|
||||
{Se comprueba que la letra que designa el tipo de cif sea correcta}
|
||||
if (Pos(Cif[1], 'ABCDEFGHPQSKLMX') = 0) then
|
||||
Result := False
|
||||
else
|
||||
{Se comprueba si es un extranjero, en ese caso se calcula el nif, cambiando la X, por 0}
|
||||
if Cif[1] = 'X' then
|
||||
Result := EsNif('0'+Copy(Cif,2,8))
|
||||
else
|
||||
begin
|
||||
Suma:= StrToInt(Cif[3])+StrToInt(Cif[5])+StrToInt(Cif[7]);
|
||||
for n := 1 to 4 do
|
||||
Suma := Suma + ((2*StrToInt(Cif[2*n])) mod 10)+((2*StrToInt(Cif[2*n])) div 10);
|
||||
Control := 10 - (Suma mod 10);
|
||||
{Se comprueba si es de tipo 'P' o 'S', es decir, Corporaciones Locales (Ayuntamientos, etc.)
|
||||
y Organismos públicos.}
|
||||
if Pos(Cif[1],'PS')<>0 then
|
||||
{Control tipo letra}
|
||||
Result := (Cif[9] = Chr(64+Control))
|
||||
else
|
||||
{Resto de tipos de CIF}
|
||||
begin
|
||||
{Control tipo número}
|
||||
if Control = 10 then
|
||||
Control := 0;
|
||||
Result:= ( StrToInt(Cif[9]) = Control);
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
function CCC(cTemp : String) : Integer;
|
||||
var
|
||||
K,I,nNum,nSum : Integer;
|
||||
cPesos,cNum : String;
|
||||
begin
|
||||
cPesos := '06030709100508040201';
|
||||
nSum := 0;
|
||||
for I := 1 TO length(cTemp) DO
|
||||
begin
|
||||
cNum := Copy(cTemp, length(cTemp) - I + 1, 1);
|
||||
nNum := StrToInt(cNum);
|
||||
nSum := nSum + (nNum * StrToInt(Copy(cPesos, ((i - 1) * 2) + 1, 2)));
|
||||
end;
|
||||
|
||||
K := 11 - (nSum MOD 11);
|
||||
|
||||
Case K OF
|
||||
10:Result := 1;
|
||||
11:Result := 0;
|
||||
Else Result := K;
|
||||
end;
|
||||
end;
|
||||
|
||||
|
||||
function DarDC(const Entidad,Sucursal,Cuenta: Variant): String;
|
||||
var
|
||||
DC1,DC2: String;
|
||||
begin
|
||||
if VarIsNull(Entidad)
|
||||
or VarIsNull(Sucursal)
|
||||
or VarIsNull(Cuenta) then
|
||||
Result := ''
|
||||
else
|
||||
begin
|
||||
DC1 := IntToStr(CCC(VarToStr(Entidad) + VarToStr(Sucursal))) ;
|
||||
DC2 := IntToStr(CCC(VarToStr(Cuenta)));
|
||||
Result := Dc1 + Dc2;
|
||||
end;
|
||||
end;
|
||||
|
||||
|
||||
|
||||
end.
|
||||
@ -53,7 +53,7 @@
|
||||
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
||||
<Borland.ProjectType>VCLApplication</Borland.ProjectType>
|
||||
<BorlandProject>
|
||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">4</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">4</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">4.0.4.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">4.0.4.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages></Excluded_Packages><Source><Source Name="MainSource">FactuGES.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject>
|
||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">4</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">5</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">4.0.5.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">4.0.5.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages></Excluded_Packages><Source><Source Name="MainSource">FactuGES.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject>
|
||||
</ProjectExtensions>
|
||||
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
|
||||
<ItemGroup>
|
||||
|
||||
Binary file not shown.
@ -15,8 +15,6 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
|
||||
TabOrder = 0
|
||||
TabStop = False
|
||||
AutoContentSizes = [acsWidth, acsHeight]
|
||||
ExplicitWidth = 903
|
||||
ExplicitHeight = 506
|
||||
DesignSize = (
|
||||
907
|
||||
591)
|
||||
@ -569,8 +567,6 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 224
|
||||
Width = 224
|
||||
end
|
||||
inherited edtNIFCIF: TcxDBTextEdit
|
||||
Left = 292
|
||||
@ -593,8 +589,6 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitTop = 110
|
||||
ExplicitWidth = 283
|
||||
Width = 283
|
||||
end
|
||||
inherited edtDireccion: TcxMemo
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
|
||||
@ -10,7 +10,7 @@ uses
|
||||
uViewObservaciones, uViewDatosYSeleccionCliente,
|
||||
cxGraphics, cxDropDownEdit, cxImageComboBox, cxDBEdit, cxContainer, cxEdit,
|
||||
cxTextEdit, cxMaskEdit, cxCalendar, dxLayoutControl, cxControls, cxMemo,
|
||||
uViewDireccionEntregaAlbaranCliente, Buttons, ActnList,
|
||||
uViewDireccionEntregaAlbaranCliente, Buttons, ActnList, uBizAlmacenes,
|
||||
|
||||
uBizPedidosCliente, uPedidosClienteController,
|
||||
|
||||
@ -126,6 +126,7 @@ type
|
||||
protected
|
||||
FController : IAlbaranesClienteController;
|
||||
FAlbaran : IBizAlbaranCliente;
|
||||
FAlmacenes : IBizAlmacen;
|
||||
FAlmacenesController : IAlmacenesController;
|
||||
FPedidoAsociado : IBizPedidoCliente;
|
||||
FPedidoController : IPedidosClienteController;
|
||||
@ -160,7 +161,7 @@ implementation
|
||||
|
||||
uses
|
||||
uClientesController, uBizDireccionesContacto,
|
||||
schAlbaranesClienteClient_Intf, uBizAlmacenes, uDateUtils,
|
||||
schAlbaranesClienteClient_Intf, uDateUtils,
|
||||
uDialogUtils, uProvinciasPoblacionesController, uStringsUtils;
|
||||
|
||||
|
||||
@ -337,6 +338,8 @@ begin
|
||||
FPedidoController := TPedidosClienteController.Create;
|
||||
|
||||
FViewClienteAlbaran := frViewDatosYSeleccionClienteAlbaran1;
|
||||
|
||||
FAlmacenes := Nil;
|
||||
FAlmacenesController := TAlmacenesController.Create;
|
||||
end;
|
||||
|
||||
@ -350,6 +353,7 @@ begin
|
||||
FreeANDNIL(FPoblaciones);
|
||||
|
||||
FController := Nil;
|
||||
FAlmacenes := Nil;
|
||||
FFormasPago := Nil;
|
||||
FFormasPagoController := NIL;
|
||||
FViewClienteAlbaran := Nil;
|
||||
@ -452,7 +456,8 @@ begin
|
||||
dsFormaPago.DataTable := FFormasPago.DataTable;
|
||||
dsFormaPago.DataTable.Active := True;
|
||||
|
||||
dsAlmacenes.DataTable := (FAlmacenesController.BuscarTodos).DataTable;
|
||||
FAlmacenes := FAlmacenesController.BuscarTodos;
|
||||
dsAlmacenes.DataTable := FAlmacenes.DataTable;
|
||||
dsAlmacenes.DataTable.Active := True;
|
||||
|
||||
//Para que no me cambie el estilo del campo
|
||||
|
||||
Binary file not shown.
@ -392,6 +392,7 @@ inherited frViewCliente: TfrViewCliente
|
||||
end
|
||||
inherited eNIFCIF: TcxDBTextEdit
|
||||
Left = 338
|
||||
Properties.OnValidate = eNIFCIFPropertiesValidate
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
|
||||
@ -57,6 +57,8 @@ type
|
||||
procedure eMailAdministracionPropertiesValidate(Sender: TObject;
|
||||
var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
|
||||
procedure actMandarCorreoAdministracionUpdate(Sender: TObject);
|
||||
procedure eNIFCIFPropertiesValidate(Sender: TObject;
|
||||
var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
|
||||
protected
|
||||
FGrupoController: IGruposClienteController;
|
||||
procedure SetContacto(const Value: IBizContacto); override;
|
||||
@ -67,7 +69,7 @@ implementation
|
||||
{$R *.dfm}
|
||||
|
||||
uses
|
||||
uBizGruposCliente;
|
||||
uValidacionUtils, uBizGruposCliente;
|
||||
|
||||
type
|
||||
THackcxDBHyperLinkEdit = class(TcxDBHyperLinkEdit);
|
||||
@ -162,6 +164,14 @@ begin
|
||||
DisplayValue := StringReplace(DisplayValue, (Sender as TcxDBHyperLinkEdit).Properties.Prefix, '', []);
|
||||
end;
|
||||
|
||||
procedure TfrViewCliente.eNIFCIFPropertiesValidate(Sender: TObject;
|
||||
var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
|
||||
begin
|
||||
inherited;
|
||||
if not EsNIFCIF(DisplayValue) then
|
||||
Application.MessageBox('El NIF/CIF introducido no es correcto', 'Atención', MB_OK);
|
||||
end;
|
||||
|
||||
procedure TfrViewCliente.SetContacto(const Value: IBizContacto);
|
||||
begin
|
||||
inherited;
|
||||
|
||||
@ -448,7 +448,7 @@ begin
|
||||
raise Exception.Create('Debe indicar la fecha de este pedido');
|
||||
|
||||
if (Length(APedido.CALLE) = 0) and (APedido.ID_ALMACEN = 0) and (APedido.ID_OBRA = 0) then
|
||||
raise Exception.Create('Debe indicar una dirección de entrega o almacén para este pedido');
|
||||
raise Exception.Create('Debe indicar la calle de la dirección de entrega o almacén para este pedido');
|
||||
|
||||
if (APedido.Detalles.DataTable.RecordCount = 0) then
|
||||
raise Exception.Create('Debe indicar al menos un concepto en el contenido del pedido');
|
||||
|
||||
Binary file not shown.
@ -1,4 +1,4 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<PropertyGroup>
|
||||
<ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>
|
||||
@ -35,7 +35,8 @@
|
||||
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
||||
<Borland.ProjectType />
|
||||
<BorlandProject>
|
||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters><Parameters Name="RunParams">/standalone</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">4</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">4</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">4.0.4.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">4.0.4.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">viernes, 01 de octubre de 2010 19:02</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
|
||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters><Parameters Name="RunParams">/standalone</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">4</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">5</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">4.0.5.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">4.0.5.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">miércoles, 13 de octubre de 2010 13:55</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
|
||||
|
||||
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPSCoreD11.bpl">ExpressPrinting System by Developer Express Inc.</Excluded_Packages>
|
||||
</Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
|
||||
</ProjectExtensions>
|
||||
|
||||
Reference in New Issue
Block a user