Funcion
Cree la sigueinte funcion, sin embargo siempre me devuelve el resultado 1, no continuan con el ELSE. Alguien tiene una idea, son principiante.
Gracias
function SQLGetReEnvios (strMedResub : string) :string ;
var
strSQL : string;
begin
strSQL := 'SELECT MedReSub' + 'FROM Hcinsuranceclaimheader';
if strMedReSub = '' then
begin
result := '1';
end
Else
begin
result := '7';
end;
end;
end.
|