Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > OOP
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 24-09-2014
Avatar de oscarac
[oscarac] oscarac is offline
Miembro Premium
 
Registrado: sep 2006
Ubicación: Lima - Perú
Posts: 2.009
Poder: 20
oscarac Va por buen camino
Capturar Valor de variable dentro de Procedimiento

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
__________________
Dulce Regalo que Satanas manda para mi.....
Responder Con Cita
  #2  
Antiguo 24-09-2014
Avatar de oscarac
[oscarac] oscarac is offline
Miembro Premium
 
Registrado: sep 2006
Ubicación: Lima - Perú
Posts: 2.009
Poder: 20
oscarac Va por buen camino
es bien cierto q si dejas de programar te olvidas las cosas
ya esta solucionado

quiza a alguien le pueda servir

todo esta en la declaracion del procedimiento debio ser asi

Código Delphi [-]
Function BuscarNumeroFactura (TipoDoc : string; Serie:string; VAR Documento :String  ) :string;

gracias de todas maneras
__________________
Dulce Regalo que Satanas manda para mi.....
Responder Con Cita
  #3  
Antiguo 24-09-2014
Avatar de nlsgarcia
[nlsgarcia] nlsgarcia is offline
Miembro Premium
 
Registrado: feb 2007
Ubicación: Caracas, Venezuela
Posts: 2.206
Poder: 21
nlsgarcia Tiene un aura espectacularnlsgarcia Tiene un aura espectacular
oscarac,

Cita:
...pasar el valor de una variable a otra Global dentro de un procedimiento...


Revisa este código
Código Delphi [-]
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

   function GetDocument1(Serie : String) : String;
   var
      Numero : Integer;
   begin
      Numero := 789;
      Result := Format('%s-%.7d',[Serie,Numero]); // Result := 123-0000789
   end;

   procedure GetDocument2(Serie : String; var Document : String);
   var
      Numero : Integer;
   begin
      Numero := 789;
      Document := Format('%s-%.7d',[Serie,Numero]); // Document := 123-0000789
   end;

var
   Serie, Document : String;

begin

   Serie := '123';

   Document := GetDocument1(Serie);
   ShowMessage(Document);

   Document := EmptyStr;
   GetDocument2(Serie, Document);
   ShowMessage(Document);

end;

end.
El código anterior en Delphi 7 sobre Windows 7 Professional x32, es un ejemplo de retorno de valores por medio de funciones y procedimientos con variables por referencia.

Espero sea útil

Nelson.

Última edición por nlsgarcia fecha: 24-09-2014 a las 18:26:23.
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Problemas al capturar de una consulta SQL el valor de una columna en variable Float jandres007 Conexión con bases de datos 4 17-10-2013 02:30:47
Asignar el valor de una variable de php a una variable js que puede no existir jandroruiz PHP 5 04-03-2013 13:23:02
llamar procedimiento dentro de otro procedimiento novato_erick SQL 23 28-10-2012 00:33:02
condicionar un procedimiento dentro de otro procedimiento yossi Varios 7 17-05-2010 11:47:14
capturar el valor de una variable en una pagina web DISIMULA Internet 0 19-03-2007 19:34:31


La franja horaria es GMT +2. Ahora son las 07:57:38.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi