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;
begin
ASeleccionados := (Self.Buscar(ID_NULO) as IBizAlbaranCliente);
CopyDataTableDA3(AAlbaran.DataTable, ASeleccionados.DataTable, True);
CopyDataTableDA5(AAlbaran.DataTable, ASeleccionados.DataTable, True);
Result := ASeleccionados;
end;
@ -1047,4 +1047,4 @@ begin
end;
end.

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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