Código Delphi [-] EscribirRegistro('Lectura de TarifaProducto ' + IntToStr(TarifaProducto.ID_Tarifa) + ' ' + IntToStr(TarifaProducto.ID_Tarifa) + ' Correcta'); {Devolver TarifaProducto} LeerRegistroTarifaProducto:=TarifaProducto; end;
EscribirRegistro('Lectura de TarifaProducto ' + IntToStr(TarifaProducto.ID_Tarifa) + ' ' + IntToStr(TarifaProducto.ID_Tarifa) + ' Correcta'); {Devolver TarifaProducto} LeerRegistroTarifaProducto:=TarifaProducto; end;