[[oscarac]]

buenas noches

intento pasar el valor de una variable a otra Global dentro de un procedimiento

algo asi como esto

Código Delphi [-]
  
  w_DOC := '';
  BuscarNumeroFactura(edtTdc.Text, _Serie, w_DOC);
  edtnumero.Text := w_DOC;

Código Delphi [-]
Function BuscarNumeroFactura (TipoDoc : string; Serie:string; Documento :String  ) :string;
var _Numero ouble;
begin
  dmComercio.qryBuscarNumeroFactura.Parameters.ParamByName('Empresa').Value := dmComercio.g_CodigoEmpresa;
  dmComercio.qryBuscarNumeroFactura.Parameters.ParamByName('Indice').Value := TipoDoc;
  dmComercio.qryBuscarNumeroFactura.Open;
  _Numero := dmComercio.qryBuscarNumeroFacturaNumero.AsFloat;
  Documento := Serie + '-' + Llenar(FloatToStr(_Numero), 7);  // LLenar rellena de ceros tantas veces como el parametro
// la variable documento quedaria mas o menos asi "001-1234567"
  
end;

Código SQL [-]
Select * 
from 
tblNumeracion
Where 
Empresa = :Empresa and
indice = :Indice

lo que pretendo es que el campo w_DOC tome el valor de la variable "Documento" dentro del procedimiento

espero me haya dejado entender