87 respuestas en este tema

[®k2]

Cod_Cliente esta en el codigo del primer boton buscar y Cod_Parte esta en segundo boton buscar, (estoy usando D2009) no creo que la version sea el problema, talvez es una novatada de mi parte., Salu2

[Caral]

Hola
Vamos por partes:
Hay como bien dices los botones que llaman a los formularios:
Mantenimiento de clientes:

delphi

procedure TFClientes.AadirClientes1Click(Sender: TObject);
begin
    FMantClientes:=TFMantClientes.Create(self);
   try
    FMantClientes.ShowModal;
   finally
    FMantClientes.Free;
   end;
end;

Y mantenimiento de Artí­culos:

delphi

procedure TFClientes.AadirArticulos1Click(Sender: TObject);
begin
    FArticulos:=TFArticulos.Create(self);
   try
    FArticulos.ShowModal;
   finally
    FArticulos.Free;
   end;
end;

Bien:
Si abres cualquiera de estos dos formularios veras que en la parte PUBLIC existen estas variables.
Por que ahi?
Por que al ser publicas pueden ser llamadas por otro form, ademas, por supuesto, contener la informacion que se necesite.
No tiene nada que ver delphi en esto, es código, son variables.
Revisa bien el código, veras cosas que a primera vista no tienen sentido, bueno a segunda vista tampoco , pero no esperes mucho de este novato.
Saludos

[®k2]

Nitido... , descarge el archivo .zip  revise bien lo que tiene y efectivamente hay estaban esas variables esperandome muy sonrientes  , te agradezco CARAL primero que hayas creado el Tutorial (Como hacer un programa de Facturacion) y segundo que me dieras el apoyo con esto,  Salu2

[Caral]

Hola
Me alegro que te sirva el tutorial.
Si quieres hacer tu propio proyecto solo crea un nuevo tema o hilo y lo hacemos paso a paso.
Mejor forma de aprender que esa no hay.
Saludos

[Faust]

Excelente tutorial...

Ando leyendo todaví­a...

[caer8216]

El archivo Bdatos.zip esta corrupto, me lo podrian mandar. GRACIAS

[Master23]

El archivo Bdatos.zip esta corrupto, me lo podrian mandar. GRACIAS

Fijate en la primera pagina de este tutorial en la ultima parte donde caral explica las ultimas cosas del tutorial dice aquí están todos los archivos completos en ese archivo está todo y está completo incluyendo la base de datos, espero haberte ayudado,cuídate.

[caer8216]

No puedo obtener los archivos, por favor ayuda

[caer8216]

Porfa necesito esos archivos

[Caral]

Hola
El archivo esta donde te indicaron.
De todos modos AQUI esta el enlace de todo el codigo.
Saludos

[caer8216]

Hola
El archivo esta donde te indicaron.
De todos modos AQUI esta el enlace de todo el codigo.
Saludos

Mira esto es lo que me sale cuando doy click en el link

¡Advertencia!
No estás permitido para ver la Zona de Descargas
Por favor ingresa abajo o haz clic registrar una cuenta en Comunidad Delphiaccess.

Podrias colocar los archivos en un zip porfavor.
De antemano muchas gracias

[caer8216]

Vamos a poner el primer codigo del boton buscar (el que esta en la imagen a la par de clientes).
Este seria:

delphi

procedure TFFactura.Button3Click(Sender: TObject);
begin
    FMantClientes:=TFMantClientes.Create(self);
   try
    FMantClientes.ShowModal;
   finally
   If FMantClientes.Cod_Cliente <> '' then
   ECodCliente.Text := FMantClientes.Cod_Cliente;
   Label2.Caption:= QuotedStr(FMantClientes. NombreCliente);
   FMantClientes.Free;
   end;
 
end;

Seguimos......
Saludos

Me salen los siguientes errores:
[DCC Error] Unit4.pas(90): E2010 Incompatible types: 'string' and 'TDBEdit'
[DCC Error] Unit4.pas(91): E2010 Incompatible types: 'string' and 'TWideStringField'
[DCC Error] Unit4.pas(92): E2250 There is no overloaded version of 'QuotedStr' that can be called with these arguments

[Caral]

Hola
Me da la impresion de que para bajar el archivo hay que loguearse.
De todos modos aqui lo pongo en un zip.
Saludos
Pd: Con relacion a los errores estos se deben a que no se esta recibiendo el dato del form que los envio, revisa bien el codigo, te falta colocar una variable publica.

Archivos adjuntos

•  2130_109de75c5fcc8a527f247b6bd76175ee13d946a6.zip   81,13KB   82 descargas

[caer8216]

Hola
Me da la impresion de que para bajar el archivo hay que loguearse.
De todos modos aqui lo pongo en un zip.
Saludos
Pd: Con relacion a los errores estos se deben a que no se esta recibiendo el dato del form que los envio, revisa bien el codigo, te falta colocar una variable publica.

GRACIAS Caral, revise uno por uno de los Form, y tenia problemas en dos codigos de facturacion, ahora ya me quedo andando excelente. Que buen aporte, ahora le estoy dando los retoques.

[caer8216]

Ya solucione los errores y el programa me anda bien, pero tengo el siguiente problema:
Cuando le doy en el boton buscar entra al FMantClientes, pero no me aparece exactamente lo q busco, si alguien me puede ayudar porfavor me urge.

Vamos a poner el primer codigo del boton buscar (el que esta en la imagen a la par de clientes).
Este seria:

delphi

procedure TFFactura.Button3Click(Sender: TObject);
begin
    FMantClientes:=TFMantClientes.Create(self);
   try
    FMantClientes.ShowModal;
   finally
   If FMantClientes.Cod_Cliente <> '' then
   ECodCliente.Text := FMantClientes.Cod_Cliente;
   Label2.Caption:= QuotedStr(FMantClientes. NombreCliente);
   FMantClientes.Free;
   end;
 
end;

Seguimos......
Saludos

Me salen los siguientes errores:
[DCC Error] Unit4.pas(90): E2010 Incompatible types: 'string' and 'TDBEdit'
[DCC Error] Unit4.pas(91): E2010 Incompatible types: 'string' and 'TWideStringField'
[DCC Error] Unit4.pas(92): E2250 There is no overloaded version of 'QuotedStr' that can be called with these arguments

[Caral]

Hola
Lo que esta pasando es que te falta asignar las variables que traen esos datos a ese form.
Revisa bien el tutorial y el codigo.
Saludos

[Tormix]

Hola,

lo primero de todo darte las gracias por el magnífico tutorial. He buscado bastante por internet y es de lo mejorcito. Estoy haciendo un programilla similar al del tuto y me sale un error a ver si me puedes ayudar.
Es este error de memoria.

'Access violation at address 00547842 in module.

Se da cuando intento abrir el segundo form desde el menú, en la asignación de la variable.

delphi

procedure TForm5.Nuevocliente1Click(Sender: TObject);
begin
 
    Fr_clientes:=Fr_clientes.Create(self); //Justo aquí.
 
   try
    Fr_clientes.ShowModal;
   finally
    Fr_clientes.Free;
   end;
end;

Tengo el "uses" de la otra unidad donde está el formulario a abrir igual que en el tutorial.
¿¿A qué debe ser??

Por cierto, uso Delphi 2010.

Muchas gracias!

[enecumene]

Debes agregarle una T ya que se trata de la Clase TForm:

delphi

Fr_clientes := TFr_clientes.Create(self); //Justo aquí.

Saludos.

[Tormix]

Buffffffff!!!

Horas y horas peleándome por no haberme fijado!!

Muchas gracias!!

[enecumene]

De nada amigo, a todos nos pasa de vez en cuando, esperamos verlo mas seguido por estos lares.

Saludos.