Sustitución de las llamadas a la función CopyDataTableDA3 por la nueva CopyDataTableDA5.

git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@380 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
David Arranz 2008-05-21 15:15:41 +00:00
parent 936abc3407
commit d34b36b73a
14 changed files with 26 additions and 16 deletions

View File

@ -823,7 +823,7 @@ var
ASeleccionados : IBizAlbaranCliente; ASeleccionados : IBizAlbaranCliente;
begin begin
ASeleccionados := (Self.Buscar(ID_NULO) as IBizAlbaranCliente); ASeleccionados := (Self.Buscar(ID_NULO) as IBizAlbaranCliente);
CopyDataTableDA3(AAlbaran.DataTable, ASeleccionados.DataTable, True); CopyDataTableDA5(AAlbaran.DataTable, ASeleccionados.DataTable, True);
Result := ASeleccionados; Result := ASeleccionados;
end; end;
@ -1047,4 +1047,4 @@ begin
end; end;
end. end.

View File

@ -898,7 +898,7 @@ var
ASeleccionados : IBizAlbaranProveedor; ASeleccionados : IBizAlbaranProveedor;
begin begin
ASeleccionados := (Self.Buscar(ID_NULO) as IBizAlbaranProveedor); ASeleccionados := (Self.Buscar(ID_NULO) as IBizAlbaranProveedor);
CopyDataTableDA3(AAlbaran.DataTable, ASeleccionados.DataTable, True); CopyDataTableDA5(AAlbaran.DataTable, ASeleccionados.DataTable, True);
Result := ASeleccionados; Result := ASeleccionados;
end; end;
@ -1084,4 +1084,4 @@ begin
end; end;
end. end.

View File

@ -210,7 +210,7 @@ var
ASeleccionados : IBizContacto; ASeleccionados : IBizContacto;
begin begin
ASeleccionados := Self.Buscar(ID_NULO); ASeleccionados := Self.Buscar(ID_NULO);
CopyDataTableDA3(AContactos.DataTable, ASeleccionados.DataTable, True); CopyDataTableDA5(AContactos.DataTable, ASeleccionados.DataTable, True);
Result := ASeleccionados; Result := ASeleccionados;
end; end;
@ -312,3 +312,4 @@ begin
end; end;
end. end.

View File

@ -850,7 +850,7 @@ var
ASeleccionados : IBizFacturaCliente; ASeleccionados : IBizFacturaCliente;
begin begin
ASeleccionados := (Self.Buscar(ID_NULO) as IBizFacturaCliente); ASeleccionados := (Self.Buscar(ID_NULO) as IBizFacturaCliente);
CopyDataTableDA3(AFacturasCliente.DataTable, ASeleccionados.DataTable, True); CopyDataTableDA5(AFacturasCliente.DataTable, ASeleccionados.DataTable, True);
Result := ASeleccionados; Result := ASeleccionados;
end; end;
@ -1098,3 +1098,4 @@ begin
end; end;
end. end.

View File

@ -842,7 +842,7 @@ var
ASeleccionados : IBizFacturaProveedor; ASeleccionados : IBizFacturaProveedor;
begin begin
ASeleccionados := (Self.Buscar(ID_NULO) as IBizFacturaProveedor); ASeleccionados := (Self.Buscar(ID_NULO) as IBizFacturaProveedor);
CopyDataTableDA3(AFacturasProveedor.DataTable, ASeleccionados.DataTable, True); CopyDataTableDA5(AFacturasProveedor.DataTable, ASeleccionados.DataTable, True);
Result := ASeleccionados; Result := ASeleccionados;
end; end;
@ -1071,3 +1071,4 @@ begin
end; end;
end. end.

View File

@ -371,7 +371,7 @@ var
ASeleccionados : IBizInventario; ASeleccionados : IBizInventario;
begin begin
ASeleccionados := (Self.Buscar(ID_NULO) as IBizInventario); ASeleccionados := (Self.Buscar(ID_NULO) as IBizInventario);
CopyDataTableDA3(AArticulos.DataTable, ASeleccionados.DataTable, True); CopyDataTableDA5(AArticulos.DataTable, ASeleccionados.DataTable, True);
Result := ASeleccionados; Result := ASeleccionados;
end; end;
@ -1151,3 +1151,4 @@ end;
} }
end. end.

View File

@ -642,7 +642,7 @@ var
ASeleccionados : IBizPedidoProveedor; ASeleccionados : IBizPedidoProveedor;
begin begin
ASeleccionados := (Self.Buscar(ID_NULO) as IBizPedidoProveedor); ASeleccionados := (Self.Buscar(ID_NULO) as IBizPedidoProveedor);
CopyDataTableDA3(APedido.DataTable, ASeleccionados.DataTable, True); CopyDataTableDA5(APedido.DataTable, ASeleccionados.DataTable, True);
Result := ASeleccionados; Result := ASeleccionados;
end; end;
@ -796,4 +796,4 @@ begin
end; end;
end. end.

View File

@ -606,7 +606,7 @@ var
ASeleccionados : IBizPresupuestoCliente; ASeleccionados : IBizPresupuestoCliente;
begin begin
ASeleccionados := (Self.Buscar(ID_NULO) as IBizPresupuestoCliente); ASeleccionados := (Self.Buscar(ID_NULO) as IBizPresupuestoCliente);
CopyDataTableDA3(APresupuesto.DataTable, ASeleccionados.DataTable, True); CopyDataTableDA5(APresupuesto.DataTable, ASeleccionados.DataTable, True);
Result := ASeleccionados; Result := ASeleccionados;
end; end;
@ -810,3 +810,4 @@ begin
end; end;
end. end.

View File

@ -807,7 +807,7 @@ var
ASeleccionados : IBizRecibosCliente; ASeleccionados : IBizRecibosCliente;
begin begin
ASeleccionados := (Self.Buscar(ID_NULO) as IBizRecibosCliente); ASeleccionados := (Self.Buscar(ID_NULO) as IBizRecibosCliente);
CopyDataTableDA3(ARecibosCliente.DataTable, ASeleccionados.DataTable, True); CopyDataTableDA5(ARecibosCliente.DataTable, ASeleccionados.DataTable, True);
Result := ASeleccionados; Result := ASeleccionados;
end; end;
@ -904,3 +904,4 @@ begin
end; end;
end. end.

View File

@ -748,7 +748,7 @@ var
ASeleccionados : IBizRecibosProveedor; ASeleccionados : IBizRecibosProveedor;
begin begin
ASeleccionados := (Self.Buscar(ID_NULO) as IBizRecibosProveedor); ASeleccionados := (Self.Buscar(ID_NULO) as IBizRecibosProveedor);
CopyDataTableDA3(ARecibosProveedor.DataTable, ASeleccionados.DataTable, True); CopyDataTableDA5(ARecibosProveedor.DataTable, ASeleccionados.DataTable, True);
Result := ASeleccionados; Result := ASeleccionados;
end; end;
@ -828,3 +828,4 @@ begin
end; end;
end. end.

View File

@ -449,7 +449,7 @@ var
ASeleccionados : IBizRemesaCliente; ASeleccionados : IBizRemesaCliente;
begin begin
ASeleccionados := (Self.Buscar(ID_NULO) as IBizRemesaCliente); ASeleccionados := (Self.Buscar(ID_NULO) as IBizRemesaCliente);
CopyDataTableDA3(ARemesasCliente.DataTable, ASeleccionados.DataTable, True); CopyDataTableDA5(ARemesasCliente.DataTable, ASeleccionados.DataTable, True);
Result := ASeleccionados; Result := ASeleccionados;
end; end;
@ -595,3 +595,4 @@ begin
end; end;
end. end.

View File

@ -450,7 +450,7 @@ var
ASeleccionados : IBizRemesaProveedor; ASeleccionados : IBizRemesaProveedor;
begin begin
ASeleccionados := (Self.Buscar(ID_NULO) as IBizRemesaProveedor); ASeleccionados := (Self.Buscar(ID_NULO) as IBizRemesaProveedor);
CopyDataTableDA3(ARemesasProveedor.DataTable, ASeleccionados.DataTable, True); CopyDataTableDA5(ARemesasProveedor.DataTable, ASeleccionados.DataTable, True);
Result := ASeleccionados; Result := ASeleccionados;
end; end;
@ -597,3 +597,4 @@ begin
end; end;
end. end.

View File

@ -305,8 +305,9 @@ var
ASeleccionados : IBizTipoIVA; ASeleccionados : IBizTipoIVA;
begin begin
ASeleccionados := (Self.Buscar(ID_NULO) as IBizTipoIVA); ASeleccionados := (Self.Buscar(ID_NULO) as IBizTipoIVA);
CopyDataTableDA3(ATipoIVA.DataTable, ASeleccionados.DataTable, True); CopyDataTableDA5(ATipoIVA.DataTable, ASeleccionados.DataTable, True);
Result := ASeleccionados; Result := ASeleccionados;
end; end;
end. end.