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);
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