10 respuestas en este tema

[Caral]

Hola
No se me ocurrio otro nombre.
A ver si puedo entender algo:
En access cuando haces una consulta la que servira para hacer un reporte te indica si las tablas no estan enlazadas y tienes que enlazarlas para que puedas hacer la consulta.
Por ejemplo:
Tabla articulos campo CodParte
Tabla FacturaItem campo Codparte.

Si no se enlazan, no se puede hacer el reporte.
Para enlazarlas sale una pantalla donde estan las tablas con sus campos como cuadritos y ahi se definen las dependencias.

Bueno; Despuedes de ver y ver, lo que no entiendo es como lo hace Firebird?, Lo hace?, lo necesita hacer?.

Tengo esta consulta, que creo que me esta dando ese error:

sql

SELECT  Factura.CodFactura, Factura.CodOrdenProd, Factura.Fecha, Factura.CodCliente, Clientes.NombreCliente,
Clientes.Direccion1, Clientes.Direccion2, Clientes.Contacto, Clientes.Telefono, Factura.Terminos,
Factura.OrdenCompra, Factura.CodVendedor, FacturaItem.CodParte, FacturaItem.Impuesto,
MAX (FacturaItem.Serie) AS LastOfSerie,  Descripcion|| ' ' ||Categoria|| ' ' ||SubCategoria AS Descr,
SUM(FacturaItem.Cantidad) AS SumOfCantidad, FacturaItem.Precio, SUM(Cantidad*Precio) AS TotLinea,
Factura.MntSubTotal, Factura.MntDescuento, Factura.MntImpuesto, Factura.MntTotal, Factura.TC, Factura.Tipo
FROM Articulos RIGHT JOIN (Clientes RIGHT JOIN (Factura LEFT JOIN FacturaItem ON (Factura.Tipo = FacturaItem.Tipo)
AND (Factura.CodFactura = FacturaItem.CodFactura) AND (Factura.Secuencia = FacturaItem.Secuencia))
ON Clientes.CodCliente = Factura.CodCliente) ON Articulos.CodParte = FacturaItem.CodParte
GROUP BY Factura.CodFactura, Factura.CodOrdenProd, Factura.Fecha, Factura.CodCliente, Clientes.NombreCliente,
Clientes.Direccion1, Clientes.Direccion2, Clientes.Contacto, Clientes.Telefono, Factura.Terminos,
Factura.OrdenCompra, Factura.CodVendedor, FacturaItem.CodParte,
FacturaItem.Impuesto, Descripcion|| ' ' ||Categoria|| ' ' ||SubCategoria, FacturaItem.Precio,
Factura.MntSubTotal, Factura.MntDescuento, Factura.MntImpuesto, Factura.MntTotal, Factura.TC, Factura.Tipo
HAVING (((Factura.CodFactura)= :fact) AND ((Factura.Tipo)= :TipoFact));

Ya hice que no me diera errores de escritura, pero me sale este error:

Undefined name.
Dynamic SQL Error.
SQL error code = -204.
Ambiguous field name between table ARTICULOS and table FACTURAITEM .
DESCRIPCION.

Para mi es el problema de relacion entre las tablas.
Alguna idea?.
Saludos

[Wilson]

Hola caral, creo que el error está aquí

sql

SUM(Cantidad*Precio) AS TotLinea,

cambialo por

sql

SUM(FacturaItem.Cantidad * FacturaItem.Precio) AS TotLinea,

[Wilson]

Ademas a los campos Descripcion, Categoria y Subcategoria, es mejor colocarles la Tabla mas el punto para evitar ambiguedades.

Saludos

[egostar]

El error es porque en las dos tablas tienes el mismo nombre de campo, debes indicarle exactamente a que tabla te refieres.

sql

.....
Descripcion|| ' ' ||Categoria|| ' ' ||SubCategoria
.....

El campos Descripcion, Categoria y SubCategoria no tienen su Alias o Tabla correspondiente.

Salud OS


PD, Se me adelanto amigo Wilson

[Caral]

Hola
Gracias amigo.
Efectivamente el problema estaba en el campo Descripcion que esta en las dos tablas.
A la hora de concatenar no sabia de que tabla tomarlo (que bruto Firebird jejeje).
Bueno, lo cambie , le puse la tabla articulos y lo hizo.
Ahora sigo teniendo el mismo error, pero ya en el programa.
No se Ni donde esta, ni como solucionarlo.
Saludos

[Caral]

Hola
Este es el codigo del boton que me da el error que no se, ni donde esta ni como encontrarlo.

delphi

procedure TFFactura.BitBtn4Click(Sender: TObject);
var numfact, i, OrdTrans : integer;
    Fecha, FechaVence, iv: String;
    FPagoOK : Boolean;
    MntContado, MntCheque, MntTarjeta, MntOtros, Saldo, Pagado :String;
    BalanceAnterior, BalanceTotal : Double;
    Tipo :char;
begin
   If cbTipo.ItemIndex = 0 then
   begin
      FFormaPago:=TFFormaPago.Create(self);
      FFormaPago.Valores(SubTotal, Impuesto, Total);
      try
         FFormaPago.ShowModal;
      finally
         FPagoOK := FFormaPago.OK;
         MntContado := FFormaPago.FEContado.Text;
         MntCheque  := FFormaPago.FECheque.Text;
         MntTarjeta := FFormaPago.FETarjeta.Text;
         MntOtros   := FFormaPago.FEOtro.Text;
         Saldo      := FloatToStr(FFormaPago.Saldo);
         Pagado     := FloatToStr(FFormaPago.Pagado);
         FFormaPago.Free;
      end;
      Tipo:= 'F';
   end else
   begin
      FPagoOK := True;
      MntContado := '0';
      MntCheque  := '0';
      MntTarjeta := '0';
      MntOtros   := '0';
      Saldo      := '0';
      Pagado     := '0';
      Tipo := 'C';
   end;
   If FPagoOk then
   begin
     ShortDateFormat := 'yyyy-mm-dd';
     Fecha := DateToStr(now);
     FechaVence := DateToStr(IncDay(now,(StrToInt(Label21.Caption))));
     ShortDateFormat := 'dd/mm/yyyy';
  // Obtener el numero de factura
     QTemp.SQL.Text := 'Select Max(CodFactura) From Factura where Tipo = '+QuotedStr(Tipo);
     QTemp.Open;
     If QTemp.RecordCount = 0 then NumFact:=1
     else NumFact := QTemp.Fields[0].AsInteger+1;
     QTemp.Close;
  //Iniciar la Transaccion
    // DataModule1.AC1.BeginTrans;
     try
     If Edit2.Text <> '' then
  // Insertar en la tabla de Factura Si tiene ORDEN
        QTemp.SQL.Text := 'Insert Into Factura Values '+
           '( '+IntToStr(NumFact)+','+IntToStr(0)+', '+QuotedStr(Tipo)+', '+QuotedStr(Fecha)+', '+Edit1.Text+', '+QuotedStr(Label19.Caption)+', '+QuotedStr(Edit4.Text)+', '+QuotedStr(Edit5.Text)+', '+QuotedStr(Edit3.Text)+
           ', ''N'', '+FloatToStr(0.13)+', ''N'', '+FloatToStr(0.00)+', '+QuotedStr(SGTotal.Cells[1,0])+', '+QuotedStr(SGTotal.Cells[1,1])+', '+
           QuotedStr(SGTotal.Cells[1,2])+', '+QuotedStr(SGTotal.Cells[1,3])+', '+Edit2.Text+', '+QuotedStr(MntContado)+', '+QuotedStr(MntCheque)+', '+
           QuotedStr(MntTarjeta)+', '+QuotedStr(MntOtros)+', '+QuotedStr(Saldo)+', '+QuotedStr(Pagado)+', '+QuotedStr(FloatToStr(TipoCambio))+')'
        else
  // Insertar en la tabla de Factura si NO tiene ORDEN
        QTemp.SQL.Text := 'Insert Into Factura ( CodFactura, Secuencia, Tipo, Fecha, CodCliente, Terminos, OrdenCompra, CodVendedor, Excento, TasaImpuesto, Anulada, MntEnvio, MntSubTotal, MntDescuento, MntImpuesto, MntTotal, '+
        'MntContado, MntCheque, MntTarjeta, MntOtros, Saldo, Pagado, TC) Values '+
           '( '+IntToStr(NumFact)+', '+IntToStr(0)+', '+QuotedStr(Tipo)+', '+QuotedStr(Fecha)+', '+Edit1.Text+', '+QuotedStr(Label19.Caption)+', '+QuotedStr(Edit4.Text)+', '+QuotedStr(Edit5.Text)+', '+QuotedStr(Edit3.Text)+
           ', ''N'', '+FloatToStr(0.13)+', ''N'','+FloatToStr(0.00)+', '+QuotedStr(SGTotal.Cells[1,0])+', '+QuotedStr(SGTotal.Cells[1,1])+', '+
           QuotedStr(SGTotal.Cells[1,2])+', '+QuotedStr(SGTotal.Cells[1,3])+', '+QuotedStr(MntContado)+', '+QuotedStr(MntCheque)+', '+
           QuotedStr(MntTarjeta)+', '+QuotedStr(MntOtros)+', '+QuotedStr(Saldo)+', '+QuotedStr(Pagado)+', '+QuotedStr(FloatToStr(TipoCambio))+')';
        QTemp.ExecSQL;
 
   //Insertar en la tabla de FacturaItem
        For i := 1 to SgFact.RowCount-1 do
         begin
           if SGFact.Cells[6,i] = 'Si' then iv:='True)' else iv:='False)';
           QTemp.SQL.Text := 'Insert Into FacturaItem Values '+
           '( '+IntToStr(numfact)+', '+IntToStr(0)+', '+QuotedStr(Tipo)+', '+IntToStr(i)+', '+QuotedStr(SGFact.Cells[0,i])+', '+QuotedStr(SGFact.Cells[1,i])+', '+QuotedStr(SGFact.Cells[2,i])+', '+QuotedStr(SGFact.Cells[3,i])+', '+
           QuotedStr(SGFact.Cells[4,i])+', '+iv;
           QTemp.ExecSQL;
         end;
   //Calcula el siguiente numero de OrdTrans
         QTemp.SQL.Text := 'SELECT Max(OrdTrans) AS Expr1 '+
                           'FROM CxCobrar;';
         QTemp.Active := True;
         If QTemp.RecordCount = 0 then OrdTrans:=1
         else OrdTrans := QTemp.Fields[0].AsInteger+1;
         QTemp.Close;
 
        If Tipo = 'F' then
        begin
   //  Insertar en la tabla de CxCobrar
           QTemp.SQL.Text := 'Select BalanceTotal From CxCobrar where CodCliente = '+Edit1.Text+
                             ' Order By OrdTrans;';
           QTemp.Open;
           IF QTemp.RecordCount = 0 then BalanceAnterior := 0
           else
           begin
              QTemp.Last;
              BalanceAnterior := QTemp.Fields[0].AsFloat;
           end;
           QTemp.Close;
           BalanceTotal := StrToFloat(Saldo) + BalanceAnterior;
 
           QTemp.SQL.Text := 'Insert Into CxCobrar ( CodTransac, Secuencia, TipoTransac, OrdTrans, FechaTransac, FechaVencimiento, CodCliente, SubTotal, Descuento, Impuesto, Total, Efectivo, Cheque, Tarjeta, Otro, Balance, BalanceTotal, BalanceAnterior, PagosRec, EstadoCuenta )'+
                             ' Values ('+IntToStr(NumFact)+', '+IntToStr(0)+', ''FA'', '+IntToStr(OrdTrans)+', '+QuotedStr(Fecha)+', '+QuotedStr(FechaVence)+', '+Edit1.Text+', '+QuotedStr(SGTotal.Cells[1,0])+', '+QuotedStr(SGTotal.Cells[1,1])+', '+
                             QuotedStr(SGTotal.Cells[1,2])+', '+QuotedStr(SGTotal.Cells[1,3])+', '+QuotedStr(MntContado)+', '+QuotedStr(MntCheque)+', '+
                             QuotedStr(MntTarjeta)+', '+QuotedStr(MntOtros)+', '+QuotedStr(Saldo)+', '+QuotedStr(FloatToStr(BalanceTotal))+', '+QuotedStr(FloatToStr(BalanceAnterior))+', '+IntToStr(0)+','+IntToStr(0)+')';
           QTemp.ExecSQL;
        end;
 
  // Actualizar la tabla de series
        For i := 1 to SgFact.RowCount-1 do
         begin
           if Tipo = 'F' then
              QTemp.SQL.Text := 'Update Series Set NumFactura = '+IntToStr(numfact)+', Estado = ''Facturado'' Where '+
                                'NumSerie = '+SGFact.Cells[2,i]
           else
              QTemp.SQL.Text := 'Update Series Set NumFactura = '+IntToStr(numfact)+', Estado = ''Consignac'' Where '+
                                'NumSerie = '+SGFact.Cells[2,i];
           QTemp.ExecSQL;
         end;
 
  // Actualizar la tabla de OrdenProdItem
        For i := 1 to SgFact.RowCount-1 do
         begin
           if Tipo = 'F' then
              QTemp.SQL.Text := 'Update OrdenProdItem Set Estacion = ''Est05'' Where '+
                                'NumSerie = '+SGFact.Cells[2,i]
           else
              QTemp.SQL.Text := 'Update OrdenProdItem Set Estacion = ''Est06'' Where '+
                                'NumSerie = '+SGFact.Cells[2,i];
           QTemp.ExecSQL;
         end;
 
  // Actualizar la tabla de Articulos
        For i := 1 to SgFact.RowCount-1 do
         begin
           QTemp.SQL.Text := 'Update Articulos Set Disponible = Disponible - '+SGFact.Cells[3,i]+' Where '+
                             'CodParte = '+QuotedStr(SGFact.Cells[0,i]);
           QTemp.ExecSQL;
         end;
 
   // Actualizar la tabla de Materiales
        For i := 1 to SgFact.RowCount-1 do
         begin
           QTemp.SQL.Text := 'Update Materiales Set Disponible = Disponible - '+SGFact.Cells[3,i]+' Where '+
                             'CodMaterial = '+QuotedStr(SGFact.Cells[0,i]);
           QTemp.ExecSQL;
         end;
 
 
   // Completa la Transaccion
     //   DataModule1.AC1.CommitTrans;
 
   // Imprime la factura si el usuario quiere
      FImprimirFactura:=TFImprimirFactura.Create(self);
      FImprimirFactura.numfact := numfact;
      FImprimirFactura.Tipo := Tipo;
      try
         FImprimirFactura.ShowModal;
      finally
         FImprimirFactura.Free;
      end;
 
   except
        on E:Exception do
        begin
        //   DataModule1.AC1.RollbackTrans;
           MessageDlg('No fue posible completar la transacción, por favor contacte al administrador',mtError,[mbOK],0);
        end;
     end;//try
   end;
   Close;
end;

El error dice:
project .........exception class EIBInterBaseError with message
Conversion error from string ''0'',
process stoped......

No encuentro el Cero por ningun lado.
Cambie todos los ceros por que estaban simplemente asi: 0 por IntToStr(0) en las sentencias, pero nada.

Alguna idea?.
Saludos

[Wilson]

El error podría estar aquí

delphi

// Insertar en la tabla de Factura Si tiene ORDEN     
   QTemp.SQL.Text := 'Insert Into Factura Values '+ // No está colocando los nombres de los campos

No estás colocando los nombres de los campos, si no de una los valores

[Fenareth]

El error podría estar aquí

delphi

// Insertar en la tabla de Factura Si tiene ORDEN     
   QTemp.SQL.Text := 'Insert Into Factura Values '+ // No está colocando los nombres de los campos

No estás colocando los nombres de los campos, si no de una los valores

Eso es perfectamente válido amigo Wilson, siempre y cuando los valores (values) sean el mismo número que campos en la tabla y estén en el mismo orden... por ahí no va la cosa

Saludox !

[egostar]

El error podría estar aquí

delphi

// Insertar en la tabla de Factura Si tiene ORDEN     
   QTemp.SQL.Text := 'Insert Into Factura Values '+ // No está colocando los nombres de los campos

No estás colocando los nombres de los campos, si no de una los valores

Hola Wilson

Se pueden omitir siempre y cuando sean todos los campos de la tabla, con uno solo que no se inserte si es necesario colocar los campos.

Salud OS

PD, Vaya hoy estoy muyyyyyyyyy lento, ahora me gano Fena

[Marc]

Hola.

Utiliza el depurador de Delphi, para ejecutar ese código línea a línea.

Así sabrás la línea en que salta ese error, y solo tendremos que revisar el SQL de esa línea y no todo el evento.

NOTA: Una vez localizada la sentencia con error, hemos de buscar un problema en los tipos que estamos usando. Por el error, está claro que intentamos asignar la cadena '0' a un campo que no la admite (por ejemplo, un campo de fecha).

[Marc]

Eso es perfectamente válido amigo Wilson, siempre y cuando los valores (values) sean el mismo número que campos en la tabla y estén en el mismo orden... por ahí no va la cosa

Aunque sea válido, no es nada recomendable. Puesto que cualquier modificación que hagas a la tabla va a hacer que esta consulta fallo.

Por ejemplo, si añadimos un campo CAMPO_X, que solo se utiliza en un determinado formulario, y solo programamos ese formulario, entonces nos encontraremos que el programa fallará al llegar aquí, a pesar de que para este código el campo CAMPO_X no lo necesita ni lo debe tener en cuenta ni le afecta para nada.

Es mejor poner los campos que vas a modificar, de esta forma la sentencia es más robusta y no va a fallar por hacer cambios en la tabla, como añadir otros campos, cambiar el orden de los campos, etc. ...