Buenas a todos,tengo una situacion bien rara al insertar registros en una tabla,dejenme les explico de manera rapida, es un sistema de punto de venta que hice donde tengo una tabla temporal donde guardo las notas, estas notas tienen una columna que se llama comentarios y otra se llama SUB.
En la tabla temporal se guarda muy bien estos campos en su respectiva nota de venta, el problema viene con el corte , es decir, cuando paso la tabla temporal a donde se guardan todos los cortes, si la primer nota de venta tiene valores en cualquiera de las 2 columnas los otros registros les replica el mismo valor en dicha columna haciendo que las notas posteriores guarden ese valor.
Le pongo el codigo delphi para que vean como le hago y ver si no se me esta escapando algo:
Código Delphi
[-]
consulta3:='Select * From TempVentaHeader';
QryInsertaHeader.SQL.Clear;
QryInsertaHeader.SQL.ADD(consulta3);
QryInsertaHeader.Open;
QryInsertaHeader.First;
while not QryInsertaHeader.Eof do
begin
TblHeader.Insert;
TblHeader.FieldByName('Noventa').AsInteger:=QryInsertaHeaderNVENTA.Value;
tblheader.FieldByName('Fecha').AsDateTime:=QryInsertaHeaderFECHA.Value;
tblheader.FieldByName('TOTAL').AsFloat:=QryInsertaHeaderTOTAL.Value;
tblheader.FieldByName('UTILIDAD').AsFloat:=QryInsertaHeaderUTILIDAD.Value;
tblheader.FieldByName('costo').AsFloat:=QryInsertaHeaderCOSTO.Value;
tblheader.FieldByName('pago').AsFloat:=QryInsertaHeaderPAGO.Value;
tblheader.FieldByName('Turno').AsString:=QryInsertaHeaderTURNO.Value;
tblheader.FieldByName('Cliente').AsString:='Venta al Publico en General';
tblheader.FieldByName('Cambio').AsFloat:=0;
tblheader.FieldByName('NOMBRE').AsString:=FRMPASSCORTE.usuario;
tblheader.FieldByName('TOTALDLLS').AsFloat:=QryInsertaHeaderTOTALDLLS.Value;
tblheader.FieldByName('PAGODLLS').AsFloat:=QryInsertaHeaderPAGODLLS.Value;
tblheader.FieldByName('CAMBIO').AsFloat:=QryInsertaHeaderCAMBIODLLS.Value;
tblheader.FieldByName('CANCELADA').AsString:=QryInsertaHeaderCANCELADA.Value;
tblheader.FieldByName('Comentarios').AsString:=QryInsertaHeaderCOMENTARIOS.Value;
tblheader.FieldByName('SUB').AsString:=QryInsertaHeaderSUB.Value;
tblheader.Post;
QryInsertaHeader.Next
end;
Lo raro es que ejecuto el programa linea x linea y el valor me indica en blanco para los registro que no tienen valor pero al abrir la tabla ya tienen valor esas columnas.
Gracias por sus respuestas...