Ahora insertar un comentario
Código Delphi
[-]procedure TFXPAF.SBInsertarComentarioClick(Sender: TObject);
var VarScadena: string;
begin
VarScadena := InputBox('Comentario a insertar', 'Su comentario', '');
if VarScadena <> '' then
begin
if CambiarEstado=0 then
begin
DsDetalle.DataSet.Insert;
DsDetalle.DataSet.FieldByName('CODIGOARTICULO').value:='COM.';
DsDetalle.DataSet.FieldByName('DESCRIPCIONARTICULO').value:=VarScadena;
DsDetalle.DataSet.FieldByName('CANTIDAD').value:=0;
DsDetalle.DataSet.FieldByName('PRECIOUNIDAD').value:=0;
DsDetalle.DataSet.FieldByName('IMPUESTO').value:=0;
DsDetalle.DataSet.FieldByName('DESCUENTO').value:=0;
DsDetalle.DataSet.FieldByName('COMISION').value:=0;
DsDetalle.DataSet.FieldByName('PESOUNIDAD').value:=0;
DsDetalle.DataSet.FieldByName('MODIFICADO').value:=0;
DsDetalle.DataSet.FieldByName('SERVICIO').value:='N';
end;
end;
end;